Perulangan atau Looping Pada Visual Basic

Tujuan
Memberikan pemahaman tentang perulangan dan penggunaannya sesuai perintah.

Perulangan
Perulangan digunakan untuk mengulang kode program (repetition, looping, recursive). selama kondisi memenuhi, kode dalam statements akan diulang terus-menerus hingga kondisi tidak lagi memenuhi. Jika terjadi kesalahan dalam penulisan kode, looping tidak akan berhenti dan menimbulkan error.
Dalam visual Basic 2008 terdapat beberapa perintah yang dapat digunakan untuk perulangan, yaitu:
a.    For … Next
b.    Do … Loop
c.    While…End While
Setiap perulangan mempunyai kelebihan masing-masing, sehingga dapat dipilih sesuai dengan masalah yang dihadapi.

For … Next Statement
Loop dengan perintah For...Next cocok digunakan untuk perulangan dengan jumlah yang pasti.
Bentuk Penulisan:
For Var = [Mulai] to [Selesai] Step [Lompatan]
    Statement
Next

Contoh:
Membuat Teks “Visual Basic” sebanyak 10 pada Objek ListBox

Desain Program

Kode Program
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        ListBox1.Items.Clear()
        For i = 1 To TxtBil.Text
            ListBox1.Items.Add("Visual Basic")
        Next
    End Sub

    Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTutup.Click
        End
    End Sub

Hasil Program

Contoh:
Membuat Deret angka 1 sampai 10

Desain Program

Kode Program
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        ListBox1.Items.Clear()
        For i = 1 To 10
            ListBox1.Items.Add(i)
        Next
    End Sub

    Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTutup.Click
        End
    End Sub

Hasil Program

Do … Loop Statement
Perulangan Do…Loop digunakan untuk perulangan yang jumlah perulangannya tidak diketahui. Perulangan ini akan dijalankan sesuai kondisi yang telah ditetapkan.
Pemeriksaan Kondisi pada Do…Loop dapat dilakukan diawal dan diakhir.
Kondisi akan dijalankan pada dua keadaan yaitu Until dan While.

Do…Loop dengan Pemeriksaan diawal

1. Do Until … Loop
Perulangan akan dilakukan ketika kondisi bernilai salah dan berhenti sampai ketika kondisi bernilai benar.

BP:
Do Until <kondisi>
statement
Loop
Contoh:
Membuat Deret angka 1 sampai 10

Desain Program

Kode Program
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do Until i > 10
listbox1.Items.Add(i)
i=i+1
Loop
Hasil Program

2. Do While … Loop
Loop dengan do While cocok digunakan pada perulangan yang terjadi selama kondisi tertentu memenuhi syarat (selama kondisi benar, statement akan dijalankan terus).

BP:
Do While <kondisi>
statement
Loop

Contoh:
Membuat Deret angka 1 sampai 10

Desain Program

Kode Program
Dim i As Integer
i = 1

listbox1.Items.Clear()
Do While i <= 10
listbox1.Items.Add(i)
i=i+1
Loop

Hasil Program

Do…Loop dengan Pemeriksaan diakhir

1. Do … Loop Until
Perulangan akan dilakukan ketika kondisi bernilai salah dan berhenti sampai ketika kondisi bernilai benar.

BP:
Do
statement
Loop until <kondisi>

Contoh:
Membuat Deret angka 1 sampai 10

Desain Program

Kode Program
Dim i As Integer
i = 1

listbox1.Items.Clear()
Do
listbox1.Items.Add(i)
i=i+1
Loop Until i > 10

Hasil Program

2. Do … Loop While
Loop dengan do While cocok digunakan pada perulangan yang terjadi selama kondisi tertentu memenuhi syarat (selama kondisi benar, statement akan dijalankan terus).

BP:
Do
statement
Loop While <kondisi>

Contoh:
Membuat Deret angka 1 sampai 10

Desain Program

Kode Program
Dim i As Integer
i = 1

listbox1.Items.Clear()
Do
listbox1.Items.Add(i)
i = i + 1
Loop While i <= 10

Hasil Program

While … End While
Perulangan While…End While tidak jauh berbeda dengan perulangan do … loop digunakan untuk perulangan yang jumlah perulangannya tidak diketahui. Perulangan ini akan dijalankan sesuai kondisi yang telah ditetapkan.

BP:
While <kondisi>
statement
End While

Contoh:
Membuat Deret angka 1 sampai 10

Desain Program

Kode Program
Dim i As Integer
i = 1

ListBox1.Items.Clear()
While i <= 10
ListBox1.Items.Add(i)
i = i + 1
End While

Hasil Program

Demikina tutorial Perulangan pada Visual Basic, semoga bermanfaat bagi Teamn-teman semua. Terimakasih~

Sumber: "STMIK TRIGUNA DHARMA MEDAN"

