PROGRAM QBASIC

Maluk sira mai ita hamutuk aprende progammer liu husi lingua Qbasic..  peace tiha dt.

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

Contoh membuat Program untuk menghitung upah buruh Pada QBASIC dengan Spesifikasi:

1. NIB,NAMA,JAM KERJA, DAN JUMLAH ANAK (DI INPUT)

2. ONKOS KERJA = Rp 2500/JAM

3. TUNJANGAN ANAK = Rp 100.000/ANAK

4. GAJI KOTOR = ONKOS KERJA +TUNJANGAN ANAK

5. GAJI BERSIH = GAJI KOTOR DI POTONG PAJAK 5 %

(massukan data/coding di bawah ini kedalam QBASIC)

CLS
PRINT "MENGHITUNG UPAH BURUH"
INPUT "NIB="; NIB$                                           
INPUT "NAMA"; NM$
INPUT "JAM KERJA"; JAM
INPUT "JUMLAH ANAK"; ANAK
GATOR = (JAM * 2500) + (ANAK * 100000)
GABER = GATOR - (GATOR * 5 / 100)
PRINT "GAJI KOTOR ="; GATOR
PRINT "GAJI BERSIH ="; GABER

INPUT "HITUNG LAGI= [Y/N] "; HITUNG$

http://ekarivky.blogspot.com/2012/10/program-qbasic.html
  
 

donload program QBASIC bisa donload di link ini  http://www.zidddu.com/download/14689...sic11.rar.html