SELECT CASE adalah salah satu bentuk perintah kondisi dalam Qbasic selain IF THEN. Dengan konsep memberikan kemungkinan nilai variabel yang ingin dicari.
Bentuk umum:
SELECT CASE <var>
CASE <kemungkinan 1 nilai var>
Statemen
CASE <kemungkinan 2 nilai var>
Statemen
....
....
CASE <kemungkinan n nilai var>
Statemen
END SELECT
....
END
Berikut saya akan memberika beberapa contoh:
Contoh 1: Nilai
CLS
INPUT "Nilai Ujian = ",Nil
SELECT CASE Nil
CASE IS > 90
ket$ = "A"
CASE IS > 80
ket$="B"
CASE IS > 70
ket$ = "C"
CASE IS <=70
ket$ = "D"
END SELECT
PRINT "Keterangan = ", ket$
END
Contoh 2 : Diskon Belanja
CLS
INPUT "Berapa Jumlah Belanja = ",total
SELECT CASE total
CASE 150000 TO 200000
disc = total * .1
CASE 200000 TO 300000
disc = total * .15
CASE 300000 TO 400000
disc = total * .2
CASE IS > 400000
disc = total * .25
END SELECT
PRINT "Discount = ", disc
PRINT "Bayar = ", (total-disc)
END
Contoh 3 : pembayaran PDAM
CLS
INPUT "Meteran Awal = ", aw
INPUT "Meteran Akhir = ", ak
pakai = ak - aw
abo = 20000
PRINT "Pemakaian = "; pakai
SELECT CASE pakai
CASE IS > 40
biaya = (pakai * 4500) +50000
CASE IS > 30
biaya = pakai * 3000
CASE IS > 20
biaya = pakai * 2000
CASE IS > 10
biaya = pakai * 1500
CASE IS <=10
biaya = 0
END SELECT
PRINT "Pembayaran = " ; abo+biaya
END
Contoh 4 : Ganjil Genap
CLS
INPUT "Bilangan = ", bil
a = bil MOD 2
SELECT CASE a
CASE 1
ket$ = "Adalah Bilangan Ganjil"
CASE 0
ket$ = "Adalah Bilangan Genap"
END SELECT
PRINT " "
PRINT bil;
PRINT ket$
END
Sekian soal SELECT CASE, jika ada contoh program yang tidak bisa jalan atau salah,, tolong kasih tau..
oh ya jangan lupa dikomen.
oh ya jangan lupa dikomen.
9 comments:
kalo yang IF ada gk?
wah,, sen ijin copas ya buat tugas kuliah w.
nim : sabar ya,, untuk yang if akan menyusul..
priska : monggo di kopas,, w seneng kok kalo tulisan w bisa berguna buat orang lain.
kak, ada softwr qbasic nya gk kak?
Ada kok, mw? Kasih email aja, nanti di kirimin.
Itu betul bro yg contoh 2 ane masukin nilai 90 malah dapet B, dan ane masukin nilai 80 malah dapet C dan seterus nya mohon jawaban nya ?
bener kok bro. kan dapet A kalo nilainya >90 (lebih besar dari 90).
klo mau 90 jd A,, ganti aja tanda > jadi >=
thanks dah mau komen
kalo yg contoh ke 2 itu dari mn dapet nya
CASE 150000 TO 200000
disc = total * .1
itu kah hasil nya discount 15.000 jumlah belanja 150.000 bayar nya 135.000 itu kan discount nya 1% bro bkn nya 10% ?
itu total*.1 maksudnya total*0.1 ,, 0.1 sama aja 10%. jd emang discount nya 10% bukan 1%
Post a Comment