latihan Quis

procedure TForm1.ckodeClick(Sender: TObject);
begin
if ckode.Text ='LNV' then
begin
enama.Text :='Lenovo Pentium4';
eharga.Text :='3000000';
end
else
begin
enama.Text :='Acer Pentium4';
eharga.Text :='3500000';
end;
end;

procedure TForm1.rcorei3Click(Sender: TObject);
begin
if rcorei3.Checked =true then
etambahan.Text :='500000'

end;

procedure TForm1.rcorei5Click(Sender: TObject);
begin
if rcorei5.Checked =true then
etambahan.Text :='1000000'

end;

procedure TForm1.chkipasClick(Sender: TObject);
begin
if chkipas.Checked =true then
ekipas.Text :='30000'
else
ekipas.Text :='0' ;
ejumbel.SetFocus
end;

procedure TForm1.ejumbelKeyPress(Sender: TObject; var Key: Char);
var a,b,c,d,total,diskon:real;
begin
if key=#13 then
begin
a:=strtofloat(eharga.Text);
b:=strtofloat(etambahan.Text);
c:=strtofloat(ekipas.Text);
d:=strtofloat(ejumbel.Text);
total:=(a*d)+(b+c);
etotal.Text :=floattostr(total);
if ejumbel.Text >= '3' then
begin
diskon :=(a*d)*0.1;
ediskon.Text :=floattostr(diskon);
end
else
if ejumbel.Text > '1' then
begin
diskon:=(a*d)*0.05;
ediskon.Text :=floattostr(diskon);
end
else
begin
diskon:=0;
ediskon.Text :=floattostr(diskon);
end;
ejumbay.Text :=floattostr(total -diskon );
end;
end;



procedure TForm1.binputClick(Sender: TObject);
begin
etgl.Text :=datetostr(date);
ckode.Text :='';
enama.Text :='';
eharga.Text :='0';
ekipas.Text :='0';
etambahan.Text :='0';
ejumbel.Text :='0';
etotal.Text :='0';
ediskon.Text :='0' ;
ejumbay.Text :='0' ;
rcorei3.Checked :=false ;
rcorei5.Checked :=false  ;
chkipas.Checked :=false  ;
end;

procedure TForm1.bkeluarClick(Sender: TObject);
begin
if(Application.MessageBox('Yakin Ingin Keluar?','informasi',mb_yesno)=idyes)then
close;

end;

end.

latihan delphi

listing Program

procedure TForm1.FormCreate(Sender: TObject);

begin

cpener.Items.Add('GA733');

cpener.Items.Add('MP373');

cpener.Items.Add('BT202');

cpener.Items.Add('LI909');

ejtiket.Text :='0';

ehrg1.Text :='0';

ehrg2.Text :='0';

ejml1.Text :='0';

ejml2.Text :='0';

etharga1.Text :='0';

etharga2.Text :='0';

etotbay.Text :='0';

ebayar.Text :='0';

ekembali.Text :='0';

//dateseparator:='-';u pemisah antara tgl.bln&thn

ShortDateFormat :='dd-mmmm-yyyy';

etgl.Text :=datetostr(date);

end;

procedure TForm1.cpenerClick(Sender: TObject);

begin

if cpener.Text ='GA733' then

enmpswt.Text :='GARUDA AIR'

else

if cpener.Text ='MP373' then

enmpswt.Text :='MERPATI AIR'

else

if cpener.Text ='BT202' then

enmpswt.Text :='BATAVIA AIR'

else

enmpswt.Text :='LION AIR'

end;

procedure TForm1.cb1Click(Sender: TObject);

begin

if cb1.Checked =true then

 begin

 if cpener.Text ='GA733' then

 ehrg1.Text :='560000'

 else

 if cpener.Text ='MP373' then

 ehrg1.Text :='450000'

 else

 if cpener.Text ='BT202' then

 ehrg1.Text :='350000'

 else

 ehrg1.Text :='4500000'

 end

 else

 begin

 cb1.Checked :=false;

 ehrg1.Text :='0';

 end ;

 ejml1.SetFocus ;

