salexpro

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 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 CommandButton10_Click()
MsgBox "per usare il programma attivare"
MsgBox "pulsante per cancellare(1)"
MsgBox "un pulsante per domande(2) :1,2,3,4"
MsgBox "scrivere le risposte usando TAB per spostarsi"
MsgBox "pulsante per controlli(4) :1,2,3,4"
End Sub

Private Sub CommandButton2_Click()
Call verifica1("NaCl", "CaSO4", "Al(NO3)3", "KNO2", "FeCO3", "cloruro di sodio1", "solfato di calcio2", "nitrato di alluminio3", "nitrito di potassio1", "carbonato di ferro2")
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) = (TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & rispo(1)
End If

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

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

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

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

End Sub



Private Sub CommandButton3_Click()
acidi1
End Sub

Private Sub CommandButton4_Click()
Call acidi1("CuF", "Fe(SO3)3", "PbCl4", "CuCO3", "Mg(ClO)2", "fluoruro di rame1", "solfito di ferro3", "cloruro di piombo4", "carbonato di rame2", "ipoclorito di magnesio2")
End Sub

Private Sub CommandButton5_Click()
Call verifica1("CuF", "Fe(SO3)3", "PbCl4", "CuCO3", "Mg(ClO)2", "fluoruro di rame1", "solfito di ferro3", "cloruro di piombo4", "carbonato di rame2", "ipoclorito di magnesio2")
End Sub

Private Sub CommandButton6_Click()
Call acidi1("NaClO3", "Cu(NO3)2", "AlPO4", "KClO4", "FeSO3", "clorato di sodio1", "nitrato di rame2", "fosfato di alluminio3", "perclorato di potassio1", "sssolfito di ferro2")
End Sub

Private Sub CommandButton7_Click()
Call verifica1("NaClO3", "Cu(NO3)2", "AlPO4", "KClO4", "FeSO3", "clorato di sodio1", "nitrato di rame2", "fosfato di alluminio3", "perclorato di potassio1", "solfito di ferro2")
End Sub

Private Sub CommandButton8_Click()
Call acidi1("CuI", "Fe(ClO3)3", "Pb(NO2)4", "CuCO3", "MgS", "ioduro di rame1", "clorato di ferro3", "nitrito di piombo4", "carbonato di rame2", "solfuro di magnesio2")
End Sub

Private Sub CommandButton9_Click()
Call verifica1("CuI", "Fe(ClO3)3", "Pb(NO2)4", "CuCO3", "MgS", "ioduro di rame1", "clorato di ferro3", "nitrito di piombo4", "carbonato di rame2", "solfuro di magnesio2")
End Sub

Private Sub domande1_Click()
Call acidi1("NaCl", "CaSO4", "Al(NO3)3", "KNO2", "FeCO3", "cloruro di sodio1", "solfato di calcio2", "nitrato di alluminio3", "nitrito di potassio1", "carbonato di ferro2")
End Sub






Private Sub UserForm_Click()

End Sub