Program Perhitungan (tambah, kurang, kali, dan bagi)

Pada kesempatan kali ini saya akan membagikan tutorial cara membuat program perhitungan (tambah, kurang, kali, bagi, dan pangkat). Silahkan simak langkah langkahnya dibawah ini:

Membuat Aplikasi Kalkulator sederhana

Langkah pertama, buka aplikasi pemograman Delphi (disini saya menggunakan bahasa pemograman Delphi XE3)
Setelah itu buat project baru dengan meng-klik file-new-vcl form application - delphi sampai tampilannya seperti dibawah ini.

Lalu desain formnya menjadi seperti dibawah ini.

Setelah anda selesai mendesain lalu masukan syntaxya ke masing-masing tombol yang ada di form
Pertama double klik di tombol tambah, lalu masukan syntax berikut

procedure TForm1.Button1Click(Sender: TObject);
var bil1,bil2,hasil:integer;
begin
bil1:=StrToInt(Edit1.Text);
bil2:=StrToInt(Edit2.Text);
hasil:=bil1+bil2;
Edit3.Text:=IntToStr(hasil);
end;

Kedua double klik di tombol kurang, lalu masukan syntax berikut

procedure TForm1.Button2Click(Sender: TObject);
var bil1,bil2,hasil:integer;
begin
bil1:=StrToInt(Edit1.Text);
bil2:=StrToInt(Edit2.Text);
hasil:=bil1-bil2;
Edit3.Text:=IntToStr(hasil);
end;

Ketiga double klik di tombol Kali, lalu masukan syntax berikut

procedure TForm1.Button2Click(Sender: TObject);
var bil1,bil2,hasil:integer;
begin
bil1:=StrToInt(Edit1.Text);
bil2:=StrToInt(Edit2.Text);
hasil:=bil1*bil2;
Edit3.Text:=IntToStr(hasil);
end;

Keempat double klik di tombol Bagi, lalu masukan syntax berikut

procedure TForm1.Button4Click(Sender: TObject);
Var bil1,bil2,hasil:real;
begin
bil1:=StrToFloat(Edit1.Text);
bil2:=StrToFloat(Edit2.Text);
hasil:=bil1/bil2;
Edit3.Text:=FloatToStr(hasil);
end;

Kelima double klik di tombol hapus, lalu maasukan syntax berikut

procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit1.SetFocus;
end;

Terakhir double klik di tombol Keluar, lalu maasukan syntax berikut

procedure TForm1.Button6Click(Sender: TObject);
begin
Application.Terminate;
end;

Setelah itu coba jalankan dengan mengklik RUN atau tekan tombol SHIFT+CTRL+F9 ... dan lihat hasilnya .....