Contatta Aggiungi Segnala Altro Crea

stechiometria

esercitazione con visual basic su powerpoint
richiesta di coefficienti stechiometrici per bilanciare reazioni proposte
eventuale correzione errori inserimento

Private Sub CommandButton1_Click()
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
Else
ListBox2.AddItem ("errato : era " & n(1))
End If
If r(2) = n(2) Then
Else
ListBox2.AddItem ("errato : era " & n(2))
End If
If r(3) = n(3) Then
Else
ListBox2.AddItem ("errato : era " & n(3))
End If
If r(4) = n(4) Then
Else
ListBox2.AddItem ("errato : era " & n(4))
End If
If r(5) = n(5) Then
Else
ListBox2.AddItem ("errato : era " & n(5))
End If
If r(6) = n(6) Then
Else
ListBox2.AddItem ("errato : era " & n(6))
End If
If r(7) = n(7) Then
Else
ListBox2.AddItem ("errato : era " & n(7))
End If
If r(8) = n(8) Then
Else
ListBox2.AddItem ("errato : era " & n(8))
End If
If r(9) = n(9) Then
Else
ListBox2.AddItem ("errato : era " & n(9))
End If
If r(10) = n(10) Then
Else
ListBox2.AddItem ("errato : era " & n(10))
End If
If r(11) = n(11) Then
Else
ListBox2.AddItem ("errato : era " & n(11))
End If
If r(12) = n(12) Then
Else
ListBox2.AddItem ("errato : era " & n(12))
End If
If r(13) = n(13) Then
Else
ListBox2.AddItem ("errato : era " & n(13))
End If
If r(14) = n(14) Then
Else
ListBox2.AddItem ("errato : era " & n(14))
End If
If r(15) = n(15) Then
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"

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"