Buat para pembaca yang berminat untuk mencoba membuat kalkulator sederhana seperti gambar diatas,
berikut nih langkah - langkahnya :
1. Buat Form baru terlebih dahulu,kemudian letakkan 1 buah Panel yang berada pada tab standard2. Seletah itu,pada tab properties hilangkan caption panel tersebut.
3. Kemudian masih pada tab standard letakkan 6 buah button,3 buah data edit dan 3 buah label.
4. Setelah itu atur letak kesemuanya seperti terlihat pada gambar diatas
Nah sekarang pembaca tinggal meletakkan sedikit coding pada masing masing button tersebut.
berikut cara peletakannya :
unit kalkulTR;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
bil1: TEdit;
bil2: TEdit;
Label3: TLabel;
total: TEdit;
ulang: TButton;
bag: TButton;
kal: TButton;
krg: TButton;
tmb: TButton;
kel: TButton;
procedure tmbClick(Sender: TObject);
procedure kelClick(Sender: TObject);
procedure ulangClick(Sender: TObject);
procedure krgClick(Sender: TObject);
procedure kalClick(Sender: TObject);
procedure bagClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.bagClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(bil1.Text);
b:=strtofloat(bil2.Text);
c:=a/b;
total.Text:=floattostr(c);
end;
procedure TForm1.kalClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(bil1.Text);
b:=strtofloat(bil2.Text);
c:=a*b;
total.Text:=floattostr(c);
end;
procedure TForm1.kelClick(Sender: TObject);
begin
IF(Application.MessageBox('Yakin nih mau keluar?','infomasi',mb_yesno)=idyes)then
close;
end;
procedure TForm1.krgClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(bil1.Text);
b:=strtofloat(bil2.Text);
c:=a-b;
total.Text:=floattostr(c);
end;
procedure TForm1.tmbClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(bil1.Text);
b:=strtofloat(bil2.Text);
c:=a+b;
total.Text:=floattostr(c);
end;
procedure TForm1.ulangClick(Sender: TObject);
begin
bil1.Clear;
bil2.Clear;
total.Clear;
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
bil1: TEdit;
bil2: TEdit;
Label3: TLabel;
total: TEdit;
ulang: TButton;
bag: TButton;
kal: TButton;
krg: TButton;
tmb: TButton;
kel: TButton;
procedure tmbClick(Sender: TObject);
procedure kelClick(Sender: TObject);
procedure ulangClick(Sender: TObject);
procedure krgClick(Sender: TObject);
procedure kalClick(Sender: TObject);
procedure bagClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.bagClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(bil1.Text);
b:=strtofloat(bil2.Text);
c:=a/b;
total.Text:=floattostr(c);
end;
procedure TForm1.kalClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(bil1.Text);
b:=strtofloat(bil2.Text);
c:=a*b;
total.Text:=floattostr(c);
end;
procedure TForm1.kelClick(Sender: TObject);
begin
IF(Application.MessageBox('Yakin nih mau keluar?','infomasi',mb_yesno)=idyes)then
close;
end;
procedure TForm1.krgClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(bil1.Text);
b:=strtofloat(bil2.Text);
c:=a-b;
total.Text:=floattostr(c);
end;
procedure TForm1.tmbClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(bil1.Text);
b:=strtofloat(bil2.Text);
c:=a+b;
total.Text:=floattostr(c);
end;
procedure TForm1.ulangClick(Sender: TObject);
begin
bil1.Clear;
bil2.Clear;
total.Clear;
end;
end.
----Lucrative next to you----
Tidak ada komentar:
Posting Komentar