Perulangan (Looping) dalam Visual basic .Net

Kembali lagi nih dengan saya. Pada kesempatan kali ini kita akan membahas mengenai Looping/Perulangan. Looping/Perulangan merupakan control perulangan yang berfungsi untuk melakukan perulangan (Itelasi) dari suatu blok program secara berulang-ulang. Sekarang kita akan membahas empat jenis perulangan. Apakah itu?? Langsung aja deh kita bahas satu persatu.

Perulangan FOR......NEXT

Merupakan suatu kontrol perulangan yang mempunyai nilai tetap atau jumlah perulangan telah diketahui sebelumnya. Format penulisannya adalah sebagai berikut.

For counter=nawal to nakhir
    [Perintah]
Next counter

Contoh pertama adalah menampilkan bilangan 0,2,4....30.
Rancang tampilan sebagai berikut :

Lalu ketikkan kode program berikut pada halaman pengetikan kode program :

Public Class Form1
   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For a = 0 To 30 Step 2
            hasil.Items.Add(a)
        Next
    End Sub
End Class

Contoh Kedua yaitu menampilkan Bilangan ganjil dan Genap dari antara Nilai awal dan Nilai akhir yang di input. rancang tampilan form berikut :

Kemudian ketikkan kode program berikut ini :



Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As Integer
        a = 2005
        While a <= Year(Now)
            tahun.Items.Add(a)
            a = a + 1
        End While
    End Sub
End Class

Perulangan dengan While....End While

Perulangan dengan While....End While yaitu perulangan yang berfungsi untuk melakukan perulangan yang memiliki syarat tertentu. Dan akan terus dijalankan selama syarat tersebut terpenuhi dan begitu pula sebailknya. Jika syarat tidak terpenuhi maka pernyataan tidak akan dijalankan

Adapun format penulisannya adalah sebagai berikut :

While [kondisi]
    [perintah1]
    [perintah2]
.....
End while
   
Sebagai contoh rancanglah tampilan form berikut :

Kemudian ketikkan kode program dibawah ini  :

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As Integer
        a = 2005
        While a <= Year(Now)
            tahun.Items.Add(a)
            a = a + 1
        End While
    End Sub
End Class

Perulangan DO   WHIE..... LOOP

Perulangan DO   WHIE..... LOOP merupakan suatu control perulangan yang melakukan perulangan terlebih dahulu dan bentuk pengujian dan bentuk pengujian dilakukan belakangan atau sebaliknya.
Adapun format penulisannya sebagai berikut

DO While [Kondisi]
    [Perintah1]
    [Exit Do]
    [Perintah2]
LOOP

Bektuk kedua
DO
    [Perintah1]
    [Exit do]
[Perintah2]
LOOP While [kondisi]

Sebagai contoh silahkan rancang tampilan form berikut ini.

Ketikkan kode program dibawah ini :

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer
        a = 6
        Do While a <= 42
            list.Items.Add(a)
            a = a + 3
        Loop
    End Sub
End Class

Perulangan dengan DO UNTIL

Jika DO WHILE melakukan perulangan selama kondisi terpenuhi until akan melakukan perulangan hingga kondisi memenuhi. Selama kondisi tidak memenuhi loop akan dijalankan terus. Demikian format penulisannya.

DO
    [Perintah]
LOOP UNTIL

Sebagai contoh kita gunakan rancangan form sebelumnya. lalu ubah code programnya menjadi seperti dibawah ini.

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer
        a = 6
        Do
            list.Items.Add(a)
            a = a + 3
        Loop Until a >= 42
    End Sub
End Class