Pengulangan Delphi dengan Input #35

andrypein.net : Kembali lagi pada Delphi tutorial from NEWBIE to ADVANCED  jika kemarin hanya melihat hasil pengulangan tanpa kita inputkan sendiri berapa jumlah pengulangan yang kita inginkan, maka kali ini kita coba pengulangan itu kita yang tentukan sendiri bilangan yang ingin di inputkannya.

Beginilah Pengulangan Delphi dengan Input :

Untuk koding listingnya tidak susah2 alias B saja.

pertamax kita masukan kode berikut ini ke dalam button clear :

Procedure TForm1.Button2Click(Sender: TObject);
begin
 edit1.text:='';
 listbox1.clear;
 edit1.setfocus;
end;

untuk tombol for rumusnya kaya gini

Procedure TForm1.Button1Click(Sender: TObject);
var
 ulang, jumlah:integer;
begin
 if edit1.text ='' then
  begin
   showmessage('isi dulu bray');
   edit1.setfocus;
  end
 else
  begin
   listbox1.clear;
   jumlah:=StrToInt(edit1.text);
   for ulang:=1 to jumlah do
    begin
     listbox1.Items.Add('Pengulangan ke = ' + IntToStr(ulang));
    end;
  end;
end;

untuk button while

Procedure TForm1.Button3Click(Sender: TObject);
var
 ulang,indeks:integer;
begin
 if edit1.text ='' then
  begin
   showmessage('isi dulu bray');
   edit1.setfocus;
  end
 else
  begin
   listbox1.clear;
   ulang:=StrToInt(edit1.text);
   indeks:=1;
   while indeks < ulang do
    begin
     listbox1.Items.Add('Pengulangan ke = ' + IntToStr(indeks));
     indeks:=indeks+1; 
    end;
  end;
end;

last untuk button repeat

Procedure TForm1.Button4Click(Sender: TObject);
var
 ulang,indeks:integer;
begin
 if edit1.text ='' then
  begin
   showmessage('isi dulu bray');
   edit1.setfocus;
  end
 else
  begin
   listbox1.clear;
   ulang:=StrToInt(edit1.text);
   indeks:=1;
   repeat
    listbox1.Items.Add('Pengulangan ke = ' + IntToStr(indeks));
    indeks:=indeks+1;
   until indeks > ulang;    
  end;
end;

yo, setelah itu dicoba di run saja programnya, dan pasti berhasil ko sekian artikel Pengulangan Delphi dengan Input kali ini goodluck havefun.

*AFK