Struktur Perulangan Pada VB.NET

Struktur For - Next

Struktur For-Next digunakan untuk mengulang blok perintahdalam jumlah yang sudah ditentukan.Pada struktur ini Anda tidak perlu menuliskan kondisi yang akan diuji tetapi hanya perlu menuliskan nilai awal dan akhir variabel penghitung. Nilai variabel penghitung ini akan secara otomatis bertambah atau berkurang setiap kali suatu pengulangan dikerjakan. Bentuk penulisan dari struktur For-Next sebagai berikut :

For var = awal to akhir step pertambahan
 ... ekspresi ...  
Next

Keterangan :

var=Nama variabel integer yang digunakan untuk melakukan proses pengulangan.

awal=Nilai suatu variabel integer untuk menentukan nilai awal suatu perulangan.

akhir =Nilai suatu variabel integer untuk menentukan nilai akhir suatu perulangan.

pertambahan = Besarnya nilai perubahan dari nilai awal sampai nilai akhir. Jika pengulangannya menurun yaitu dari nilai yang besar menuju nilai yang kecil, maka nilai pertambahannya harus negatif. Nilai standart Visual Basic .Net untuk nilai pertambahanadalah 1, kecuali jika Anda mendefinisikan sendiri.

ekspresi =Suatu blok perintah yang akan dikerjakan jika kondisi dari proses pengulangan memenuhi syarat.

Struktur Do While - Loop 

Struktur Do While – Loop digunakan untuk melakukan pengulangan terus-menerus selama kondisi memenuhi syarat (bernilai True). Pengulangan ini akan berhenti jika kondisinya tidak memenuhi syarat (bernilai False). 

Bentuk penulisan dari struktur If-Then-ElseIf-Then sebagai berikut : 

Do while (kondisi) 
 ... ekspresi ... 
Loop

Struktur Do Until - Loop 
Struktur Do Until – Loop digunakan untuk melakukan pengulangan terus-menerus selama kondisi tidak memenuhi syarat (bernilai False). Pengulangan ini akan berhenti jikakondisinya memenuhi syarat (bernilai True). Bentuk penulisan dari struktur If-Then-ElseIf-Then sebagai berikut : 

Do until (kondisi) 
 ... ekspresi ... 
Loop










Struktur While – End While

Struktur While – End While digunakan untuk melakukan pengulangan terus-menerus selama kondisi memenuhi syarat (bernilai True). Pengulangan ini akan berhenti jika kondisinya tidak memenuhi syarat (bernilai False). Bentuk penulisan dari struktur If-Then-ElseIf-Then sebagai berikut : 

While (kondisi) 
 ... ekspresi ...

End While

Berikut adalah contoh dari masing-masing perulangan

Keterangan:

Keterangan	Name Object
Nilai Awal	Textboxt1
Nilai Akhir	Textboxt2
Langkah	Textboxt3
For	Button1
Do While	Button2
Do Until	Button3
While	Button4
Penampung	Textboxt4

Kode Program 

Public Class Perulangan
    Dim nilaiawal As Integer = 0
    Dim nilaiakhir As Integer = 0
    Dim langkah As Integer = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox4.Text = 
        nilaiawal = Val(TextBox1.Text)
        nilaiakhir = Val(TextBox2.Text)
        langkah = Val(TextBox3.Text)

        For i = nilaiawal To nilaiakhir Step +langkah
            TextBox4.Text = TextBox4.Text & i & vbCrLf
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox4.Text = 
        nilaiawal = Val(TextBox1.Text)
        nilaiakhir = Val(TextBox2.Text)
        langkah = Val(TextBox3.Text)
        Do While nilaiawal = nilaiakhir
            TextBox4.Text = TextBox4.Text & nilaiawal & vbCrLf
            nilaiawal = nilaiawal + langkah
        Loop
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox4.Text = 
        nilaiawal = Val(TextBox1.Text)
        nilaiakhir = Val(TextBox2.Text)
        langkah = Val(TextBox3.Text)
        Do Until nilaiawal > nilaiakhir
            TextBox4.Text = TextBox4.Text & nilaiawal & vbCrLf
            nilaiawal = nilaiawal + langkah
        Loop
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox4.Text = 
        nilaiawal = Val(TextBox1.Text)
        nilaiakhir = Val(TextBox2.Text)
        langkah = Val(TextBox3.Text)
        While nilaiawal = nilaiakhir
            TextBox4.Text = TextBox4.Text & nilaiawal & vbCrLf
            nilaiawal = nilaiawal + langkah
        End While
    End Sub
End Class

Demikianlah contoh perulangan pada visual basic.net semoga bermanfaat untuk anda yang lagi belajar bahasa pemrograman visual basic.net. jika ada yang kurang paham tentang tutorial ini silahkan tinggalkan pesan pada kolom komentar, terimakasih.