Hay sobat blogger kali ini saya akan membagikan cara membuat program perunglangan while do yang sangat sederhana dengan menggunakan Delphi 7.
Mari di Simak Dengan Baik
1. Sobat harus mempunyai delphi 7, Jika tidak punya Sobat bisa download di google
2. Jalankan Delphi 7
3. Buatlah 2 buah Button dan 1 Listbox
> Button pertama untuk tombol PROSSES
> Button kedua untuk tombol HAPUS
Contoh:
4. Double klik pada button prosses lalu isikan dengan coding dibawah ini
procedure TForm1.Button1Click(Sender: TObject);
var j:Integer;
begin
j:=0;
while j<20 do
begin
j:=j+1;
listbox1.Items.add('Angka : ' + Inttostr(J));
end;
end;
end.
var j:Integer;
begin
j:=0;
while j<20 do
begin
j:=j+1;
listbox1.Items.add('Angka : ' + Inttostr(J));
end;
end;
end.
5. Double klik pada button hapus lalu isikan dengan coding dibawah ini
procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Clear;
end;
begin
ListBox1.Clear;
end;
end.
6. Terakhir jalankan program dengan mengklik tombol RUN yg ada di toolbar atau dengan CTRL+F9
SELAMAT MENCOBA !!!
