Design form ini untuk membuat kalkulator sederhana,
tapi program ini hanya sederhana karena hanya dapat menghitung
pengurangan, penjumlahan, perkalian dan pembagian. Setidaknya kita
sudah bisa membuatnya dengan menggunakan Delphi 7.
Cara membuatnya juga tidak sulit, sangat sederhana dan hanya
membutuhkan beberapa komponen yang ada di Menu Delphi 7. Untuk Lebihjelasnya
langsung saja ke TKP.Langkah pertama, siapkan form Delphi 7, seperti yang gambar di atas, komponen yang di butuhkan untuk membuat kalkulator sederhana adalah sebagai berikut :
Komponen
|
Name
|
Caption
|
Form
|
Form1
|
Kalkulator (judul program)
|
Label
|
Label1
|
Nilai 1
|
Label
|
Label2
|
Nilai 2
|
Label
|
Label3
|
Hasil
|
GroupBox
|
GroupBox1
|
(kosong)
|
Button
|
Button1
|
+ (additon)
|
Button
|
Button2
|
- (Reduction)
|
Button
|
Button3
|
X (Multiplication)
|
Button
|
Button4
|
: (Division)
|
Button
|
Button5
|
Clear
|
Button
|
Button6
|
Exit
|
Edit.text
|
Edit1.text
|
(kosong)
|
dit.text
|
Edit2.text
|
(kosong)
|
Edit.text
|
Edit3.text
|
(kosong)
|
Langkah kedua, masukkan script di bawah ini :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c : Double;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:= a+b;
Edit3.Text :=FloatToStr(c);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
a,b,c : Double;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:= a-b;
Edit3.Text :=FloatToStr(c);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
a,b,c : Double;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:= a*b;
Edit3.Text :=FloatToStr(c);
end;
procedure TForm1.Button4Click(Sender: TObject);
var
a,b,c : Double;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:= a/b;
Edit3.Text :=FloatToStr(c);
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Text :='';
Edit2.Text :='';
Edit3.Text :='';
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Close
end;
end.
Silahkan Di Compile, jika sudah bisa di Compile maka Kalkulator Sederhana ini telah siap digunakan. Tapi jika masih ada yang error maka koreksi kembali script yang ada di Form dengan yang ada pada postingan ini. Oke jangan lupa Di Simpan Project tadi, jika tidak di simpan maka sia-sia kerja keras selama ini.
mkasih gan ,,, postingan membuat-kalkulator-dengan-borlan-delphi_3 , yang bagus dan bermanfaat ini layaknya di share ajja ,, nih saya bantu ngeshare ,, ,, jgn lupa kunbal nya pulsagratisandroidku.blogspot.com terimakasih skali lagi gan , maju terus blog nya ,,, !
BalasHapus