Kondisi pada QBasic

      

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

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 adalah merupakan suatu kondisi yang memenuhi untuk melakukan perulangan statement tertentu sampai kondisi tersebut tidak terpenuhi sehingga perulangan dihentikan.
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
PRINT
NEXT I
FOR I = 8 TO 2 STEP –2
FOR K = 2 TO 1 STEP 2
PRINT K;
NEXT K
PRINT
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