Loops Visual Basic .Net Loops Visual Basic .Net - Berguru IT - Tutorial Visual Basic, Networking, Tips dan Trik
VB.Net

VB.Net Tutorial Untuk pemula

Instant Article

Cara Membuat Instant Article Untuk Blogger

logo

Loops Visual Basic .Net

Cara memahami Loop di visual basic .net - Dalam menangai proses pengulangan (Loop), visual basic .net menawarkan beberapa jenis konstruksi. Masing-masing jenis konstruksi pengulangan ini memiliki karakter yang berbeda satu dengan yang lainnya dan dirancang untuk menangani permasalahan yang berbeda juga.

Struktur Loop dalam visual basic .net memungkinkan anda menjalankan satu atau dua baris kode secara berulang. Dalam hal ini anda dapat mengulangi pernyataan dalam struktur loop sampai kondisinya benar atau sampai kondisi salah.



Baca juga : Cara mengenal Statemen visual basic .net

Ilustrasi dibawah ini menggambarkan struktur loop yang menjalankan serangkaian pernyataan sampai kondisinya menjadi benar.


Berikut ini adalah Jenis-Jenis Konstruksi Pengulangan.


  • Do...Loop

  • Do...Loop memiliki dua bentuk, yaitu sebagai berikut ini:
    Do {While | Until} (kondisi)
        Statemen
    Loop

    dan

    Do
        Statemen
    Loop {While | Until} (kondisi)

    Dalam menggunakan Do...Loop, anda harus menyertakan kata kunci While atau Until, tapi bukan kedua-duanya. Pada saat menggunakan kata kunci While, proses pengulangan terus dilakukan selama kondisi bernilai True. Artinya, proses pengulangan baru akan diberhentikan ketika kondisinya bernilai False. Cara kerja kata kunci Until (arti: sampai) berbeda dengan kata kunci While (arti: selama).

    Pada saat menggunakan kata kunci Until, proses pengulangan akan terus dilakukan selama kondisi bernilai False. Ketika kondisi bernilai True, pengulangan akan berhenti. Dengan demikian, Until merupakan kebalikan While.

    Perbedaan Until dan While, lihat contoh program dibawah ini :

    
    Module Module1
        Sub Main()
            Dim x As Integer
    
            Console.WriteLine("Do While. . . .Loop:")
            x = 1
            Do While (x <= 5)
                Console.Write("{0} ", x * 100)
                x += 1
            Loop
    
            Console.WriteLine(Chr(10))
    
            Console.WriteLine("Do Until. . . .Loop:")
            x = 1
            Do Until (x > 5)
                Console.Write("{0} ", x * 100)
                x += 1
            Loop
    
            Console.ReadLine()
        End Sub
    End Module
    
    

    Jika dijalankan program loop diatas akan menghasilkan :
    
    Do While. . . .Loop:
    100 200 300 400 500
    
    Do Until. . . .Loop:
    100 200 300 400 500
    
    
    Kedua bentuk perulangan diatas akan menghasilkan nilai yang sama, meskipun begitu coba perhatikan baik-baik kondisi pengulangan diatas. Berikut ini penjelasannya :
    1. Pada saat kita menggunakan kata kunci While, kondisinya adalah x <= 5. Ini berarti pengulangan akan terus dilakukan selama nilai x lebih kecil dari atau sama dengan 5.
    2. Ketika menggunakan kata kunci Until, kondisinya perlu diubah menjadi x > 5. Artinya, pengulangan akan terus dilakukan sampai nilai x lebih besar dari 5.

  • For...Next

  • For...Next digunakan untuk melakukan pengulangan yang jumlahnya sudah diketahui dengan pasti, misalnya 0 sampai 9, 1 sampai 10, 1 sampai 5 dan sebagainya. Bentuk umum penggunaan For...Next adalah :
    For indeks [As TipeData] = NilaiAwal To NilaiAkhir [Step step]
        Statemen
    Next [indeks]
    Sebagai Contoh, untuk pengulangan suatu statemen sebanyak 10 kali Kita dapat menuliskan kode seperti ini :

    For x as integer = 1 To 10 Step 1
        Console.write("{0} ", x)
    Next x

    Nilai default  untuk Step adalah 1. Dengan demikian, jika di setiap langkah pengulangan nilai x akan dinaikkan sebesar 1. Berikut ini kode program yang menunjukkan penggunaan statemen For...Next :

    
    Module Module1
        Sub Main()
            Console.WriteLine("Pengulangan ke-1")
            For x As Integer = 1 To 10 Step 1
                Console.Write("{0} ", x)
            Next x
    
            Console.WriteLine(Chr(10))
    
            Console.WriteLine("Pengulangan ke-2")
            For x As Integer = 1 To 10
                Console.Write("{0} ", x)
            Next x
    
            Console.WriteLine(Chr(10))
    
            Console.WriteLine("Pengulangan ke-3")
            For x = 1 To 10
                Console.Write("{0} ", x)
            Next
    
            Console.WriteLine(Chr(10))
    
            Console.WriteLine("Pengulangan ke-4")
            For x = 1 To 10 Step 2
                Console.Write("{0} ", x)
            Next
    
            Console.ReadLine()
        End Sub
    End Module
    
    

    Hasil programnya :
    
    Pengulangan ke-1
    1 2 3 4 5 6 7 8 9 10
    
    Pengulangan ke-2
    1 2 3 4 5 6 7 8 9 10
    
    Pengulangan ke-3
    1 2 3 4 5 6 7 8 9 10
    
    Pengulangan ke-4
    1 3 5 7 9
    
    
    Coba perhatikan baik-baik pengulangan ke-4 diatas. Pada pengulangan tersebut Step bernilai 2. Hal ini menyebabkan di setiap langkah pengulangan nilai 1 akan ditambah 2. Yang jadi pertanyaan kenapa nilai 10 tidak ikut ditampilkan? Alasannya adalah karena variabel x tidak pernah bernilai 10. Saat x bernilai 9, nilai x akan ditambah 2 sehingga nilainya menjadi 11. Ketika x bernilai 11, proses pengulangan akan dihentikan karena 11 berada di luar rentang 1 sampai 10.

  • For Each...Next

  • For Each...Next adalah statemen pengulangan yang khusus digunakan untuk mengakses setiap elemen yang terdapat di dalam sekumpulan nilai tertentu (array maupun koleksi). Proses pengulangan dilakukan dengan cara menelusuri setiap elemen yang terdapat di dalam koleksi, mulai dari elemen pertama sampai elemen terakhir. Ketika elemen sudah tidak ada lagi maka pengulangan akan dihentikan.

    Bentuk umum pengunaan statemen For Each...Next adalah sebagai berikut :
    For Each elemen [As TipeData] In koleksi
        Statemen
    Next [elemen]

    Meskipun kita belum membahas tentang array, tapi pada bagian ini kita akan menggunakan array untuk mendemonstrasikan cara kerja statemen For Each...Next

    
    Module Module1
        Sub Main()
            'array dengan 5 elemen bertipe integer
            Dim data() As Integer = {10, 20, 30, 40, 50}
    
            'mengakses seluruh elemen array
            For Each elemen As Integer In data
                Console.WriteLine(elemen)
            Next
    
            Console.ReadLine()
        End Sub
    End Module
    
    
    Hasil programnya adalah :

    
    10
    20
    30
    40
    50
    
    

  • While...End While

  • Bentuk umum penggunaan statemen While...End While adalah sebagai berikut :
    While (kondisi)
        Statemen
    End While

    Kontruksi ini digunakan untuk melakukan eksekusi statemen secara berulang selama kondisi bernilai True. Dengan demikian, harus ada aksi yang menyebabkan kondisi bernilai False, agar pengulangan tidak berjalan secara terus menerus. Konstruksi ini cocok diterapkan untuk kasus-kasus dimana kita belum tahu secara pasti berapa kali proses pengulangan akan dilakukan. Jika pada saat pertama kali masuk ke blok pengulangan kondisi bernilai False, maka proses pengulangan tidak akan pernah dieksekusi.
    Perhatikan contoh potongan kode dibawah ini :

    
    Module Module1
        Sub Main()
            Dim a, b As Integer
            a = 666
            b = 5
    
            'mencari sisa bagi
            While (a >= b)
                a = a - b
            End While
    
            Console.WriteLine("666 Mod 5 = {0}", a)
            Console.ReadLine()
        End Sub
    End Module
    
    

    Hasilnya :
    
    666 Mod 5 = 1
    
    

    Pada kode diatas kita tidak tahu dengan pasti berapa kali proses pengulangan akan dilakukan. Dalam contoh ini, a akan selalu dikurangi oleh b selama nilai a masih lebih besar dari b. Dengan demikian, di setiap langkah pengulangan, nilai a akan mengecil. Ketika a lebih kecil dari b maka kondisi akan bernilai False, dan proses pengulangan akan dihentikan.

  • With...End With

  • With...End With bukan merupakan konstruksi perulangan, melainkan sebuah konstruksi untuk mengeksekusi serangkaian pernyataan yang berulang kali mengacu pada satu objek atau struktur tunggal.

    Bentuk umum penggunaan statemen With...End With adalah sebagai berikut :

    With object
        statements
    End With

    Contohnya :
    
    Module Module1
        Public Class Book
            Public Property judul As String
            Public Property admin As String
            Public Property Subject As String
        End Class
        Sub Main()
            Dim aBook As New Book
            With aBook
                .judul = "Tutorial VB.NET"
                .admin = "Aris Triyanto"
                .Subject = "Information Technology"
            End With
            With aBook
                Console.WriteLine(.judul)
                Console.WriteLine(.admin)
                Console.WriteLine(.Subject)
            End With
            Console.ReadLine()
        End Sub
    End Module
    
    

    Hasilnya :
    
    Tutorial VB.NET
    Aris Triyanto
    Information Technology
    
    

Statemen Kontrol Loop (Jump Statemen)


Statemen locat atau jump statemen berfungsi untuk memindahkan eksekusi program dari satu ke bagian yang lain. Berikut ini statemen-statemen yang menangani proses pemindahan eksekusi program :

Statemen Kontrol Keterangan
Exit Statemen Berfungsi untuk menghentikan proses pengulangan. Proses ini dapat dilakukan secara paksa meskipun kondisi pengulangan masih bernilai True.
Continue Statemen Berguna untuk menghentikan pengulangan, stamen continue justru berguna untuk memaksa program melanjutkan pengulangan, denga mengabaikan statemen-statemen lain di bawahnya.
Go To Statemen Untuk menindahkan eksekusi kode ke baris tertentu yang telah ditandai dengan label.
Return Statemen Berguna untuk menghentikan eksekusi statemen di dalam prosedur maupun fungsi dan memindahkan eksekusi ke kode pemanggil.
End Statemen Berfungsi untuk menghentikan jalannya program.
Stop Statemen Berfungsi untuk menunda (menghentikan sementara) proses eksekusi program.

Tags

0 Komentar untuk "Loops Visual Basic .Net"

Subscribe