STRUKTUR KENDALI PERCABANGAN
Tujuan Instruksi Khusus : 1. Mengetahui dan memahami tentang percabangan (seleksi) 2. Mengerti
dan
memahami
perbedaan
jenis
struktur
kendali
percabangan Visual Basic 3. Mampu membuat program tentang kendali percabangan
P6.1. TEORI Struktur kendali percabangan digunakan untuk memutuskan kode program mana yang akan dikerjakan berdasarkan suatu kondisi. Ada dua bentuk struktur kendali keputusan, yaitu : 1. Struktur IF…THEN ... 2. Struktur SELECT…CASE ...
2.1.
STRUKTUR IF ... THEN ... Pernyataan IF…Then digunakan untuk mengeksekusi satu/ lebih
kondisi.Bentuk penulisan (syntax) struktur IF…THEN :
IF
THEN
Gambar 2.1. Syntax If ... Then
Bila bernilai True maka akan dikerjakan.
23
Pernyataan If…Then…Else untuk menyeleksi suatu kondisi, bila kondisi
benar maka statement yang diproses setelah then dan bila
kondisi salah maka statement yang diproses setelah else.
IF THEN ELSE END IF Gambar 2.2. Syntax If ... Then ... Else
Bila bernilai True maka akan dikerjakan, tetapi bila bernilai False maka yang akan dikerjakan.
2.2.
STRUKTUR SELECT ... CASE ... Bila
penyeleksian
tertentu.Gunakan
tergantung
pada
nilai
dari
variabel
pernyataan select…case. Penggunaan select…case
lebih baik dari if…then…else untuk mengulang test suatu variabel.Bentuk penulisan (syntax) struktur SELECT…CASE : SELECT CASE CASE CASE CASE [CASE ELSE ] END SELECT 24
Gambar 2.3. Syntax Select ... Case
Bila sesuai dengan maka akan dikerjakan, dan seterusnya. Tetapi bila tidak ada yang sesuai dengan sampai dengan maka yangakan dikerjakan.
2.3.
OBJEK CHECKBOX
Gambar 2.4. Icon CheckBox
Unit ini akan memberi perintah benar/salah atau ya/tidak. Memungkinkan untuk memilih beberapa pilihan sekaligus dalam suatu kelompok pada saat bersamaan (awalan : chk). Berikut ini adalah property dari check box yang sering digunakan. Properti
Keterangan Untuk menentukan nilai dari item Check Box yang secara default dipilih pada saat aplikasi dijalankan.
Value
0 – Uncheck
: item pada Check Box tidak dipilih
1 – Check
: item pada Check Box dipilih
2 – Grayed
: item pada Check Box berwarna abu-abu
Untuk menentukan jenis dari Check Box 0 – Standard : kontrol Check Box bergaya standar Style
1 – Graphical : kontrol Check Box mirip seperti Command Button, jika tombol ini dipilih ia akan tampak masuk ke dalam
25
2.4.
OBJEK OPTION BUTTON
Gambar 2.5. Icon Option Button Unit ini memiliki fungsi untuk membentuk grup pilihan, namun hanya memungkinkan pemakai untuk memilih salah satu dari beberapa pilihan yang ada pada satu grup (awalan : opt). Berikut ini adalah property dari option button yang sering digunakan. Properti
Keterangan Untuk menentukan nilai letak tombol OptionButton relatif
Alignment
pada teks Caption-nya 0 – Left Justify
: tombol berada di sebelah kiri teks
1 – Right Justify : tombol berada di sebelah kanan teks Menentukan apakah suatu Option Button secara default
Value
2.5.
terpilih pada saat aplikasi pertama kali dijalankan.
OBJEK FRAME
Gambar 2.6. Icon Frame
Merupakan unit kontrol yang mengidentifikasi sebuah grup kontrol dan frame bertindak sebagai parent kontrol (awalan : fra). Berikut ini adalah property dari frame yang sering digunakan. Properti
Keterangan
Caption
Judul yang akan ditampilkan pada frame
Font
Mengubah jenis dan ukuran huruf untuk frame
26
P6.2. CONTOH KASUS
Merancang User Interface
Mengisikan Property Kontrol OBJECT
Form1
Image1
Label1
Text1
Command1
PROPERTIES
VALUE
Caption
Login
StartupPosition
2 – CenterScreen
Stretch
True
Picture
Sonic.jpg
Visible
True
Caption
Masukkan Password
Alignment
2 – Center
Caption
(Kosong)
PasswordChar
*
Caption
&OK
Default
True
27
Coding Program Private Sub Command1_Click() If UCase$(Text1.Text) = "GUNDAR" Then MsgBox "Password benar", vbInformation, "Password" End Else MsgBox "Password salah!!! Silahkan ulangi lagi.", vbInformation, "Password" Text1.Text = "" Text1.SetFocus End If End Sub
28
P6.3. LATIHAN
Private Sub Command1_Click() If Check1.Value = 1 & Check6.Value = 1 Then Text1.Text = "" Text1.Text = " Anda cocok berprofesi di bidang Science" ElseIf Check2.Value = 1 & Check5.Value = 1 Then Text1.Text = "" Text1.Text = " Anda cocok berprofesi di bidang Sosial" ElseIf Check3.Value = 1 & Check4.Value = 1 Then Text1.Text = "" Text1.Text = " Anda cocok berprofesi di bidang Olah Raga" Else Text1.Text = " Anda cocok berprofesi di bidang apa saja" End If End Sub
29
1. Berapa jenis kah obyek yang digunakan dalam program ini : 5 jenis 2. Sebutkan jenis obyek yang digunakan : Label, TextBox, Command Button, Frame dan CheckBox 3. Berapa kondisi percabangankah yang dapat dilakukan program : 4 kondisi 4. Dengan menggunakan checkbox, apakah dapat dipilih semua pilihan : Ya
30