dan tanpa banyak bicara saya akan langsung postingkan kodingnya...
Taaaa Daaaaaa....!!!
hasilnya akan seperti dibawah ini., sederhana memang... tapii buat pelajar delphi7...
dapat memberikan pelajaran tambahan...
Asseeekkkkk
Ini koding sobat...
.langsung saJa ea... selamat mencoba!
procedure TForm1.Button1Click(Sender: TObject);
var a : integer;
begin
a := strtoint(edit1.Text);
if a mod 2 =0 then
begin
label1.Caption:= 'Bilangan Genap';
end
else
label1.Caption:= 'Bilangan Ganjil';
Edit1.SetFocus;
end;
end.
Tidak ada komentar:
Posting Komentar
perhatian!
tolong komentarnya berhubungan dengan artikel yang ada.
komentar yang mengarah ke tindakan spam
akan dihapus atau terjaring secara otomatis oleh spam filter