Rem accetta coeffciienti come risposta
Rem da confrontare con coefficienti esatti
Dim n(15) As String
Dim r(15) As String
n(1) = "2,1,1,2"
n(2) = "1,2,1,1"
n(3) = "1,2,1,1"
n(4) = "1,2,1,1"
n(5) = "2,1,1,2"
n(6) = "1,1,1,1"
n(7) = "1,1,1,1"
n(8) = "1,2,2,1"
n(9) = "3,2,1,6"
n(10) = "1,2,2,1"
n(11) = "1,1,1,1"
n(12) = "1,2,2,1"
n(13) = "1,1,1,1"
n(14) = "3,2,1,6"
n(15) = "1,1,1,1"
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 reazioni da bilanciare
Dim d(15) As String
d(1) = "NaOH + H2SO4 > Na2SO4 + H2O"
d(2) = "CaO + HNO3 > Ca(NO3)2 + H2O"
d(3) = "Zn + HCl > ZnCl2 + H2"
d(4) = "CaO + HF > CaF2 + H2O"
d(5) = "KOH + H2CO3 > K2CO3 + H2O"
d(6) = "NaOH + HI > NaI + H2O"
d(7) = "MgO + H2SO3 > MgSO3 + H2O"
d(8) = "Na2O + HNO2 > NaNO2 + H2O"
d(9) = "Ca(OH)2 + H3PO4 > Ca3(PO4)2 + H2O"
d(10) = "K2O + HClO > KClO + H2O"
d(11) = "NaOH + HClO2 > NaClO2 + H2O"
d(12) = "Na2O + HClO3 > NaClO3 + H20"
d(13) = "KOH + HClO4 > KClO4 + H2O"
d(14) = "Ca(OH)2 + H3PO3 > Ca3(PO3)2 + H2O"
d(15) = "FeO + H2S > FeS + H2O"
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
ListBox4.Clear
End Sub
Private Sub CommandButton7_Click()
Rem visualizza reazioni bilanciate
Dim d(15) As String
d(1) = "2NaOH + H2SO4 > Na2SO4 + 2H2O"
d(2) = "1CaO + 2HNO3 > 1Ca(NO3)2 + 1H2O"
d(3) = "1Zn + 2HCl > 1ZnCl2 + 1H2"
d(4) = "1CaO + 2HF > 1CaF2 + 1H2O"
d(5) = "2KOH + 1H2CO3 > 1K2CO3 + 2H2O"
d(6) = "1NaOH + 1HI > 1NaI + 1H2O"
d(7) = "1MgO + 1H2SO3 > 1MgSO3 + 1H2O"
d(8) = "1Na2O + 2HNO2 > 2NaNO2 + 1H2O"
d(9) = "3Ca(OH)2 + 2H3PO4 > 1Ca3(PO4)2 + 6H2O"
d(10) = "1K2O + 2HClO > 21KClO + H2O"
d(11) = "1NaOH + 1HClO2 > 1NaClO2 + 1H2O"
d(12) = "1Na2O + 2HClO3 > 2NaClO3 + 1H20"
d(13) = "1KOH + 1HClO4 > 1KClO4 + 1H2O"
d(14) = "3Ca(OH)2 + 2H3PO3 > 1Ca3(PO3)2 + 6H2O"
d(15) = "1FeO + 1H2S > 1FeS + 1H2O"
ListBox4.AddItem (d(1))
ListBox4.AddItem (d(2))
ListBox4.AddItem (d(3))
ListBox4.AddItem (d(4))
ListBox4.AddItem (d(5))
ListBox4.AddItem (d(6))
ListBox4.AddItem (d(7))
ListBox4.AddItem (d(8))
ListBox4.AddItem (d(9))
ListBox4.AddItem (d(10))
ListBox4.AddItem (d(11))
ListBox4.AddItem (d(12))
ListBox4.AddItem (d(13))
ListBox4.AddItem (d(14))
ListBox4.AddItem (d(15))
End Sub
