Tutorial DELPHI7 (Membuat kalkulator sederhana pada Delphi7)

Membuat kalkulator sederhana pada Delphi7

1. Buka aplikasi Delphi7
2. Buat tampilan form seperti di bawah ini 

3. Double klik pada pilihan ‘+’ dan masukkan syntax seperti berikut

procedure TForm1.Button1Click(Sender: TObject);

VAR

bil1,bil2,tambah:real;

begin

bil1:=strtofloat(edit1.Text);

bil2:=strtofloat(edit2.Text);

tambah:=bil1+bil2;

edit3.Text:=floattostr(tambah);

end;

4. Double klik pada pilihan ’-‘ dan masukkan syntax seperti berikut

procedure TForm1.Button2Click(Sender: TObject);
VAR
bil1,bil2,kurang:real;
begin
bil1:=strtofloat(edit1.Text);
bil2:=strtofloat(edit2.Text);
kurang:=bil1-bil2;
edit3.Text:=floattostr(kurang);
end;

5. Double klik pada pilihan ‘x’ dan masukkan syntax seperti berikut

procedure TForm1.Button3Click(Sender: TObject);

VAR

bil1,bil2,kali:real;

begin

bil1:=strtofloat(edit1.Text);

bil2:=strtofloat(edit2.Text);

kali:=bil1*bil2;

edit3.Text:=floattostr(kali);

end;

6. Double klik pada pilihan ‘/’ dan masukkan syntax seperti berikut

procedure TForm1.Button4Click(Sender: TObject);

var

bil1,bil2:real;

bagi : real;

begin

bil1 := strtofloat(edit1.Text);

bil2 := strtofloat(edit2.Text);

bagi := bil1/bil2;

edit3.Text := floattostr(bagi);

end;

7. Double klik pada pilihan ‘HAPUS’ dan masukkan syntax seperti berikut

procedure TForm1.Button5Click(Sender: TObject);

begin

edit1.clear ;

edit2.clear ;

edit3.clear ;

end;

8. syntax List

9. Run program yang sudah di buat atau klik F9

10. Berikut output program yang telah di buat

11. Selesai

Sumber: Tugas Laporan Akhir Laboratorium Sistem Informasi universitas Gunadarma

Referensi link untuk Mahasiswa Universitas Gunadarma:

• iLab Gunadarma
• StudentSite
• BAAK Gunadarma
• Lab SK
• Lab Microprocessor Gunadarma