Hallo para Dunia Nurah Ratu.. sesuai dengan perintah asdos Sorce Code Delphi bisa diakses langsung dari this My Web. Thanks tas kunjungannya..

 

1. form seperti di bawah ini

1. Ketika Program di Run, semua objek nonaktif , kecuali tombol tambah  aktif,  klik tombol tambah, maka semua objek aktif.
2. Rincian kereta :

1. Detail beli : jika dipilih  dewasa maka mendapat potongan 20% dari  harga selain itu tidak mendapat potongan.  Secara otomatis kursor menuju  jumlah beli
2. Jumlah beli diinput
3. Klik  tombol hitung maka jumlah bayar akan tampil dengan

rumus =  harga  x jumlah beli  – potongan dan secara otomatis kursor menuju uang  bayar.
4. Uang bayar diinput
5. Ketika di tekan tombol enter pada keyboard maka kembali akan tampil  dengan

rumus = uang bayar –  jumlah bayar
6. Klik tombol bersih maka semua objek bersih
7. Klik tombol keluar maka muncul MessageBox, seperti dibawah ini :

unit Latihan;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls;

 

type

TForm1 = class(TForm)

Label1: TLabel;

GroupBox1: TGroupBox;

Label2: TLabel;

Label3: TLabel;

eno: TEdit;

enp: TEdit;

GroupBox2: TGroupBox;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

enama: TEdit;

ckode: TComboBox;

ejurusan: TEdit;

GroupBox4: TGroupBox;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

eharga: TEdit;

epot: TEdit;

ejumbel: TEdit;

ejumbay: TEdit;

Label11: TLabel;

Label12: TLabel;

eubay: TEdit;

eukem: TEdit;

Buttontambah: TButton;

Buttonhitung: TButton;

Buttonbersih: TButton;

Buttonkeluar: TButton;

RadioGroup1: TRadioGroup;

procedure ckodeChange(Sender: TObject);

procedure ButtonkeluarClick(Sender: TObject);

 

procedure RadioGroup1Click(Sender: TObject);

procedure ButtonhitungClick(Sender: TObject);

procedure eubayKeyPress(Sender: TObject; var Key: Char);

procedure ButtonbersihClick(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure ButtontambahClick(Sender: TObject);

procedure enoKeyPress(Sender: TObject; var Key: Char);

procedure enpKeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

 

 

procedure TForm1.ckodeChange(Sender: TObject);

begin

if  ckode.ItemIndex= 0 then

begin

enama.Text:='Cirebon Express';

ejurusan.Text:='Cirebon';

eharga.Text:='75000';

end

else

if  ckode.ItemIndex= 1 then

begin

enama.Text:='ParahYangan';

ejurusan.Text:='Bandung';

eharga.Text:='65000';

end

else

begin

enama.Text:='Argo Bromo';

ejurusan.Text:='Surabaya';

eharga.Text:='200000';

end;

 

end;

 

procedure TForm1.ButtonkeluarClick(Sender: TObject);

begin

if (application.MessageBox('Yakin Keluar','Info',mb_YesNo+32)=idYes) then

close;

end;

 

procedure TForm1.RadioGroup1Click(Sender: TObject);

var pot,harga:real;

begin

harga:=strtofloat(eharga.Text);

if RadioGroup1.ItemIndex=0 then

pot:=harga*0.2

else

pot:=0;

epot.Text:=floattostr(pot);

ejumbel.SetFocus

end;

 

procedure TForm1.ButtonhitungClick(Sender: TObject);

var harga,pot,jumbel,jumbay:real;

begin

harga:=strtofloat(eharga.Text);

pot:=strtofloat(epot.Text);

jumbel:=strtofloat(ejumbel.Text);

jumbay:=(harga*jumbel)-pot;

ejumbay.Text:=floattostr(jumbay);

eubay.SetFocus;

end;

 

procedure TForm1.eubayKeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

eukem.Text:=floattostr(strtofloat(eubay.Text)-strtofloat(ejumbay.Text));

 

end;

 

procedure TForm1.ButtonbersihClick(Sender: TObject);

begin

eno.Text:='';

enp.Text:='';

enama.Text:='';

ckode.Text:='';

radiogroup1.ItemIndex:=-1;

eharga.Text:='0';

ejumbel.Text:='0';

ejumbay.Text:='0';

eubay.Text:='0';

eukem.Text:='0';

ejurusan.Text:='';

 

end;

 

procedure TForm1.FormActivate(Sender: TObject);

begin

ejurusan.Enabled:=false;

eno.Enabled:=false;

enp.Enabled:=false;

enama.Enabled:=false;

ckode.Enabled:=false;

radiogroup1.Enabled:=false;

eharga.Enabled:=false;

ejumbel.Enabled:=false;

ejumbay.Enabled:=false;

eubay.Enabled:=false;

eukem.Enabled:=false;

buttonhitung.Enabled:=false;

buttonbersih.Enabled:=false;

buttonkeluar.Enabled:=false;

end;

 

procedure TForm1.ButtontambahClick(Sender: TObject);

begin

buttonhitung.Enabled:=true;

buttonbersih.Enabled:=true;

buttonkeluar.Enabled:=true;

ejurusan.Enabled:=true;

eno.Enabled:=true;

enp.Enabled:=true;

enama.Enabled:=true;

ckode.Enabled:=true;

radiogroup1.Enabled:=true;

eharga.Enabled:=true;

ejumbel.Enabled:=true;;

ejumbay.Enabled:=true;

eubay.Enabled:=true;

eukem.Enabled:=true;

eno.SetFocus;

eharga.Text:='0';

ejumbel.Text:='0';

ejumbay.Text:='0';

eubay.Text:='0';

eukem.Text:='0';

end;

 

procedure TForm1.enoKeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

enp.SetFocus;

end;

 

procedure TForm1.enpKeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

ckode.SetFocus;

end;

 

end.

 

Untuk Source Kode nya bisa di Download di Latihan_delphi.zip

Salam Dunia Nurah Ratu Anugrah.

TrackBack URI for this entry

Comments (0)

Subscribe to this comment's feed

Name

Email

Website

Title

Comment

smaller | bigger

Subscribe via email (Registered users only)

Add Comment Preview