PERULANGAN

Berikut adalah form "PERULANGAN"
Merupakan kontrol program yang digunakan untuk suatu proses yang akan berjalan terus
menerus. Kondisi perulangan merupakan proses berjalannya program secara terus menerus dan
akan berhenti ketika proses mendapatkan kondisi yang sudah ditentukan.

1. Ketentuan logika Program
   
   • Pada saat form dijalankan maka Tanggal akan keluar secara otomatis
   • No Faktur dan Total item yang dibeli diinput sendiri
   • Tombol OK diklik maka akan keluar kotak pesan (Input box) untuk menginput nama barang dan harga barang yang dibeli. Begitu seterusnya sampai kondisi dari total item terpenuhi.
   • Total Penjualan diperoleh dari penjumlahan harga barang yang dibeli.
   • Tombol Isi data lagi diberikan untuk mengulang pembelian.
   • Close untuk menutup Form
     
2. Properties dan Form
   
   • Properties
   
   
   
   
   • Form Input Nama Barang
     
   
   
   
   •  Form Input Harga Barang
     
   
   
   •  Form Isi Data Lagi
     
     
   • Form Close
   
   
   
   
3. Listing Code
   
   procedure TForm1.FormCreate(Sender: TObject);
   begin
   DateSeparator:='-';
   ShortDateFormat :='mm/dd/yyyy';
   Etgl.Text:= DateToStr(Date);
   end;
   
   procedure TForm1.BlagiClick(Sender: TObject);
   begin
   Eitem.Text:='';
   Efaktur.Text:='';
   Lnama.Clear;
   Lharga.Clear;
   Etotal.Text:='';
   end;
   
   procedure TForm1.BcloseClick(Sender: TObject);
   begin
   if(Application.MessageBox('Yakin Mau udah mau keluar?','Mau keluar',MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2)=IDYES)then close;
   end;
   
   
   procedure TForm1.BokClick(Sender: TObject);
   var
   inputnama : string ;
   inputharga:string ;
   i : integer ;
   j : integer ;
   hrg : real ;
   harga : real ;
   
   begin
   harga:=0;
   j:=0;
   j:=StrToInt(Eitem.Text);
   if j<= 0 then
   
   begin
   ShowMessage('Data tidak boleh lebih kecil dari Nol');
   exit;
   end
   else
   
   begin
   for i := 1 to j do
   
   begin
   inputnama := InputBox('INput','Ketik Nama Barang','');
   inputharga := InputBox('INput','Ketik Harga Barang','');
   Lnama.Items.Add(inputnama);
   Lharga.Items.Add(inputharga);
   {Lharga.Items.Text:= Format('%m',[]);  }
   harga:= harga + StrToFloat(inputharga);
   end;
   end;
   Etotal.Text:=FloatToStr(harga);
   Etotal.Text:=Format('%m',[harga]);
   end;
   
   
   procedure TForm1.EitemKeyPress(Sender: TObject; var Key: Char);
   begin
   if (key = #13) then Bok.Click;
   end;
   
   end.