LOOPING Pada VB

Haiiiiiiaaaahhhh...
time to posting again guys....

Nah sekarang saya mau posting tentang Looping di VB nih (BELAJAR Lagi yuuuk !!!!) 

Let's GO !!!

Looping atau perulangan pada VB ada beberapa macamnya yaitu :

1. Do while … loop

Pernyataan

…

Loop

2. Do until … loop

Pernyataan

….

Loop

3. While … wend

Pernyataan

…

Wend

4. For indeks = nilai awal to akhir

Pernyataan

…

Next indeks

Teorinya udah yaaaa....
Sekarang praktek OK OK ???!!!!

yuk kita buat di form satu terdiri atas label1, label2, text1, text2, dan tombol – tombol button, button1 (enter), button2 (clear), dan button3 (exit).

Form 1 :

Private Sub Command1_Click()

If Text1.Text = "ikhsan" And Text2.Text = "nur ikhsan" Then

Form2.Show

Else

Form1.Show

End If

End Sub

Private Sub Command2_Click()

Text1.Text = " "

Text2.Text = " "

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

  

Form 1 

Form 2 :

Private Sub Command1_Click()

a = 1

Do

List1.AddItem "ikhsan"

a = a + 1

Loop Until a = 14

End Sub

Private Sub Command2_Click()

End

End Sub

Form 2

Setelah itu pada button 1(enter) input perintah yang digunakan untuk menjalankan program ini.

Private Sub Command1_Click()

If Text1.Text = "ikhsan" And Text2.Text = "nur ikhsan" Then

Form2.Show

Else

Form1.Show

End If

End Sub

Private Sub Command2_Click()

Text1.Text = " "

Text2.Text = " "

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

Maksudnya dari program ini adalah apabila setelah kita memasukkan nama dan password setelah benar program tersebut akan lanjut menuju program kedua. Yang hasilnya adalah melooping pernyataan sebelumnya.

BINGUNG ???
Look the pictures please !!!

Output Form 1 Besrta Contoh Inputan

Hasil Looping yang tampil di Form 2

Ok Guys cukup ya belajarnya ....

Selamat Belajar... :)

Sampai Jumpa lagi ....