10 Okt 2010

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.

3 komentar:

Dea Damara Hidya mengatakan...

:f

pebru archuleta mengatakan...

Programnya salah http://img413.imageshack.us/img413/2440/sebel.gif

Irfan Web'Blog mengatakan...

yang mana yang salahnya ya?