×

Cara Membuat Aplikasi Kalkulator Dengan Delphi

Share this article with your friends

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 :

image

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 :

image

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

0 Response to "Cara Membuat Aplikasi Kalkulator Dengan Delphi"

Post a Comment