Quick Basic

1. Pengkodean (coding) Program 2

2. Logika Program 2

a. Berikan perintah CLS (Clean Screen) untuk membersihkan layar dengan disertai Line Number 10
b. Berikan perintah PRINT (cetak) untuk “>>>MENU<<<”, “1. Biodata”, “2. Luas Persegi”, “3. Keluar” yang   masing-masing diberi Line Number dari 20 – 50.
c. Berikan perintah INPUT (masukan) untuk variabel yang akan dimasukan ke pil, dengan ketentuan variabel yang dimasukan antara 1-3
d. Berikan perintah SELECT CASE kepada pil, sehingga perintah CASE ini berlaku untuk variable antara 1-3 saja
e. Jika variabel yang dipilih adalah 1 (CASE 1), maka perintah yang ada di CASE 1 akan berjalan. Perintahnya yaitu :

• Perintah CLS (Clean Screen) untuk membersihkan layar
• Perintah INPUT (masukan) untuk variabel yang akan dimasukan ke nama$,  variabel nama$ itu sendiri merupakan data String
• Perintah INPUT (masukan) untuk variabel yang akan dimasukan ke npm$,  variabel npm$ itu sendiri merupakan data String
• Perintah GOTO 20 diberikan agar program kembali ke Line Number 20

f. Jika variabel yang dipilih adalah 2 (CASE 2), maka perintah yang ada di CASE 2 akan berjalan. Perintahnya yaitu :

• Perintah CLS (Clean Screen) untuk membersihkan layar
• Perintah INPUT (masukan) untuk variabel yang akan dimasukan ke P
• Perintah INPUT (masukan) untuk variabel yang akan dimasukan ke L
• Variabel n adalah hasil kali antara variabel P dengan variabel L
• Berikan perintah PRINT (cetak) kepada variabel n
• Perintah GOTO 20 diberikan agar program kembali ke Line Number 20

g. Jika variabel yang dipilih adalah 3 (CASE 3), maka perintah yang ada di CASE 3 akan berjalan. Perintahnya yaitu END SELECT untuk mengakhiri perintah CASE, dan perintah END untuk mengakhiri program.

3. Keluaran (output) Program 2

a. Keluaran (output)  jika program mulai dijalankan

b. Keluaran (output)  jika dipilih variabel 1

c. Keluaran (output)  jika dipilih variabel 2

d. Keluaran (output) jika dipilih variabel 3

Selamat datang di FreakzFiles.Blogspot.com. Kalau mau tanya-tanya sesuatu tentang blog ini tulis aja di buku tamu yahh.. request postingan juga boleh kok, asal jangan yang berbau SARA..

 

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