Pada posting kali ini saya akan meng-implementasikan looping pada Qbasic dengan setingan warna hijau biru, kurang lebih tampilan hasilnya seperti ini :
Penjelasan dan logika
- CLS : Menghapus screen. (Clear screen)
- INPUT “…”, sisi : Menerima nilai dari user yang akan ditampung didalam variable sisi
- PRINT “” : Menampilkan baris kosong
- FOR x = 1 TO sisi STEP 1 : Me-looping dari nilai awal x(1) sebanyak sisi(Jumlah yang user input) dengan step yang akan ditambah nialinya dengan 1
- FOR hijau = 1 TO x STEP 1
COLOR 2: PRINT “#”;
NEXT hijau
Looping pertama untuk # berwarna hijau. Pendeklarasian pertama dimulai dari angka 1 yang akan di looping sebanyak x dengan step hijau + 1. Sebagai contoh ketika nilai variable x bernilai 1, maka perulangan hijau akan dilakukan sebanyak 1 kali, x = 2 looping hijau 2 kali, dan seterusnya. Disini juga menggunakan tanda titik koma(;) yang berfungsi agar pencetakan # dicetak ke samping, tidak kebawah. - FOR biru = sisi TO x STEP -1
COLOR 3: PRINT “#”;
NEXT biru
Looping kedua untuk # berwarna biru. Pendeklarasian pertama dimulai dari variable biru bernilai sisi, jika user menginput nilai sisi =5 maka variable biru awalnya akan bernilai 5 pula. Akan di looping sebanyak nilai x dengan step biru – 1. Jika pada perulangan pertama dilakukan step penjumlahan, maka pada perulangan ini dilakukan step pengurangan yang bertujuan mendapatkan proses yang berkebalikan dengan perulangan sebelumnya dan akan mencetak ‘#’ berwarna biru. Berkebalikan proses ini tidak lain untuk mendapatkan pola pada output yang akan didapatkan nanti. - PRINT “” : Mencetak garis baru
- NEXT x : Melakukan penjumlahan +1 terhadap variable x.
- END : Instruksi bahwa program telah selesai