test interattivo su reazioni chimiche

test interattivo su reazioni chimiche vengono proposte serie di reazioni chimiche semplici, incomplete: si deve inserire per ogni reazione reattivo o prodotto mancante con coefficienti per bilanciamento si controllano le risposte e si fornisce reazione completa esercitazione con visual basic su powerpoint variante con variabili dimensionate, ciclo for-next per visualizzare dati e risposte, chiamata di procedure per controllo risposte


http://utenti.multimania.it/fumari/anno10/elenco.htm
http://utenti.multimania.it/fumari/anno10/chimicatest.htm
http://utenti.multimania.it/fumari/anno10/chimicatest.ppt
http://utenti.multimania.it/fumari/anno10/chimica1.GIF
http://utenti.multimania.it/fumari/anno10/chimica2.GIF
http://utenti.multimania.it/fumari/anno10/chimica3.GIF

test di chimica con correzione reazioni

vengono fornite tre serie di reazioni da completare inserendo formula
reattivo o prodotto mancante
si visualizzano le risposte esatte e la reazione completa
variante (più compatta) di
http://utenti.multimania.it/fumari/anno10/testchimicax.htm

come esercitazione con visual basic
su powerpoint:: uso di variabili dimensionate, visualizzazione domande
e risposte con ciclo for-next, verifica con chiamata di procedura

Private Sub CommandButton2_Click()
Rem visualizza reazione da completare comune tre serie
Dim d(27) As String
Rem prima serie
d(1) = "CaO + CO2 >>> "
d(2) = "CaO + H2O >>> "
d(3) = "H2 + Cl2 >>>"
d(4) = "2NaCl + H2SO4 >>> 2HCl + "
d(5) = "2SO2 + O2 >>>"
d(6) = " 2HCl + Zn >>> H2 + "
d(7) = "NaOH + HCl >>> H2O + "
d(8) = "2NaOH + H2SO4 >>> 2H2O + "
d(9) = "AgNO3 + NaCl >>> NaNO3 + "
Rem seconda serie
d(10) = "Ca(OH)2 + X >>> H2O + CaCO3"
d(11) = "FeS + X >>> 2H2S + FeCl2 "
d(12) = "SO2 + X >>> H2SO3"
d(13) = "SO3 + X >>> H2SO4 "
d(14) = "CO2 + X >>> H2CO3 "
d(15) = "Cl2O3 + X >>> 2HClO2 "
d(16) = "Cl2O5 + X >>> 2HClO3 "
d(17) = "X + H2O >>> 2HClO4 "
d(18) = "N2O3 + X >>> 2HNO2 "
Rem terza serie
d(19) = "CaO + CO2 >>> "
d(20) = "MgO + SO3 >>> "
d(21) = "CaO + H2O >>>"
d(22) = "Ca(OH)2 + 2HCl >>> 2H2O + "
d(23) = "NaOH + HNO3 >>> H2O + "
d(24) = "H2 + F2 >>> "
d(25) = "2Cl2 + 3O2 >>> "
d(26) = "N2 + 3H2 >>> "
d(27) = "2C + O2 >>> "

Rem visualizza domande
ListBox1.AddItem ("scrivere le risposte nelle caselle")
ListBox1.AddItem ("alla fine cliccare per controllare risposte")
ListBox1.AddItem ("------prima serie------- ")
For k = 1 To 27
ListBox1.AddItem (d(k))
If k = 9 Or k = 18 Then
ListBox1.AddItem ("----------------------")
End If
Next k
TextBox1.SetFocus
End Sub


Private Sub CommandButton1_Click()
Rem prima serie
Rem scrivere prodotti di reazione
Dim r(9) As String
Dim rd(9) As String
Dim d(27) As String
Rem risposta esatta
r(1) = "CaCO3"
r(2) = "Ca(OH)2"
r(3) = "2HCl"
r(4) = "Na2SO4"
r(5) = "2SO3"
r(6) = "ZnCl2"
r(7) = "NaCl"
r(8) = "Na2SO4"
r(9) = "AgCl"

