Cara Membuat Aplikasi Kalkulator Dengan Delphi

Cara Membuat Aplikasi Kalkulator Dengan Delphi�Kali in saya ingi berbagi informasi tentang bagaimana cara membuat program atau aplikasi kalkulator yang menggunakan 1 form inputan saja dengan menggunakan bahasa pemrograman Delphi .Anda bisa menggunakan Delphi 7 ataupun Embarcadero Delphi 2010.

Tampilan akhirnya :

Langkah-langkah membuat kalkulatornya :

1.Buka aplikasi Delphi,pilih New >VCL Forms Application,kemudian buat desain form seperti diatas.Beri nama btn0 untuk button 0,btn1 untuk button 1 dan seterusnya sampai button ke 9.

Untuk button 0-9,masukkan script di bawah(sesuaikan dengan tiap-tiap button)  dengan cara klik 2 kali pada tiap button :

procedure TForm2.btn0Click(Sender: TObject);
begin
angka:=angka+'0';
edthasil.Text:=angka;
end;

procedure TForm2.btn0Click(Sender: TObject);
begin
angka:=angka+'0';
edthasil.Text:=angka;
end;

procedure TForm2.btn1Click(Sender: TObject);
begin
angka:=angka+'1';
edthasil.Text:=angka;
end;

procedure TForm2.btn2Click(Sender: TObject);
begin
angka:=angka+'2';
edthasil.Text:=angka;
end;

procedure TForm2.btn3Click(Sender: TObject);
begin
angka:=angka+'3';
edthasil.Text:=angka;
end;

procedure TForm2.btn4Click(Sender: TObject);
begin
angka:=angka+'4';
edthasil.Text:=angka;
end;

procedure TForm2.btn5Click(Sender: TObject);
begin
angka:=angka+'5';
edthasil.Text:=angka;
end;

procedure TForm2.btn6Click(Sender: TObject);
begin
angka:=angka+'6';
edthasil.Text:=angka;
end;

procedure TForm2.btn7Click(Sender: TObject);
begin
angka:=angka+'7';
edthasil.Text:=angka;
end;

procedure TForm2.btn8Click(Sender: TObject);
begin
angka:=angka+'8';
edthasil.Text:=angka;
end;

procedure TForm2.btn9Click(Sender: TObject);
begin
angka:=angka+'9';
edthasil.Text:=angka;
end;

2.Selanjutnya tambahkan script di bawah untuk tiap tiap operator yaitu pada btntambah,btnkurang,btnbagi,btnkali :

procedure TForm2.btnkaliClick(Sender: TObject);
begin
angka1:=StrToFloat(edthasil.Text);
angka:='';
edthasil.Text:=angka;
pilih:=3;
  edthasil.SetFocus;
end;

procedure TForm2.btnkurangClick(Sender: TObject);
begin
angka1:=StrToFloat(edthasil.Text);
angka:='';
edthasil.Text:=angka;
pilih:=2;
  edthasil.SetFocus;
end;

procedure TForm2.btntmbhClick(Sender: TObject);
begin
angka1:=StrToFloat(edthasil.Text);
angka:='';
edthasil.Text:=angka;
pilih:=1;
  edthasil.SetFocus;
end;

procedure TForm2.btnbagiClick(Sender: TObject);
begin
angka1:=StrToFloat(edthasil.Text);
angka:='';
edthasil.Text:=angka;
pilih:=4;
  edthasil.SetFocus;
end;

Klik 2 kali pada button titik,dan masukkan script di bawah :

procedure TForm2.btntitikClick(Sender: TObject);
begin
angka:=angka+'.';
edthasil.Text:=angka;
end;

3.Kemudian klik 2 kali pada button samadengan(=) dan masukkan script seprti di bawah ini :

procedure TForm2.btnsamadenganClick(Sender: TObject);
begin
if pilih=1  then
begin
angka2:=StrToFloat(edthasil.Text);
jumlah:=angka1+angka2;
angka:=FloatToStr(jumlah);
edthasil.Text:=FloatToStr(jumlah);
end
else if pilih=2  then
begin
angka2:=StrToFloat(edthasil.Text);
jumlah:=angka1-angka2;
angka:=FloatToStr(jumlah);
edthasil.Text:=FloatToStr(jumlah);
end
else if pilih=3  then
begin
angka2:=StrToFloat(edthasil.Text);
jumlah:=angka1*angka2;
angka:=FloatToStr(jumlah);
edthasil.Text:=FloatToStr(jumlah);
end
else if pilih=4 then
begin
angka2:=StrToFloat(edthasil.Text);
jumlah:=angka1/angka2;
angka:=FloatToStr(jumlah);
edthasil.Text:=FloatToStr(jumlah);
end
else if pilih=5 then
begin
angka2:=StrToFloat(edthasil.Text);

angka:=FloatToStr(jumlah);
edthasil.Text:=FloatToStr(jumlah);
  end;
end;

4.Terakhir tambahkan variabel di bagian Var di code editor

var
   angka : String;
   jumlah,angka1,angka2 : Real;
   pilih : Integer;

  Untuk lebih jelasnya,anda bisa mendownload Aplikasi Kalkulator Delphi buatan saya ini.

Hasil saat program dijalankan :

Sekian postingan saya kali ini tentang bagaimana Cara Membuat Aplikasi Kalkulator Dengan Delphi ,semoga bermanfaat.

Tweet

Subscribe to receive free email updates: