salex
interazione su domande relative a formule chimiche di sali
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