Monatomic Ions Practice

Monatomic Ions Practice

Students will be the ones who benefit from the use of this program to memorize the common monatomic ions, symbols, and charges.

'Some common monatomic 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 (no spaces)", 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 60 bold"
 #w.tb1 "!setfocus"
 correct = 0
 count = 0
 for j = 1 to 28
 #w.tb1,""
 #w.tb2, ""
 #w.tb1 "!setfocus"
 read name$, sycharge$
 #w.tb2, name$
 wait
 [entered]
 #w.tb1 "!contents? reply$"
 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 "lithium", "Li+1", "copper (II)", "Cu+2", "phosphide", "P-3", "aluminum", "Al+3","barium","Ba+2"
 data "bromide","Br-1","iron (III)","Fe+3","magnesium","Mg+2","nitride","N-3","chloride","Cl-1"
 data "tin(IV)","Sn+4","zinc","Zn+2","calcium","Ca+2","sodium","Na+1","copper(I)","Cu+1","lead(IV)","Pb+4"
 data "mercury(I)","Hg+1","sulfide","S-2","silver","Ag+1","tin(II)","Sn+2","iron(II)","Fe+2","cobalt(II)","Co+2"
 data "oxide","O-2","fluoride","F-1","cadmium","Cd+2","iodide","I-1","lead(II)","Pb+2","nickel(II)"
 data "Ni+2","end",0
[score]
 percent = (correct/count) * 100
 rounded = int(percent*10^2 +0.5) / 10^2
 #w.tb2, rounded;" % right"
 wait
 [quit]
 close #w
end