Struktur Perulangan(Loop) dan Kotak Dialog

STRUKTUR PENGULANGAN

Struktur pengulangan atau Loop digunakan untuk mengulang suatu blok perintah sampai kondisi tertentu. Proses pengulangan ini dapat dikendalikan jumlahnya oleh aplikasi yang dibuat pada kondisi tertentu.

Jenis – Jenis Perulangan

FOR - NEXT -> Bersarang
DO WHILE – LOOP & DO – LOOP WHILE
DO – LOOP UNTIL & DO UNTIL - LOOP

STRUKTUR FOR - NEXT

Struktur For – Next digunakan untuk mengulang blok perintah dalam jumlah yang sudah ditentukan.

For Counter = Awal To Akhir Step Pertambahan
… Ekspresi …
Next Counter

Counter:

Nama variabel integer yang digunakan untuk melakukan proses pengulangan.

Awal:

Suatu variabel integer untuk menentukan nilai awal suatu pengulangan.

Akhir:

Suatu variabel integer untuk menentukan nilai akhir suatu pengulangan.

Pertambahan:

Besarnya nilai perubahan dari nilai awal sampai akhir.

Contoh :

Dim i As Integer
Dim Jumlah As Integer
Jumlah = 0
For i =1 to 100 Step 2
Jumlah = Jumlah+i
Next i
MessageBox,show(jumlah,“Hasil”,MessageBoxButtons.OK)

Dalam For – Next juga bisa dilakukan perhitungan mundur, yaitu dengan menentukan nilai dari setiap step dengan nilai minus.

Contoh :
Dim i as Integer
Dim jumlah as Integer
jumlah=0
For i =10 to1 Step -2
jumlah =jumlah+i
Next i
MessageBox.Show(jumlah,”Hasil”)

Dalam For – Next juga dapat membatalkan proses selanjutnya sesuai dengan kondisi yang ditentukan. Untuk melakukan pembatalan proses, Hanya perlu menambahkan pernyataan Exit –For

Contoh :
Dim i as Integer
Dim jumlah as integer
Jumlah = 0
For i =2 to 20 Step 2
Jumlah = jumlah +i
If i 8 then
Exit For
End If
Next i

STRUKTUR FOR – NEXT BERSARANG

Proses pengulangan dengan struktur FOR – NEXT diletakkan struktur For – Next lainnya. Bentuk semacam ini disebut dengan Nested For

For Counter1 = Awal1 To Akhir1 Step Pertambahan
For Counter2 = Awal2 To Akhir2 Step Pertambahan
… Ekspresi …
Next Counter2
Next Counter1

STRUKTUR PENGULANGAN

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim A, B As Integer
For A = 1 To 5
For B = A To 5
Console.Write(B)
Next B
Console.WriteLine(Space(1))
Next A
End Sub

Hasil:
1 2 3 4 5
2 3 4 5
3 4 5
4 5
5

STRUKTUR DO WHILE – LOOP & DO – LOOP WHILE

Do While – Loop digunakan untuk melakukan perulangan terus-menerus selama kondisi memenuhi syarat (bernilai True). Perulangan ini akan berhenti jika kondisinya tidak memenuhi syarat (bernilai False).

Do While (Kondisi)

…. Ekspresi ….

Loop

Do

…. Ekspresi ….

Loop While (Kondisi)

Nilainya dapat berbentuk number atau string. Jika nilainya number, penambahan atau pengurangan nilai tidak dilakukan secara otomatis tetapi harus di-counter secara manual. Khusus Do – Loop – While, akan meng-eksekusi terlebih dahulu blok perintah, kemudian menjalankan pengujian kondisi diakhir eksekusi.

Private Sub Form_Click ()
Dim Bil As Integer
Bil = 1
Do While Bil <= 9
Console.Write (Bil & “ “)
Bil = Bil + 1
Loop
End Sub

Private Sub Form_Click ()
Dim Bil As Integer
Bil = 1
Do
Console.Write(Bil & “ “)
Bil = Bil + 1
Loop While Bil <= 9
End Sub

Hasil:
1 2 3 4 5 6 7 8 9

STRUKTUR DO – LOOP UNTIL & DO UNTIL - LOOP

Struktur DO – Loop Until merupakan struktur perulangan yang metodenya kebalikan dari struktur Do While – Loop. Struktur Do – Loop – Until akan menjalankan blok program didalam perulangan itu selama kondisi yang dibandingkan tidak memenuhi syarat (False). Perulangan itu akan terus menerus dikerjakan sampai (Until) kondisinya memenuhi syarat (True). Khusus Do Until – Loop dimana prosesnya akan menyeleksi kondisi tersebut dahulu, kemudian menjalankan blok perintah, jika kondisi pada strukturnya tidak terpenuhi, makan tidak ada blok perintah yang akan dikerjakan.

Do
…. Ekspresi ….
Loop Until (Kondisi)

Do Until
…. Ekspresi ….
Loop

Private Sub Form_Click ()
Dim Bil As Integer
Bil = 1
Do
Console.Write (Bil & “ “)
Bil = Bil + 1
Loop Until Bil > 9
End Sub

Private Sub Form_Click ()
Dim Bil As Integer
Bil = 1
Do Until Bil > 9
Console.Write (Bil & “ “)
Bil = Bil + 1
Loop
End Sub

Hasil:
1 2 3 4 5 6 7 8 9

Stuktur While – End While

Struktur While – End While akan mengeksekusi pernyataan selama kondisi yang ditentukan bernilai TRUE.

Contoh :
Dim i as Integer = 0
Dim x as String = “”
While i<=10
i = i+1
x = x & “Data ke ” & i.ToString & vbNewLine
End While
MessageBox.Show(x,”Baris Data”)

MessageBox

MessageBox merupakan kotak dialog yang paling umum digunakan untuk menampilkan informasi. Kita dapat menentukan informasi apa yang ingin kita tampilkan pada pengguna.

Ada 2 cara penggunaan messagebox

MsgBox(“Silakan masukan indentitas dengan benar”)
MessageBox.Show(“Silakan masukan indentitas dengan benar”)

Di dalam MessageBox Judul Pesan, Isi Pesan, Ikon Pesan dan Button. Hal ini merupakan konstanta dalam VB yang bisa kita atur sesuai dengan keinginan dan kebutuhan informasi yang akan di tampilkan.

Daftar Konstanta yang dapat di gunakan

Contoh Penulisan

MessageBox.Show("Silakan masukan Identitas Dengan benar", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

Input Box

Salah satu fasilitas yang digunakan sebagai media untuk berinteraksi antra pengguna dengan user. Dapat menerima Inputan secara langsung dari user. Kotak inputan berupa textbox dan 2 tombol OK & Cancel

Contoh Penggunaan
InputBox(“Ketikan Usernama Anda”,”Masukan User Name” )