1. Buka IDE Brolan Delphi 7 kalian seperti pada gambar di bawah ini .
2. Gunakan beberapa object agar sama seperti gambar di bawah ini :
Property :
Form : Caption : Latihan Kalkulator , BorderStyle : bsDialog
Button : Caption : Isi dengan angka seperti gambar di atas , Name : tmbl(no)
Label : Caption : Dapat seperti pada gambar / nama pembaca
GroupBox : Caption : Kosongkan
Edit : Text : Kosongkan , Name : txtangka
3. Jika pada tahap ke 2 pembaca telah selesai maka untuk selanjuta kita mulai dengan penulisan
script code pada setiap button untuk menampilakan angka , operator yang di gunakan , dan hasil.
Sebelum kita mengetikan script codenya lebih baik kita save Project yang di buat . Jika pembaca sangat pemula kami menyarankan untuk tidak mengubah nama untuk di save agar pembaca tidak mengalami kesulitan dalam menyamakan script code kami.
Berikut script code :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
txtangka: TEdit;
GroupBox1: TGroupBox;
tmbl1: TButton;
tmbl2: TButton;
tmbl3: TButton;
tmbl4: TButton;
tmbl5: TButton;
tmbl6: TButton;
tmbl7: TButton;
tmbl8: TButton;
tmbl9: TButton;
tmbl0: TButton;
tambah: TButton;
kurang: TButton;
Label1: TLabel;
bagi: TButton;
kali: TButton;
samadengan: TButton;
c: TButton;
procedure tmbl1Click(Sender: TObject);
procedure tmbl2Click(Sender: TObject);
procedure tmbl3Click(Sender: TObject);
procedure tmbl4Click(Sender: TObject);
procedure tmbl5Click(Sender: TObject);
procedure tmbl6Click(Sender: TObject);
procedure tmbl7Click(Sender: TObject);
procedure tmbl8Click(Sender: TObject);
procedure tmbl9Click(Sender: TObject);
procedure tmbl0Click(Sender: TObject);
procedure tambahClick(Sender: TObject);
procedure kurangClick(Sender: TObject);
procedure bagiClick(Sender: TObject);
procedure kaliClick(Sender: TObject);
procedure samadenganClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
tampung_nilai : String;
tampung_nilai1 : Integer;
nilai : Integer ;
nilai1 : Integer;
hitung : Integer;
hitung1 : Double;
implementation
uses StrUtils;
{$R *.dfm}
procedure TForm1.tmbl1Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '1';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl2Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '2';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl3Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '3';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl4Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '4';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl5Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '5';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl6Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '6';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl7Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '7';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl8Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '8';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl9Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '9';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl0Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '0';
txtangka.Text:= tampung_nilai ;
end;
procedure TForm1.tambahClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai ;
nilai:= 0;
end;
procedure TForm1.kurangClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai;
nilai:= 1;
end;
procedure TForm1.bagiClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai;
nilai:= 2;
end;
procedure TForm1.kaliClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai;
nilai:= 3;
end;
procedure TForm1.samadenganClick(Sender: TObject);
begin
nilai1:= StrtoInt(txtangka.Text);
case nilai of
0: hitung1:= tampung_nilai1 + nilai1;
1: hitung1:= tampung_nilai1 - nilai1;
2: hitung1:= tampung_nilai1 / nilai1;
3: hitung1:= tampung_nilai1 * nilai1;
end;
txtangka.Text:= FloattoStr(hitung1);
end;
end.unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
txtangka: TEdit;
GroupBox1: TGroupBox;
tmbl1: TButton;
tmbl2: TButton;
tmbl3: TButton;
tmbl4: TButton;
tmbl5: TButton;
tmbl6: TButton;
tmbl7: TButton;
tmbl8: TButton;
tmbl9: TButton;
tmbl0: TButton;
tambah: TButton;
kurang: TButton;
Label1: TLabel;
bagi: TButton;
kali: TButton;
samadengan: TButton;
c: TButton;
procedure tmbl1Click(Sender: TObject);
procedure tmbl2Click(Sender: TObject);
procedure tmbl3Click(Sender: TObject);
procedure tmbl4Click(Sender: TObject);
procedure tmbl5Click(Sender: TObject);
procedure tmbl6Click(Sender: TObject);
procedure tmbl7Click(Sender: TObject);
procedure tmbl8Click(Sender: TObject);
procedure tmbl9Click(Sender: TObject);
procedure tmbl0Click(Sender: TObject);
procedure tambahClick(Sender: TObject);
procedure kurangClick(Sender: TObject);
procedure bagiClick(Sender: TObject);
procedure kaliClick(Sender: TObject);
procedure samadenganClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
tampung_nilai : String;
tampung_nilai1 : Integer;
nilai : Integer ;
nilai1 : Integer;
hitung : Integer;
hitung1 : Double;
implementation
uses StrUtils;
{$R *.dfm}
procedure TForm1.tmbl1Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '1';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl2Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '2';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl3Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '3';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl4Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '4';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl5Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '5';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl6Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '6';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl7Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '7';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl8Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '8';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl9Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '9';
txtangka.Text:= tampung_nilai
end;
procedure TForm1.tmbl0Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '0';
txtangka.Text:= tampung_nilai ;
end;
procedure TForm1.tambahClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai ;
nilai:= 0;
end;
procedure TForm1.kurangClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai;
nilai:= 1;
end;
procedure TForm1.bagiClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai;
nilai:= 2;
end;
procedure TForm1.kaliClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai;
nilai:= 3;
end;
procedure TForm1.samadenganClick(Sender: TObject);
begin
nilai1:= StrtoInt(txtangka.Text);
case nilai of
0: hitung1:= tampung_nilai1 + nilai1;
1: hitung1:= tampung_nilai1 - nilai1;
2: hitung1:= tampung_nilai1 / nilai1;
3: hitung1:= tampung_nilai1 * nilai1;
end;
txtangka.Text:= FloattoStr(hitung1);
end;
end.
4. Jika selesai , jalankan peroject yang barusan d buat dan lakukan percobaan untuk melakukan pengimputan ke edit dengan mengklik tombol.
Kami juga memberikan contoh dari aplikasi yang sedang di buat untuk di jadikan sebagai referensi pembaca dalam mempelajarin bahasa delphi.
:: DropBox ::
https://www.dropbox.com/s/y5tilx1xtmgj3s8/Latihan%20Kalkulator.rar
:: 4Shared ::
http://www.4shared.com/rar/PImiVCigce/Latihan_Kalkulator.html
Terima Kasih
Tidak ada komentar:
Posting Komentar