MESSAGEBOX Pada Visual Basic

Tujuan
Memberikan pemahaman tentang penggunaan MessageBox.

MsgBox (Kotak Pesan)
Berfungsi untuk menampilkan pesan atau komentar dalam bentuk form.

Bentuk Perintah
MsgBox(“Isi Pesan“, MsgBoxStyle, “Judul Pesan“)

Keterangan gambar:
1. Judul Pesan
2. MsgBoxStyle
3. Isi Pesan

Ada beberapa MsgBoxStyle, yaitu:

1. MsgBoxStyle.Critical (16) : tombol OK dan gambar icon Critical

2. MsgBoxStyle.Question (32) : tombol OK dan gambar icon Question

3. MsgBoxStyle.Exclamation (48) : tombol OK dan gambar icon Exclamation

4.    MsgBoxStyle.Information (64)              : tombol OK dan gambar icon Information

5.      MsgBoxStyle.AbortRetryIgnore (2)    : tombol Abort, Retry dan Ignore.
6.      MsgBoxStyle.OkCancel (1)                 : tombol OK dan Cancel.
7.      MsgBoxStyle.OkOnly (0)                    : tombol OK.
8.      MsgBoxStyle. RetryCancel (5)            : tombol Retry dan Cancel.
9.      MsgBoxStyle.YesNo (4)                      : tombol Yes dan No.
10.    MsgBoxStyle. YesNoCancel (3)          : tombol Yes, No dan Cancel.

Contoh 1:
Membuat Form Login dengan tampilan sbb:

Alur Program:
-    Input Password.
-    Klik Proses
-    Jika Password benar maka akan tampil kotak pesan (MessageBox) dengan tampilan sbb:
•    Isi pesan            :    Password yang Anda Masukkan Benar
•    Judul Pesan       :    Info Login
•    MsgBoxStyle    :    Tombol OK dengan gambar icon Information.
-    Jika Password salah maka akan tampil kotak pesan (MessageBox) dengan tampilan sbb:
•    Isi pesan            :    Password yang Anda Masukkan Salah”
•    Judul Pesan       :     Info Login
•    MsgBoxStyle    :    Tombol OK dengan gambar icon Critical.

