Membuat aplikasi kalkulator mini dengan
menggunakan Delphi
1. Buka
aplikasi Delphi
2. Buat project
aplikasi baru dengan cara klik File -> New -> Application, maka dengan
otomatis project terbentuk dengan form1
3. Lalu kita
ubah properties Caption form1 pada Object Inspector, lalu ubah dengan nama
Aplikasi Kalkulator Mini
4. Lalu buatlah
2 label dari Component Palette dengan diberi caption Bilangan 1 dan Bilangan 2
5. Setelah itu
buat 2 EditText ubah properties nama pada edit text dengan nama etBil1, dan
etBil2
6. Buat 4
button untuk operator aritmatika, +, -, *, dan /
7. Langkah
berikutnya yaitu dengan membuat action pada tombol yan sudah kita buat
8. Klik dua
kali pada tombol +, kemudian ketikkan script berikut ini
procedure TForm1.TambahClick(Sender: TObject);
var a, Hasil:integer;
begin
a :=
StrToInt(Edit1.Text)+StrToInt(Edit2.Text);
Hasil := a;
Panel1.Caption:=IntToStr(hasil);
end;
end.
9. Lakukan hal
yang sama pada operator menghitung lainnya, tinggal diganti operator aritmatila
sesuai dengan action tombol yang akan diklik
procedure TForm1.KurangClick(Sender: TObject);
var a, Hasil:integer;
begin
a :=
StrToInt(Edit1.Text)+StrToInt(Edit2.Text);
Hasil := a;
Panel1.Caption:=IntToStr(hasil);
end;
end.
procedure TForm1.KaliClick(Sender: TObject);
var a, Hasil:integer;
begin
a :=
StrToInt(Edit1.Text)+StrToInt(Edit2.Text);
Hasil := a;
Panel1.Caption:=IntToStr(hasil);
end;
end.
procedure TForm1.BagiClick(Sender: TObject);
var a,Hasil:float;
begin
a := StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text);
Hasil := a;
Panel1.Caption:=FloatToStr(hasil);
end;
end.
Tarraaa
Aplikasi anda sudah selesai dibuat, coba dirun aplikasinya, apabila masih menemukan kesalahan bisa diperbaiki lalu coba dirun kembali, semoga sukses
Created by : Andreas Billy Sutandi :)
