chatelier

Private Sub CommandButton1_Click()
Call cancella
End Sub

Private Sub cancella()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
Label6.Caption = ""
Label7.Caption = ""
Label8.Caption = ""
Label9.Caption = ""
Label10.Caption = ""
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
End Sub

Private Sub CommandButton10_Click()
MsgBox "informazioni sul programma"
MsgBox "viene presentata una serie di domande su"
MsgBox "come si sposta un sistema all'equilibrio"
MsgBox "se viene perturbato da variazione di concentrazione"
MsgBox "pressione,temperatura"
MsgBox "scrivere la risposta usando i numeri indicati 0,1,2"
MsgBox "per usare il programma attivare di seguito"
MsgBox "pulsante per cancellare e poi per domande d1..d2..d16"
MsgBox "scrivere le risposte usando TAB per spostarsi"
MsgBox "premere pulsante per controlli c1..c2..c3..c16"
MsgBox "viene indicato se le risposte erano esatte"
End Sub


Private Sub acidi1(f1, f2, f3, f4, f5, r1, r2, r3, r4, r5 As String)
Dim fo(5) As String
Dim rispo(5) As String

fo(1) = f1
fo(2) = f2
fo(3) = f3
fo(4) = f4
fo(5) = f5
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = r1
rispo(2) = r2
rispo(3) = r3
rispo(4) = r4
rispo(5) = r5


End Sub




Private Sub verifica1(a, b, c, d, e, f, g, h, k, m As String)
Dim fo(5) As String
Dim rispo(5) As String
fo(1) = a
fo(2) = b
fo(3) = c
fo(4) = d
fo(5) = e
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = f
rispo(2) = g
rispo(3) = h
rispo(4) = k
rispo(5) = m
If rispo(1) = LCase$(TextBox1.Text) Then
Label6.Caption = "risultato"
Else
Label6.Caption = "errato:" & rispo(1)
End If

