Contoh sederhana penggunaan select case dalam Qbasic

Statement :

CLS

PRINT "DAFTAR PILIHAN"

PRINT "1. BIODATA"

PRINT "2. LUAS PERSEGI PANJANG"

PRINT "3. EXIT"

INPUT "PILIHAN (1-3)", PIL

SELECT CASE PIL

INPUT "MASUKAN NAMA:"; A$

INPUT "MASUKAN NPM:"; B$

INPUT "MASUKAN KELAS:"; C$

PRINT "NAMA ANDA :"; A$

PRINT "NPM ANDA :"; B$

PRINT "KELAS ANDA :"; C$

CASE 2

INPUT "PANJANG :"; P

INPUT "LEBAR :"; L

PRINT "LUAS PERSEGI PANJANG :"; P * L

CASE 3

PRINT "EXIT"

END SELECT

END

Dan saat di run akan menghasilkan output berikut :

 Untuk memilih menu pilihan :

Untuk memilih menu nomor 1 :

memilih menu pilihan nomor 2 :

dan yang terakhir memilih exit :

kita bisa mengubah isi setiap case sesuai dengan yang kita inginkan, dan juga harus dipastikan bahwa statement yang kita tulis sudah benar, sehingga saat di run tidak terjadi masalah .

Apabila ketika kita run keluar kata “SELECT without END SELECT” berarti pada akhir statement tersebut kita lupa memberi statement “END SELECT”.

Yap, kira-kira itu contoh sederhana penggunaan select case, klo ada yang tau lebih banyak ayo kita share. Lebih banyak tahu lebih banyak ilmu yang kita dapet . ^^,