test didattici con VBA
ritorna con testvba.htm

testchimicax.ppt
completameno e bilanciamento reazioni chimiche

Private Sub CommandButton1_Click()
Rem scrivere prodotti di reazione
Rem risposta esatta
r1 = "CaCO3"
r2 = "Ca(OH)2"
r3 = "2HCl"
r4 = "Na2SO4"
r5 = "2SO3"
r6 = "ZnCl2"
r7 = "NaCl"
r8 = "Na2SO4"
r9 = "AgCl"

Rem risposta data
rd1 = TextBox1
rd2 = TextBox2
rd3 = TextBox3
rd4 = TextBox4
rd5 = TextBox5
rd6 = TextBox6
rd7 = TextBox7
rd8 = TextBox8
rd9 = TextBox9

Rem reazioni da completare , completa
d1 = "CaO + CO2 >>> "
d2 = "Ca0 + H2O >>> "
d3 = "H2 + Cl2 >>>"
d4 = "2NaCl + H2SO4 >>> 2HCl + "
d5 = "2SO2 + O2 >>>"
d6 = " 2HCl + Zn >>> H2 + "
d7 = "NaOH + HCl >>> H2O + "
d8 = "2NaOH + H2SO4 >>> 2H2O + "
d9 = "AgNO3 + NaCl >>> NaNO3 + "


Rem controlla risposte
Call verifica(r1, rd1, d1)
Call verifica(r2, rd2, d2)
Call verifica(r3, rd3, d3)
Call verifica(r4, rd4, d4)
Call verifica(r5, rd5, d5)
Call verifica(r6, rd6, d6)
Call verifica(r7, rd7, d7)
Call verifica(r8, rd8, d8)
Call verifica(r9, rd9, d9)

End Sub

Private Sub CommandButton2_Click()
Rem visualizza reazione da completare
d1 = "CaO + CO2 >>> "
d2 = "Ca0 + H2O >>> "
d3 = "H2 + Cl2 >>>"
d4 = "2NaCl + H2SO4 >>> 2HCl + "
d5 = "2SO2 + O2 >>> "
d6 = " 2HCl + Zn >>> H2 + "
d7 = "NaOH + HCl >>> H2O + "
d8 = "2NaOH + H2SO4 >>> 2H2O + "
d9 = "AgNO3 + NaCl >>> NaNO3 +"

d10 = "Ca(OH)2 + X >>> H2O + CaCO3"
d11 = "FeS + X >>> 2H2S + FeCl2 "
d12 = "SO2 + X >>> H2SO3"
d13 = "SO3 + X >>> H2SO4 "
d14 = "CO2 + X >>> H2CO3 "
d15 = "Cl2O3 + X >>> 2HClO2 "
d16 = "Cl2O5 + X >>> 2HClO3 "
d17 = "X + H2O >>> 2HClO4 "
d18 = "N2O3 + X >>> 2HNO2 "

d20 = "CaO + CO2 >>> "
d21 = "MgO + SO3 >>> "
d22 = "CaO + H2O >>>"
d23 = "Ca(OH)2 + 2HCl >>> 2H2O + "
d24 = "NaOH + HNO3 >>> H2O + "
d25 = "H2 + F2 >>> "
d26 = "2Cl2 + 3O2 >>> "
d27 = "N2 + 3H2 >>> "
d28 = "2C + O2 >>> "



ListBox1.AddItem ("scrivere le risposte nelle caselle")
ListBox1.AddItem ("alla fine cliccare per controllare risposte")
ListBox1.AddItem ("------prima serie------- ")
ListBox1.AddItem (d1)
ListBox1.AddItem (d2)
ListBox1.AddItem (d3)
ListBox1.AddItem (d4)
ListBox1.AddItem (d5)
ListBox1.AddItem (d6)
ListBox1.AddItem (d7)
ListBox1.AddItem (d8)
ListBox1.AddItem (d9)
ListBox1.AddItem ("-----seconda serie------")
ListBox1.AddItem (d10)
ListBox1.AddItem (d11)
ListBox1.AddItem (d12)
ListBox1.AddItem (d13)
ListBox1.AddItem (d14)
ListBox1.AddItem (d15)
ListBox1.AddItem (d16)
ListBox1.AddItem (d17)
ListBox1.AddItem (d18)
ListBox1.AddItem ("------terza serie-----------")
ListBox1.AddItem (d20)
ListBox1.AddItem (d21)
ListBox1.AddItem (d22)
ListBox1.AddItem (d23)
ListBox1.AddItem (d24)
ListBox1.AddItem (d25)
ListBox1.AddItem (d26)
ListBox1.AddItem (d27)
ListBox1.AddItem (d28)

