PEMBAHASAN 7 - LOOPING STATEMENT VB.NET

Looping Statement Vb.Net 

Tutorial Vb.Net - Belajar Visual Basic Net khusus pemula tentang Loops Statement di Vb.Net antara lain Do Loop,For Next,For Each Next,While End While, With End With, Nested loops yang akan di jelaskan pada tutorial vb.net ini, sebelumnya buat kamu yang ingin melihat tutorial vb net sebelumnya silahkan baca Tutorial VB.NET : CRUD (Create, Update, Delete) Vb.Net Database MySQL, Membuat Laporan Biodata dengan Crystal Report Vb.Net, dan masih banyak yang lain, selengkapnya di Tutorial Belajar VB.NET Khusus Pemula. Untuk penggunaan Looping statement di vb net ini simak terus tutorialnya akan dijelaskan dibawah ini ya.

Loops statement Vb.Net dan Contoh Penggunaannya

Do Loop Vb.net

Pernyataan Do Loop akan melakukan pengulangan dalam kondisi Boolean yang mana kondisi dalam keadaan True atau sampai kondisi dalam keadaan True. Pengulangan dapat dihentikan dengan pernyataan Exit do. Syntax statement Do Loop vb net

Do { While | Until } condition
    < statements >
    < Continue Do >
    < statements >
    < Exit Do >
    < statements >
Loop

Atau bisa juga :

Do
    < statements >
    < Continue Do >
    < statements >
    < Exit Do >
    < statements >
Loop { While | Until } condition

Contoh penggunaan Do Loop dalam aplikasi console

Module Module1
    Sub Main()
        Dim SC As Integer = 1
        Do
            Console.WriteLine("Do Lop Vb Net 1-20 : {0}", SC)
            SC = SC + 1
        Loop While (SC <= 20)
        Console.ReadLine()
    End Sub
End Module

Hasil yang ditampilkan adalah 1,2,3,4,5...20.
Coba lihat perbedaan menggunakan Loop While dengan menggunakan Loop Until vb net

Module Module1
    Sub Main()
        Dim SC As Integer = 1
        Do
            Console.WriteLine("Do Lop Vb Net 1-20 : {0}", SC)
            SC = SC + 1
        Loop Until (SC = 20)
        Console.ReadLine()
    End Sub
End Module

Akan menghasilkan 1,2,3,4,5.....19

For Next Vb Net

Statement For Next akan melakukan pengulangan dari sejumlah pernyataan tertentu dan menghitung jumlah index sebagai interasi jumlah pengulangan. Syntax statement for next vb.net

For counter [ As datatype ] = start To end [ Step step ]
    < statements >
    < Continue For >
    < statements >
    < Exit For >
    < statements >
Next < counter >

Contoh penggunaan statement for next vb net

Module Module1
    Sub Main()
        Dim SC As Byte
        For SC = 1 To 100
            Console.WriteLine("Loops For Next 1- 100 {0}", SC)
        Next
        Console.ReadLine()
    End Sub
End Module

Akan menghasilkan 1,2,3,4,5.....100
Kita akan menambahkan statemen Step pada For Next, lihat contoh berikut

Module Module1
    Sub Main()
        Dim SC As Byte
        For SC = 1 To 100 Step 5
            Console.WriteLine("Loops For Next 1- 100 {0}", SC)
        Next
        Console.ReadLine()
    End Sub
End Module

Akan menghasilkan nilai 1,6,11,16, .... 96

For Each Next Loops

Statement For Each Next akan melakukan pengulangan sekelompok dari pernyataan-pernyataan untuk semua elemen yang ada dalam index Array. Syntax penggunaan For Each Next Loops Vb.Net

For Each element [ As datatype ] In group
    < statements >
    < Continue For >
    < statements >
    < Exit For >
    < statements >
Next < element >

Contoh penggunaan for Each Next dalam aplikasi console

Module Module1
    Sub Main()
        Dim acontohArray() As Integer = {66, 666, 66666, 666, 66}
        Dim indexArray As Integer
        For Each indexArray In acontohArray 'menampilkan array
            Console.WriteLine(indexArray)
        Next
        Console.ReadLine()
    End Sub
End Module

While End While Statement Vb Net

Syntax While end while

While condition
    < statements >
    < Continue While >
    < statements >
    < Exit While >
    < statements >
End While

Contoh penggunaan While end while Statement

Module Module1
    Sub Main()
        Dim SC As Integer = 50
        While SC < 100
            Console.WriteLine("While End While {0}", SC)
            SC = SC + 1
        End While
        Console.ReadLine()
    End Sub
End Module

Hasil yang dimunculkan adalah angka 50,60,70....99

With End With Statement VB.

Syntax With End With statement

With object
    < statements >
End With

Contoh pengalikasian Statement With End With Aplikasi COnsole.

Module Module1
    Public Class Blogger
        Public Property Url As String
        Public Property Admin As String
        Public Property Umur As String
    End Class
    Sub Main()
        Dim blog As New Blogger
        With blog
            .Url = "http://scqq.blogspot.com/"
            .Admin = "Harison Ganteng"
            .Umur = "20 tahun kelahiran 1992"
        End With
        With blog
            Console.WriteLine(.Url)
            Console.WriteLine(.Admin)
            Console.WriteLine(.Umur)
        End With
        Console.ReadLine()
    End Sub
End Module

Nested For loop Vb Net

Syntax :

For counter1 [ As datatype1 ] = start1 To end1 [ Step step1 ]
    For counter2 [ As datatype2 ] = start2 To end2 [ Step step2 ]
    <....>
    Next [ counter2 ]
Next [ counter 1]

Contoh aplikasi console Nested For loop Vb Net

Module Module1
    Sub Main()
        Dim x, y As Integer
        For x = 2 To 100
            For y = 2 To x
                ' if factor found, not prime
                If ((x Mod y) = 0) Then
                    Exit For
                End If
            Next y
            If (y > (x \ y)) Then
                Console.WriteLine("{0} is prime", x)
            End If
        Next x
        Console.ReadLine()
    End Sub
End Module