Percabangan (If ..Then .. Else .. Endif)

7.1  Operator Pembanding

Dalam memprogram seringkali digunakan suatu percabangan untuk pengambilan keputusan dari sejumlah pilihan yang mungkin. Visual Basic menyediakan pernyataan If… Then dan kata kunci yang lain seperti Select … Case  untuk melakukan suatu percabangan. Dalam percabangan, keputusan diambil berdasarkan ekspresi kondisi. Ekpresi berkondisi adalah sebagian dari pernyataan program yang menanyakan pertanyaan True atau False (Benar atau Salah) mengenai properti, variabel, atau data lain pada kode program.

Contoh: variabel Harga < 1000 akan menghasilkan nilai true (benar) apabila variabel Harga mengandung nilai kurang dari 1000, dan menghasilkan nilai false jika Harga mengandung nilai lebih besar atau sama dengan 1000. Sejumlah operator perbandingan dalam tabel dibawah ini dapat digunakan  pada ekspresi berkondisi.

7.2    IF Statement

If menggunakan operator pembanding (comparison operators) untuk mengeksekusi suatu pilihan dari 2 pilihan yang ada tergantung pada hasil pembandingan.

If Kondisi  Then

Perintah yang akan dieksekusi jika kondisi bernilai true

ELSE

Perintah yang akan dieksekusi jika kondisi bernilai false

End If

Sintak penggunaan :

Kondisi menunjukkan berbagai tipe statement atau fungsi yang menghasilkan nilai benar atau salah.

Berikut ini diberikan contoh kondisi yang berupa perbandingan antara variabel dengan nilai, variabel lain atau fungsi.

If x > 5 Then

y  = 10

End If

If x > y Then

y = x

End If

If x > Val(angka) Then

y = 20

End If

Contoh variable boolean yang mempunyai nilai true atau false:

Dim Benar as Boolean    ‘Benar merupakan var. boolean

. . .

If Benar Then

Y = 10

End If

Fungsi yang mengembalikan nilai true atau false.

Fungsi yang mengembalikan nilai true atau false:

If IsNumeric(x) Then

MessageBox “x adalah angka”

End If

Dalam penggunaannya, If .. Then statements dapat digunakan untuk mengevaluasi lebih dari satu kondisi untuk itu digunakan tambahan blok If…..Then …..ElseIf statements.

If x < 5 Then

MessageBox “Nilai x kurang dari 5”

ElseIf x < 10 Then

MessageBox “Nilai X antara 5 dan 9

ElseIf

MessageBox “Nilai x lebih dari 9

End If

Jika suatu kondisi tergantung pada kondisi lain yang sudah bernilai true (seperti  if hari = senin dan if  jam = 6.30 ) maka harus digunakan percabangan bersarang (nested If statements).

If hari = senin Then

If jam = 6.30 Then

…………

End If

End If

7.3       Contoh Program

Dalam sub bab berikut ini akan ditampilkan contoh program aplikasi lengkap

7.3.1      Program Theater PIKTI 21

Theater PIKTI 21 memiliki 4 gedung pertunjukan dengan tarif tiket yang berbeda – beda. masing – masing sebagai berikut:

Dengan memasukkan input nama gedung, seperti pada gambar 7.1, maka akan ditampilkan harga dari tiket dari gedung yang bersangkutan.

Gambar 7.1 Aplikasi PIKTI 21 Theater

  1. Jalankan IDE Visual Basic seperti yg telah dipelajari pada pertemuan 1.
  2. Pilihlah tipe Project standar EXE, jika dialog untuk memilih project tidak muncul maka Pilih New project dari menu File, maka Visual Basic akan menampilkan sebuah form kosong dengan caption Form1.
  1. Simpanlah project yang baru dibuat untuk keamanan dari kehilangan data. Untuk menyimpan pilih save As Project pada Menu File. Pada saat project tersebut disimpan ada 2 macam file yaitu

File Project (*.vbp) beri nama Contoh6_1.vbp

File form1  (*.Frm) beri nama Contoh6_1.frm

  1. Selanjutnya letakkan kontrol-kontrol seperti pada gambar.
  2. Gantilah properti dari masing-masing kontrol sebagai berikut :
