Contoh Program Sederhana QBASIC

1. Membuat program dengan output "Halo, nama saya .... saya kuliah di UG kelas .... ,salam kenal"

Source Codenya kira-kira seperti ini:

CLS

INPUT "Nama :"; NAMA$

INPUT "Kelas :"; KELA$

PRINT "Halo, nama saya "; NAMA$ ;" saya kuliah di UG kelas "; KELA$ ;" ,salam kenal"

END

Hasil :

2. Sebuah Toko Buku mempromosikan tokonya dengan memberikan diskon sebesar 20% jika buku yang dibeli lebih dari 24 buku.

Source Codenya :

Hasil jika buku yang dibeli 60 buah (A >= 25)

Hasil jika buku yang dibeli 15 buah (A <>

Penjelasan : Dari program diatas kita bisa lihat tampilan dari hasil jika buku yang dibeli <= 24 dan >=25 buah. Pada tampilan >= 25 terlihat ada tampilan Harga dan Diskon sedangkan pada <= 24 tidak ada, nahh kalo yang itu bisa dilihat sendiri dalam algoritma IF A >=25-nya ada banyak, jadi semua statement A >= 25 itu menunjukkan rumus yang dipakai jika buku yang dibeli >=25 dan yang lainnya itu menunjukkan tampilan (tampilan Harga dan Diskon) jika buku yang dibeli >=25 buah lebih jelasnya lihat aja di bawah ini :

CLS : untuk membersihkan layar ketika program diaktifkan kembali

INPUT "Masukkan Jumlah Barang yang Dibeli ="; A : untuk memasukkan jumlah barang yang dibeli yang diberi simbol A

INPUT "Masukkan Harga Barang ="; B : untuk memasukkan harga barang yang diberi simbol B

IF A >= 25 THEN LET C = (A * B) – (A * B * 20 / 100) : menunjukkan rumus Total harga jika buku yang dibeli lebih dari 24 buah (A >= 25)

IF A >= 25 THEN PRINT “Harga = Rp.”; A * B : jika buku yang dibeli lebih dari 25 maka harga seharusnya yang dibayar (tanpa diskon) adalah A * B (banyak buku dibeli * harga)

IF A >= 25 THEN PRINT “Diskon = Rp.”; (A * B * 20 / 100) : jika buku yang dibeli lebih dari 24 buah maka dia mendapat diskon sebesar (A * B * 20 /100) (total harga tanpa diskon * 20%)

IF A >= 25 THEN PRINT “------------------------ (-)” : yang inisihh tampilan buat keren-kerenan aja

ELSE LET C = A * B : jika buku yang dibeli tidak lebih dari 24 maka total harga yang harus dibayar adalah A * B

END : program diakhiri