Kamis

Cara Membuat Calculator Sederhana

Bagi para pemula yang ingin belajar pemrograman Dengan menggunakan Delphi 7 untuk membuat sebuah aplikasi sederhana. Disini kita akan membahas tentang cara membuat calculator sederhana

Langkah-langkahnya adalah sebagai berikut :

1. Buatlah sebuah Form seperti yang terlihat pada gambar 1 dibawah ini.
    Pada program berikut ini kita akan menggunakan empat buah button, tiga buah
    edit dan satu label. Ubah Caption button pada properties sesuai dengan yang
    kita inginkan, hapus edit pada properties-text dang anti label dengan hasil
     perhitungan.


Gambar 1. Form Menu



2.Doble Clik tombol Tambah dan masukan code dibawah ini:

 procedure TForm1.Button1Click(Sender: TObject);
  var A,B,C:INTEGER;
begin

A:=STRTOINT(EDIT1.TEXT);

B:=STRTOINT(EDIT2.TEXT);

C:=A+B;

EDIT3.Text:=INTTOSTR(C)
end;


Catatan : Untuk C pada tombol Kurang codenya menjadi C:=A-B;
              Pada tombol Kali codenya menjadi C:=A*B;
              Sedangkan  pada tombol Bagi codenya menjadi C:=A div B;
 

Tidak ada komentar:

Posting Komentar