Program Sederhana Kondisi pada Qbasic:
Program untuk mengubah kilometer menjadi
centimeter.
Ambil misalnya 4 kilometer sebagai data.
Nama-nama variabel:
K
untuk kilometer,
CM untuk centimeter.
Rumus yang digunakan adalah: M = K dikalikan
100.000.
Programnya
adalah :
10 DATA 4
20 READ K
30 LET M = K * 100.000
40 PRINT K; “KILOMETER SAMA DENGAN”; CM;
“CENTIMETER”
50 END
Hasilnya
adalah :
4 KILOMETER SAMA DENGAN 400.000 CENTIMETER
Looping pada Qbasic adalah program yang
terdapat bagian yang dilaksanakan berulang kali.
REM Program Isi Data
INPUT “MASUKKAN NAMA ANDA “;NM$
INPUT “MASUKKAN UMUR ANDA “;UR%
INPUT “MASUKKAN TGL,BLN,THN HARI INI “;TG%,BL%,TH%
PRINT “NAMA : “;NM$
PRINT “UMUR : “;UR%
PRINT “TANGGAL : “;TG%
PRINT “BULAN : “;BL%
PRINT “TAHUN : “;TH%
END
INPUT “MASUKKAN NAMA ANDA “;NM$
INPUT “MASUKKAN UMUR ANDA “;UR%
INPUT “MASUKKAN TGL,BLN,THN HARI INI “;TG%,BL%,TH%
PRINT “NAMA : “;NM$
PRINT “UMUR : “;UR%
PRINT “TANGGAL : “;TG%
PRINT “BULAN : “;BL%
PRINT “TAHUN : “;TH%
END
Kondisi pada
QBASIC
Untuk mengubah urutan eksekusi program dari urutan semula memjadi urutan
sembarang.
Jenis kondisi :
a.
GOTO
b. IF...THEN..
c.
IF...THEN...ELSE...
d. SELECT CASE
Contoh dari penggunaan kondisi dalam QBASIC ,
INPUT :
CLS
INPUT ”
masukkan nilai anda : ” ; n
IF n >=0
AND n<=20 THEN PRINT “ Grade anda adalah E”
IF n>=21
AND n<=40 THEN PRINT “ Grade anda adalah D”
IF n>=41
AND n <=60 THEN PRINT “Grade anda adalah C”
IF n>=61 AND
n<=80 THEN PRINT “Grade anda adalah B”
IF n>=81
AND n<=100 THEN PRINT “Grade anda adalah A”
END
OUTPUT :
Pada program
ini memakai if yaitu suatu kondisi dimana bila kita memasukkan sebuah variabel
dimana terdapat sebuah batasan yang harus dipilih maka program akan berjalan
sesuai dengan perintah kondisi tersebut.
Perulangan pada Qbasic dibagi menjadi 2, yaitu :
1. Perulangan Tunggal : Untuk menghindari penulisan instruksi secara berulang (Looping). Qbasic menyediakan statement FOR NEXT. Dimana banyaknya interasi pengulangan dapat ditentukan.
2. Pengulangan Jamak : Dikenal sebagai NESTED LOOPING yang merupakan pengulangan yang terjadi didalam suatu pengulangan.
Contoh Program pengulangan pada QuickBasic :
CLS
FOR I = 2 TO 10 STEP –2
FOR K = 2 TO 1 STEP 2
PRINT K;
NEXT K
NEXT I
FOR I = 8 TO 2 STEP –2
FOR K = 2 TO 1 STEP 2
PRINT K;
NEXT K
NEXT I
END
Maka OutPutnya adalah seperti ini :
2
2 4
2 4 6
2 4 6 8
2 4 6 8 10
2 4 6 8
2 4 6
2 4
2
