Struktur Keputusan di VB 2005

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 sNamaFile = “ ” Then

SaveFileAs()

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 < 50 Then

Pesan = “D”

ElseIf Nilai < 75 Then

Pesan = “C”

ElseIf Nilai < 90 Then

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 Now.DayOfWeek

Case DayOfWeek.Saturday Or DayOfWeek.Sunday

Pesan = “Libur!”

Case DayOfWeek.Monday

Pesan = “I Love Monday!”

Case Else

Pesan = “Kerja lagi, kerja lagi!”

End Select

MsgBox(Pesan)

  1. Leave a comment

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: