Xr0b0t Website

Delphi Kalkulator

"Ok, kita mulai aja :
a.Buat New Project,
b.Tambah ke form 1 edit dan atur seperti ini di Properties :
Name : txtTampil
TabOrderL : 16
Text : 0
c.Tambahkan 16 Button ke Form dan atur di Properties dan Events seperti ini :"


Name : btn0
Caption : 0
Tab Order : 10
OnClick : btn0Click

Name : btn1
Caption : 1
Tab Order : 6
OnClick : btn1Click

Name : btn2
Caption : 2
Tab Order : 7
OnClick : btn2Click

Name : btn3
Caption : 3
Tab Order : 8
OnClick : btn3Click

Name : btn4
Caption : 4
Tab Order : 0
OnClick : btn4Click

Name : btn5
Caption : 5
Tab Order : 1
OnClick : btn5Click

Name : btn6
Caption : 6
Tab Order : 2
OnClick : btn6Click

Name : btn7
Caption : 7
Tab Order : 3
OnClick : btn7Click

Name : btn8
Caption : 8
Tab Order : 4
OnClick : btn8Click

Name : btn9
Caption : 9
Tab Order : 5
OnClick : btn9Click

Name : btnDesimal
Caption : .
Tab Order : 9
OnClick : btnDesimalClick

Name : btnSamaDengan
Caption : =
Tab Order : 11
OnClick : btnSamaDenganClick

Name : btnKurang
Caption : -
Tab Order : 15
OnClick : btnKurangClick

Name : btnBagi
Caption : :
Tab Order : 14
OnClick : btnBagiClick

Name : btnKali
Caption : x
Tab Order : 13
OnClick : btnKaliClick

Name : btnTambah
Caption : +
Tab Order : 12
OnClick : btnTambahClick



*Setelah semuanya di ditaruh di Form, susun tampilannya seperti gambar *dibawah ini atau terserah keinginan anda :



*Setelah semuanya selesai diatur sekarang kita masuk ke Codingnya ,
*Di unit pada baris procedure tambahkanprocedure baru :


procedure Tampil1();
procedure TampilNomor(text: string);
procedure Proses();
procedure Tampil2();

*Setelah itu dibawah baris kode :

implementation
{$R *.dfm}

*Taruh kode dibawah ini :


var
Proses2: string = '';
Hitung_Value: double = 0;
Tampil3: boolean = false;
procedure TForm1.Proses();
begin
if Proses2 = '' then begin
Hitung_Value := strtofloat(txtTampil.Text);
end;
if Proses2 = '+' then begin
Hitung_Value := Hitung_Value + strtofloat(txtTampil.Text);
end;
if Proses2 = 'x' then begin
Hitung_Value := Hitung_Value * strtofloat(txtTampil.Text);
end;
if Proses2 = '/' then begin
Hitung_Value := Hitung_Value / strtofloat(txtTampil.Text);
end;
if Proses2 = '-' then begin
Hitung_Value := Hitung_Value - strtofloat(txtTampil.Text);
end;
end;
procedure TForm1.Tampil2();
begin
Tampil3 := true;
txtTampil.Text := floattostr(Hitung_Value);
end;
procedure TForm1.Tampilnomor(text: string);
begin
Tampil1();
txtTampil.Text := txtTampil.Text + text;
end;
procedure TForm1.Tampil1();
begin
if Tampil3 = true then begin
Tampil3 := false;
txtTampil.Text := '';
end;
if txtTampil.Text = '0' then begin
txtTampil.Text := '';
end;
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
TampilNomor('1');
end;
procedure TForm1.btn0Click(Sender: TObject);
begin
TampilNomor('0');
end;
procedure TForm1.btnDesimalClick(Sender: TObject);
begin
TampilNomor('.');
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
TampilNomor('2');
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
TampilNomor('3');
end;
procedure TForm1.btn4Click(Sender: TObject);
begin
TampilNomor('4');
end;
procedure TForm1.btn5Click(Sender: TObject);
begin
TampilNomor('5');
end;
procedure TForm1.btn6Click(Sender: TObject);
begin
TampilNomor('6');
end;
procedure TForm1.btn7Click(Sender: TObject);
begin
TampilNomor('7');
end;
procedure TForm1.btn8Click(Sender: TObject);
begin
TampilNomor('8');
end;
procedure TForm1.btn9Click(Sender: TObject);
begin
TampilNomor('9');
end;
procedure TForm1.btnTambahClick(Sender: TObject);
begin
Proses();
Proses2 := '+';
Tampil2();
end;
procedure TForm1.btnKaliClick(Sender: TObject);
begin
Proses();
Proses2 := 'x';
Tampil2();
end;
procedure TForm1.btnBagiClick(Sender: TObject);
begin
Proses();
Proses2 := '/';
Tampil2();
end;
procedure TForm1.btnKurangClick(Sender: TObject);
begin
Proses();
Proses2 := '-';
Tampil2();
end;
procedure TForm1.btnSamaDenganClick(Sender: TObject);
begin
Proses();
Proses2 := '';
Tampil2();
end;
end.