Kode Program:
Kode program diketik pada Objek BtnProses (Tombol Proses) sbb:
Private Sub BtnProses_Click(ByVal sender As System.Object, ...
    If TxtPas.Text = "rahasia" Then
    MsgBox("Password yang Anda Masukkan Benar",
    MsgBoxStyle.Information, "Info Login")
    Else
    MsgBox("Password yang Anda Masukkan Salah", 16, "Info")
        End If
End Sub

Private Sub txtpas_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtpas.KeyPress

If e.KeyChar = Chr(13) Then
'btnproses.Focus()
btnproses_Click(sender, New System.EventArgs())
End If
End Sub

Hasil apabila Input Password Benar

Hasil apabila Input Password Salah

Contoh 2:
Tambah tombol Tutup pada form Login, sehingga tampilan form menjadi seperti berikut:

Buat Perintah untuk Tombol Tutup menggunakan MessageBox dengan tampilan sbb:
-     Isi Pesan           :    “Apakah Anda ingin menutup Form Login ini?“
-    MsgBoxStyle    :    Yes dan No dengan icon Question.
-    Judul                 :    “Tutup Form Login“

Alur Program:
Jika diklik tombol Yes, maka Program akan ditutup. Jika diklik tombol No, maka Program tidak akan ditutup.

Perintah Program:
Private Sub BtnTutup_Click(ByVal sender As System.Object, ...
    Dim pesan As String
    pesan = MsgBox("Apakah Anda ingin menutup Program ini?", MsgBoxStyle.YesNo + 32, "Tutup Program")
    If pesan = vbYes Then
       End
    Else
       Exit Sub
    End If
End Sub

Hasil Tampilan apabila di Tekan Tutup

#####om-pinpin.blogspot.co.id#####

Latihan:
Buat Program Untuk Menampilkan Informasi Hadiah sesuai Point Reward dengan Menggunakan MessageBox.
1. Desain Program sbb:

2. Alur Program
    -    Input Jumlah Point Reward.
    -    Klik Proses, maka akan tampil keterangan Hadiah sesuai point reward pada MessageBox.
         Tabel Hadiah sebagai berikut:

-    Klik Tutup, maka akan tampil MessageBox dengan dengan tampilan sbb:
•    Isi Pesan            :    Anda ingin menutup Program ini?
•    MsgBoxStyle    :    OK dan Cancel dengan icon Question.
•    Judul                 :    Tutup Program
Jika diklik tombol OK, maka Program akan ditutup. Jika diklik tombol Cancel, maka Program tidak akan ditutup.

Penyelesaian sbb;
Pada Latihan diatas kita sudah di beritahu Desain Program dan Alur Program, maka dari itu kit langsung saja menuju Kode Programnya dan coba untuk menjalankan Programnya...

Kode Program
Jika di Kilik 2x pada Objek Proses, maka Kode Program sbb;
Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Select Val(TxtJPR.Text)
            Case 500 To 1000
                MsgBox("Mug Cantik", MsgBoxStyle.Information, "Hadiah")
            Case 1001 To 1500
                MsgBox("Boneka Cantik", MsgBoxStyle.Information, "Hadiah")
            Case 1501 To 2000
                MsgBox("Kipas Angin", MsgBoxStyle.Information, "Hadiah")
            Case 2001 To 2500
                MsgBox("Dispenser", MsgBoxStyle.Information, "Hadiah")
            Case Else
                MsgBox("Tidak Ada", 16, "Hadiah")
        End Select
    End Sub

Jika di Klik 2x pada Objek Tutup, maka Kode Program sbb;
Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTutup.Click
        Dim pesan As String
        pesan = MsgBox("Apakah Anda ingin menutup Program ini?", MsgBoxStyle.YesNo + 32, "Tutup Program")
        If pesan = vbYes Then
            End
        Else
            Exit Sub
        End If
    End Sub

Dan sekarang mari kita jalankan Programnya.

Hasil Program

Hasil ketika di Input Point Reward sesuai Tabel Hadiah

Hasil apabila diTekan Tutup

Demikianlah Langkah-langkah tutorial MessageBox dan Latihannya, semoga tutorial ini dapat membantu Teman-seman semuanya. Terimakasih~

Sumber : "STMIK TRIGUNA DHARMA MEDAN"

STRUKTUR KEPUTUSAN Pada Visual Basic

Tujuan
Memberikan pemahaman tentang struktur keputusan atau pemakaian selection Select Case.

Struktur Keputusan
Struktur keputusan adalah struktur program yang melakukan proses pengujian untuk mengambil suatu keputusan apakah suatu baris atau blok instruksi akan diproses atau tidak. Pengujian kondisi ini dilakukan untuk memilih salah satu dari beberapa alternatif yang tersedia.

A. Select Case Statement
Digunakan untuk pengambilan keputusan dari beberapa pilihan.

Jika dalam perintah IF pengecekan dilakukan berdasarkan kondisi, namum dalam Select Case pengecekan dilakukan berdasarkan nilai Ekspresi.

Bentuk Penulisan:
Select Case [Kondisi]
        Case [Ekspresi1]
               [Statement1]
        Case [Ekspresi2]
               [Statement2]
                  ...
        Case Else
               [Statement n]
End Select

CONTOH 1 :

1. Desain Program

2. Alur Program
     -    Input Jumlah Point Reward.
     -    Klik Proses, maka akan tampil keterangan Hadiah sesuai point reward.
          Tabel Hadiah sebagai berikut:

3. Kode Program
Ketik 2x pada Tombol Proses, maka tampilan Program sbb:
Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Select Case Val(TxtJPR.Text)
            Case Is <= 1000
                TxtHadiah.Text = "Mug Cantik"
            Case Is <= 1500
                TxtHadiah.Text = "Boneka Cantik"
            Case Is <= 2000
                TxtHadiah.Text = "Kipas Angin"
            Case Is <= 2500
                TxtHadiah.Text = "Dispenser"
            Case Else
                TxtHadiah.Text = "Tidak Ada"
        End Select
    End Sub

Ketik 2x pada Tombol Bersih, maka tampilan Program sbb:
Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        TxtHadiah.Text = ""
        TxtJPR.Text = ""
    End Sub

Ketik 2x pada Tombol Tutup, maka tampilan Program sbb:
Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTutup.Click
        End
    End Sub

4. Hasil Program

Input Jumlah Point Reward lalu Klik Proses

B. Select Case Dengan To

Digunakan untuk kondisi berupa range angka.

Bentuk Penulisan:

Select Case [Kondisi]

Case [Nilai Awal1] to [Nilai Akhir1]

[Statement 1]

Case [Nilai Awal2] to [Nilai Akhir2]

[Statement 2]

...

Case Else

[Statement n]

End Select

CONTOH 2:

1. Desain Program

2. Alur Program

- Input Jumlah Point Reward.

- Klik Proses, maka akan tampil keterangan Hadiah sesuai point reward.

Tabel Hadiah sebagai berikut:

3. Kode Program

Ketik 2x pada Tombol Proses, maka tampilan Program sbb:

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

Select Case Val(TxtJPR.Text)

Case 500 To 1000

TxtHadiah.Text = "Mug Cantik"

Case 1001 To 1500

TxtHadiah.Text = "Boneka Cantik"

Case 1501 To 2000

TxtHadiah.Text = "Kipas Angin"

Case 2001 To 2500

TxtHadiah.Text = "Dispenser"

Case Else

TxtHadiah.Text = "Tidak Ada"

End Select

End Sub

Ketik 2x pada Tombol Bersih, maka tampilan Program sbb:

Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click

TxtHadiah.Text = ""

TxtJPR.Text = ""

End Sub

Ketik 2x pada Tombol Tutup, maka tampilan Program sbb:

Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTutup.Click

End

End Sub

4. Hasil Program

Input Jumlah Point Reward lalu Klik Proses

C. Operator Logika

Pengambilan suatu keputusan tidak hanya dapat dilakukan untuk satu kondisi pengujian, tetapi dapat dilakukan juga untuk beberapa kondisi pengujian. Untuk melakukan proses pengambilan keputusan dari 2 atau lebih kondisi diperlukan operator yang dapat menghubungkan kondisi-kondisi yang akan diuji tersebut. Adapun Operator yang digunakan adalah:

And

And adalah operasi yang melakukan pengecekan atas 2 kondisi atau variabel yang ada. Jika kedua kondisi bernilai true, maka hasil operasi AND adalah true, selain itu false.

Or adalah operasi yang melakukan pengecekan atas 2 kondisi atau variabel yang ada. Jika salah satu kondisi bernilai true, maka hasil operasi OR adalah true, selain itu false.

Not

Not adalah operasi yang melakukan pengecekan atas 1 kondisi atau variabel yang ada. Jika kondisi bernilai true, maka hasil operasi NOT adalah false, dan sebaliknya.

Contoh:

Membuat Program untuk menentukan Lulus atau Gagal berdasarkan dua parameter nilai yaitu Nilai Potensi Akademik dan Nilai Psikotes.

1. Desain Program

2. Alur Program

- Input Nilai Potensi Akademik dan Nilai Psikotes

- Klik Proses, maka akan tampil Keterangan LULUS atau GAGAL pada hasil.

Pengujiannya sebagai berikut:

Jika Nilai Potensi Akademik 85 keatas DAN Nilai Psikotes 75 keatas maka hasil: “LULUS” selain itu hasil: “GAGAL”

3. Kode Program

Ketik 2x pada Tombol Proses, maka tampilan Program sbb:

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

If TxtNPA.Text >= 85 And TxtNPs.Text >= 75 Then

TxtHasil.Text = "LULUS"

Else

TxtHasil.Text = "GAGAL"

End If

End Sub

Ketik 2x pada Tombol Bersih, maka tampilan Program sbb:

Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click

TxtNPA.Text = ""

TxtNPs.Text = ""

TxtHasil.Text = ""

End Sub

Ketik 2x pada Tombol Tutup, maka tampilan Program sbb:

Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTutup.Click

End

End Sub

4. Hasil Program

Input Nilai Akademik dan Psikotes lalu Klik Proses

#########################################################################

Latihan:

Buka Program Penggunaan ComboBox pada pertemuan (Modul) sebelumnya. Ubah penggunaan fungsi IF menjadi Select Case.
1. Desain Program

2. Alur Program
Pilih (klik) salah satu Kode Barang pada objek ComboBox, maka akan tampil Nama Barang dan Harga Barang.
Tabel Pengujiannya sebagai berikut:

3. Kode Program
Jika di Klik 2x tombol Objek ComboBox, maka Kode Program sbb:
Private Sub Cbokb_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Cbokb.SelectedIndexChanged
        Select Case Cbokb.Text
            Case "PL01"
                TxtNb.Text = "PULPEN PILOT"
                TxtHb.Text = 1200
            Case "PL02"
                TxtNb.Text = "PULPEN STANDAR"
                TxtHb.Text = 1000
            Case "BK01"
                TxtNb.Text = "BUKU AA 60 LBR"
                TxtHb.Text = 3000
            Case "BK02"
                TxtNb.Text = "BUKU SINAR DUNIA 50 LBR"
            TxtHb.Text = 3000
            Case Else
                TxtNb.Text = "Tidak Tersedia"
                TxtHb.Text = 0
        End Select
    End Sub

Jika di Klik 2x tombol Objek Tutup, maka Kode Program sbb:
Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTutup.Click
        End
    End Sub
4. Hasil Program

Demikian Tutorial Contoh dan Latihannya, semoga dapat membantu teman-teman semua yang membutuhkan atau ingin belajar membuat Program Sederhana dengan Visual Basic. Terimakasih 😇

Sumber: "STMIK Triguna Dharma Medan"

Materi Perkuliahan

Perulangan atau Looping Pada Visual Basic

MESSAGEBOX Pada Visual Basic

STRUKTUR KEPUTUSAN Pada Visual Basic

B. Select Case Dengan To

C. Operator Logika

Perulangan atau Looping Pada Visual Basic

Laporkan Penyalahgunaan

Label