Membuat kalkulator dengan delphi 7

Program kalkulator ini adalah program sederhana yang akan kita buat untuk kali ini. Yaitu kalkulator penjumlahan, pengurangan, pembagian dan perkalian. Untuk membuat program kalkulator sederhana ini kita harus menginstall delphi 7.

Baca Selengkapnya>> Ikuti langkah-langkah berikut ini:
  1. Buka delphi 7,maka akan terlihat seperti dibawah ini

  2. Beri caption pada form tersebut dengan nama Kalkulator di properties ,lihat gambar untuk lebih jelasanya
  3. Setelah itu masukkan komponen Groupbox, letaknya di atas form Lihat gambar di bawah
  4. Kosongkan isian captionnya yang berada di sebelah kiri.

  5. Atur posisi groupBox sehingga posisinya seperti gambar di bawah ini

  6. Tambahkan komponen Radio group
  7. Sekarang ubah propertiesnya

  8. Ganti caption radioGroup1 menjadi kalkulator sederhana. Klik pada items di properties
  9. Isilah tanda +,-,*,/ untuk lebih jelas lihat gambar

  10. Setelah selesai klik Oke. Maka akan terlihat sebagai berikut

  11. Masukkan 3 komponen edit lalu tambahkan di form

  12. Kosongi semua text

  13. Beri nama pada properties edit = Text1=a,text2=b,text3=c
    Tambahkan 2 komponen label dan 2 tombol button ,untuk tombol Label letaknya di sebelah kiri edit bersimbol A dan tombol button bersimbol ok Beri caption = kalkulator sederhana dan caption di isi = Sehingga akan terlihat sebagai berikut

  14. Masukkan 3 komponen button dan beri caption pada properties Button1=&OK, Button1=&Hapus, Button1=&keluar,name Button1=Ok, Button2=hapus, Button3=Keluar .Sehingga tampilannya menjadi seperti ini:
    /div>
  15. Klik 2 x pada tombol Ok ,isikan kode berikut:
    var
    hasil,hasil1,hasil2,hasil3,hasil4:real;
    begin
    if tanda.ItemIndex=0 then
    hasil:=StrToFloat(a.Text)+ StrToFloat(b.Text);
    c.Text:=FloatToStr(hasil);
    if tanda.ItemIndex=1 then
    hasil:=StrToFloat(a.Text)- StrToFloat(b.Text);
    c.Text:=FloatToStr(hasil);
    if tanda.ItemIndex=2 then
    hasil:=StrToFloat(a.Text)* StrToFloat(b.Text);
    c.Text:=FloatToStr(hasil);
    if tanda.ItemIndex=3 then
    hasil:=StrToFloat(a.Text)/ StrToFloat(b.Text);
    c.Text:=FloatToStr(hasil);
    end;
    Lalu klik 2 x pada tombol hapus,lalu isikan kode
    a.Text:='';
    b.Text:='';
    c.Text:='';
    Klik pada tombol keluar,terus masukkan kode
    Close;
    Lalu jalankan program dengan menekan tombol F9,masukkan inputtan yang akan di operasikan.
    Semoga sukses..


0 komentar:

Posting Komentar

Pengikut