Loops Visual Basic .Net

Aris Triyanto

Thursday, June 15, 2017

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

vbnet