Control Properti Setting Value
Form Name FrmPIKTI21
Caption PIKTI 21 Theater
Label Name lblJudul
Caption PIKTI 21
Font Size = 18
Label Name lblGedung
Caption Gedung (1,2,3,4):
Font Size = 12
Label Name lblTiket
Caption 00
Font 1 – Right Justify
Text Name txtGedung
Text
Command Button Name cmdHitung
Caption &Hitung
Command Button Name cmdKeluar
Caption &Keluar
  1. Ketik kode program berikut ini:

Option Explicit

Public Ged As Integer

Public tiket As Integer

Private Sub cmdHitung_Click()

Ged = Val(txtGedung.Text)

If (Ged = 1) Or (Ged = 2) Then

tiket = 8000

Else

tiket = 9000

End If

lblTiket.Caption = Str(tiket)

End Sub

Private Sub cmdKeluar_Click()

Unload Me

End Sub

7.3.2      Program Kereta Api PIKTI

Sebuah stasiun kereta api “PIKTI”  menyediakan 4 jenis tiket perjalanan sebagai berikut :

Setiap transaksi pembelian tiket, seorang pembeli ditanyakan jumlah dan jenis tiket yang akan dibeli olehnya.

Gambar 7.2 Aplikasi Stasiun PIKTI

  1. Jalankan IDE Visual Basic seperti yg telah dipelajari pada pertemua 1.
  2. Pilihlah tipe Project standar EXE, jika dialog untuk memilih project tidak muncul maka Pilih New project dari menu File, maka Visual Basic akan menampilkan sebuah form kosong dengan caption Form1.
  3. Simpanlah project yang baru dibuat untuk keamanan dari kehilangan data. Untuk menyimpan pilih save As Project pada Menu File. Pada saat project tersebut disimpan ada 2 macam file yaitu

File Project (*.vbp) beri nama Contoh7_1b.vbp

File form1  (*.Frm) beri nama Contoh7_1b.frm

  1. Selanjutnya letakkan kontrol-kontrol seperti pada gambar
  2. Gantilah properti dari masing-masing kontrol sebagai berikut :
Control Properti Setting Value
Form Name FrmKaPIKTI
Caption Stasiun PIKTI
Label Name lblJudul
Caption Stasiun PIKTI
Font Size = 18
Label Name lblTipeTiket
Caption Tipe Tiket:
Label Name lblJumlah
Caption Jumlah:
Label Name lblTiket
Caption 00
Alignment 1 – Right Justify
Text Name txtJumlah
Text 1
Command Button Name cmdtotal
Caption &Total
Command Button Name cmdKeluar
Caption &Keluar
ListBox Name lstTipeTiket
List Ekonomi
Bisnis
Eksekutif
Spesial
Kompartemen
  1. Ketiklah Kode program berikut ini :

Option Explicit

Private Sub cmdKeluar_Click()

End

End Sub

Private Sub cmdTotal_Click()

Dim harga As Currency

Dim total As Currency

If lstTipeTiket.ListIndex = 0 Then

harga = 1000

ElseIf lstTipeTiket.ListIndex = 1 Then

harga = 2000

ElseIf lstTipeTiket.ListIndex = 2 Then

harga = 3000

ElseIf lstTipeTiket.ListIndex = 3 Then

harga = 4000

Else

harga = 5000

End If

total = Val(txtJumlah.Text) * harga

lblTotal.Caption = Str(total)

End Sub

Private Sub Form_Load()

lstTipeTiket.ListIndex = 0

End Sub

7.4    Latihan

  1. Penentuan nilai seorang mahasiswa adalah sebagai berikut :

Nilai < 80          : A

65 < Nilai <= 80      : B

55 < Nilai <= 65      : C

40 < Nilai <= 55      : D

0   < Nilai <= 40      : E

Buatlah program untuk memberitahu nilai seorang mahasiswa suatu pelajaran. Inputan yang diberikan adalah nilai angka sedangkan ouputnya adalah nilai mahasiswa dalam huruf.  Untuk menyelesaikan masalah ini dapat digunakan salah satu cara yaitu menggunakan struktur If – Then – Else majemuk.

  1. Buatlah sebuah program untuk melakukan pengetesan pada sebuah tahun adalah tahun kabisat atau bukan. Inputan yang dimasukan adalah tahun, sedangkan output yang dihasilkan adalah keterangan apakah tahun tersebut adalah tahun kabisat atau bukan.

Catatan: tahun kabisat adalah tahun yang habis dibagi 4. Tahun abad (habis dibagi 100) yang tidak habis dibagi 400 bukan tahun kabisat seperti 1900, 1700, dll.

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: