SELECT CASE - QBASIC

SELECT CASE - QBASIC

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