JUMLAH PENGULANGAN

Terusan yang sebelumnya hib, sekarang masih pengulangan tapi dengan output berbeda langsung aja lihat kode dan tampilannya

Gunakan komponan dan propertis sebagai berikut=

1.       Form  è caption dan name = Latihan; auto size= true; picture = Selera

2.       Label è caption = JUMLAH PENGULANGAN; transparan = true ,Font = Lucida Fax, bold , 12, lime

3.       4 button è Caption =&For , &While , &Repeat , &Bersihkan ; font = bold , 14

4.       Bitbtn è kind = bkClose ; font = bold , 14 , lime

5.       Listbox è font= bold, 12 , lime

Berikut kode program diatas=

ó  For

procedure TLatihan.Button1Click(Sender= TObject);

var

 Ulang, Jumlah = Integer;

begin

 ListBox1.Clear;

 Jumlah := StrToInt(Edit1.text);

 for Ulang := 1 to Jumlah do

  begin

   ListBox1.Items.Add('Pengulangan Ke = ' + IntToStr(Ulang));

  end;

end;

kode ini akan menampilkan pada listbox sebanyak yang diisikan di edit

Download Lanjutannya