BILANGAN GANJIL ATAU GENAP

Semangat….
Selalu pengen semangat ne, tapi badan gak mau gerak. Buat artikel ne aja susah banget rasanya, padahal cuma butuh sedikit tenaga.
Oke…

Program ini adalah program sederhana untuk mengetahui apakah bilangan yg diinputkan itu bilangan ganjil atau genap. Sebetulnya ini adalah tugas ke-2 dari mata kuliah Delphi...
Langsung aja ya..
Pertama buka program delphi7, lalu pilih yg standar aja.
desain form seperti gambar diatas :

sudah blum... koq bengong....

klo sdh... atur propertisnya dan ketikkan listing program berikut ini :

procedure TFrmGenapGanjil.BTNOKClick(Sender: TObject);

var x: integer;

begin

x:=strtoint(edsuku.Text);

if (x mod 2)= 0 then

begin

lblhasil.Caption:=inttostr(x)+' Adalah Bilangan Genap';

end

else

begin

lblhasil.Caption:=inttostr(x)+' Adalah Bilangan Ganjil';

end;

end;

procedure TFrmGenapGanjil.BTNKELUARClick(Sender: TObject);

begin

if application.MessageBox('Yakin Anda Keluar?','Siong Tau Lin Information',+

MB_YESNO)=id_yes then

close;

end;

end.