CONTOH RENTAL CD SEDERHANA DENGAN DELPHI 7

CONTOH RENTAL CD SEDERHANA  DENGAN DELPHI 7

Berikut adalah contoh sederhana mengenai rental cd semoga dapat menjadi bahan untuk belajar Delphi 7. S

Langkah 1 :

siapkan label, edit.text,memeo1,button,datetimepicker dan sesuaikan seperti gambar dibawah silahkan berkreasi…

Langkah 2 :

Properties :

Combobox1 Name :	ckode
Label1:Caption : Name :	Kode CD Biarkan saja default nya
Edit2 Name : Label2:Caption :	enama jenis film
Edit3 Name Label3 :Caption :	Eharga Harga sewa
Datetimepicker1: Label4 :Caption : Datetimepicker2 Label 5:Caption:	Biarkan saja Tanggal pinjam Biarkan saja Tanggal kembali
Button1 Name Caption	Ehitung Hitung
Label 6: Caption : Edit3:	Lama peminjaman elamapinjam
Label 7:Caption : Edit4: Name	Denda Edenda
Button2 : Caption Name	Clear Bclear
Memo1: Name	Memo1

Langkah 3:

Klik 2 x pd ckode lalu masukkan code berikut:

IF Ckode.Text='P1' THEN

 BEGIN

  enama.Text:='Horror';

  eharga.Text:='2000';

 END

 else if Ckode.Text='P2' THEN

 BEGIN

  enama.Text:='Komedi';

  eharga.Text:='3000';

 END

 else if Ckode.Text='P3' THEN

 BEGIN

  enama.Text:='Korea';

  eharga.Text:='1500';

 END

 else if Ckode.Text='P4' THEN

 BEGIN

  enama.Text:='Kolosal';

  eharga.Text:='3500';

 END

 else

 BEGIN

  enama.Text:='Kartun';

  eharga.Text:='5000';

 END;

Klik 2x pd button hitung :

Lalu masukan code berikut

procedure TForm1.Button1Click(Sender: TObject);

var

denda,harga,lama :integer;

tgl1,tgl2 : double;

kode,jns,hrg,tgll1,tgll2,lamap,den : string;

begin

//pendeklarasian atau pengenalan terlebih dahulu..

  tgl1:=DateTimePicker1.Date;

  tgl2:=DateTimePicker2.Date;

  lama:=Round(tgl2-tgl1);

  harga:=StrToInt(eharga.Text);

  //kondisi jika denda > 7 maka denda-7

    if  (lama > 7) then

      begin

      lama:=lama;

      denda:=(lama-7)*harga;

      end

      else

      begin

      lama:=lama;

      denda:=0;

      end;

      elamapinjam.Text:=FloatToStr(lama);

      edenda.Caption:=FloatToStr(denda);

      //untuk menampilkan ke memo.....

      kode:=Ckode.Text;

      jns:=enama.Text;

      hrg:=IntToStr(harga);

      tgll1:=DateToStr(tgl1);

      tgll2:=DateToStr(tgl2);

      lamap:=IntToStr(lama);

      den:=IntToStr(denda);

      Memo1.Clear;

      Memo1.Lines.Add('                                   PUSAT RENTAL CD     ');

      Memo1.Lines.Add('                                   WAYAN YASHUNI       ');

      Memo1.Lines.Add('                                   Bandar Lampung       ');

      Memo1.Lines.Add('===================================================');

      Memo1.Lines.Add('Kode : '+kode);

      Memo1.Lines.Add('Jenis Film : '+jns);

      Memo1.Lines.Add('Harga Sewa : '+hrg);

      Memo1.Lines.Add('Tanggal Pinjam : '+tgll1);

      Memo1.Lines.Add('Tanggal Kembali : '+tgll2);

      Memo1.Lines.Add('Lama Pinjam : '+lamap);

      Memo1.Lines.Add('Denda : '+den);

      Memo1.Lines.Add('===================================================');

      Memo1.Lines.Add('');

      Memo1.Lines.Add('');

      Memo1.Lines.Add('                                                                       Pimpinan');

      Memo1.Lines.Add('');

      Memo1.Lines.Add('                                                                       Wayan Yashuni');

      Memo1.Color:=clAqua;

end;

pada tombol clear isikan code :

procedure TForm1.Button2Click(Sender: TObject);

begin

Ckode.Text:='';

enama.Text:='';

eharga.Text:='0';

DateTimePicker1.Date:=Date;

DateTimePicker2.Date:=Date;

elamapinjam.Text:='';

edenda.Caption:='0';

end;

kemudian run hasilnya dgn f9

semoga bermanfaat

Perulangan For Down To Delphi 7

Perulangan For Down To Menggunakan Delphi 7

Berikut ini adalah contoh penggunaan perulangan bagi teman-teman yang ingin belajar dapat digunakan sebagai referensi.

Langkah 1 : siapkan komponen seperti gambar dibawah ini:

Langkah 2 :  

Beri nama pada masing2 pada properties(caption=Test) pada button, label juga dikasi ya disesuaikan saja.

Pada memo lines nya dikosongkan

Langkah 3: klik 2 x pada button / test

Lalu Isikan code berikut :

procedure TForm1.Button1Click(Sender: TObject);

var i,d :integer;

a,b,c:string;

begin

   d:=StrToInt(Edit1.Text);

   Memo1.Clear;

  for i:=d downto 1 do

   begin

    a:=IntToStr(i);

    b:=IntToStr(i-1);

    Memo1.Lines.Add('tek otek - otek anak ayam turun '+a+' mati satu tinggal '+b);

    end;

end;

Langakah :  4 runing/ f9