nomi acidi

esercitazione interattiva su nomenclatura acidi inorganici con visual basic su powerpoint
si propone una serie di formule e si devono inserire i nomi:si confronta la risposta inserita
con quella esatta e conferma o visualizza nomi esatti
si propone una serie di nomi di acidi e si richiede di scrivere come risposta la formula chimica:
si confronta la risposta con quella esatta: si conferma o si visualizza formula esata

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

n(1) = "solforico"
n(2) = "nitrico"
n(3) = "cloridrico"
n(4) = "fluoridrico"
n(5) = "carbonico"
n(6) = "iodidrico"
n(7) = "solforoso"
n(8) = "nitroso"
n(9) = "fosforico"
n(10) = "ipocloroso"
n(11) = "cloroso"
n(12) = "clorico"
n(13) = "perclorico"
n(14) = "fosforoso"
n(15) = "solfidrico"


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 acidi
Dim d(15) As String
d(1) = "H2SO4"
d(2) = "HNO3"
d(3) = "HCl"
d(4) = "HF"
d(5) = "H2CO3"
d(6) = "HI"
d(7) = "H2SO3"
d(8) = "HNO2"
d(9) = "H3PO4"
d(10) = "HClO"
d(11) = "HClO2"
d(12) = "HClO3"
d(13) = "HClO4"
d(14) = "H3PO3"
d(15) = "H2S"


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 acidi
Dim d(15) As String
d(1) = "solforico"
d(2) = "nitrico"
d(3) = "cloridrico"
d(4) = "fluoridrico"
d(5) = "carbonico"
d(6) = "iodidrico"
d(7) = "solforoso"
d(8) = "nitroso"
d(9) = "fosforico"
d(10) = "ipocloroso"
d(11) = "cloroso"
d(12) = "clorico"
d(13) = "perclorico"
d(14) = "fosforoso"
d(15) = "solfidrico"


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

n(1) = "H2SO4"
n(2) = "HNO3"
n(3) = "HCl"
n(4) = "HF"
n(5) = "H2CO3"
n(6) = "HI"
n(7) = "H2SO3"
n(8) = "HNO2"
n(9) = "H3PO4"
n(10) = "HClO"
n(11) = "HClO2"
n(12) = "HClO3"
n(13) = "HClO4"
n(14) = "H3PO3"
n(15) = "H2S"


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