Program sederhana for to do & while do pada VB

             Pada kesempatan kali ini saya akan memberkan contoh  2 program sederhana yang pertama adalah For to Do & Kedua adalah  While Do.

Form 1

1)     Yang pertama adalah kita akan membuat aplikasi sederhana yaitu membuat sebuah perulangan dengan syntax For to Do dengan ketentuan sebagai berikut:

Komponen	Caption
Form1	Form1
Textboxt1	Kosongkan
Command1	OK
Command2	CLEAR

2)      Agar berfungsi (double klik Button 1) untuk Identitas “Button Ok” ketik :

procedure TForm2.Button1Click(Sender: TObject);

var

a:integer;

begin

for a:= 1 to 5 do

edit1.SelText :=inttostr(a);

end;

end.

3)     

Untuk menghapus Inputan dan Output dalam TextBox (double klik Button 2) untuk Identitas “Button Clear” ketik :

procedure TForm2.Button2Click(Sender: TObject);

begin

edit1.Text:=''

end;

end.

 

4)      Berikut skematik tampilaanya saat Run (F9)

Form 2

            Untuk form 2 kita akan buat program sederhana while…do. 

            Setelah selesai mengubah startup menjadi form 2, kita akan membuat sebuah aplikasi perulangan sederhana dengan syntax while…Do . DEngan ketentuan sebagai berikut :

Komponen	Caption
Form2	Form2
Texbox1	kosongkan
Textbox2	Kosongkan
Memo1	Kosongkan
Command1	OK
Command2	CLEAR

1)      Lalu masukkan syntax berikut untuk membuat aplikasi berjalan sesuai fungsinya. (double klik pada tombol Button 1) untuk Identitas “Button OK” ketik :

procedure TForm1.Button1Click(Sender: TObject);

var

a, b : integer;

begin

a:=strtoint(edit1.Text);

b:=1;

memo1.Clear;

memo1.Lines.Add('Perulangan while do');

memo1.Lines.add('_');

while b<=strtoint(edit2.text) do

begin

memo1.Lines.add('perulangan ke- ' + inttostr(b) + '=' + inttostr(a));

a:=a+1;

b:=b+1;

end;

end;

2)      Setelah itu masukkan syntax untuk menghapus Inputan dan Output dalam TextBox (double klik Command Button 2) untuk Identitas “Button Clear” ketik :

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

memo1.Clear;

end;

end.

3)      Untuk Skematik hasi akhir dari tampilannya saat di “Run(F9)”: