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

http://utenti.multimania.it/fumari/anno10/testchimicax.htm
http://utenti.multimania.it/fumari/anno10/testchimicax.ppt

Private Sub CommandButton1_Click()
Rem scrivere prodotti di reazione
Rem risposta esatta
r1 = "CaCO3"
r2 = "Ca(OH)2"
r3 = "2HCl"
r4 = "Na2S04"
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


Informazioni su fumarino

interessato ad argomenti scientifici, ambienti naturali, parchi e monti
Questa voce è stata pubblicata in informatica. Contrassegna il permalink.

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...