Contoh Penggunaan QBASIC

ehm,ehm....cek,cek,,,,ok!

Di postingan kali ini saya ingin mencoba membuat postingan tentang "Membuat Bilangan genap Sampai 80 dan Contoh Deret Bergoyang".  

Dalam pembuatan program ini saya menggunakan aplikasi QBASIC, bisa didownload di link tersebut. Mungkin penulisan program saya ini masih banyak kesalahan, jadi saya harap jika ada yang lebih mengerti tolong saya mohon koreksinya. Ok, langsung saja.

Program bilangan genap sampai 80 :

CLS

PRINT "Bilangan genap sampai 80"

PRINT "++++++++++++++++++++"

n = 1

10 B = 2 * n

IF B = 2 * n

PRINT B,

n = n  + 1

GOTO 10

20 END

Penjelasan :

1. Program akan membuat bilangan genap dari angka 2 sampai 80. Pertama program akan mengeluarkan "Bilangan genap sampai 80". 
2. Kemudian mengeluarkan lagi "+++++++++++++++++++++++++++++++" (tentunya tanpa tanda kutip). 
3. Program membaca n = 1.
4. Selanjutnya program akan membaca nilai B adalah hasil kali dari 2 dikali n. 
5. Setelah itu program akan membaca jika nilai B lebih besar dari 80 maka lanjutkan ke baris 20, tapi jika tidak program akan mengeluarkan nilai B. 
6. Kemudian program akan menjumlahkan nilai n yang merupakan hasil tambah dari n (sebelumnya) dengan 1. 
7. Setelah itu program akan mengulang ke baris 10, dan terus berulang sampai nilai B menjadi 80.

Program "Contoh Deret bergoyang" :

CLS

PRINT "Contoh Deret Bergoyang"

PRINT "++++++++++++++++++++++++"

A = -3

PRINT A,

10 SUKU = A * -2

IF SUKU > 400 THEN 20

PRINT SUKU,

A = A * -2

GOTO 10

20 END

Penjelasan:

Kurang lebih sama dengan program pertama, hanya saja operasinya yang berbeda.

1. Program akan membuat bilangan deret bergoyang (-,+,-,+,.....n). Pertama program akan mengeluarkan "Contoh Deret Bergoyang". 
2. Kemudian mengeluarkan lagi "+++++++++++++++++++++++++++++++" (tentunya tanpa tanda kutip). 
3. Program membaca A = -2. Kemudian program mengeluarkan nilai A.
4. Selanjutnya program akan membaca SUKU, yang merupakan hasil kali dari A dikali -2. 
5. Setelah itu program akan membaca jika nilai SUKU lebih besar dari 400 maka lanjutkan ke baris 20, tapi jika tidak program akan mengeluarkan nilai SUKU. 
6. Kemudian program akan menjumlahkan nilai A yang merupakan hasil kali dari A (sebelumnya) dengan -2. 
7. Setelah itu program akan mengulang ke baris 10, dan terus berulang sampai nilai SUKU menjadi 400.

Penjelasan statemen :

1. CLS : digunakan agar saat di running output tidak keluar berulang-ulang.  
2.  PRINT atau "?" (tanpa tanda kutip) : digunakan untuk mencetak .
3. IF....THEN : digunakan untuk mengecek suatu kondisi. Contoh dalam bahasa indonesia, JIKA B lebih besar dari 80 KEMUDIAN pergi ke 20END. 
4. GOTO : digunakan untuk meloncati ke suatu nomor atau baris tertentu.
5. END : akhir dari statemen.

Hasil dari kedua program :

Sekian dan terimakasih dari saya. Semoga tutorial ini dapat membantu para pembaca yang sedang belajar membuat program dari QBASIC ini, dan semoga saya mendapat masukkan karena mungkin ada yang salah dengan penjelasan saya.