diajarkoding: Perulangan (Looping) pada VB .Net

PERULANGAN

Dalam pemrograman ada kalanya kita memerlukan perulangan untuk melakukan suatu perintah yang sama untuk beberapa kali. Berikut adalah macam – macam bentuk perulangan dalam visual basic :

1. Do While … Loop

Kata while dalam pernyataan Do While merintahkan program untuk melakukan perulangan apabila kondisi persyaratan masih bernilai True. Apabila kondisi persyaratan bernilai False maka program akan keluar dari perulangan dan berpindah ke kode program berikutnya. Bentuk sintaks perulangan Do While adalah :

Do While Kondisi
Pernyataan
…..
Loop

Sintaks di atas adalah bentuk Do While dimana kondisi akhir perulangan terletak di awal sedangkan bentuk Do While yang letak kondisi akhirnya di akhir adalah sebagai berikut :

Do
Pernyataan
……
Loop While Kondisi

2. Do Until … Loop

Pada dasarnya, perulangan DO Until sama dengan perulangan DO While. Yang membedakannya adalah pada perulangan Do While perulangan akan terus berjalan selama kondisi bernilai True dan akan berhenti jika kondisi bernilai False sedangkan pada perulangan Do Until perulangan akan terus berjalan apabila kondisi bernilai salah dan akan brhenti jika kondisi bernilai True. Sintaks dari perulangan Do Until adalah :
Do Until Kondisi
Pernyataan
…..
LoopPerulangan Do Until juga memiliki bentuk sintaks yang lain dimana kondisi diletakkan di akhir pernyataan perulangan. Bentuk sintaksnya adalah sebagai berikut :

Do
Pernyataan
……
Loop Until Kondisi

3. While … Wend

Perulangan While … Wend digunakan saat kita ingin pernyataan pada program dijalankan selama kondisi ekspresi yang di tetapkan masih bernilai True . Sintaks perulangan While Wend adalah :

While Ekspresi
Pernyataan
…..
Wend

4. For … Next

Perulangan For … Next digunakan untuk melakukan perulangan dengan jumlah tertentu yang kita kehendaki. Kita harus mendeklarasikan sebuah variabel yang akan digunakan sebagai indeks untuk perulangan. Sintaks perulangan For … Next adalah :

For Indeks = NilaiAwal To NilaiAkhir
Pernyataan
…..
Next Indeks

Latihan ....

Pertama buka terlebih dahulu program VB .Net 2008 nya, berikut adalah tampilan awal VB .Net 2008.

Lalu buat project baru, pilih windows form application , berikan nama project yang akan kita buat yaitu “macamMacamBilangan” , lalu pilih ok, Kemudian buatlah sebuah desain form seperti berikut, terdapat 2 group box, 2 button, 1 comboBox, dan 1 ListBox.

Komponen	Properties
Komponen	Name	Text
GroupBox 1	Group Box 1	Jenis Bilangan
GroupBox2	Group Box 2	Contoh Bilangan
Button 1	btnLihat	Masukan Batas Angka
Button 2	btnExit	Exit
Combo Box	cboJenisBilangan	Pilih Jenis Bilangan
List Box	lstContohBilangan	-

Tambahkan Items pada Properties ComboBox seperti berikut ini :

Setelah membuat desain formnya, selanjutnya masukan sintaks di button btnLihat , sintaksnya seperti berikut :

Public Class macamMacamBilangan

    Private Sub btnLihat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLihat.Click
        Dim strAwal, strAkhir As String
        Dim IntAwal, IntAkhir As Integer
        Dim prima, fibonacci, x, y, z As Integer
        IntAwal = strAwal
        IntAkhir = strAkhir



        If cboJenisBilangan.SelectedItem = "Ganjil" Then
            strAwal = Val(InputBox("Masukan Batas Angka Awal:", "Perhatian !", ""))
            strAkhir = Val(InputBox("Masukan Batas Angka Akhir:", "Perhatian !", ""))
            IntAwal = strAwal
            IntAkhir = strAkhir

            Dim intGanjil As Integer
            lstContohBilangan.Items.Clear()
            For intGanjil = IntAwal To IntAkhir
                If (intGanjil Mod 2 = 1) Then
                    lstContohBilangan.Items.Add(intGanjil)
                End If
            Next
        End If

        If cboJenisBilangan.SelectedItem = "Genap" Then
            strAwal = Val(InputBox("Masukan Batas Angka Awal:", "Perhatian !", ""))
            strAkhir = Val(InputBox("Masukan Batas Angka Akhir:", "Perhatian !", ""))
            IntAwal = strAwal
            IntAkhir = strAkhir

            Dim intGenap As Integer
            lstContohBilangan.Items.Clear()
            For intGenap = IntAwal To IntAkhir
                If (intGenap Mod 2 = 0) Then
                    lstContohBilangan.Items.Add(intGenap)
                End If
            Next
        End If


        If cboJenisBilangan.SelectedItem = "Prima" Then

            strAkhir = Val(InputBox("Masukan Batas Angka Akhir:", "Perhatian !", ""))
            IntAkhir = strAkhir

            lstContohBilangan.Items.Clear()
            If IntAkhir >= 2 Then
                For x = 2 To IntAkhir
                    z = 0
                    For y = 2 To x
                        prima = x Mod y
                        If prima = 0 Then
                            z = z + 1
                        End If
                    Next
                    If z <= 1 Then
                        lstContohBilangan.Items.Add(x)
                    End If
                Next
            End If
        End If


        If cboJenisBilangan.SelectedItem = "Fibonacci" Then
            lstContohBilangan.Items.Clear()
            strAkhir = Val(InputBox("Masukan Batas Angka Akhir:", "Perhatian !", ""))
            IntAkhir = strAkhir
            y = 0
            z = 1
            lstContohBilangan.Items.Add(y)
            lstContohBilangan.Items.Add(z)
            For fibonacci = 0 To IntAkhir
                x = y + z
                y = z
                z = x
                If x > IntAkhir Then Exit For
                lstContohBilangan.Items.Add(x)
            Next

        End If

    End Sub

Masukan juga sintaks berikut di button Exit :

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
End Sub

Kemudian setelah memasukan source code pada setiap button, langkah selanjutan jalankan aplikasinya. Sebagai contoh pilih terlebih dahulu jenis bilangan, masukan batas awal bilangan 1, dan batas akhir bilangan 10, maka tampilan outputnya seperti berikut :