Struktur Perulangan (2) di VB.NET (Console)

Nested FOR - NEXT

Di dalam proses pengulangan For – Next diletakkan struktur For – Next lainnya. Bentuk semacam ini disebut dengan Nested For – Next. Pada proses semacam ini, setiap satu proses pengulangan di struktur For – Next bagian luar akan mengerjakan proses pengulangan di struktur For – Next bagian dalam sekian kali, sesuai dengan beberapa banyak pengulangan tersebut dilakukan. Bentuk penulisan dari Nested For sebagai berikut ini :

For Counter1 = Awal1 To Akhir1 Step N

For Counter2 = Awal2 To Akhir2 Step N

Ekspresi

Next Counter

Keterangan :

Counter1 : Nama variable integer yang digunakan untuk melakukan proses pengulangan pada struktur For – Next yang pertama, dimana nilai pengulangan dimulai dari Awal1 sampai Akhir1 dengan nilai pertambahan N.
Counter2 : Nama variable integer yang digunakan untuk melakukan proses pengulangan pada struktur For – Next yang pertama, dimana nilai pengulangan dimulai dari Awal2 sampai Akhir2 dengan nilai pertambahan N
Ekspresi : Suatu blok perintah yang akan dikerjakan jika kondisi dari proses pengulangan memenuhi syarat.

Contoh Program :

Improts System.Console

Module Module1

Sub Main ()

Dim A, B As Integer

For A = 1 To 5

For B = A To 5

Write (B &” “)

Next

Writeline()

Next

Readline()

End Sub

End Module

Struktur FOR EACH - NEXT

Struktur For Each – Next digunakan untuk mengulang suatu blok perintah bagi tiap elemen pada suatu koleksi objek. Koleksi objek ini misalnya berupa kumpulan control pada sebuah modul form dimana masing-masing control tersebut menjadi elemennya. Pemakaian struktur For Each – Next sangat cocok jika anda tidak tahu pasti jumlah elemen pada koleksi objek. Bentuk penulisannya sebagai berikut.

For Each Elemen In Group

Ekspresi

Next

Keterangan :

Elemen : Nama variable yang digunakan untuk menampung nilai yang ada di dalam group.
Group : Nama variable yang mewakili suatu komunitas dapat berupa nilai Array, sistem input – output, dan sebagainya.
Ekspresi : Suatu blok perintah yang akan dikerjakan jika kondisi dari proses pengulangan memenuhi syarat.

Contoh Program :

Imports System.Console

Imports System.IO

Module Module1

Sub Main ()

Dim SUBFOLDER() , SF As Directoryinfo

SUBFOLDER= _

New Directoryinfo(“C:\”) .GetDirectories()

For Each SF In SUBFOLDER

Writeline(SF.FullName)

Next

Readline()

End Sub

End Module

Struktur DO WHILE - LOOP

Struktur DO While – Loop digunakan untuk melakukan pengulangan terus – menerus selama kondisinya memenuhi syarat (bernilai True). Pengulangan ini akan berhenti jika kondisinya tidak memenuhi syarat (bernilai False). Bentuk struktur penulisannya.

DO While (Kondisi)

Ekspresi

Loop

Keterangan :

Kondisi : Berisi perbandingan antara satu variable / konstanta dengan suatu nilai dengan menggunakan <, >, =, <> dari suatu keadaan yang akan menghasilkan nilai “Benar” atau “Salah”.
Ekspresi : Suatu blok perintah yang akan dikerjakan jika kondisi dari proses pengulangan memenuhi syarat.

Contoh : Buat kode program untuk menampilkan deret bilangan seperti dibawah

ini :

Input Bilangan : 9

Deret Bilangan : 1 2 3 4 5 6 7 8 9

Total Bilangan : 45

Contoh Program

Imports System.Console

Module Module1

Sub Main ()

Dim N, BIL, TOTAL As Integer

N = 1

Write (“Input Bilangan : “)

BIL = Readline()

Write (“Deret Bilangan : “)

Do While N <= BIL

Write (N &” “)

Total = Total N

N += 1

Loop

Writeline()

Write (“Total Bilangan : “ & TOTAL)

Readline()

End Sub

End Module