Pemrograman Visual:Tugas Fungsi Perulangan

Buat tampilan seperti berikut ini:

Klik 2x pada tombol OK lalu ketikkan kode program berikut ini:

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

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

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

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:

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

Menggunakan perulangan DO LOOP UNTIL:

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

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.

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

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.