Contoh Program Timer pada Delphi

 LISTING PROGRAM

Pada listing program diatas pertama kita membutuhkan:

·         2 radio group

·         3 radio button

·         3 checkbox

·         1 label

·         1 edit text

·         2 button

·         Langkah pertama buatlah tampilan atau design pada form1 seperti yang diinginkan lalu klik 2 kali pada radiobutton1.

Pada listing program diatas,

Edit1.Font.Name:='Times New Roman';

Merupakan listing atau perintah untuk mengubah font pada Edit1 menjadi jenis font Times New Roman

Label1.Font.Name:='Times New Roman';

end;

Merupakan listing atau perintah untuk mengubah font pada Label1 menjadi jenis font Times New Roman

·         Setelah itu klik 2 kali pada radio button 2, Pada listing program Edit1.Font.Name:='Castellar';

Merupakan listing atau perintah untuk mengubah font pada Edit1 menjadi jenis font Castellar

Label1.Font.Name:='Castellar';

end;

Merupakan listing atau perintah untuk mengubah font pada Label1 menjadi jenis font Castellar

·         Lalu klik 2 kali pada radio button 3,Pada listing program Edit1.Font.Name:='Magneto';

Merupakan listing atau perintah untuk mengubah font pada Edit1 menjadi jenis font Magneto

Label1.Font.Name:='Magneto';

end;;

Merupakan listing atau perintah untuk mengubah font pada Label1 menjadi jenis font Magneto

·         Langkah berikutnya buatlah klik 2 kali pada checkbox, pada listing program

if CheckBox1.Checked then

begin

Edit1.Font.Style:=Edit1.Font.Style+[fsBold];

Label1.Font.Style:=Label1.Font.Style+[fsBold];

End

Merupakan listing atau perintah percabangan jika checkbox1 di klik(ditandai) maka akan mengubah font style pada edit1 menjadi jenis font bold( tulisan menjadi tebal)

else

begin

Edit1.Font.Style:=Edit1.Font.Style-[fsBold];

Label1.Font.Style:=Label1.Font.Style-[fsBold];

end;

Merupakan listing atau perintah percabangan dan jika checkbox1 di klik(hilang tanda) maka akan mengubah font style pada edit1 dari jenis font bold( tulisan menjadi tebal) menjadi jenis font style normal.

·         Langkah berikutnya buatlah klik 2 kali pada checkbox2, pada listing program

if CheckBox2.Checked then

begin

Edit1.Font.Style:=Edit1.Font.Style+[fsItalic];

Label1.Font.Style:=Label1.Font.Style+[fsItalic];

end

Merupakan listing atau perintah percabangan jika checkbox1 di klik(ditandai) maka akan mengubah font style pada edit1 menjadi jenis font Italic( tulisan menjadi miring)

else

begin

Edit1.Font.Style:=Edit1.Font.Style-[fsItalic];

Label1.Font.Style:=Label1.Font.Style-[fsItalic];

end;

Merupakan listing atau perintah percabangan dan jika checkbox2 di klik(hilang tanda) maka akan mengubah font style pada edit1 dari jenis font Italic( tulisan menjadi miring) menjadi jenis font style normal.

·         Langkah berikutnya buatlah klik 2 kali pada checkbox2, pada listing program

if CheckBox2.Checked then

begin

Edit1.Font.Style:=Edit1.Font.Style+[fsUnderline];

Label1.Font.Style:=Label1.Font.Style+[fsUnderline];

end

Merupakan listing atau perintah percabangan jika checkbox3 di klik(ditandai) maka akan mengubah font style pada edit1 menjadi jenis font underline( tulisan terdapat garis bawah)

else

begin

Edit1.Font.Style:=Edit1.Font.Style-[fsUnderline];

Label1.Font.Style:=Label1.Font.Style-[fsUnderline];

end;

Merupakan listing atau perintah percabangan dan jika checkbox3 di klik(hilang tanda) maka akan mengubah font style pada edit1 dari jenis font underline( tulisan terdapat garis bawah) menjadi jenis font style normal.

·         Langkah berikutnya buatlah klik 2 kali pada button clear,

 Edit1.Clear

Merupakan perintah untuk menghapus apa yang ada pada edit1

·         Langkah berikutnya buatlah klik 2 kali pada button close,

close;

merupakan perintah untuk menutup aplikasi yang telah dijalankan

OUTPUT