Belajar Pemrograman BASIC dengan QBASIC (2)

Selanjutnya, saya mau ngejelasin mengenai intruksi-intruksi atau beberapa pernyataan yang dapat digunakan:

• rem ‘..’  ,menampilkan penjelasan sesuatu tanpa mempengaruhi program, bisa diletekkan di mana saja
• cls menghapus layar output setelah program di jalankan kembali
• dim menjelaskan tipe data dari variabel, contoh: dim banu as integer, berarti variabel banu sebagai integer.
• print menampilkan hasil pemrosesan di layar, seperti contoh penjelasan output di atas,
• for…=…to …….next mengulang pernyataan, contoh:

for a=1 to 5

print “BANU”

next a

end

outputnya:

BANU

BANU

BANU

BANU

BANU

• goto digunakan untuk lompat pada baris tertentu, jika menggunakan nomer baris pada pengkodingan

cls

10 a=2

20 b=5

30 c=a+b

40 if c>10 then {goto 60} else print c {jadi, kalo c lebih besar dari 10 maka lompat ke baris nomor 60, jika tidak maka akan di print nilai c}

50 endif

60 d=c+10

70 print d

80 end

• do…loop until… digunakan untuk mengulang pernyataan juga, contoh:

cls

dim a as integer

a = 0

do

print “Hai banu!”

a = a + 1

loop until a = 5

• while…wend, mengulang peryataan juga, namun konsepnya berbeda, contohnya

dim x as integer

x = 0

while x < 5

x = x + 1

print x

wend

• if…then…else pernyataan yang memberikan kondisi, contoh bisa dilihat di contoh program goto
• Select Case…case1,case2, ….case else.pernyataan yang memberikan pilihan. contoh (coba ketikkan program ini di QBASIC agar lebih mengerti):

print “1. Main PES 2011″

print “2. Main SIMS3″

print “3. Exit”

input “Enter your choice”;

select case choice

case 1

PRINT “Kamu memilih PES 2011″

case 2

PRINT “Kamu memilih SIMS3″

case 3

print “Selamat tinggal”

end

case else

print “Gak ada dalam pilihan”

end select

• Locate untuk menempatkan tampilan pada posisi baris dan kolom, contoh:

locate 12,4

print “banu” {maka “banu” akan ditampilkan pada posisi baris ke 12 kolom ke 4}

• data….read membaca data dengan variabel, data dan read selalu berhubungan,contoh

data banu,13,belajar basic

read var1$,nomor,var2$

print nomor {maka akan menampilkan “13” karena variabel yang bernilainomoradalah “13“}

end

• colour {warna tulisan} ,{warna latar}memberikan warna tulisan dan background tulisan pada program (tambahkan perintah cls dibawahnya untuk mewarnai seluruh latar)
• colour {warna tulisan}memberikan warna tulisan saja
• colour  ,{warna latar} memberikan warna background tulisan pada program saja

Nomer Warna 0 Black 8 Grey 1 Blue 9 Light Blue 2 Green 10 Light Green 3 Cyan 11 Light Cyan 4 Red 12 Light Red 5 Magenta 13 Purple 6 Brown 14 Yellow 7 White 15 Light White.

Sekarang saya akan menjelaskan tentang penggunaan statement-statement tersebut dalam beberapa program:

• Mencari bilangan terbesar di dalam data:

10 DATA 9,14,5,4

20 READ L

30 READ B

40 IF L>=B THEN 60

50 LET L=B

60 PRINT L

70 END

Mau yang lebih kompleks ?? yok saya tambahin,

10 DATA 3,5,12,7,9,8,15,4,13

20 READ B

30 FOR K= 1 TO 8

40 READ X

50 IF B>=X THEN 70

60 LET B=X

70 NEXT K

80 PRINT B

90 END

• Membuat program yang berisi pengacakan , contohnya pelemparan koin:

10 LET A=0

20 LET G=0

30FOR K= 1 TO 100

40 IF RND<.5 THEN 80

50 PRINT “G”;

60 LET G=G+1

70 GOTO 100

80 PRINT “A”;

90 LET A=A+1

100 NEXT K

110 PRINT

120 PRINT A;”ANGKA”

130 PRINT G;”GAMBAR”

140 END

Sebelum menuju contoh program selanjutnya, di bawah ini sudah ada fungsi matematika dalam QBASIC:

• sinus                : SIN(X)             X adalah sudut dalma radian, 1 drajat=p/180 radian
• cosinus           : COS(X) X adalah sudut dalma radian, 1 drajat=p/180 radian
• tangens           : TAN(X)          X adalah sudut dalma radian, 1 drajat=p/180 radian
• akar                  : SQR(X)
• harga mutlak: ABS(X)
• exponensial  : EXP(X)
• logaritma       : LOG(X)
• arcustangen  : ATN(X)
• menghapus pecahan: INT(X)
• bilangan acak: RND

Contoh program Sinus:

LET D= 45

LET R+D*3.14159/180

PRINT “SINUS”;D;”DERAJAT ADALAH”; SIN(R)

END

Sampai postingan ini baru itu aja yang bisa saya bagim karna memang itu doang yang baru saya pahami,hehehe. Kita kan lanjut pada postingan ketiga nantinya. GOOD BYE !!!

download pdf belajar Qbasic di sini