Minggu, 18 Desember 2011

Cara Membuat Program Kuis dengan QBASIC

  Qbasic adalah sebuah bahasa pemrograman tingkat tinggi yang merupakan salah satu versi dari bahasa BASIC (Beginner's All-Purpose Symbolic Instruction Code, merupakan bahasa yang biasa dipakai untuk belajar memprogram).
     Karena bahasa pemrograman Qbasic pertama kali dikenalkan pada sistem operasi DOS, maka bahasa pemrograman Qbasic ini merupakan bahasa pemrograman tingkat tinggi yang sudah tua dan memiliki sintaks program yang sangat sederhana, sehingga bahasa pemrograman ini sangat mudah untuk dipelajari dan dimengerti.
     Disini saya hanya ingin memberi contoh tentang bagaimana cara dalam membuat program kuis tentang musik. Sebenarnya banyak cara untuk membuat program kuis namun itu semua tergantung pada logika kita untuk membuat sebuah program hehehehe. Berikut adalah codding yang saya buat:
10 CLS
COLOR 12
PRINT "                                       Warning !!!"
PRINT ""
COLOR 11
PRINT "===    Program kuis ini untuk kalian yang menyukai musik dan     ==="
PRINT "=== untuk mengetahui seberapa pengetahuan anda tentang musik. ==="
PRINT ""
PRINT "   Penasaran seberapa pengetahuan anda tentang musik?"
PRINT "   Ayooo, coba program kuis ini!!"
PRINT ""
PRINT ""
INPUT "   Apakah anda ingin mencoba program kuis ini (Y/T)?", j$
IF j$ = "y" OR j$ = "Y" THEN GOTO 20 ELSE IF j$ = "t" OR j$ = "T" THEN GOTO 60 ELSE GOTO 10
20 CLS
COLOR 13
PRINT "****************************************************"
PRINT "* Seberapa besar pengetahuan anda tentang musik yang anda sukai?*"
PRINT "****************************************************"
PRINT ""
PRINT "  Pilihlah musik yang anda sukai :"
PRINT "     1.) INDONESIA"
PRINT "     2.) INTERNASIONAL"
PRINT ""
INPUT "  Musik apa yang anda sukai?", j$
IF j$ = "1" THEN GOTO 30 ELSE IF j$ = "2" THEN GOTO 40 ELSE GOTO 20
30 CLS
s = 0
COLOR 11
PRINT "+++++++++++++++++++++++++++++++++++++++++++++++++"
PRINT "+Berikut adalah soal-soal tentang musik INDONESIA yang anda sukai+"
PRINT "+++++++++++++++++++++++++++++++++++++++++++++++++"
PRINT ""
PRINT "SELAMAT MENGERJAKAN *\(^_^)/*"
COLOR 15
PRINT ""
PRINT ""
PRINT "1.) Berapa banyak penghargaan yang disiapkan oleh Anugrah Musik Indonesia (AMI) pada tahun 2011?"
PRINT " A. 46            C. 36"
PRINT " B. 56            D. 48"
INPUT "Jawaban :", a$
IF a$ = "a" OR a$ = "A" THEN LET s = s + 10
CLS
PRINT "2.) Siapakah penyanyi legendaris Indonesia?"
PRINT " A. Pasha 'Ungu'         C. Ebiet G.Ade"
PRINT " B. Iwan Fals              D. Chrisye"
INPUT "Jawaban :", a$
IF a$ = "d" OR a$ = "D" THEN LET s = s + 10
CLS
PRINT "3.) Band Indonesia yang memiliki bayaran termahal yaitu Rp.500 juta per penampilan pada tahun 2011 yaitu?"
PRINT " A. Slank           C. Nidji"
PRINT " B. Dewa 19      D. Vierra"
INPUT "Jawaban :", a$
IF a$ = "a" OR a$ = "A" THEN LET s = s + 10
CLS
PRINT "4.) Siapa penyanyi wanita Indonesia yang pertama kali berhasil menerobos blantika musik Internasional dan menjadi Artis Asia Tenggara pertama yang mampu menembus tangga musik di Eropa dan Amerika?"
PRINT " A. Agnes Monica          C. Krisdayanti"
PRINT " B. Anggun C Sasmi       D. Nike Ardila"
INPUT "Jawaban :", a$
IF a$ = "b" OR a$ = "B" THEN LET s = s + 10
CLS
PRINT "5.) Siapa penyanyi yang mendapat kehormatan menyanyikan lagu berjudul 'kembali' di album keempat Susilo Bambang Yudhoyono?"
PRINT " A. Yovie Widianto       C. Afgansyah Reza"
PRINT " B. Vidi Aldiano            D. Ahmad Albar"
INPUT "Jawaban :", a$
IF a$ = "c" OR a$ = "C" THEN LET s = s + 10
CLS
PRINT "6.) Penghargaan Special Legend Awards pada acara AMI Awards yang ke 14 diberikan kepada?"
PRINT " A. Dewa Budjana         C. Yovie Widianto"
PRINT " B. Chrisye                    D. Elfa Secioria"
INPUT "Jawaban :", a$
IF a$ = "d" OR a$ = "D" THEN LET s = s + 10
CLS
PRINT "7.) Siapa pencipta lagu kebangsaan Indonesia, 'Indonesia Raya'?"
PRINT " A. Wage Rudolf Soepratman       C. Sudharnoto"
PRINT " B. Ismail Marzuki                        D. L. Manik"
INPUT "Jawaban :", a$
IF a$ = "a" OR a$ = "A" THEN LET s = s + 10
CLS
PRINT "8.) Pada tanggal berapa pertama kali diadakannya acara AMI Awards?"
PRINT " A. 29 November 1996             C. 29 November 1997"
PRINT " B. 29 November 1998             D. 29 November 1999"
INPUT "Jawaban:", a$
IF a$ = "c" OR a$ = "C" THEN LET s = s + 10
CLS
PRINT "9.) Siapa penyanyi yang mencatat rekor untuk album terlaris dalam sejarah musik Indonesia melalui album terakhirnya 'Sandiwara Cinta (1995)?"
PRINT " A. Agnes Monica                C. Krisdayanti"
PRINT " B. Nike Ardilla                    D. Rossa"
INPUT "Jawaban :", a$
IF a$ = "b" OR a$ = "B" THEN LET s = s + 10
CLS
PRINT "10.) Seorang penyanyi, pencipta lagu dan pemain gitar asal Indonesia yang memulai karier musiknya di Jerman adalah?"
PRINT " A. Afgansyah Reza              C. Vidi Aldiano"
PRINT " B. Ebiet G Ade                    D. Sandhy Sandoro"
INPUT "Jawaban :", a$
IF a$ = "d" OR a$ = "D" THEN LET s = s + 10
GOTO 50
40 CLS
s = 0
COLOR 11
PRINT "++++++++++++++++++++++++++++++++++++++++++++++++++"
PRINT "+Berikut adalah soal tentang musik INTERNASIONAL yang anda sukai+"
PRINT "++++++++++++++++++++++++++++++++++++++++++++++++++"
PRINT ""
PRINT "SELAMAT MENGERJAKAN *\(^_^)/*"
COLOR 15
PRINT ""
PRINT ""
PRINT "1.) Pada tahun berapa pertama kali diadakannya American Music Award?"
PRINT " A. 1994          C. 1974"
PRINT " B. 1947          D. 1997"
INPUT "Jawaban :", a$
IF a$ = "a" OR a$ = "A" THEN LET s = s + 10 ELSE IF a$ = "b" OR a$ = "B" OR a$ = "c" OR a$ = "C" OR a$ = "d" OR a$ = "D" THEN LET s = 0
CLS
PRINT "2.) Siapa penyanyi yang memiliki julukan King of Pop?"
PRINT " A. Akon                     C. Michael Jackson"
PRINT " B. David Archuleta      D. Justin Bieber"
INPUT "Jawaban :", a$
IF a$ = "c" OR a$ = "C" THEN LET s = s + 10
CLS
PRINT "3.) CBGB ialah Music Club di New York tempat berlangsungnya berbagai gigs, kepanjangan dari apakah CBGB?"
PRINT " A. Country, Black Grass and Blues       C. Country, Blues Grass and Black"
PRINT " B. Country, Blues Grass and Blue          D. Country, Blue Grass and Blues"
INPUT "JAwaban :", a$
IF a$ = "d" OR a$ = "D" THEN LET s = s + 10
CLS
PRINT "4.) Artis yang memiliki 3 lagu dengan penjualan lebih dari 5 juta copy di Amerika Serikat adalah?"
PRINT " A. Lady Gaga            C. Vanessa Carlton"
PRINT " B. Katy Perry             D. Adele"
INPUT "Jawaban :", a$
IF a$ = "b" OR a$ = "B" THEN LET s = s + 10
CLS
PRINT "5.) Penyanyi yang menerima penghargaan Crossover Artist Of The Year tahun 2011 adalah?"
PRINT " A. Usher                    C. Justin Bieber"
PRINT " B. Britney Spears       D. Michael Jackson"
INPUT "Jawaban :", a$
IF a$ = "a" OR a$ = "A" THEN LET s = s + 10
CLS
PRINT "6.) siapakah The King of R&B?"
PRINT " A. MR. BIG              C. Slipknot"
PRINT " B. Metalica                D. Usher"
INPUT "Jawaban :", a$
IF a$ = "d" OR a$ = "D" THEN LET s = s + 10
CLS
PRINT "7.) Single terbary dari grup band Maroon5 fituring Christina Aguilera berjudul?"
PRINT " A. Misery                      C. Moves Like Jagger"
PRINT " B. Harder to Breathe     D. If I Never See Your Face Again"
INPUT "Jawaban :", a$
IF a$ = "c" OR a$ = "C" THEN LET s = s + 10
CLS
PRINT "8.) Siapa penerima penghargaan Artist of The Year pada ajang penghargaan American Music Awards 2011?"
PRINT " A. Adele                  C. Rihanna"
PRINT " B. Taylor Swift         D. Lady Gaga"
INPUT "Jawaban :", a$
IF a$ = "b" OR a$ = "B" THEN LET s = s + 10
CLS
PRINT "9.) Siapa penyanyi yang terkenal karena video YouTube dan ia menerima empat penghargaan sekaligus dalam acara American Music Award pada tahun 2010?"
PRINT " A. Justin Bieber                  C. Greyson Chance"
PRINT " B. Lady Gaga                    D. Katy Perry"
INPUT "Jawaban :", a$
IF a$ = "a" OR a$ = "A" THEN LET s = s + 10
CLS
PRINT "10.) Pada ajang penghargaan American Music Awards 2011 ada 2 penyanyi yang mendapatkan tiga buah penghargaan yaitu?"
PRINT " A. Lady Gaga dan Katy Perry             C. Taylor Swift dan Lady Gaga"
PRINT " B. Katy Perry dan Adele                     D. Adele dan Taylor Swift"
INPUT "Jawaban :", a$
IF a$ = "d" OR a$ = "D" THEN LET s = s + 10
50 CLS
COLOR 11
PRINT ""
PRINT "   Anda telah menjawab semua soal yang kami berikan (^_^)"
PRINT ""
PRINT "             Score anda adalah :"; s
IF s < 40 THEN PRINT "   Wahh, ternyata pengetahuan anda tentang musik yang anda sukai belum seberapa. Coba anda perdalam lagi pengetahuan tentang musik yang anda sukai yaa v(^_^)" ELSE IF s < 70 THEN PRINT "   Hhmmm,pengetahuan anda tentang musik yang anda sukai lumayan juga (^_^)" ELSE PRINT "   Woww, ternyata anda sangat mengetahui musik yang anda sukai *\(^_^)/*"
PRINT ""
PRINT ""
INPUT "   Apakah anda ingin mencoba lagi (Y/T)?", m$
IF m$ = "y" OR m$ = "Y" THEN GOTO 20 ELSE IF m$ = "t" OR m$ = "T" THEN GOTO 70
60 CLS
COLOR 11
PRINT "Yaahhh, anda tidak mencoba program kuis kami (-___-)": GOTO 80
70 CLS
COLOR 11
PRINT ""
PRINT ""
PRINT ""
PRINT "*******************************************************"
PRINT "* Terima kasih anda telah mencoba program kuis kami \(^_^)/\(^_^)/ *"
PRINT "*******************************************************"
80 END

     Ini adalah output dari codding diatas:




     Nah itu adalah contoh program kuis yang saya buat. Program kuis seperti ini bisa kalian modifikasi tergantung kalian ingin membuat program seperti apa. Oh ya, kalian yang masih bertanya-tanya bagaimana cara agar bisa mengetahui warna, kalian bisa mencoba cara berikut ini di program qbasic yang baru:
CLS
FOR i = 1 TO 15
COLOR i
PRINT "warna ke"; i
NEXT i
Codding program
Output program
Demikianlah cara untuk membuat program kuis di Qbasic. Selamat mencoba membuat program kuis ya teman-teman \(^_^)/

7 komentar:

  1. Bagus juga contohnya.
    Ka ada lagi ga contoh tentang program quis qbasic, tapi soal"nya tentang q-basic???

    BalasHapus
  2. Terima kasih :)
    Lagi ga sempet buat codingan qbasic soalnya tugas kuliah lagi numpuk.
    Klo mau ini aja tinggal di edit soal-soalnya.

    BalasHapus
  3. wow,
    puanjang banget codingnya

    aq lagi ada tugas nih, boleh sharing gak rin

    BalasHapus
  4. Bermanfaat banget ka, untung masuk kesini

    BalasHapus
  5. Maaf algoritmanya belum sempurna itu yang jika nilai lebih kecil dari 40 maka ....... masih kurang sempurna

    BalasHapus
  6. Keren banget kak! Makasih ilmunya! Bermanfaat banget!

    BalasHapus