If rispo(2) = LCase$(TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & rispo(2)
End If

If rispo(3) = LCase$(TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & rispo(3)
End If

If rispo(4) = LCase$(TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & rispo(4)
End If

If rispo(5) = LCase$(TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & rispo(5)
End If

End Sub




Private Sub CommandButton11_Click()
Call acidi1("2A + 3B <---> 4AB ", "aggiunta di AB", "aggiunta di A", "aggiunta di B", "tolto AB", "", "2", "1", "1", "1")
End Sub

Private Sub CommandButton12_Click()
Call verifica1("2A + 3B <---> 4AB ", "aggiunta di AB", "aggiunta di A", "aggiunta di B", "tolto AB", "", "2", "1", "1", "1")

End Sub




Private Sub CommandButton35_Click()
Call acidi1("2A + 3B <---> 4AB ", "aumenta pressione", "tolto A", "diminuisce la pressione", "tolto B", "", "1", "2", "2", "1")

End Sub
Private Sub CommandButton36_Click()
Call verifica1("2A + 3B <---> 4AB ", "aumenta pressione", "tolto A", "diminuisce la pressione", "tolto B", "", "1", "2", "2", "1")

End Sub


Private Sub CommandButton2_Click()
Call acidi1("2A + 3B <---> 4AB +calore", "aumenta pressione", "aggiunto calore", "diminuisce la pressione", "tolto calore", "", "1", "2", "2", "1")

End Sub

Private Sub CommandButton3_Click()
Call verifica1("2A + 3B <---> 4AB +calore", "aumenta pressione", "aggiunto calore", "diminuisce la pressione", "tolto calore", "", "1", "2", "2", "1")

End Sub

Private Sub CommandButton27_Click()
Call acidi1("3H2 + N2 <---> 2NH3 +calore", "aumenta pressione", "aggiunto calore", "diminuisce la pressione", "tolto calore", "", "1", "2", "2", "1")

End Sub


Private Sub CommandButton28_Click()
Call verifica1("3H2 + N2 <---> 2NH3 +calore", "aumenta pressione", "aggiunto calore", "diminuisce la pressione", "tolto calore", "", "1", "2", "2", "1")

End Sub




Private Sub CommandButton29_Click()
Call acidi1("H2 + Cl2 <---> 2HCl +calore", "aumenta pressione", "aggiunto calore", "diminuisce la pressione", "tolto calore", "", "0", "2", "0", "1")

End Sub

Private Sub CommandButton30_Click()
Call verifica1("H2 + Cl2 <---> 2HCl +calore", "aumenta pressione", "aggiunto calore", "diminuisce la pressione", "tolto calore", "", "0", "2", "0", "1")

End Sub

Private Sub CommandButton31_Click()
Call acidi1("2H2 + O2 <---> 2H2O +calore", "aumenta pressione", "aggiunto calore", "diminuisce la pressione", "tolto calore", "", "1", "2", "2", "1")


End Sub

Private Sub CommandButton32_Click()
Call verifica1("2H2 + O2 <---> 2H2O +calore", "aumenta pressione", "aggiunto calore", "diminuisce la pressione", "tolto calore", "", "1", "2", "2", "1")

End Sub

Private Sub CommandButton33_Click()
Call acidi1("2CO + O2 <---> 2CO2 +calore", "aumenta pressione", "aggiunto calore", "diminuisce la pressione", "tolto calore", "", "1", "2", "2", "1")

End Sub

Private Sub CommandButton34_Click()
Call verifica1("2CO + O2 <---> 2CO2 +calore", "aumenta pressione", "aggiunto calore", "diminuisce la pressione", "tolto calore", "", "1", "2", "2", "1")

End Sub


Private Sub CommandButton4_Click()
Call acidi1("A + 2B <---> AB + B +calore", "aumenta pressione", "aggiunto calore", "diminuisce la pressione", "tolto calore", "", "1", "2", "2", "1")

End Sub

Private Sub CommandButton5_Click()
Call verifica1("A + 2B <---> AB + B +calore", "aumenta pressione", "aggiunto calore", "diminuisce la pressione", "tolto calore", "", "1", "2", "2", "1")

End Sub

Private Sub CommandButton6_Click()
Call acidi1("2A + 3B <---> 4AB ", "aggiunta di AB", "aggiunta di A", "aggiunta di B", "tolto AB", "", "2", "1", "1", "1")

End Sub

Private Sub CommandButton7_Click()
Call verifica1("2A + 3B <---> 4AB ", "aggiunta di AB", "aggiunta di A", "aggiunta di B", "tolto AB", "", "2", "1", "1", "1")

End Sub

Private Sub CommandButton8_Click()
Call acidi1("2C + 3D <---> 4CD ", "aggiunta di CD", "aggiunta di C", "aggiunta di D", "tolto CD", "", "2", "1", "1", "1")

End Sub

Private Sub CommandButton9_Click()
Call verifica1("2C + 3D <---> 4CD ", "aggiunta di CD", "aggiunta di C", "aggiunta di D", "tolto CD", "", "2", "1", "1", "1")
End Sub


Private Sub CommandButton13_Click()
Call acidi1("3H2 + N2 <---> 2NH3 +calore", "aumenta pressione", "tolta NH3", "diminuisce la pressione", "tolto calore", "", "1", "2", "2", "1")

End Sub

Private Sub CommandButton14_Click()
Call verifica1("3H2 + N2 <---> 2NH3 +calore", "aumenta pressione", "tolta NH3", "diminuisce la pressione", "tolto calore", "", "1", "2", "2", "1")

End Sub

Private Sub CommandButton15_Click()
Call acidi1("3H2 + N2 <---> 2NH3 +calore", "aumenta H2", "tolta NH3", "diminuisce la pressione", "aggiunta NH3", "", "1", "1", "2", "2")

End Sub

Private Sub CommandButton16_Click()
Call verifica1("3H2 + N2 <---> 2NH3 +calore", "aumenta H2", "tolta NH3", "diminuisce la pressione", "aggiunta NH3", "", "1", "1", "2", "2")

End Sub

Private Sub CommandButton17_Click()
Call acidi1("2H2 + O2 <---> 2H2O +calore", "aumenta H2", "aggiunto H2O", "aggiunto O2", "tolto calore", "", "1", "2", "1", "1")

End Sub

Private Sub CommandButton18_Click()
Call verifica1("2H2 + O2 <---> 2H2O +calore", "aumenta H2", "aggiunto H2O", "aggiunto O2", "tolto calore", "", "1", "2", "1", "1")

End Sub

Private Sub CommandButton19_Click()
Call acidi1("2C + 3D <---> 4CD ", "aggiunta di CD", "aggiunta di C", "aggiunta di D", "tolto CD", "", "2", "1", "1", "1")

End Sub



Private Sub CommandButton20_Click()
Call verifica1("2C + 3D <---> 4CD ", "aggiunta di CD", "aggiunta di C", "aggiunta di D", "tolto CD", "", "2", "1", "1", "1")

End Sub



Private Sub CommandButton21_Click()
Call acidi1("2A + 3B <---> 4AB ", "aggiunta di AB", "aggiunta di A", "aggiunta di B", "tolto AB", "", "2", "1", "1", "1")

End Sub

Private Sub CommandButton22_Click()
Call verifica1("2A + 3B <---> 4AB ", "aggiunta di AB", "aggiunta di A", "aggiunta di B", "tolto AB", "", "2", "1", "1", "1")

End Sub

Private Sub CommandButton23_Click()
Call acidi1("3A + 3B <---> 2AB ", "aggiunta di AB", "aggiunta di A", "aggiunta di B", "tolto AB", "", "2", "1", "1", "1")

End Sub

Private Sub CommandButton24_Click()
Call verifica1("3A + 3B <---> 2AB ", "aggiunta di AB", "aggiunta di A", "aggiunta di B", "tolto AB", "", "2", "1", "1", "1")

End Sub

Private Sub CommandButton25_Click()
Call acidi1("H2 + I2 <---> 2HCl +calore", "aumenta pressione", "aggiunto calore", "diminuisce la pressione", "tolto calore", "", "0", "2", "0", "1")

End Sub

Private Sub CommandButton26_Click()
Call verifica1("H2 + I2 <---> 2HCl +calore", "aumenta pressione", "aggiunto calore", "diminuisce la pressione", "tolto calore", "", "0", "2", "0", "1")

End Sub




Private Sub UserForm_Click()

End Sub