newbie318: Pertemuan 6 | 16 Maret 2015

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

Tutorial : Membuat program untuk mencari bilangan ganjil, genap, prima, fibonacci

Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008.
Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project.
Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK.
Langkah keempat buatlah desain form seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

Objek	Text	Name
GroupBox	Jenis Bilangan
GroupBox	Contoh Bilangan
ComboBox	Pilih Bilangan	cboBilangan
ListBox		lstBilangan
Button1	Lihat Bil	btnLihatBil
Button2	Exit	btnExit

Form Bilangan

Langkah kelima masukkan koding berikut

Public Class Bilangan
    Dim awal, akhir, hasil As String

'coding tombol Lihat bil
    Private Sub btnLihatBil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLihatBil.Click
        Dim x, y, z As Integer
        Dim i As Integer

'mencari bilangan ganjil
        If cboBilangan.SelectedItem = "Ganjil" Then
            lstBilangan.Items.Clear()
            awal = Val(InputBox("masukkan batasan awal", "Batasan"))
            akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))
            For i = awal To akhir
                i = i + 0
                If (i Mod 2 = 1) Then
                    lstBilangan.Items.Add(i)
                End If
            Next

'mencari bilangan genap
        ElseIf cboBilangan.SelectedItem = "Genap" Then
            lstBilangan.Items.Clear()
            awal = Val(InputBox("masukkan batasan awal", "Batasan"))
            akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))
            For i = awal To akhir
                i = i + 0
                If (i Mod 2 = 0) Then
                    lstBilangan.Items.Add(i)
                End If
            Next

'mencari bilangan prima
        ElseIf cboBilangan.SelectedItem = "Prima" Then
            lstBilangan.Items.Clear()
            awal = Val(InputBox("masukkan batasan awal", "Batasan"))
            akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))
            If awal >= 2 Then
                For x = awal To akhir
                    z = 0
                    For y = 2 To x
                        hasil = x Mod y
                        If hasil = 0 Then
                            z = z + 1
                        End If
                    Next
                    If z <= 1 Then
                        lstBilangan.Items.Add(x)
                    End If
                Next
            Else
                MsgBox("Bilangan Prima dimulai dari 2")
            End If

'mencari bilangan fibonacci
        ElseIf cboBilangan.SelectedItem = "Fibonaci" Then
            lstBilangan.Items.Clear()
            akhir = Val(InputBox("masukkan batasan akhir", "Batasan"))
            y = 0
            z = 1
            lstBilangan.Items.Add(y)
            lstBilangan.Items.Add(z)
            For i = 0 To akhir
                x = y + z
                y = z
                z = x
                If x > akhir Then Exit For
                lstBilangan.Items.Add(x)
            Next
        End If
    End Sub

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

Langkah keenam untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, sebagai contoh masukan nilai 10 pada batasan wal, dan 20 pada batasan akhir, kemudian klik tombol Lihat Bil, maka hasilnya akan seperti berikut.

Gambar input batasan awal

Input Awal