Jumat, 01 Februari 2013

Program “range nilai” menggunakan QBASIC

Program “range nilai” menggunakan QBASIC 


20 CLS
INPUT "Masukan Nilai Anda : ", a
IF a >= 90 AND a <= 100 THEN
PRINT "A"
ELSEIF a >= 80 AND a < 90 THEN PRINT "B"
ELSEIF a >= 70 AND a < 80 THEN PRINT "C"
ELSEIF a >= 60 AND a < 70 THEN PRINT "D"
ELSEIF a < 60 THEN PRINT "E"
ELSE
PRINT "Wrong Input, Please Try Again"
END IF
INPUT "Ingin Masukan Nilai Lain ? (Y/N) ", N$
IF N$ = "Y" THEN 20
IF N$ = "N" THEN
GOTO 100
END IF
100 END




Keterangan : 

CLS berfungsi untuk membersihkan layar dengan warna latar belakang. Dalam contoh program diatas terdapat angka sebelum CLS, angka tersebut bisa disebut nomor baris yang berfungsi untuk penanda untuk membantu proses looping.

INPUT "Masukan Nilai Anda : ", a
digunakan untuk membaca nilai data yang diketikkan melalui papan ketik dan memberikan nilai data tersebut pada suatu variable yang ditulis di belakang statement input dalam hal ini “a”.

IF...THEN...ELSE
Statement tersebut merupakan kendali yang selalu melakukan test terhadap kondisi tertentu, dalam contoh program diatas digunakan statement IF..THEN ELSE dengan banyak baris. Jadi bentuk umumnya :
IF kondisi 1 THEN
Statement 1
ELSEIF kondisi 2 THEN
Statement 2
.
.
ELSE
Statement n
ENDIF

Berikutnya terdapat input yang berbentuk string, dalam contoh diatas yaitu statement.
INPUT "Ingin Masukan Nilai Lain ? (Y/N) ", N$
Fungsi string itu sendiri untuk membangkitkan sejumlah karakter tertentu.

Statement
IF N$ = "Y" THEN 20
IF N$ = "N" THEN
GOTO 100
statement goto berguna untuk melompatkan proses eksekusi ke suatu baris yang diberi nomor baris (dalam hal ini 20 dan 100) atau label tanpa harus mengetest suatu kondisi, jadi jika dimasukan string “Y” maka akan kembali ke nomor baris 20 / statement CLS. Dan jika dimasukan string “N” maka akan ke nomor baris 100 / statement END.

END, untuk mengakhiri suatu program.




Tidak ada komentar: