Ini adalah pertama kali nya saya menggunakan bloger.com, saya sangat senang sekali bisa menggunakan nya semoga bermanfaat bagi saya dan orang lain (pengunjung). AMIEN.....
Menentukan bilangan genap dan ganjil emhh langsung saja.. Dalam program ini kita membagi inputan bilangan menjadi 2 dengan perintah : if a mod 2 = 0 nah perintah mod disini yaitu membagi bilangan. langsung desain form nya saja. Desain form : selanjutnya rubah properties : setelah dirubah propertiesnya : nahh langsung aja kode program nya :) untuk button 1 (keluar) : procedure TForm1.Button1Click(Sender: TObject); begin close; end; untuk button 2 (proses) : procedure TForm1.Button2Click(Sender: TObject); var a : integer; begin a := strtoint(edit1.Text); if a mod 2 =0 then begin label4.Caption:= 'Bilangan Anda Genap'; end else label4.Caption:= 'Bilangan Anda Ganjil'; end; untuk button 3 (ulang) : procedure TForm1.Button3Click(Sender: TObject); begin edit1.clear; labe...
Comments
Post a Comment