I made a practice test for my vocabulary for school. I have to remember the exact definitions. I have my code but it has many bugs. Every week i get new words to add to the list. Is there an easier way of typing this code? Also is there a better way to grade the test? Any help will be great since i will be using this code all year.
Graphics 1440,900 .main ;Words w1$="Fore w2$="De w3$="Re w4$="Mis w5$="Un w6$="Trans w7$="Ambi w8$="Poly w9$="Auto w10$="Super w11$="Abhor" w12$="Bi" w13$="Syn" w14$="For" w15$="Com" ;Questions d1$="earlier,before in time,place or order" d2$="down,away,reversing the action of" d3$="again,back" d4$="bad,wrong" d5$="not" d6$="across,through,beyond,into another condition or place" d7$="both,around" d8$="many,more than one" d9$="of oneself,by itself,same" d10$="above,higher than" d11$="from,away from,off" d12$="twice,divide in two parts" d13$="with,together,jointly" d14$="away,opposite,completely" d15$="with,together,all together" While Not KeyHit(1) font1=LoadFont("Earwig Factory",72,False,True,False) font2=LoadFont("Rockwell",32,False,True,False) SetFont font2 Cls:Locate 0,0 ;Test Print "" Print "Type in exact definition for each root" Text 500,100,"All definitions must be exactly correct!" q1$=Input$("1. "+w1$+" : ") q2$=Input$("2. "+w2$+" : ") q3$=Input$("3. "+w3$+" : ") q4$=Input$("4. "+w4$+" : ") q5$=Input$("5. "+w5$+" : ") q6$=Input$("6. "+w6$+" : ") q7$=Input$("7. "+w7$+" : ") q8$=Input$("8. "+w8$+" : ") q9$=Input$("9. "+w9$+" : ") q10$=Input$("10. "+w10$+" : ") q11$=Input$("11. "+w11$+" : ") q12$=Input$("12. "+w12$+" : ") q13$=Input$("13. "+w13$+" : ") q14$=Input$("14. "+w14$+" : ") q15$=Input$("15. "+w15$+" : ") ;Binary effect For x=1 To 100 Color 0,Rnd(255),0 a$=Rnd(1000000) a1$=Rnd(1000000) b$=Bin$(a$) b1$=Bin$(a1$) Print ""+b$ Print ""+b1$ Next ;Grading If q1$="cheat":c#=6.6*15:Else:c#=c#:EndIf If q1$=d1$:q1$="RIGHT":c#=c#+6.6:Else:c#=c#:q1$="WRONG!":EndIf If q2$=d2$:q2$="RIGHT":c#=c#+6.6:Else:c#=c#:q2$="WRONG!":EndIf If q3$=d3$:q3$="RIGHT":c#=c#+6.6:Else:c#=c#:q3$="WRONG!":EndIf If q4$=d4$:q4$="RIGHT":c#=c#+6.6:Else:c#=c#:q4$="WRONG!":EndIf If q5$=d5$:q5$="RIGHT":c#=c#+6.6:Else:c#=c#:q5$="WRONG!":EndIf If q6$=d6$:q6$="RIGHT":c#=c#+6.6:Else:c#=c#:q6$="WRONG!":EndIf If q7$=d7$:q7$="RIGHT":c#=c#+6.6:Else:c#=c#:q7$="WRONG!":EndIf If q8$=d8$:q8$="RIGHT":c#=c#+6.6:Else:c#=c#:q8$="WRONG!":EndIf If q9$=d9$:q9$="RIGHT":c#=c#+6.6:Else:c#=c#:q9$="WRONG!":EndIf If q10$=d10$:q10$="RIGHT":c#=c#+6.6:Else:c#=c#:q10$="WRONG!":EndIf If q11$=d11$:q11$="RIGHT":c#=c#+6.6:Else:c#=c#:q11$="WRONG!":EndIf If q12$=d12$:q12$="RIGHT":c#=c#+6.6:Else:c#=c#:q12$="WRONG!":EndIf If q13$=d13$:q13$="RIGHT":c#=c#+6.6:Else:c#=c#:q13$="WRONG!":EndIf If q14$=d14$:q14$="RIGHT":c#=c#+6.6:Else:c#=c#:q14$="WRONG!":EndIf If q15$=d15$:q15$="RIGHT":c#=c#+6.6:Else:c#=c#:q15$="WRONG!":EndIf ;Grading Scale If c#<=100 Then grade$="Stop taking this test" If c#=<94 Then grade$="Aced" If c#<90 Then grade$="Almost" If c#<80 Then grade$="Why settle for this" If c#<70 Then grade$="D for dummy" If c#<60 Then grade$="FAIL" If c#<50 Then grade$="Retard" If c#<40 Then grade$="Loser If c#<30 Then grade$="Stupid" If c#<20 Then grade$="Why?" If c#<=10 Then grade$="... If c#<=0 Then grade$="Complete Idiot" Color 255,255,255 SetFont font1 ;Recieving Grade Text 500,500,"Score : "+c#+"%" Text 500,300,""+grade$+" FreeFont font1 SetFont font2 Text 500,600,"To take test again press any key" Text 500,700,"To exit test press the escape key" WaitKey() Cls Text 500,600,"To take test again press any key" Text 500,700,"To exit test press the escape key" ;What you missed Locate 0,0 Print "1. "+w1$+" : "+q1$ Print "2. "+w2$+" : "+q2$ Print "3. "+w3$+" : "+q3$ Print "4. "+w4$+" : "+q4$ Print "5. "+w5$+" : "+q5$ Print "6. "+w6$+" : "+q6$ Print "7. "+w7$+" : "+q7$ Print "8. "+w8$+" : "+q8$ Print "9. "+w9$+" : "+q9$ Print "10. "+w10$+" : "+q10$ Print "11. "+w11$+" : "+q11$ Print "12. "+w12$+" : "+q12$ Print "13. "+w13$+" : "+q13$ Print "14. "+w14$+" : "+q14$ Print "15. "+w15$+" : "+q15$ WaitKey() Wend End