LOOPING : PERULANGAN MEMAKAI VB Net 2008

 Looping adalah perulangan



looping mempunyai  4 macam
1.       1.  Do … Until dapat dikatakan sebagai kebalikan dari Do-While. Do-Until digunakan untuk melakukan proses pengulangan selama kondisi yang dibandingkan tidak memenuhi syarat (bernilai false). Pengulangan ini akan dilakukan secara berulangulang sampai (until) kondisi memenuhi syarat (bernilai true). Bentuk sintaxnya adalah sebagai berikut :
Do Until Kondisi
Aksi1
Loop
Atau
Do Kondisi
Aksi1
LoopUntil kondisi

2.       2. Perulangan Do..While
Do … While digunakan untuk mengulang sebuah blok aksi (perintah/statement) pada
jumlah tertentu selama (While) suatu kondisi memenuhi syarat (bernilai true) sampai
kondisi tersebut tidak memenuhi syarat. Bentuk sintaxnya adalah sebagai berikut :
Do While Kondisi
Aksi1
Exit Do
Aksi2
Loop
Atau
Do Kondisi
Aksi1
Exit Do
Aksi2
Loop While kondisi
3.     3.  For … Next. Digunakan untuk mengulangi suatu perintah dalam jumlah yang telah ditentukan. Dengan menggunakan For-Next anda dapat menentukan berapa kali pengulangan akan dilakukan. Bentuk sintaxnya adalah sebagai berikut :
For cacah = Awal to Akhir
Aksi
Next

contoh program perulangan untuk menampilkan hasil kali dua bilangan menggunakan perulangan for…next

4.       4.  End While: digunakan untuk mengulang sebuah blok aksi (perintah/statement) pada
jumlah tertentu selama (While) suatu kondisi memenuhi syarat (bernilai true) sampai
kondisi tersebut tidak memenuhi syarat. Bentuk sintaxnya adalah sebagai berikut :

    While kondisi
        perintah
        perintah
    End While

Contoh program looping menampil kan angka 1-10 memakai toolbox listbox memakai syntax do until

 Public Class Form2
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim halaman As Byte
        halaman = 1
        Do Until halaman = 11
            ListBox1.Items.Add(halaman)
            halaman = halaman + 1
        Loop
    End Sub
End Class

Contoh program looping menampil kan angka 1-10 memakai toolbox comboBox memakai syntax FOR

Public Class Form3

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim halaman As Byte
        For halaman = 1 To 10
            ComboBox1.Items.Add(halaman)
        Next
    End Sub
End Class

Contoh program looping  perkalian memakai toolbox listbox memakai syntax FOR

Public Class Form5

    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For x = 1 To 10
            Perkalian_1.Items.Add(x & " x 1 = " & x * 1)
        Next

        For x = 1 To 10
            Perkalian_2.Items.Add(x & " x 2 = " & x * 2)
        Next

        For x = 1 To 10
            Perkalian_3.Items.Add(x & " x 3 = " & x * 3)
        Next

        For x = 1 To 10
            Perkalian_4.Items.Add(x & " x 4 = " & x * 4)
        Next
    End Sub

  
End Class


Contoh program looping  menampilkan angka 10-1 memakai toolbox listbox memakai syntax END WHILE

Public Class Form6

    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        ListBox1.Items.Clear()
        i = 10
        While i > 0
            ListBox1.Items.Add(i)
            i -= 1
        End While
    End Sub
End Class

Contoh program looping  membuat bilangan berpangkat memakai toolbox listbox memakai syntax do while dan FOR

Public Class latihan

    Private Sub latihan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim halaman As Byte
        halaman = 1
        Do While halaman <= 10
            bilangan.Items.Add(halaman)
            halaman = halaman + 1
        Loop
    End Sub

    Private Sub bilangan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bilangan.SelectedIndexChanged
        Dim halaman As Byte
        halaman = 1
        Do While halaman <= 10
            pangkat.Items.Add(halaman)
            halaman = halaman + 1
        Loop
    End Sub


    Private Sub pangkat_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pangkat.SelectedIndexChanged
        Dim xhasil As Double = 1
        For i = 1 To Val(pangkat.Text)
            xhasil = xhasil * bilangan.Text
        Next
        hasil.Text = xhasil
    End Sub
End Class