Program Tiket Pesawat Menggunakan Bahasa Pemrograman Delphi

Ini adalah tugas pertamaku untuk matakuliah Pemrograman visual III dengan menggunakan bahasa pemrograman Delphi yang diampu oleh Efori Buulolo, S.Kom.

Soal:

à Buatlah sebuah sifo sederhana untuk pemesanan tiket pesawat dengan ketentuan sebagai berikut:

1.

NAMA MASKAPAI	JURUSANUAN DAN HARGA
	BALI	PAPUA	MERAUKE
BATAVIA	400000	600000	750000
GARUDA	450000	675000	875000
MERPATI	500000	700000	1250000

2.      Jika pembelian tiket > 7 hari sebelum hari keberangkatan maka

diskon= 25%  x harga tiket, selain itu diskon=0

àBerikut adalah tampilan plus codingnya. Cekidot……J

procedure TForm1.FormCreate(Sender: TObject);

begin

nama.Items.Add('BATAVIA') ;

nama.Items.Add('GARUDA')   ;

nama.Items.Add('MERPATI')   ;

jurusan.Items.Add('BALI');

jurusan.Items.Add('PAPUA');

jurusan.Items.Add('MERAUKE');

end;

procedure TForm1.hapusClick(Sender: TObject);

begin

nama.Text := '';

jurusan.Text := '';

harga.Text := '';

diskon.Text := '';

total.Text := '';

selisih.Text := '';

end;

procedure TForm1.jurusanClick(Sender: TObject);

begin

if jurusan.Text = 'BALI' then

begin

                        if nama.Text = 'BATAVIA' then

                        harga.Text := '500000'

            else

                        if nama.Text = 'GARUDA' then

                        harga.Text := '450000'

            else

                        if nama.Text = 'MERPATI' then

                        harga.Text := '500000';

end;

if jurusan.Text = 'PAPUA' then

begin

                         if nama.Text = 'BATAVIA' then

                        harga.Text :=  '600000'

            else

                        if nama.Text = 'GARUDA' then

                        harga.Text := '675000'

            else

                        if nama.Text = 'MERPATI' then

                        harga.Text := '700000' ;

end;

if jurusan.Text = 'MERAUKE' then

begin

                        if nama.Text = 'BATAVIA' then

                        harga.Text := '750000'

            else

                        if nama.Text = 'GARUDA' then

                        harga.Text := '875000'

            else

                        if nama.Text = 'MERPATI' then

                        harga.Text := '1250000'

end;

end;

procedure TForm1.tberangkatChange(Sender: TObject);

var

x : varant;

begin

x:=  tberangkat.DateTime - tpesan.DateTime ;

selisih.Text := inttostr(x);

end;

end.

procedure TForm1.okClick(Sender: TObject);

var

a,b,c,d : real;

begin

a:= strtofloat (harga.Text );

            b:= strtofloat (selisih.Text );

 if b >= 7 then

    c:= 0.25 * a

 else

    c:= 0;

dis.Text := floattostr (c);

d:= a-c;

total.Text := floattostr (d);

end;

procedure TForm1.tberangkatClick(Sender: TObject);

var

x : variant;

begin

x:=  tberangkat.DateTime - tpesan.DateTime ;

selisih.Text := inttostr(x);

end;