belajar qb

Contoh Program Sederhana QBASIC

(Link to this post) Posted on 04. Apr, 2011 by Guest in Eggy Prayogia, visual basic 1. Membuat program dengan output "Halo, nama saya .... saya kuliah di UG kelas .... ,salam kenal"
Source Codenya kira-kira seperti ini:

 background-origin: initial; background-position: 0% 0%; background-repeat: no-repeat no-repeat; border-bottom-width: 0px; border-color: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; font-family: inherit; font-size: 13px; font-style: italic; font-weight: inherit; margin-bottom: 1em; margin-left: 20px; margin-right: 20px; margin-top: 1em; outline-color: initial; outline-style: initial; outline-width: 0px; padding-bottom: 15px; padding-left: 30px; padding-right: 15px; padding-top: 15px; vertical-align: baseline;">CLSINPUT "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 diskonsebesar 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 kembaliINPUT "Masukkan Jumlah Barang yang Dibeli ="; A : untuk memasukkan jumlah barang yang dibeli yang diberi simbol AINPUT "Masukkan Harga Barang ="; B : untuk memasukkan harga barang yang diberi simbol BIF 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 ajaELSE LET C = A * B : jika buku yang dibeli tidak lebih dari 24 maka total harga yang harus dibayar adalah A * BEND : program diakhiri