instal borland delphi 7 pada windows 7

Keluarga Ku

APLIKASI PENJUALAN TIKET PESAWAT

gambar aplikasi yang sudah dijalan kan

pertama kita design form seperti gmabar diatas. lalu atur propertis nya.

dan masukan listing program nya 

klik 2 kali form nya lalu masukan :

procedure TForm1.FormCreate(Sender: TObject);

begin

cpes.Items.Add('GA733');

cpes.Items.Add('MP373');

cpes.Items.Add('BT202');

cpes.Items.Add('LI909');

ejtiket.Text:='0';

ehargad.Text:='0';

ehargaa.Text:='0';

ejumlahd.Text:='0';

ejumlaha.Text:='0';

ethargad.Text:='0';

ethargaa.Text:='0';

etharga.text:='0';

ebayar.Text:='0';

ekembali.Text:='0';

{setting tanggal otomatis}

dateseparator:='/';

shortdateformat:='dd/mmmmm/yyyy';

label4.Caption:=datetostr(date);

end;

procedure TForm1.cpesClick(Sender: TObject);

begin

if cpes.Text='GA733' then

epesawat.Text:='GARUDA AIR'

else

if cpes.text='MP373' then

epesawat.Text:='MERPATI AIR'

else

if cpes.text='BT202' then

epesawat.Text:='BATAVIA AIR'

else

epesawat.Text:='LION AIR';

end;

 klik 2 kali checbox dewasa

procedure TForm1.cdewasaClick(Sender: TObject);

begin

if cdewasa.Checked=true then

begin

if cpes.Text='GA733' then

ehargad.Text:='560000'

else if cpes.Text='MP373' then

ehargad.Text:='450000'

else if cpes.Text='BT202' then

ehargad.Text:='350000'

else

ehargad.Text:='450000';

end

else

begin

cdewasa.Checked:=false;

ehargad.Text:='';

end;

ejumlahd.SetFocus;

end;

 klik 2 kali check box anak

procedure TForm1.canakClick(Sender: TObject);

begin

if canak.Checked=true then

ehargaa.Text:=floattostr(0.3*strtofloat(ehargad.Text))

else

begin

canak.Checked:=false;

ehargaa.Text:='';

end;

ejumlaha.SetFocus;

end;

button proses :

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

ethargad.Text:=floattostr(strtofloat(ehargad.Text)*strtofloat(ejumlahd.Text));

ethargaa.Text:=floattostr(strtofloat(ehargaa.Text)*strtofloat(ejumlaha.Text));

ejtiket.text:=floattostr(strtofloat(ejumlaha.text)+strtofloat(ejumlahd.Text));

etharga.Text:=floattostr(strtofloat(ethargaa.Text)+strtofloat(ethargad.Text));

ebayar.SetFocus;

end;

procedure TForm1.ebayarChange(Sender: TObject);

begin

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

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

enama.SetFocus;

ehargad.Enabled:=false;

ethargad.Enabled:=false;

ehargaa.Enabled:=false ;

ejtiket.Enabled:=false;

etharga.Enabled:=false;

ekembali.Enabled:=false;

epesawat.Enabled:=false;

end;

tombol bersih

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

enama.Text:='';

cpes.text:='aRa air';

epesawat.Text:='';

cdewasa.Checked:=false;

canak.Checked:=false;

ejtiket.Text:='0';

ehargad.Text:='0';

ehargaa.Text:='0';

ejumlaha.Text:='0';

ejumlahd.Text:='0';

etharga.Text:='0';

ebayar.Text:='0';

ekembali.Text:='0';

enama.SetFocus;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

close;

end;

editbayar:

procedure TForm1.ebayarChange(Sender: TObject);

begin

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

end;

Referensi :www.ilmukomputer.com

semoga bermanfaat dan sukses

apliaksi penhgitung grade mahasiswa

kali ini saya akan berbagi pengalaman di blog saya, design from seperti gambar dia atas. design terserah sesuai denagn selera dan kreativitas masing-masing,,.

dan ini source listing programnnya :

double klik tombol hitung lalu ketikan yang dibawah ini, (copy paste azzaa gar cepet )

procedure TForm1.BitBtn1Click(Sender: TObject);

VAR

UTS1,uts2,uas,na:real;

b1,b2,b3:real;

grade:string;

begin

uts1:=strtofloat(edit1.Text);

uts2:=strtofloat(edit2.Text);

uas:=strtofloat(edit3.Text);

b1:=strtofloat(edit4.Text)/100;

b2:=strtofloat(edit5.Text)/100;

b3:=strtofloat(edit6.text)/100;

na:=uts1*b1+uts2*b2+uas*b3;

if (na>=70) and (na <80) then

grade:= 'A'

else if(na >=60) and (na <70) then

grade :='B'

else if (na>=50) and (na <60) then

grade:='D'

else

grade:='E';

edit7.Text:=floattostr(na);

edit8.Text:=grade;

end;

ini buat tombol selesai

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

close;

end;

end.

ok selesai lalu run!!!!!!!!!!

semoga bermanfaaat dan sukses