putra libra

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...

Karna saya masih belajar jadi mohon dimaklumi jika ada kesalahan atau ada yang kurang pas. Saya akan membuat Program sederhana operasi   kali, bagi, tambah dan kurang. Tampilan form seperti dibawah ini, desain form nya dapat anda sesuaikan dengan selera.       Ubah bagian caption label1,2,3 dan komponen lainnya dengan nama yang sesuai dengan kebutuhan program dan hilangkan saja Text nya. Untuk   untuk selanjutnya ada lah source code delphinya,,, untuk button proses (Button 1) : procedure TForm1.Button1Click(Sender: TObject); var a,b, c    : real; begin a := strtofloat(edit1.Text); b := strtofloat(edit2.Text); if Radiobutton1.Checked then   begin    c := (a*b);    edit3.Text:=floattostr(c);   end   else   if Radiobutton2.Checked then   begin    c := (a/b);    edit3.Te...

Belajar Pemrograman Delphi Pemrograman delphi ini lebih mudah dimengerti bahasa programnya. Dan caratermudah untuk mengerti adalah dengan mengerjakannya secara bertahap. Dewasa ini perkembangan Software Development Tools sangat pesat dalam persaingan yang sangat ketat. Masing-masing perangkat memiliki kelebihan dan kekurangan yang sangat tipis bila dibandingkan satu dengan yang lainnya. Tipe Data Bilangan Di Delphi, Bilangan dapat disimpana dalam dua kelompok tipe, yaitu Integer dan real. Kelompok tipe Integer untuk menyimpan bilangan bulat, dan terdiri atas beberapa macam tipe. Kelompok Integer Tipe data Range Ukuran (byte) Byte 0 s.d . 255 1 Shortint -128 s.d. 127 1 Word 0 s.d. 65,535 2 SmallInt -32,768 s.d. 32,767 2 LongWord 0...4294967295 4 Cardinal 0 s.d. 4,294,967,295 4 LongInt -2,147,483,648 s.d. 2,147,483,647 4 ...