Rem risposta data
rd(1) = TextBox1
rd(2) = TextBox2
rd(3) = TextBox3
rd(4) = TextBox4
rd(5) = TextBox5
rd(6) = TextBox6
rd(7) = TextBox7
rd(8) = TextBox8
rd(9) = TextBox9

Rem reazioni da completare , completa
d(1) = "CaO + CO2 >>> CaCO3 "
d(2) = "CaO + H2O >>> Ca(OH)2"
d(3) = "H2 + Cl2 >>> HCl"
d(4) = "2NaCl + H2SO4 >>> 2HCl + Na2SO4"
d(5) = "2SO2 + O2 >>> 2SO3"
d(6) = " 2HCl + Zn >>> H2 + ZnCl2"
d(7) = "NaOH + HCl >>> H2O + NaCl"
d(8) = "2NaOH + H2SO4 >>> 2H2O + Na2SO4"
d(9) = "AgNO3 + NaCl >>> NaNO3 + AgCl"


Rem controlla risposte
For k = 1 To 9
Call verifica(r(k), rd(k), d(k))
Next k
End Sub

Private Sub CommandButton5_Click()
Rem seconda serie
Rem scrivere prodotti di reazione o reattivo
Rem risposta esatta
Dim r(9) As String
Dim rd(9) As String
Dim d(27) As String

Rem risposta esatta
r(1) = "CO2"
r(2) = "2HCl"
r(3) = "H2O"
r(4) = "H20"
r(5) = "H2O"
r(6) = "H2O"
r(7) = "Cl2O5"
r(8) = "Cl2O7"
r(9) = "H2O"

Rem risposta data
rd(1) = TextBox1
rd(2) = TextBox2
rd(3) = TextBox3
rd(4) = TextBox4
rd(5) = TextBox5
rd(6) = TextBox6
rd(7) = TextBox7
rd(8) = TextBox8
rd(9) = TextBox9

Rem reazioni da completare , completa
d(1) = "Ca(OH)2 + CO2 >>> H2O + CaCO3"
d(2) = "FeS + 2HCl >>> 2H2S + FeCl2 "
d(3) = "SO2 + H2O >>> H2SO3"
d(4) = "SO3 + H2O >>> H2SO4 "
d(5) = "CO2 + H2O >>> H2CO3 "
d(6) = "Cl2O3 + H2O >>> 2HClO2 "
d(7) = "Cl2O5 + H2O >>> 2HClO3 "
d(8) = "Cl2O7 + H2O >>> 2ClO4 "
d(9) = "N2O3 + X >>> 2HNO2 "

Rem controlla risposte
For k = 1 To 9
Call verifica(r(k), rd(k), d(k))
Next k
End Sub

Private Sub CommandButton6_Click()
Rem terza serie
Rem scrivere prodotti di reazione

Dim r(9) As String
Dim rd(9) As String
Dim d(27) As String

Rem risposta esatta
r(1) = "CaCO3"
r(2) = "MgSO4"
r(3) = "Ca(OH)2"
r(4) = "CaCl2"
r(5) = "NaNO3"
r(6) = "2HF"
r(7) = "2ClO3"
r(8) = "2NH3"
r(9) = "2CO"

Rem risposta data
rd(1) = TextBox1
rd(2) = TextBox2
rd(3) = TextBox3
rd(4) = TextBox4
rd(5) = TextBox5
rd(6) = TextBox6
rd(7) = TextBox7
rd(8) = TextBox8
rd(9) = TextBox9

Rem reazioni da completare , completa
d(1) = "CaO + CO2 >>> CaCO3"
d(2) = "MgO + SO3 >>> MgSO4"
d(3) = "CaO + H2O >>> Ca(OH)2"
d(4) = "Ca(OH)2 + 2HCl >>> 2H2O + CaCl2"
d(5) = "NaOH + HNO3 >>> H2O + NaNO3"
d(6) = "H2 + F2 >>> 2HF "
d(7) = "2Cl2 + 3O2 >>> 2ClO3 "
d(8) = "N2 + 3H2 >>> 2NH3 "
d(9) = "2C + O2 >>> 2CO "

Rem controlla risposte
For k = 1 To 9
Call verifica(r(k), rd(k), d(k))
Next k
End Sub

Private Sub verifica(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