Sedikit Info Seputar
Cara Membuat Aplikasi Kalkulator Dengan Delphi
Terbaru 2017
- Hay gaes kali ini team Blog Android, kali ini akan membahas artikel dengan judul Cara Membuat Aplikasi Kalkulator Dengan Delphi, kami selaku Team Blog Android telah mempersiapkan artikel ini untuk sobat sobat yang menyukai Blog Android. semoga isi postingan tentang
Artikel Delphi, yang saya posting kali ini dapat dipahami dengan mudah serta memberi manfa'at bagi kalian semua, walaupun tidak sempurna setidaknya artikel kami memberi sedikit informasi kepada kalian semua. ok langsung simak aja sob
Judul:
Berbagi Info Seputar
Cara Membuat Aplikasi Kalkulator Dengan Delphi
Terbaru
link: Cara Membuat Aplikasi Kalkulator Dengan Delphi
Berbagi Artikel Tentang Cara Membuat Aplikasi Kalkulator Dengan Delphi Terbaru dan Terlengkap 2017
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.
