Logika perulangan ~ TOKO BUNGA PELANGI

I.         Diskripsi Program

Program ini dikerjakan menggunakan delphi7. Program yang dikerjakan adalah program “Toko Bungan Pelangi”.Program ini melayani pemesanan bunga, didalam penginputan nama bunganya maka sudah di sediakan listbox1 untuk penginputan nama bunga, dan listbox2 untuk penginputan harga bunganya. Perulangan penginputan akan berakhir saat jumlah total inputan sudah dilaksanakan.

II.    Interface 

                               

 III. Code Program

Nama Komponen	Event	Perintah
Button4	Onclick	procedure TForm1.Button4Click(Sender: TObject); var inputnama: string; inputharga: string; j,i: integer; harga: real; begin harga :=0; j:=0; j:= strtoint(eitem.text); if j <=0 then begin showmessage('dta tidak boleh lebih kecil dari nol'); exit; end else begin for i:= 1 to j do begin inputnama:= inputbox('INput','Mau Bunga Apa :)',''); inputharga:= inputbox('INput','Harga Bunga',''); Inama.items.Add(inputnama); Iharga.items.Add(inputharga); harga:=harga+ strtofloat(inputharga); end; end; end;
Button 2	OnClick	procedure TForm1.Button2Click(Sender: TObject); begin eitem.clear; Inama.clear; Iharga.clear; end; procedure TForm1.FormCreate(Sender: TObject); begin form1.Color:=clfuchsia; end;
Button3	OnClick	procedure TForm1.Button3Click(Sender: TObject); begin close; end;

  IV. Output

1.      Tampilan saat pertama kali program dijalankan.

 

2.      Saat peninputan total data pembelian.

3. Saat di klik tombol button “ Proses” maka listbox penginputan nama bunga akan keluar

4. Saat tombol ok pada listbox di klik maka secra otomatis akan langsung menginputkan harga Bunga

5.     Saat di klik ok lagi maka akan menginputkan nama bunga selanjutnya, seperti proses sebelumnya. Setelah penginputan selai makan akan keluar hasilnya.

6.  Saat di klik tombol button “isis data lagi” maka semua data akan terhapus.

7.   Ada catatan penting yaitu ketika kita menginputan nilai nya “0” maka akan tampil pesan.