Pemrograman Visual:Tugas Fungsi Perulangan

Buat tampilan seperti berikut ini:

Error creating thumbnail: File missing

Klik 2x pada tombol OK lalu ketikkan kode program berikut ini:<syntaxhighlight lang="vbnet" line="1"> Dim Bill, Bil2 As Byte ListBox1.Item.Clear() For Bill = 1 To 5 ListBox1.Items.Add(Bill & ".") For Bil2 = 1 To 5 ListBox1.Items.Add(Bill & "." & Bil2) Next Next </syntaxhighlight>Amati alur dari program, cobalah ubah angka “5” dengan angka yang lain dan lihat hasilnya.

Tugas

Dengan hasil program diatas buatlah dengan menggunakan perulangan DO WHILE LOOP dan DO LOOP UNTIL

Penjelasan

<syntaxhighlight lang="vbnet" line="1"> Dim Bill, Bil2 As Byte ListBox1.Item.Clear() For Bill = 1 To 5 ListBox1.Items.Add(Bill & ".") For Bil2 = 1 To 5 ListBox1.Items.Add(Bill & "." & Bil2) Next Next </syntaxhighlight>

Kode ini menggunakan perulangan For untuk menambahkan item ke dalam sebuah objek ListBox. Pertama, perintah ListBox1.Items.Clear() digunakan untuk menghapus semua item yang ada dalam ListBox. Kemudian, perulangan For Bill = 1 To 5 digunakan untuk menambahkan item ke dalam ListBox dengan nilai dari 1 hingga 5.

Dalam setiap iterasi, item ditambahkan ke dalam ListBox dengan format "Bill" & ".". Selanjutnya, perulangan For Bil2 = 1 To 5 digunakan untuk menambahkan item ke dalam ListBox dengan nilai dari 1 hingga 5. Dalam setiap iterasi, item ditambahkan ke dalam ListBox dengan format "Bill" & "." & "Bil2".

Menggunakan perulangan DO WHILE:

<syntaxhighlight lang="vbnet" line="1"> ListBox1.Item.Clear() Bill = 1 Do While Bill <= 5

   ListBox1.Items.Add(Bill & ".")
   Bil2 = 1
   Do While Bil2 <= 5
       ListBox1.Items.Add(Bill & "." & Bil2)
       Bil2 = Bil2 + 1
   Loop
   Bill = Bill + 1

Loop </syntaxhighlight>

Menggunakan perulangan DO LOOP UNTIL:

<syntaxhighlight lang="vbnet" line="1"> ListBox1.Item.Clear() Bill = 1 Do

   ListBox1.Items.Add(Bill & ".")
   Bil2 = 1
   Do
       ListBox1.Items.Add(Bill & "." & Bil2)
       Bil2 = Bil2 + 1
   Loop Until Bil2 > 5
   Bill = Bill + 1

Loop Until Bill > 5 </syntaxhighlight>

Kedua perulangan ini akan menghasilkan output yang sama dengan perulangan For yang digunakan dalam kode sebelumnya. Namun, perulangan DO WHILE akan melakukan perulangan sampai kondisi yang ditentukan terpenuhi, sedangkan perulangan DO LOOP UNTIL akan melakukan perulangan sampai kondisi yang ditentukan tidak terpenuhi.<syntaxhighlight lang="vbnet" line="1"> Public Class Form1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       ListBox1.Items.Clear()
       Dim Bill As Byte
       Dim Bil2 As Byte
       For Bill = 1 To 5
           ListBox1.Items.Add(Bill & ".")
           For Bil2 = 1 To 5
               ListBox1.Items.Add(Bill & "." & Bil2)
           Next
       Next
       Bill = 1
       Do While Bill <= 5
           ListBox1.Items.Add(Bill & ".")
           Bil2 = 1
           Do While Bil2 <= 5
               ListBox1.Items.Add(Bill & "." & Bil2)
               Bil2 = Bil2 + 1
           Loop
           Bill = Bill + 1
       Loop
       Bill = 1
       Do
           ListBox1.Items.Add(Bill & ".")
           Bil2 = 1
           Do
               ListBox1.Items.Add(Bill & "." & Bil2)
               Bil2 = Bil2 + 1
           Loop Until Bil2 > 5
           Bill = Bill + 1
       Loop Until Bill > 5
   End Sub

End Class

</syntaxhighlight>Kode diatas adalah contoh program yang menggabungkan kedua jenis perulangan (For, Do While, Do Until) yang digunakan untuk menambahkan item ke dalam sebuah objek ListBox. Pertama, perintah ListBox1.Items.Clear() digunakan untuk menghapus semua item yang ada dalam ListBox. Kemudian, perulangan For Bill = 1 To 5 digunakan untuk menambahkan item ke dalam ListBox dengan nilai dari 1 hingga 5. Dalam setiap iterasi, item ditambahkan ke dalam ListBox dengan format "Bill" & ".". Selanjutnya, perulangan Do While Bill <= 5 digunakan untuk menambahkan item ke dalam ListBox dengan nilai dari 1 hingga 5.

Dalam setiap iterasi, item ditambahkan ke dalam ListBox dengan format "Bill" & "." & "Bil2". Kemudian perulangan Do Until digunakan untuk menambahkan item yang sama dengan perulangan sebelumnya. Namun, perulangan Do Until akan melakukan perulangan sampai kondisi yang ditentukan tidak terpenuhi.