end;

procedure TForm1.cb2Click(Sender: TObject);

var a,b:real;

begin

if cb2.Checked =true then

 begin

 a:=strtofloat(ehrg1.Text );

 b:=(3/100)*a;

 ehrg2.Text :=floattostr(b);

 end

else

 begin

 cb2.Checked :=false;

 ehrg2.Text :='0';

 end;

ejml2.SetFocus ;

end;

procedure TForm1.bhitungClick(Sender: TObject);

begin

etharga1.Text :=floattostr(strtofloat(ehrg1.Text )*strtofloat(ejml1.Text ));

etharga2.Text :=floattostr(strtofloat(ehrg2.Text )*strtofloat(ejml2.Text ));

ejtiket.Text :=floattostr(strtofloat(ejml2.Text )+strtofloat(ejml1.Text ));

etotbay.Text :=floattostr(strtofloat(etharga2.Text )+strtofloat(etharga1.Text ));

ebayar.SetFocus ;

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

ehrg1.Enabled :=false;

etharga1.Enabled :=false;

ehrg2.Enabled :=false;

etharga2.Enabled :=false;

ejtiket.Enabled :=false;

etotbay.Enabled :=false;

ekembali.Enabled :=false;

enmpswt.Enabled :=false;

end;

procedure TForm1.bbersihClick(Sender: TObject);

begin

enmpembeli.Text :='';

cpener.Text :='';

enmpswt.Text :='';

cb1.Checked :=false;

cb2.Checked :=false;

ejtiket.Text :='0';

ehrg1.Text :='0';

ehrg2.Text :='0';

ejml1.Text :='0';

ejml2.Text :='0';

etharga1.Text :='0';

etharga2.Text :='0';

etotbay.Text :='0';

ebayar.Text :='0';

ekembali.Text :='0';

enmpembeli.SetFocus ;

end;

procedure TForm1.bcloseClick(Sender: TObject);

begin

if(Application.MessageBox('anda yakin akan keluar','informasi',mb_yesno+mb_iconwarning )=idyes)then

close

end;

procedure TForm1.ebayarChange(Sender: TObject);

begin

ekembali.Text :=floattostr(strtofloat(ebayar.Text )-strtofloat(etotbay.Text ));

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

ejam.Text :=timetostr(time);

end;

end.

Belajar Delphi

Procedure (Prosedur)

Procedure digunakan untuk koding program yang digunakan berulang-ulang, pendeklarasian procedure dituliskan setelah kata Public, berikut contoh penggunaan procedure :



A. Contoh Design Form



B. Penggalan Koding Program

Double klik button1 atau pilih events onclik pada pada objects inspector, berikut potongan programnya :

...
public
{ Public declarations }
procedure kosong_data;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure tform1.kosong_data;
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
kosong_data;
end;

end.

Belajar cara MEMBUAT CALCULATOR sederhana

Dengan menggunakan Delphi 7 kita juga bias membuat sebuh calculator sederhana, 

Langka-langkanya adalah sebagi berikut :

1.Buatlah sebuah Form seperti yang terlihat pada gambar 11 dibawa ini.

Pada program berikut ini kita akan menggunakan empat buah botton, tiga buah 

edit dan satu label. Ubah Caption botton pada properties sesuai dengan yang 

kita inginkan, hapus edit pada properties-text dang anti label dengan hasil 

perhitungan.


Gambar 11. Form Menu

2.Doble Clik tombol Tamba dan masukan code dibawah ini pada bidang code editor.

procedure TForm1.Button1Click(Sender: TObject);
var A,B,C:INTEGER;
begin
A:=STRTOINT(EDIT1.TEXT);
B:=STRTOINT(EDIT2.TEXT);
C:=A+B;
EDIT3.Text:=INTTOSTR(C)
end;