Contoh Program CASE

90 CLS
DIM a AS INTEGER
PRINT TAB(2); "----------- MENU ------------"
PRINT
PRINT TAB(2); "1. Program Biodata"
PRINT TAB(2); "2. Program Pengulangan"
PRINT TAB(2); "3. Exit"
PRINT
PRINT TAB(2); "-----------------------------"
PRINT
PRINT TAB(2); "-----------------------------"
LOCATE 8, 2
INPUT "Masukan pilihan : ", a
SELECT CASE a
CASE 1
100 CLS
PRINT TAB(2); "Program Biodata"
PRINT
LOCATE , 2
INPUT "Masukan Nama : ", nama$
LOCATE , 2
INPUT "Masukan Kelas : ", kelas$
LOCATE , 2
INPUT "Masukan NPM : ", npm$
CLS
PRINT TAB(2); "Hasil Program"
PRINT
PRINT TAB(2); "Nama  : "; nama$
PRINT TAB(2); "Kelas : "; kelas$
PRINT TAB(2); "NPM   : "; npm$
PRINT
PRINT
INPUT "Anda mengulang program ini kembali (y/n) : ", z$
IF z$ = "Y" OR z$ = "y" THEN 100
PRINT
PRINT
INPUT "Anda ingin kembali ke MENU (y/n) : ", b$
IF b$ = "Y" OR b$ = "y" THEN 90
CASE 2
50 CLS

LA Q-Basic III (Last)

10 CLS
COLOR 15
DIM a AS INTEGER
PRINT ; "--------MENU--------"
PRINT
PRINT ; "1. Program Biodata"
PRINT ; "2. Program For-Next"
PRINT ; "3. Program Do Until"
PRINT ; "4. Program Do While"
PRINT ; "5. EXIT"
PRINT
PRINT ; "--------------------"
INPUT "Masukan Angka : ", a
SELECT CASE a
CASE 1
CLS
PRINT "Program Biodata"
PRINT "---------------"
PRINT
INPUT "Masukan Nama Anda  : ", nama$
INPUT "Masukan Kelas Anda : ", kelas$
INPUT "Masukan NPM Anda   : ", npm$
CLS
PRINT "BIODATA ANDA"
PRINT "------------"
PRINT
PRINT "Nama Anda : "; nama$
PRINT "Kela Anda : "; kelas$
PRINT "NPM Anda  : "; npm$
20 LOCATE 25, 80
INPUT "", p
CLS
INPUT "Tekan Enter untuk kembali ke menu !", o
GOTO 10
END

Tugas LA QBasic II

PROGRAM 1
CLS
DIM a AS STRING
DIM b AS STRING
DIM c AS STRING
DIM n1, n2 AS INTEGER
PRINT "-------------------------------------------------------------"
PRINT "Program Menghitung Kelulusan Mahasiswa"
PRINT "-------------------------------------------------------------"
PRINT
INPUT "Masukan Nama Mahasiswa : ",a
INPUT "Masukan NPM Mahasiswa : ",b
INPUT "Masukan Kelas Mahasiswa : ",c
INPUT "Masukan nilai tugas pertama : ",n1
INPUT "Masukan nilai tugas kedua      : ",n2
LET lulus = (n1+n2)/2
CLS
PRINT "-------------------------------------------------------------"
PRINT "Hasil Kelulusan Mahasiswa"
PRINT "-------------------------------------------------------------"
PRINT
PRINT "Nama Mahasiswa : ";a
PRINT "NPM Mahasiswa   : ";b
PRINT "Kelas Mahasiswa   : ";c
IF lulus > 60 THEN PRINT "Anda Lulus dengan Nilai ";lulus,  
Else PRINT "Anda Tidak Lulus dengan Nilai ";lulus
END

Tugas LP QBasic II

1.    Apa yang kamu ketahui tentang LOOPING ?

2.    Sebutkan dan jelaskan bentuk umum statement LOOPING dalam QBasic ?

3.    Buatlah contoh sederhana dari program LOOPING ?

1. Looping :

merupakan suatu kondisi yang memenuhi untuk melakukan perulangan statement tertentu sampai kondisi tersebut tidak terpenuhi sehingga perulangan dihentikan.

2. Bentuk Umum

Bentuk Umum Statement Perulangan :

FOR … NEXT

         Digunakan untuk mengontrol jalannya perulangan pada program, dimana statement tersebut akan mengalami perulangan selama kondisi atau pernyataan masih memenuhi syarat.

Tugas LP Q-Basic

Soal :

1. Apa yang dimaksud dengan kondisi pada q-basic ?
2. Sebutkan bentuk umum kondisi pada q-basic ?
3. Buat program kondisi pada q-basic ?

1.      Perintah kondisi atau perintah if then perintah  yang  digunakan  untuk  melakukan  pengecekan  suatu  kondisi  abila  kondisi  tersebut  dipenuhi.  Perintah  ini  berhubungan erat dengan operasi logika dan dapat ditulis dalam  dua bentuk yaitu if dengan satu baris perintah saja dan if dengan  banyak baris perintah.  If dengan satu baris perintah digunakan untuk melakukan  pengecekan terhadap satu kondisi saja.

Tugas LA Q-Basic

Proram Biodata
CLS
DIM k AS STRING
DIM n AS STRING
DIM m AS STRING
PRINT "Masukan Biodata Anda"
PRINT "*****************"
PRINT
INPUT "Masukan nama anda : ",k
INPUT "Masukan NPM anda : ",n
INPUT "Masukan kelas anda : ",m
CLS
PRINT "BIODATA ANDA"
PRINT "***********"
PRINT
PRINT "Nama Anda : ";k
PRINT "NPM Anda : ";n
PRINT "Kelas Anda : ",m
END