End Sub

Private Sub verifica(esatta, data, completa)
If data = esatta Then
ListBox2.AddItem ("esatto : " & esatta)
ListBox2.AddItem (completa & esatta)
Else
ListBox2.AddItem ("errato: era : " & esatta)
ListBox2.AddItem (completa & esatta)
End If
ListBox2.AddItem ("-------------------------")
End Sub

Private Sub verifica2(esatta, data, completa)
If data = esatta Then
ListBox2.AddItem ("esatto : " & esatta)
ListBox2.AddItem (completa)
Else
ListBox2.AddItem ("errato: era : " & esatta)
ListBox2.AddItem (completa)
End If
ListBox2.AddItem ("-------------------------")
End Sub


Private Sub CommandButton3_Click()
ListBox1.Clear
ListBox2.Clear
End Sub

Private Sub CommandButton4_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""


End Sub

Private Sub CommandButton5_Click()
Rem seconda serie
Rem scrivere prodotti di reazione o reattivo
Rem risposta esatta
r1 = "CO2"
r2 = "2HCl"
r3 = "H2O"
r4 = "H20"
r5 = "H2O"
r6 = "H2O"
r7 = "Cl2O5"
r8 = "Cl2O7"
r9 = "H2O"

Rem risposta data
rd1 = TextBox1
rd2 = TextBox2
rd3 = TextBox3
rd4 = TextBox4
rd5 = TextBox5
rd6 = TextBox6
rd7 = TextBox7
rd8 = TextBox8
rd9 = TextBox9

Rem reazioni da completare , completa
d1 = "Ca(OH)2 + CO2 >>> H2O + CaCO3"
d2 = "FeS + 2HCl >>> 2H2S + FeCl2 "
d3 = "SO2 + H2O >>> H2SO3"
d4 = "SO3 + H2O >>> H2SO4 "
d5 = "CO2 + H2O >>> H2CO3 "
d6 = "Cl2O3 + H2O >>> 2HClO2 "
d7 = "Cl2O5 + H2O >>> 2HClO3 "
d8 = "Cl2O7 + H2O >>> 2ClO4 "
d9 = "N2O3 + X >>> 2HNO2 "

Rem controlla risposte
Call verifica2(r1, rd1, d1)
Call verifica2(r2, rd2, d2)
Call verifica2(r3, rd3, d3)
Call verifica2(r4, rd4, d4)
Call verifica2(r5, rd5, d5)
Call verifica2(r6, rd6, d6)
Call verifica2(r7, rd7, d7)
Call verifica2(r8, rd8, d8)
Call verifica2(r9, rd9, d9)

End Sub

Private Sub CommandButton6_Click()
Rem terza serie
Rem scrivere prodotti di reazione
Rem risposta esatta
r1 = "CaCO3"
r2 = "MgSO4"
r3 = "Ca(OH)2"
r4 = "CaCl2"
r5 = "NaNO3"
r6 = "2HF"
r7 = "2ClO3"
r8 = "2NH3"
r9 = "2CO"

Rem risposta data
rd1 = TextBox1
rd2 = TextBox2
rd3 = TextBox3
rd4 = TextBox4
rd5 = TextBox5
rd6 = TextBox6
rd7 = TextBox7
rd8 = TextBox8
rd9 = TextBox9

Rem reazioni da completare , completa
d1 = "CaO + CO2 >>> CaCO3"
d2 = "MgO + SO3 >>> MgSO4"
d3 = "CaO + H2O >>> Ca(OH)2"
d4 = "Ca(OH)2 + 2HCl >>> 2H2O + CaCl2"
d5 = "NaOH + HNO3 >>> H2O + NaNO3"
d6 = "H2 + F2 >>> 2HF "
d7 = "2Cl2 + 3O2 >>> 2ClO3 "
d8 = "N2 + 3H2 >>> 2NH3 "
d9 = "2C + O2 >>> 2CO "


Rem controlla risposte
Call verifica(r1, rd1, d1)
Call verifica(r2, rd2, d2)
Call verifica(r3, rd3, d3)
Call verifica(r4, rd4, d4)
Call verifica(r5, rd5, d5)
Call verifica(r6, rd6, d6)
Call verifica(r7, rd7, d7)
Call verifica(r8, rd8, d8)
Call verifica(r9, rd9, d9)

End Sub

Private Sub UserForm_Click()

End Sub