Selasa, 17 Februari 2015

Perulangan (Looping)

Perulangan (Looping) adalah merupakan prosuder yang digunakan untuk melakukan sesuatu secara berulang-ulang sampai kondisi tertentu terpenuhi.

1. For ... Next Loop

Bentuknya :
For counter = startNumber to endNumber (Step increment)
       One or more VB statements
Next

Berikut ini contoh penggunaan For Next Loop:
1. For Next
  1.  Dim counter As Integer
  2.  For counter = 1 To 10
  3.      ListBox1.Items.Add(counter)
  4.  Next

2. For Next Step
  1. Dim counter As Integer
  2. For counter = 0 To 10 Step 2
  3.     ListBox1.Items.Add(counter)
  4. Next

3. For Next Step 
  1. Dim counter As Integer
  2. For counter = 100 To 5 Step -5
  3.     ListBox1.Items.Add(counter)
  4. Next

4. For Next Conditional
  1. Dim counter As Integer
  2. For counter = 1 To 10
  3.     If counter > 6 Then
  4.         Exit For
  5.     Else
  6.         ListBox1.Items.Add(counter)
  7.     End If
  8. Next

2. Do Loop
Bentuknya :

a) Do While condition
        Blok satu atau lebih statements
    Loop

b) Do
        Blok satu atau lebih statements
     Loop While condition

c) Do Until condition
         Blok satu atau lebih statements
    Loop

d) Do
         Blok satu atau lebih statements
     Loop Until condition

Berikut ini contoh penggunaan Do Loop:

1. Do While
  1. Dim counter As Integer
  2. counter = 1
  3. Do While counter <= 100
  4.     ListBox1.Items.Add(counter)
  5.     counter += 1
  6. Loop

2. Do Loop
  1. Dim counter, sum As Integer
  2. Do
  3.     counter += 1
  4.     sum += counter
  5.     ListBox1.Items.Add(counter & vbTab & sum)
  6.     If counter = 100 Then
  7.         Exit Do
  8.     End If
  9. Loop

3. Do Until
  1. Dim counter As Integer
  2. counter = 1
  3. Do Until counter = 10
  4.     ListBox1.Items.Add(counter)
  5.     counter += 1
  6. Loop


Tidak ada komentar:

Posting Komentar