Minggu, 19 September 2010

Membuat Kalkulator Sederhana Dengan Borland Delphi 7

Belajar cara MEMBUAT CALCULATOR sederhana

Dengan menggunakan Delphi 7 kita juga bias membuat sebuh calculator sederhana,
Langka-langkanya adalah sebagi berikut :
1.Buatlah sebuah Form seperti yang terlihat pada gambar 11 dibawa ini.
Pada program berikut ini kita akan menggunakan empat buah botton, tiga buah
edit dan satu label. Ubah Caption botton pada properties sesuai dengan yang
kita inginkan, hapus edit pada properties-text dang anti label dengan hasil
perhitungan.


Gambar 11. Form Menu

2.Doble Clik tombol Tamba dan masukan code dibawah ini pada bidang code editor.

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;

Note : 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:

Poskan Komentar