DelphiPemrograman

Pengulangan Delphi dengan Input #35

Gula jawa tidak berasal dari papua

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 :

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

Andry Fadrie K

CPU : AMD Ryzen 5 1600 12Core
Mobo : Asus ROG Strix B450-F GAMING
RAM : 16GB
Storage : 12.8TB
VGA : NVIDIA GeForce GTX 1050ti
OS : KDE Neon
Kernel : 5.11.0-46

Related Articles

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan.

Back to top button