Kumpulan Materi Delphi 1

DELPHI                                                                                                                                                 LAB F PAGI    RGT / USMAN

Ketentuan Soal !!!

1.    No Pinjam dan Nama Custoumer Di input.

2.    Jika Jenis di pilih Religi tampil judul, harga dan diskon.

Religi mendapat diskon = 25%*harga

Judul	Harga
Ayat-ayat Cinta	70000
Sajadah Cinta	75000

  Action mendapat diskon = 10% * harga

Judul	Harga
Merantau	80.000
Matrix	90.000

3.    Klik HITUNG tampil di total     Total = harga – diskon

4.    Bayar di enter tampil uang kembali    Kembali = bayar – total

5.    Di klik BERSIH semua edit dan radiobutton kosong.

6.    Di klik KELUAR tampil pilihan yes no dan pilih yes langsung keluar dari program.

LISTING PROGRAM !!!

procedure TForm9.cb_judulClick(Sender: TObject);

begin

if r_religi.Checked=true then

 begin

  if cb_judul.ItemIndex=0 then

   begin

   eharga.Text:='100000';

   ediskon.Text:=currtostr(strtofloat(eharga.Text)*0.25);

   end

  else

   begin

   eharga.Text:='110000';

   ediskon.Text:=currtostr(strtofloat(eharga.Text)*0.25);

   end

  end

else

  begin

  if cb_judul.ItemIndex=0 then

   begin

   eharga.Text:='95000';

   ediskon.Text:=currtostr(strtofloat(eharga.Text)*0.1);

   end

  else

   begin

   eharga.Text:='80000';

   ediskon.Text:=currtostr(strtofloat(eharga.Text)*0.1);

   end

  end

end;

procedure TForm9.b_hitungClick(Sender: TObject);

begin

etotal.Text:=currtostr(strtocurr(eharga.Text)-strtocurr(ediskon.text));

EBAYAR.SetFocus;

end;

procedure TForm9.r_religiClick(Sender: TObject);

begin

 if r_religi.Checked=true then

 begin

 cb_judul.Items.Add('Sajadah Cinta');

 cb_judul.Items.Add('Ayat-Ayat Cinta');

 end

end;

procedure TForm9.r_actionClick(Sender: TObject);

begin

 if r_action.Checked=true then

 begin

 cb_judul.Items.Add('Merantau');

 cb_judul.Items.Add('The Matriks');

 end

end;

procedure TForm9.b_bersihClick(Sender: TObject);

begin

eno.Clear;

enama.Clear;

eharga.Clear;

etotal.Clear;

ediskon.Clear;

ebayar.Text:='';

ekembali.Text:='';

r_religi.Checked:=false;

r_action.Checked:=false;

cb_judul.Clear;

eno.SetFocus;

end;

procedure TForm9.b_keluarClick(Sender: TObject);

begin

if (application.MessageBox('Mau Keluar Ga...','Tanya Aza',MB_OKCANCEL + MB_ICONQUESTION )=idok)then

close;

end;

procedure TForm9.ebayarKeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

ekembali.Text:=inttostr(strtoint(ebayar.Text)-strtoint(etotal.Text));

end;