Membuat Aplikasi Kalkulator sederhana dengan Delphi7

Ini merupakan tulisan pertama saya tentang delphi7 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,angka

Ini merupakan tulisan pertama saya tentang delphi7 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

 

link download: http://www.4shared.com/rar/7omDBY5Dba/Kalkulator.html