Polyatomic ions

Polyatomic Ions

Students will benefit from the use of this program to quiz them on the symbols, charges, and names of the common polyatomic ions.

 'Some common polyatomic ion symbols and charges practice program
'version 1.0
'by Scott Ausbrooks
'May, 2012
'some .wav files have been remmed out- feel free to replace them with
'your own buzzers and bells (it gets annoying after a short while)
 
 nomainwin
 
 WindowWidth = 640
 WindowHeight = 360
 UpperLeftX = int((DisplayWidth-WindowWidth)/2)
 UpperLeftY = int((DisplayHeight-WindowHeight)/2)
 'playwave "startup.wav",sync
 graphicbox #w.g, 10, 10, 600, 200
 statictext #w.s, "Enter the symbol and charge of the ion", 10, 288, 400, 30
 textbox #w.tb1, 10, 240, 200, 32
 textbox #w.tb2, 20,25,580,180
 button #w.b1, "Check", [entered], LR, 300, 45, 60, 30
 button #w.b2, "Next Ion", [continue], LR, 200,45,60,30
 button #w.b3,"Score",[score],LR, 100,45,60,30
 open "Monatomic Ion Practice" for window as #w
 #w, "trapclose [quit]"
 #w.tb1 "!font arial 16 bold"
 #w.s "!font arial 12"
 #w.tb2 "!font arial 36 bold"
 #w.tb1 "!setfocus"
 correct = 0
 for j = 1 to 25
 #w.tb1,""
 #w.tb2, ""
 #w.tb1 "!setfocus"
 read name$, sycharge$
 #w.tb2, name$
 wait
 [entered]
 #w.tb1 "!contents? reply$"
 count = 1
 if reply$ = sycharge$ then
 #w.tb2, "Correct!"
 'playwave "hallelujah.wav",sync
 'playwave "beep.wav",async
 correct = correct +1
 count = count +1
 else
 #w.tb2, "STUDY MORE"
 'playwave "madcow.wav",sync
 'playwave "tpirbuzz.wav",sync
 correct = correct
 count = count +1
 end if
wait
 [continue]
 next j
 
 wait
 
data "acetate","CH3COO-1","chromate","CrO4-2","hydrogen phosphate","HPO4-2"
data "phosphate","PO4-3","cyanide","CN-1","dihydrogen phosphate","H2PO4-1"
data "nitrate","NO3-1","sulfite","SO3-2","arsenate","AsO4-3","carbonate","CO3-2"
data "ammonium","NH4+1","bicarbonate","HCO3-1", "bromate","BrO3-2"
data "peroxide","O2-2","permanganate","MnO4-1","sulfate","SO4-2","dimercury","Hg2+2"
data "oxalate","C2O4-2","nitrite","NO2-1","chlorite","ClO3-1","hydroxide","OH-1"
data "dichromate","Cr2O7-2","chlorate","ClO3-1","hypochlorite","ClO-1"
data "hydrogen sulfate","HSO4-1","end",0
[score]
 percent = (correct/count) * 100
 #w.tb2, percent;" % right"
 wait
 [quit]
 close #w
end