Operator Logika dan Select … Case

8.1  Operator Logika

Selain operator pembanding, Visual Basic mendukung tambahan operator  yaitu And, Or, dan Not. Operator And, Or, dan Not dikenal dengan nama operator logika. Dengan menggunakan operator ini dua atau lebih test perbandingan dapat dilakukan.

And If (A>B) And (C<D) akan menghasil nilai true jika keduanya bernilai True. Karena ini nilai A harus lebih besar dari nilai B dan nilai C harus lebih kecil dari nilai D
Or If (A>B) Or (C<D) Akan bernilai True jika salah satu dari kedua ekpresi bernilai True. Karena itu nilai A Harus lebih besar dari nilai B atau nilai C lebih besar dari nilai D. Jika kedua ekpresi salah maka akan bernilai false
Not If Not(strAns=”Yes”) akan menghasilkan kebalikan dari nilai True/False yang dihasilkan. Jika strAns berisi string “Yes” maka akan bernilai False.
                        Xor If (A>B) Xor (C<D) Akan bernilai True jika hanya  satu dari kedua ekpresi bernilai True. Jika kedua ekspresi bernilai True atau kedua ekpresi bernilai False maka hasilnya False

Seperti yang terlihat pada tabel diatas, operator logika memungkinkan untuk membandingkan lebih dari satu perbandingan. Berikut ini contoh penggunaan dari operator logika sebagai pengganti dari nested if statement.

If (sngSales > 5000.00) Then

If (intUnitsSold > 10000) Then

sngBonus = 50.00

End If

End If

Dapat ditulis :

If (sngSales > 5000.00) And (intUnitsSold > 10000) Then

sngBonus = 50.00

End If

8.2       Select … Case Statement

Cara lain untuk menangani pengambilan keputusan dalam sebuah program adalah dengan menggunakan Select…. Case Statement, yang mampu menangani sejumlah kondisi dari satu variabel. Select …. Case serupa dengan If … Then ….. ElseIf, tetapi lebih efisien apabila percabangan bergantung kepada satu kondisi saja. Dengan menggunakan Select … Case sebagai pengganti dari If … Then … Else If, akan membuat program menjadi lebih sederhana.

Format penggunaan Select Case:

Select Case nama_variabel

Case nilai_1

Perintah yang akan dieksekusi jika memenuhi nilai_1

Case nilai_2

      Perintah yang akan dieksekusi jika memenuhi nilai_2

[Case Else]

Perintah yang akan dieksekusi jika tidak memenuhi semua

End Select

Struktur Select Case dimulai dengan kata Select Case dan diakhiri dengan kata End Select. nama_variabel dapat diganti dengan variabel, properti, atau ekpresi lain yang akan dijadikan sebagai kondisi. Sedangkan nilai_1, nilai 2 dapat diganti dengan angka, string atau nilai lain yang berkaitandengan nama_variable. Jika salah satu nilai sesuai dengan variabel, maka pernytaan di bawah kata case akan dijalankan dan Visual Basic akan melanjutkan mengeksekusi program setelah End. Anda dapat menggunakan kata case sebanyak mungkin dalam struktur select… case, dan anda juga dapat menyertakan lebih dari satu nilai pada kata case. Jika anda menyertakan banyak nilai setelah case, pisahkan dengan tanda koma.

Select Case intAge

Case 5: lblTitle.Caption = “Kindergarten”

Case 6: lblTitle.Caption = “1st Grade”

Case 7: lblTitle.Caption = “2nd Grade”

Case 8: lblTitle.Caption = “3rd Grade”

Case 9: lblTitle.Caption = “4th Grade”

Case 10: lblTitle.Caption = “5th Grade”

Case 11: lblTitle.Caption = “6th Grade”

Case Else: lblTitle.Caption = “Advanced”

End Select

8.3    Contoh

8.3.1   Program Theater PIKTI 21

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

Dengan input nama gedung 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.
  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 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
Alignment 1 – Right Justify
Text Name txtGedung
Text
Command Button Name cmdHitung
Caption &Hitung
Command Button Name cmdKeluar
Caption &Keluar
  1. Ketiklah Kode program berikut ini:

Option Explicit

Public Ged As Integer

Public tiket As Integer

Private Sub cmdHitung_Click()

Ged = Val(txtGedung.Text)

Select Case Ged

Case 1

tiket = 8000

Case 2

tiket = 8000

Case Else

tiket = 9000

End Select

lblTiket.Caption = Str(tiket)

End Sub

Private Sub cmdKeluar_Click()

Unload Me

End Sub

8.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.1 Aplikasi Stasiun PIKTI

 

  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.
  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
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
Font 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

Select Case lstTipeTiket.ListIndex

Case 0

harga = 1000

Case 1

harga = 2000

Case 2

harga = 3000

Case 3

harga = 4000

Case 4

harga = 5000

End Select

total = Val(txtJumlah.Text) * harga

lblTotal.Caption = Str(total)

End Sub

Private Sub Form_Load()

lstTipeTiket.ListIndex = 0

End Sub

8.4  Latihan

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 gunakan struktur case yang saudara ketahui.

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: