Bagaimana Cara Membuat Aplikasi Kalkulator sederhana dengan Delphi7?

Bagaimana Cara Membuat Aplikasi Kalkulator sederhana dengan Delphi7?

09.03
Berikut cara Membuat Aplikasi Kalkulator Sederhana dengan Delphi7.
1. Jalankan terlebih dahulu program Delphi7
2.Tambahkan Edit 2buah, Label 3buah, Button 4buah
3. Bentuk Menjadi sedemikian rupa
1

4. Tambahkan Kode
Kode untuk button1(Tambah) :
procedure TForm1.Button1Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1+angka2;
label3.caption := floattostr(hasil);
end;
Kode untuk button2(Kurang) :
procedure TForm1.Button2Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1-angka2;
label3.caption := floattostr(hasil);
end;
Kode untuk button3 (Kali) :
procedure TForm1.Button3Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1*angka2;
label3.caption := floattostr(hasil);
end;
Kode untuk button4(Bagi) :
procedure TForm1.Button4Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1/angka2;
label3.caption := floattostr(hasil);
end;
5. Jalankan program

2

3









Source Code dapat didownload DISINI