RSS FeedA. Struktur Keputusan
Ketika program berjalan, mungkin hanya blok kode tertentu yang diperlukan saja yang akan dijalankan dengan kondisi tertentu. Hal itu dapat diatur menggunakan alur percabangan. Ada tiga pernyataan yang berkaitan dengan alur percabangan program yaitu: If....Then, If...Then...Else dan Select Case.
If...Then
Pernyataan If...Then akan menguji suatu kondisi, jika True, program akan menjalankan pernyataan yang mengikutinya. Struktur If...Then bisa memiliki sintaks satu baris atau banyak baris. Sintaksnya adalah:
If kondisi Then Pernyataan ‘Untuk perintah 1 baris
If Kondisi Then ‘untuk perintah banyak baris
Pernyataan
End If
Contoh kode dalam satu baris adalah:
If Nilai >= 60 Then Hasil = “Lulus”
Contoh kode dalam banyak baris adalah:
If Nilai >= 80 Then
Msgbox “Anda Pintar”
ExitSub
End If
If...Then...Else
Variasi dari pernyataan If...Then adalah pernyataan If...Then...Else yang akan menjalankan sebuah blok pernyataan jika kondisi bernilai True dan blok pernyataan lainnya jika kondisi False. Sintaks pernyataan If...Then...Else sebagai berikut:
If Kondisi Then
BlokPernyataan1
Else
BlokPernyataan2
End If
VB akan menguji kondisi, jika bernilai benar maka VB akan menjalankan blok pernyataan pertama kemudian melompat pada pernyataan di bawah End If. Jika kondisi bernilai salah VB mengabaikan blok pernyataan pertama dan menjalankan blok di bawah kata kunci Else. Contoh kode:
If Nilai >= 60 Then
Hasil = “Lulus”
Else
Hasil = “Tidak Lulus”
End If
Variasi lain dari pernyataan If...Then...Else menggunakan ElseIf sebagai berikut:
If Kondisi Then
BlokPernyataan1
ElseIf Kondisi2 Then
BlokPernyataan2
ElseIf Kondisi3 Then
BlokPernyataan3
Else
BlokPernyataanN
End If
Contoh kode banyak If sebagai berikut:
Dim Pesan As String
Nilai = InputBox(“Masukkan Nilai:”)
If Nilai <>
Pesan = “D”
ElseIf Nilai <>
Pesan = “C”
ElseIf Nilai <>
Pesan = “B”
Else
Pesan = “A”
End If
MsgBox(Pesan)
Select Case
Pernyataan Select Case mirip dengan pernyataan If...Then...Else, pada dasarnya keduanya gunanya sama, tetapi menggunakan Select Case akan mempermudah menulis dan mengelola kode. Ketika pernyataan If...Then...Else memiliki banyak blok kode, kode menjadi sulit dibaca dan diikuti.
Struktur Select Case akan menguji ekspresi tunggal yang dievaluasi sekali pada bagian atas dari struktur. Hasil dari pengujian kemudian dibandingkan dengan beberapa nilai dan jika salah satu ada yang cocok, blok pernyataan yang berhubungan akan dijalankan.
Berikut adalah sintaks pernyataan Select Case:
Select Case Ekspresi
Case Nilai1
BlokPernyataan1
Case Nilai2
BlokPernyataan2
...
Case Else
BlokPernyataanN
End Select
Contoh kode sebagai berikut:
Dim Pesan As String
Select Case Weekday(Date)
Case vbSunday
Pesan = "Libur!"
Case vbMonday
Pesan = "I Love Monday!"
Case Else
Pesan = "Kerja lagi, kerja lagi!"
End Select
MsgBox (Pesan)
A. Struktur Perulangan
Struktur pengulangan/looping digunakan untuk menjalankan satu atau banyak baris kode secara berulang-ulang. Jenisnya adalah Do While...
Pernyataan Do...Loop dapat anda gunakan jika belum tahu berapa kali pengulangan blok pernyataan. Jika Anda sudah tahu berapa kalo pengulangan blok pernyataan digunakan For...Next.
Do...Loop
Do...Loop memungkinkan anda mengeksekusi serangkaian pernyataan berulang-ulang selama kondisi pengujian tetap benar. VB akan mengevaluasi ekspresi dan jika bernilai benar, pernyataan akan dijalankan. Ketika sampai
pada bagian akhir blok, ekspresi akan diuji lagi dan jika bernilai benar maka pernyataan akan diulang. Namun jika ekspresi bernilai salah maka program akan dilanjutkan ke pernyataan setelah loop.
Ada empat variari Do...Loop, dua yang pertama memiliki model yang sama. Pengualan akan dilakukan ketika kondisi bernilai benar atau sampai kondisinya bernilai benar. Keduai variasi menggunakan kata kunci While dan Until untuk menunjukkan berapa lama kondisi menjadi benar. Untuk menjalankan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.
Do While Kondisi
BlokPernyataan
Loop
Untuk menjalankan blok pernyataan Until kondisi menjadi benar digunakan sintaks berikut ini:
Do Until Kondisi
BlokPernyataan
Loop
Ketika VB menjalankan pengulangan di atas, yang pertama dilakukan adalah menguji kondisi, jika kondisi bernilai salah pernyataan pengulangan Do While akan dilewati tetapi pengulangan Do Until akan dijalankan. Ketika sampai pernyataan Loop, VB akan menguji ekspresi lagi dan mengulang blok pernyataan dari pengulangan Do While jika ekspresi bernilai salah dan pengulangan Do until jika ekspresi bernilai benar. Jika While akan berulang selama pengujian ekspresinya benar, sedangkan Until akan berulang selama kondisi ekspresinya salah.
Contoh Do While
Dim Nilai As Integer
Nilai = 0
Do While Nilai <>
Nilai = Nila + 5
‘Hasilnya 5, 10, 15, 20, ... sampai 100
Contoh Do Until
Dim Nilai As Integer
Nilai = 0
Do Until Nilai >= 100
Nilai = Nilai + 5
‘Hasilnya sama seperti Do While di atas
Variasi lain dari pengulangan Do Loop adalah menjalankan pernyataan dulu dan menguji kondisi setelah pernyataan dijalankan. Sintaksnya:
Do
BlokPernyataan
Loop While Kondisi
Atau
Do
BlokPernyataan
LoopUntil Kondisi
Contoh Loop While:
Dim Nilai As Integer
Nilai = 0
Do
Nilai = Nilai + 5
Loop While Nilai <>
Contoh Loop Until
Dim Nilai As Integer
Nilai = 0
Do
Nilai = Nilai + 5
Loop Until Nilai >= 100
For... Next
Pada pengulangan For...Next, Anda harus mengetahui berapa kali pernyataan dalam pengulangan akan dijalankan. Pengulangan For...Next menggunakan suatu variabel (disebut counter) yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop. Pengulangan For...Next memiliki sintaks sebagai berikut:
For Counter = awal To Akhir [Step penambahan/pengurangan]
Pernyataan
Next [counter]
Argumen counter, awal, akhir dan penambahan/pengurangan semuanya adalah numerik. Pengulangan akan terus dijalankan sampai mencapai nilai counter. Contoh pengulangan For...Next adalah sebagai berikut:
Dim n As Integer
For n = 1 To 10 Step 2
‘Menambahkan item ke daftar ListBox
lista.AddItems “Item ke ” & n
Next
For Each...Next
Pernyataan For Each mirip dengan pernyataan For...Next, kecuali variable pengulangan yang diperlukan bukan numerik melainkan array dan collection.
Pernyataan For Each akan mengulang untuk tiap-tiap elemen dalam array atau collection. Sintaksnya sebagai berikut:
For Each elemen In grup
[pernyataan]
[Exit For]
[Pernyataan]
Next
Elemen harus sama tipe datanya dengan tiap-tiap item dalam array atau collection. Grup adalah array atau collection. Langkah pengulangan secara otomatis melalui tiap-tiap elemen dalam array atau collection dan keluar dari pengulangan setelah mencapai akhir dari array atau collection. Contoh:
Hewan = Array("Kucing", "Anjing", "Monyet")
For Each NamaHewan In Hewan
‘tambahkan masing-masing data ke listbox
List1.AddItem (NamaHewan)
Next
