Kondisi Percabangan pada Visual Basic 6.0 : If Then dan Select Case (Tugas AP2B)
Percabangan merupakan
salah satu pernyataan yang digunakan untuk mengambil keputusan terhadap satu
atau beberapa kemungkinan. Kondisi percabangan yang ada pada visual basic
seperti IF THEN, IF THEN ELSE, SELECT
CASE.
Sekarang, saya akan mengunakan If Then dan Select Case sebagai contoh dari kondisi percabangan. If Then merupakan struktur percabangan dimana suatu ekspesi didalam suatu ekspresi akan dikerjakan jika kondisinya terpenuhi. Tetapi jika kondisi tidak terpenuhi maka ekspresi didalam struktur if tidak akan dijalankan sehingga akan melompat langsung ke dalam sruktur then. Sedangkan, Select Case adalah salah satu bentuk perintah kondisi dengan konsep memberikan kemungkinan nilai variabel yang ingin dicari.
Aplikasi Pembelian Album dengan menggunakan If Then dan Select Case
- Kondisi If Then digunakan untuk menampilkan Message Box, jika terjadi sebuah kesalahan dalam menginput data.
- Kondisi Select Case digunakan untuk menentukan harga dari album yang telah dipilih.
- Kondisi Select Case juga digunakan untuk menentukan diskon sesuai dengan jumlah album yang ingin dibeli
- Tampilan Form 1
- Properti yang digunakan sebagai berikut:
- Tampilan Form 1
- Properti yang digunakan sebagai berikut:
Form 1
|
||
Kontrol
|
Properti
|
Nilai
|
Label 1
|
Name
|
Judul1
|
BackStyle
|
0-Transparent
|
|
Caption
|
Nuna Lyx
|
|
Font
|
Beyond The Montains, Bold, 18
|
|
Label 2
|
Name
|
Judul2
|
BackStyle
|
0-Transparent
|
|
Caption
|
BTS ALBUM
|
|
Font
|
Brake a Leg! , Bold, 14
|
|
Label 3
|
Name
|
plhalbum
|
BackStyle
|
0-Transparent
|
|
Caption
|
Pilih Album
|
|
Font
|
Ms Sans Serif , Bold, 8
|
|
Label 4
|
Name
|
lblalbum
|
BackStyle
|
0-Transparent
|
|
Caption
|
Album
|
|
Font
|
Ms Sans Serif , Bold, 8
|
|
Label 5
|
Name
|
lblharga
|
BackStyle
|
0-Transparent
|
|
Caption
|
Harga
|
|
Font
|
Ms Sans Serif , Bold, 8
|
|
Label 6
|
Name
|
lbljumlah
|
BackStyle
|
0-Transparent
|
|
Caption
|
Jumlah
|
|
Font
|
Ms Sans Serif , Bold, 8
|
|
Label 7
|
Name
|
lbldiskon
|
BackStyle
|
0-Transparent
|
|
Caption
|
Diskon
|
|
Font
|
Ms Sans Serif , Bold, 8
|
|
Label 8
|
Name
|
lbltotal
|
BackStyle
|
0-Transparent
|
|
Caption
|
Total
|
|
Font
|
Ms Sans Serif , Bold, 8
|
|
Label 9
|
Name
|
lbljmhalbum
|
BackStyle
|
0-Transparent
|
|
Caption
|
Jumlah
|
|
Font
|
Ms Sans Serif , Bold, 8
|
|
Text 1
|
Name
|
Text 1
|
Caption
|
<kosong>
|
|
Font
|
Ms Sans Serif , Bold, 8
|
|
List 1
|
Name
|
listalbum
|
Font
|
Ms Sans Serif , Bold, 8
|
|
List
|
2 Cool 4 Skool
|
|
O!RUL8,2?
|
||
Skool Luv Affair
|
||
Dark & Wild
|
||
HYYH pt.1 dan 2
|
||
Young Forever
|
||
Wings
|
||
You Never Walk Alone
|
||
Love Yourself : Her
|
||
Love Yourself : Tear
|
||
Command
Button 1
|
Name
|
command1
|
Caption
|
Finish
|
|
Font
|
Ms Sans Serif , Bold, 8
|
|
Command
Button 2
|
Name
|
command2
|
Caption
|
Reset
|
|
Font
|
Ms Sans Serif , Bold, 8
|
|
- Coding program untuk memasukan List Album ke dalam ListBox
- Coding Program pada Command Button 1
- Coding program pada Command Button 2
Output
- Jika tidak memilih salah satu album yang ingin dibeli
- Jika tidak memasukan jumlah album yang ingin dibeli
- jika memasukan semua karakter(kec. integer) ke dalam kotak jumlah album yang ingin dibeli
- Jika membeli album kurang dari 5, maka tidak mendapatkan diskon
- Jika membeli album diantara 5 dan 15, maka mendapatkan diskon sebesar 10%
- Jika membeli album lebih dari 15, maka mendapatkan diskon sebesar 20%
- Jika menekan tombol reset
Nama : Kristia Hadisty
NPM : 13117247
Kelas : 1KA31
Komentar
Posting Komentar