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.
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 :
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 :
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
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 :
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 :
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) |
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 indeks [As TipeData] = NilaiAwal To NilaiAkhir [Step step] Statemen Next [indeks] |
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.
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
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.
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. |
0 Komentar untuk "Loops Visual Basic .Net"