Buatlah 3 Button
Buatlah 6 Edit -> Pada Object Inspector edit1 gantilah text dengan Hasil Jumlah
edit2 gantilah text dengan Hasil Kurang
edit3 gantilah text dengan Hasil Bagi
edit4 gantilah text dengan Hasil Kali
ATAU
double click form1 dan masukkan kode berikut
Begin
edit1.text:='Hasil Jumlah';
edit2.text:='Hasil Kurang';
edit3.text:='Hasil Bagi';
edit4.text:='Hasil Kali';
end;
Buatlah 2 Label ->Pada Object Inspector label1 gantilah caption dengan Angka1
Pada Object Inspector label2 gantilah caption dengan Angka2
Kemudian tekan F12 dan masukkan kode SBB :
----------------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Label1: TLabel;
Label2: TLabel;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e,f:real;
begin
a:=strtofloat(edit5.text);
b:=strtofloat(edit6.text);
c:=a+b;
d:=a-b;
e:=a/b;
f:=a*b;
edit1.text:=floattostr(c);
edit2.text:=floattostr(d);
edit3.text:=floattostr(e);
edit4.text:=floattostr(f);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
button1.caption:='Hitung';
button2.caption:='Clear';
button3.Caption:='EXIT';
edit1.enabled:=false;
edit2.enabled:=false;
edit3.enabled:=false;
edit4.enabled:=false;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
end;
end.
----------------------------------------------------------
0 komentar:
Posting Komentar