ossidi e nomi

esercitazione con visual basic su powerpoint e interazione su nomi e formule di ossidi
si visualizzano formule di ossidi e si richiede come risposta il nome
si visualizzano nomi di ossidi e si richiede come risposta la formula
in entrambi i casi si confronta la risposta inserita con quella attesa, esatta:
si conferma con esatto o con visualizzazione forma esatta
nota:inserire sempre numero di ossidazione (anche se unico)
es. ossido di calcio2....ossido di ferro3..

Private Sub CommandButton1_Click()
Rem accetta nome ossido come risposta
Rem da confrontare con nomi esatti
Dim n(15) As String
Dim r(15) As String

n(1) = "ossido di sodio1"
n(2) = "ossido di ferro2"
n(3) = "ossido di rame1"
n(4) = "ossido di ferro3"
n(5) = "ossido di alluminio3"
n(6) = "ossido di piombo2"
n(7) = "ossido di piombo4"
n(8) = "ossido di mercurio2"
n(9) = "ossido di potassio1"
n(10) = "ossido di calcio2"
n(11) = "ossido di zolfo4"
n(12) = "ossido di zolfo6"
n(13) = "ossido di cloro3"
n(14) = "ossido di carbonio4"
n(15) = "ossido di azoto5"


r(1) = TextBox1.Text
r(2) = TextBox2.Text
r(3) = TextBox3.Text
r(4) = TextBox4.Text
r(5) = TextBox5.Text
r(6) = TextBox6.Text
r(7) = TextBox7.Text
r(8) = TextBox8.Text
r(9) = TextBox9.Text
r(10) = TextBox10.Text
r(11) = TextBox11.Text
r(12) = TextBox12.Text
r(13) = TextBox13.Text
r(14) = TextBox14.Text
r(15) = TextBox15.Text
If r(1) = n(1) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(1))
End If
If r(2) = n(2) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(2))
End If
If r(3) = n(3) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(3))
End If
If r(4) = n(4) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(4))
End If
If r(5) = n(5) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(5))
End If
If r(6) = n(6) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(6))
End If
If r(7) = n(7) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(7))
End If
If r(8) = n(8) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(8))
End If
If r(9) = n(9) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(9))
End If
If r(10) = n(10) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(10))
End If
If r(11) = n(11) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(11))
End If
If r(12) = n(12) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(12))
End If
If r(13) = n(13) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(13))
End If
If r(14) = n(14) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(14))
End If
If r(15) = n(15) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(15))
End If


End Sub



Private Sub CommandButton3_Click()
Rem visualizza formule ossidi
Dim d(15) As String
d(1) = "Na2O"
d(2) = "FeO"
d(3) = "Cu2O"
d(4) = "Fe2O3"
d(5) = "Al2O3"
d(6) = "PbO"
d(7) = "PbO2"
d(8) = "HgO"
d(9) = "K2O"
d(10) = "CaO"
d(11) = "SO2"
d(12) = "SO3"
d(13) = "Cl2O3"
d(14) = "CO2"
d(15) = "N2O5"

ListBox3.AddItem (d(1))
ListBox3.AddItem (d(2))
ListBox3.AddItem (d(3))
ListBox3.AddItem (d(4))
ListBox3.AddItem (d(5))
ListBox3.AddItem (d(6))
ListBox3.AddItem (d(7))
ListBox3.AddItem (d(8))
ListBox3.AddItem (d(9))
ListBox3.AddItem (d(10))
ListBox3.AddItem (d(11))
ListBox3.AddItem (d(12))
ListBox3.AddItem (d(13))
ListBox3.AddItem (d(14))
ListBox3.AddItem (d(15))

End Sub

Private Sub CommandButton4_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
TextBox15 = ""
End Sub

Private Sub CommandButton5_Click()
ListBox3.Clear
End Sub

Private Sub CommandButton6_Click()
ListBox2.Clear
End Sub

Private Sub CommandButton7_Click()
Rem visualizza nomi ossidi
Dim d(15) As String


d(1) = "ossido di sodio1"
d(2) = "ossido di ferro2"
d(3) = "ossido di rame1"
d(4) = "ossido di ferro3"
d(5) = "ossido di alluminio3"
d(6) = "ossido di piombo2"
d(7) = "ossido di piombo4"
d(8) = "ossido di mercurio2"
d(9) = "ossido di potassio1"
d(10) = "ossido di calcio2"
d(11) = "ossido di zolfo4"
d(12) = "ossido di zolfo6"
d(13) = "ossido di cloro3"
d(14) = "ossido di carbonio4"
d(15) = "ossido di azoto5"
ListBox3.AddItem (d(1))
ListBox3.AddItem (d(2))
ListBox3.AddItem (d(3))
ListBox3.AddItem (d(4))
ListBox3.AddItem (d(5))
ListBox3.AddItem (d(6))
ListBox3.AddItem (d(7))
ListBox3.AddItem (d(8))
ListBox3.AddItem (d(9))
ListBox3.AddItem (d(10))
ListBox3.AddItem (d(11))
ListBox3.AddItem (d(12))
ListBox3.AddItem (d(13))
ListBox3.AddItem (d(14))
ListBox3.AddItem (d(15))

End Sub

Private Sub CommandButton8_Click()
Rem accetta formula ossido come risposta
Rem da confrontare con formula esatta
Dim n(15) As String
Dim r(15) As String
n(1) = "Na2O"
n(2) = "FeO"
n(3) = "Cu2O"
n(4) = "Fe2O3"
n(5) = "Al2O3"
n(6) = "PbO"
n(7) = "PbO2"
n(8) = "HgO"
n(9) = "K2O"
n(10) = "CaO"
n(11) = "SO2"
n(12) = "SO3"
n(13) = "Cl2O3"
n(14) = "CO2"
n(15) = "N2O5"



r(1) = TextBox1.Text
r(2) = TextBox2.Text
r(3) = TextBox3.Text
r(4) = TextBox4.Text
r(5) = TextBox5.Text
r(6) = TextBox6.Text
r(7) = TextBox7.Text
r(8) = TextBox8.Text
r(9) = TextBox9.Text
r(10) = TextBox10.Text
r(11) = TextBox11.Text
r(12) = TextBox12.Text
r(13) = TextBox13.Text
r(14) = TextBox14.Text
r(15) = TextBox15.Text
If r(1) = n(1) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(1))
End If
If r(2) = n(2) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(2))
End If
If r(3) = n(3) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(3))
End If
If r(4) = n(4) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(4))
End If
If r(5) = n(5) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(5))
End If
If r(6) = n(6) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(6))
End If
If r(7) = n(7) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(7))
End If
If r(8) = n(8) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(8))
End If
If r(9) = n(9) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(9))
End If
If r(10) = n(10) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(10))
End If
If r(11) = n(11) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(11))
End If
If r(12) = n(12) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(12))
End If
If r(13) = n(13) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(13))
End If
If r(14) = n(14) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(14))
End If
If r(15) = n(15) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(15))
End If


End Sub

vedi ossidobase.ppt