Membuat Aplikasi Kalkulator sederhana dengan Delphi7

Membuat Aplikasi Kalkulator sederhana dengan Delphi7
Membuat Aplikasi Kalkulator sederhana dengan Delphi7

By rohmat 24 Nov 2017, 15:14:50 WIB - Kategori: Delphi



 


Membuat Aplikasi Kalkulator sederhana dengan Delphi7


 

Ini merupakan tulisan pertama saya di JagoCoding... Saya akan membahas tentang 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

 

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

 




ARTIKEL TERKAIT: