Perulangan Loop

Perulangan di dalam Visual Basic dapat dilakukan dengan menggunakan :

1 ) Do While

Loop Do while adalah loop yang akan melakukan perulangan terus menerus selama suatu kondisi memenuhi syarat.

Adapun Sintaxnya adalah :

Do While (kondisi)

…ekspresi…

Loop

2) Do Until

Loop Do Until bisa dibilang kebalikan dari Loop Do While. Loop Until akan menjalankan blok program di dalam loop tersebut selama kondisi yang dibandingkan tidak memenuhi syarat.

Adapun Sintaxtnya adalah :

Do Until (kondisi)

…ekspresi…

Loop

c) For Next

For Next digunakan untuk mengulangi suatu perintah dalam jumlah yang ditentukan. Dengan loop ini kita bisa menentukan hingga beberapa kali loop akan berulang serta besar kenaikannya.

Adapun Sintaxnya adalah :

For Counter = nilai awal To nilai akhir (step kenaikan).

Untuk kali ini kita akan mencoba latihan menggunakan Do...While...

Mari kita mencoba,,,

Langkah - langakahnya :

1. Buat dan tampilkan form seperti gambar berikut :

2. Ubah " Command1 "  menjadi " Perintah 1 " 

3. Masukkan program 

        

Dim a As Integer

Private Sub Text1_Click()

Text1.Text = 6

End Sub

Private Sub Command1_Click()

n = Val(Text1)

i = 1

Do While i <= n

If i Mod 2 = o Then

List1.AddItem 1

Else

List1.AddItem -1

End If

i = i + 1

Loop

End Sub

Private Sub Text2_Click()

Text2.Text = 6

End Sub

Private Sub Command2_Click()

a = 2

n = Val(Text2)

i = 2

Do While i <= 7

If i Mod 2 = o Then

List2.AddItem a

Else

List2.AddItem -a

End If

a = a + 2

i = i + 1

Loop

End Sub

Private Sub Text3_Click()

Text3.Text = 5

End Sub

Private Sub Command3_Click()

a = 1

n = Val(Text3)

i = 1

Do While i <= n

List3.AddItem a

If a = 1 Then

a = 3

Else

a = a + 3

End If

i = i + 1

Loop

End Sub

Private Sub Text4_Click()

Text4.Text = 4

End Sub

Private Sub Command4_Click()

a = 2

n = Val(Text4)

i = 1

Do While i <= n

List4.AddItem a

a = a * a

i = i + 1

Loop

End Sub

~ Selamat Mencoba ~