Kali in saya ingin 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 atau Embarcadero Delphi 2010.
Pada kesempatan ini saya menggunakan Aplikasi Embarcadero Delphi 2010, tampilannya seperti Gambar di bawah ini.
Langkah-langkah nya sebagai berikut:
- Jalankan terlebih dahulu program Delphi 2010
- Tambahkan Edit 4 buah, Label 6 buah, Button 6 buah, ScrollBar 3 buah, Timer 3 buah
- Bentuk lah desainya seperti yang anda sukai atau bisa seperti gambar dibawah ini:
Kode untuk ScrollBar1 (Tambah) :
procedure TForm4.ScrollBar1Change(Sender: TObject);
var
ScrollPos: Integer;
begin
edit1.Text:=FloatToStr(ScrollBar1.position)
end;
Kode untuk ScrollBar2 (Tambah) :
procedure TForm4.ScrollBar2Change(Sender: TObject);
var
ScrollPos: Integer;
begin
edit2.Text:=FloatToStr(ScrollBar2.position)
end;
Kode untuk ScrollBar3 (Tambah) :
procedure TForm4.ScrollBar3Change(Sender: TObject);
var ScrollPos: Integer;
begin
edit3.Text:=FloatToStr(ScrollBar3.position)
end;
Kode untuk Button1/rata-rata (Tambah) :
procedure TForm4.Button1Click(Sender: TObject);
begin
nilai1:=StrToFloat(Edit1.text);
nilai2:=StrToFloat(Edit2.text);
nilai3:=StrToFloat(Edit3.text);
hasil:=(nilai1+nilai2+nilai3)/3;
Edit4.Text:=FloatToStr(hasil);
end;
Kode untuk Button2/ Penjumlahan {+} (Tambah) :
procedure TForm4.Button2Click(Sender: TObject);
begin
nilai11:=StrToInt(Edit1.text);
nilai22:=StrToInt(Edit2.text);
nilai33:=StrToInt(Edit3.text);
hasill:=(nilai11+nilai22+nilai33);
Edit4.Text:=IntToStr(hasill);
end;
Kode untuk Button3/ Pengurangan {-} (Tambah) :
procedure TForm4.Button3Click(Sender: TObject);
begin
nilai11:=StrToInt(Edit1.text);
nilai22:=StrToInt(Edit2.text);
nilai33:=StrToInt(Edit3.text);
hasill:=(nilai11-nilai22-nilai33);
Edit4.Text:=IntToStr(hasill);
end;
Kode untuk Button4/ Perkalian {*}(Tambah) :
procedure TForm4.Button4Click(Sender: TObject);
begin
nilai1:=StrToFloat(Edit1.text);
nilai2:=StrToFloat(Edit2.text);
nilai3:=StrToFloat(Edit3.text);
hasil:=(nilai1*nilai2*nilai3);
Edit4.Text:=FloatToStr(hasil);
end;
Kode untuk Button5/Pembagian {/} (Tambah) :
procedure TForm4.Button5Click(Sender: TObject);
begin
nilai1:=StrToFloat(Edit1.text);
nilai2:=StrToFloat(Edit2.text);
nilai3:=StrToFloat(Edit3.text);
hasil:=(nilai1/nilai2/nilai3);
Edit4.Text:=FloatToStr(hasil);
end;
Kode untuk Button6/keluar (Tambah) :
procedure TForm4.Button6Click(Sender: TObject);
begin
close
end;
Kode untuk Timer1 (Tambah):
procedure TForm4.Timer1Timer(Sender: TObject);
begin
Label7.Caption:=FormatDateTime('dd MMMM yyyy',Now);
Label8.Caption:=FormatDateTime('hh:mm:ss',Now);
Timer1.Interval:=500;
Label9.Caption:=' ';
Label10.Caption:=' ';
Label11.Caption:=' ';
end;
Kode untuk Timer2 (Tambah):
procedure TForm4.Timer2Timer(Sender: TObject);
begin
Timer2.Interval:=800;
Label9.Caption:='Just For Fun';
Label10.Caption:='Created By Aliyudin';
end;
Kode untuk Timer3 (Tambah):
procedure TForm4.Timer3Timer(Sender: TObject);
begin
label5.Left:=label5.Left-5;
Label5.Font.Color:=clGreen;
if label5.Left<=-100 then
label5.Left := 800;
end;
5. Jalankan program.
Selamat Mencoba ya kawan-kawan........
Share This :
0 komentar