nomenclatura sali

esercitazione con visual basic su powerpoint e interazione su nomi e formule di sali
si fornisce serie di nomi di sali e si richiede formula
si fornisce serie di formule di sali e si richiede nome
si confronta e commenta risposta con quella esatta
es. solfato di ferro2......nitrato di piombo4..

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

n(1) = "solfato di ferro2"
n(2) = "nitrato di sodio1"
n(3) = "cloruro di potassio1"
n(4) = "fluoruro di calcio2"
n(5) = "carbonato di magnesio2"
n(6) = "ioduro di piombo2"
n(7) = "solfito di sodio1"
n(8) = "nitrito di calcio2"
n(9) = "fosfato di potassio1"
n(10) = "ipoclorito di sodio1"
n(11) = "clorito di potassio1"
n(12) = "clorato di sodio1"
n(13) = "perclorato di potassio1"
n(14) = "fosfito di calcio2"
n(15) = "solfuro di zinco2"


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 sali
Dim d(15) As String
d(1) = "FeSO4"
d(2) = "NaNO3"
d(3) = "KCl"
d(4) = "CaF2"
d(5) = "MgCO3"
d(6) = "PbI2"
d(7) = "Na2SO3"
d(8) = "Ca(NO2)2"
d(9) = "K3PO4"
d(10) = "NaClO"
d(11) = "KClO2"
d(12) = "NaClO3"
d(13) = "KClO4"
d(14) = "Ca3(PO3)2"
d(15) = "ZnS"



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 sali
Dim d(15) As String


d(1) = "solfato di ferro2"
d(2) = "nitrato di sodio1"
d(3) = "cloruro di potassio1"
d(4) = "fluoruro di calcio2"
d(5) = "carbonato di magnesio2"
d(6) = "ioduro di piombo2"
d(7) = "solfito di sodio1"
d(8) = "nitrito di calcio2"
d(9) = "fosfato di potassio1"
d(10) = "ipoclorito di sodio1"
d(11) = "clorito di potassio1"
d(12) = "clorato di sodio1"
d(13) = "perclorato di potassio1"
d(14) = "fosfito di calcio2"
d(15) = "solfuro di zinco2"

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 sale come risposta
Rem da confrontare con formula esatta
Dim n(15) As String
Dim r(15) As String

n(1) = "FeSO4"
n(2) = "NaNO3"
n(3) = "KCl"
n(4) = "CaF2"
n(5) = "MgCO3"
n(6) = "PbI2"
n(7) = "Na2SO3"
n(8) = "Ca(NO2)2"
n(9) = "K3PO4"
n(10) = "NaClO"
n(11) = "KClO2"
n(12) = "NaClO3"
n(13) = "KClO4"
n(14) = "Ca3(PO3)2"
n(15) = "ZnS"

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 nomisale.ppt