Statement IF...Then...Else dan Statement Case

Kuliah Algoritma Pemrograman QBasic

Statement If ... Then ... Else

struktur kondisi if, struktur ini dibentuk dari pernyataan if dan sering digunakan untuk menyeleksi suatu kondisi tunggal. bila proses yang diseleksi terpenuhi atau bernilai benar, maka pernyataan yang ada di dalam blok if akan diproses atau dikerjakan.

Struktur If.. Else.., struktur ini minimal terdapat dua pernyataan. Jika kondisi yang diperiksa bernilai benar atau terpenuhi, maka kondisi pertama dilaksanakan dan jika kondisi pertama salah maka pernyataan kedua yang dilaksanakan.

Struktur If..Then.. digunakan untuk melakukan pengecekan terhadap beberapa kondisi.

Struktur If..Then..Else.. digunakan apabila kondisi bernilai benar ataupun tindakan yang akan dijalankan kalau kondisi salah. Struktur ini terdiri dari dua macam yaitu If..Then..Else satu baris dan If..Then..Else.. banyak baris

Contoh Program :
CLS
INPUT "Nilai Akhir ="; x
IF x >= 60 THEN
Print "Lulus"
ELSE
Print "Gagal"
END IF
END

- END IF pada program lebih dari 2 kondisi , digunakan sebanyak IF yang dijalankan.
- Statement Terakhir Selalu Setelah ELSE Tanpa menggunakan IF Kembali. 

Statement Case

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

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”.