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.
[[code format="lb"]]
 '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

[[code]]