WHAT'S NEW?
Loading...

QBasic (contoh-contoh program sederhana, perulangan, menu, dll)


Apa itu QBasic?... pasti agan-agan pada bingungkan? nah,disini ane akan menjelaskan tentang QBasic.
Pada dasarnya Q-Basic, Q=Quick (cepat), dan Basicnya adalah Beginners’ All-purpose Symbolic Instruction Code (sebuah kelompok bahasa pemrograman tingkat tinggi). Itu baru pengertian dasarnya. lebih jelasnya Qbasic adalah salah satu bahasa pemrograman yang menggunakan bahasa basic, Qbasic sendiri singkatan dari Quick Basic yang merupakan salah satu produk Microsoft. Qbasic cukup baik untuk belajar dasar pemrograman. Bahasa Qbasic ini dapat dipelajari dari internet dan program

Tipe data pada Qbasic :
Tipe data numerik integer
Tipe Ukuran memory jangkauan nilai
Byte 1 byte 0 .. 255
Shortint 1 byte -128 .. 127
Integer 2 byte -32768 .. 32767
Word 2 byte 0 .. 65535
Longint 4 byte -2147483648


Tipe data numerik real
Tipe konstanta numerik real berkisar dari 1E-38 sampai dengan 1E+38, nilai numerik
real menempati memory sebesar 6 byte.

Tipe data karakter
Nilai karakter berupa sebuah karakter yang ditulis diantara tanda petik tunggal.

Tipe data string
Berupa kumpulan beberapa karakter yang terletak diantara tanda petik tunggal.

Tipe data boolean.
Tipe data ini mempunyai dua nilai yaitu true & false.

STATEMEN KONDISI

- Goto (kondisi tak bersyarat),seperti telah dijelaskan diatas

- if then + goto (kondisi bersyarat, hanya satu syarat)

- if then + else (kondisi bersyarat dengan 2 atau lebih syarat

- select case : menyeleksi atau mengeksekusi kondisi yang ditest


STATEMEN PERULANGAN

- For .. next
Mengulangi suatu perintah / instruksi dalam jumlah yang telah ditentukan, serta besar kenaikannya.

- Do while … loop
Mengulangi perintah selama suatu kondisi memenuhi syarat (true) dan berhenti bila tidak lagi memenuh syarat (false)

- Do until … loop
mengulangi instruksi selama kondisi tidak memenuhi syarat (false) dan berhenti bila kondisi memenuhi syarat (true)

- While … wend
sama dengan do while … loop tetapi bentuk penulisannya hanya satu dan tidak memiliki perintah exit untuk menghentikan proses yang berulang sebelum berakhir

Nih buat agan-agan n sista-sista yang mau download QBasic buka aja linknnya :
http://www.zid*du.com/download/146894...sic11.rar.html
Hapus tanda * nya





OUTPUTNYA:


codingnya:
CLS I AS INTEGER
PRINT "Rizki", "1dc01", "Depok"
GOSUB 10
PRINT "Fauzi", "1dc01", "Bogor"
GOSUB 10
END
10 PRINT STRING$<35, "--">
RETURN



OUTPUNYA:
menu:biodata, luas segitiga, deret, exit



pil 1.biodata


pil 2.Luas Segitiga


pil 3.Deret


pil 4.exit


pada pilihan exit maka program akan langsung keluar "Press any key to continue"

Codingnya:

CLS
DIM a AS INTEGER
LOCATE 5, 23
PRINT "Menu"
LOCATE 6, 20
PRINT "1.Biodata"
LOCATE 7, 20
PRINT "2.Luas Segitiga"
LOCATE 8,20
PRINT "3.Deret"
LOCATE 9,20
PRINT "4.EXIT"
LOCATE 10, 20
INPUT "Mau Pilih Yang Mana?", a
SELECT CASE a
CASE 1
DIM Nama AS STRING, Kelas AS STRING, NPM AS INTEGER
INPUT "Nama =", Nama
INPUT "Kelas =", Kelas
INPUT "NPM =", NPM
PRINT
COLOR 1
PRINT "Nama ="; Nama
PRINT "Kelas ="; Kelas
PRINT "NPM ="; NPM
CASE 2
DIM alas, tinggi AS SINGLE
INPUT "Alas =", a
INPUT "Tinggi =", t
LET L = a * t / 2
COLOR 9
PRINT "Luas Segitiga = a * t / 2 =";L
CASE 3
DIM u AS INTEGER
PRINT
INPUT "Masukan Nilai u=", u
PRINT
FOR x = 1 TO u
FOR y = 1 TO x
COLOR 5
PRINT y:
NEXT y
PRINT
NEXT x
CASE 4
GOTO 500
END SELECT
500 END

QBasic, contoh program menu Nama, Kelas, NPM, dan CETAK

PROGRAM:



OUTPUTNYA:

pil 1


pil 2


pil 3


pil 4



sedangkan jika kita pil 5 maka program akan langsung keluar "Press any key to continue"

codingnya:
CLS
DIM P AS INTEGER
10 PRINT "Menu"
PRINT "1.Input Nama"
PRINT "2.Input NPM"
PRINT "3.Input Kelas"
PRINT "4.Cetak Semua"
PRINT "5.EXIT"
INPUT "Pilihan Anda?", P
SELECT CASE P
CASE 1
CSL
DIM NM AS STRING
INPUT "Nama :", NM
GOSUB 10
CASE 2
CLS
DIM NPM AS LONG
INPUT "NPM :", NPM
GOSUB 10
CASE 3
CLS
DIM KLS AS STRING
INPUT "Kelas :", KLS
GOSUB 10
CASE 4
CLS
PRINT "Nama :"; NM
PRINT "NPM :"; NPM
PRINT "Kelas :"; KLS
GOSUB 10
CASE 5
CLS
PRINT "Exit"
END SELECT
END

PROGRAM SEGITIGA TERBALIK
PROGRAM


OUTPUTNYA:


Keterangan :

Saat menjalankan program, maka kita akan diminta memasukan angka, lalu akan muncul symbol *(karena di program yang di print adalah “*”) sebanyak angka yang kita masukan.

CODINGNYA:
CLS
INPUT “Masukkan Nilai: “, A
FOR B = A TO 1 STEP -1
FOR C = B TO 1 STEP -1
PRINT “*”;
NEXT
PRINT
NEXT B
END

3 komentar: Leave Your Comments

  1. MAU TANYA NIH GAN, ADA CONTOH PEMROGRAMAN QBASIC DIMANA 1 POROGRAM ITU TERDAPAT 10 APLIKASI YANG MEWAKILI SELURUH STATEMENT GAN ? BUAT REFERENSI GAN..
    MOHON PENCERAHANNYA ^_^

    BalasHapus
  2. boleh minta tlong seputar program QB ndag pak???sdang bgung nie

    BalasHapus

Berkomentarlah dengan bijak..