Program Looping pada VB 6.0

Unknown | 07:54 | vb6
Program ini dibuat khusus untuk pemula Visual Basic 6.0...

ok... langsung ke TKP

1. Buatlah sebuah project baru dengan template Standard.EXE
2. Masukkan beberapa toolbox ke dalam form, seperti dibawah ini :

Kontrol	Properti	Keterangan
Label1	Caption	Jenis Loop
Text1	Name	txtbanyak
Text2	Name	txt2
Combo1	Name	cmbjenis
CommandButton1	Caption	Loop
ListBox	Name	listloop
Option1	Name	Oganjil
Option2	Name	okelipatan8

3. Kemudian desain Form seperti gambar dibawah ini atau menurut kreasi kalian masing-masing

4. Kemudian masukkan script dibawah ini.

Private Sub Form_Load()
cmbjenis.AddItem “for next”
cmbjenis.AddItem “while wend”
cmbjenis.AddItem “do loop until”
cmbjenis.ListIndex = 0
End Sub
Private Sub Command1_Click()
Dim count As Integer
Dim i As Integer
count = Val(txtbanyak.Text)
If count MsgBox “nilai harus besar dari 0″, vbInformation, “error”
Else
Listloop.Clear
If Oganjil.Value = True Then
i = 0
Select Case cmbjenis.ListIndex
Case 0:
For i = 0 To count – 1
Listloop.AddItem (txt2.Text) & ” ” & i + 1 & ” “, i = i + 1
i = i + 1
Next i
Case 1:
While i < count Listloop.AddItem (txt2.Text) & ” ” & i + 1 & ” “, i = i + 2 i = i + 2 Wend Case 2: Do Listloop.AddItem (txt2.Text) & ” ” & i + 1 & ” “, i = i + 2 i = i + 2 Loop Until i > count – 2
End Select
Else
Okelipatan8.Value = True
Select Case cmbjenis.ListIndex
Case 0:
For i = 0 To count – 1
Listloop.AddItem (txt2.Text) & ” ” & i & ” “, i = i + 8
i = i + 7
Next i
Case 1:
While i < count Listloop.AddItem (txt2.Text) & ” ” & i & ” “, i = i + 8 i = i + 8 Wend Case 2: Do Listloop.AddItem (txt2.Text) & ” ” & i & ” “, i = i + 8 i = i + 8 Loop Until i > count – 1
End Select
End If
End If
End Sub

5. Selesai...

bagaimana...???
mudah dan gampang kan