Pagina normale senza titolo

nomenclatura chimica
codice per programma su nomenclatura chimica interattivo
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 "vengono presentate formule chimiche"
MsgBox "si devono scrivere i nomi corrispondenti come indicato"
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 = "esatto"
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("NaOH", "Ca(OH)2", "Al(OH)3", "KOH", "Fe(OH)2", "idrossido di sodio1", "idrossido di calcio2", "idrossido di alluminio3", "idrossido di potassio1", "idrossido di ferro2")
End Sub




Private Sub CommandButton19_Click()
Call acidi1("Na20", "Ca0", "Al2O3", "K2O", "FeO", "ossido di sodio1", "ossido di calcio2", "ossido di alluminio3", "ossido di potassio1", "ossido di ferro2")

End Sub

Private Sub CommandButton2_Click()
Call verifica1("H2SO4", "HNO3", "HCl", "H2S", "HF", "acido solforico", "acido nitrico", "acido cloridrico", "acido solfridrico", "acido fluoridrico")
End Sub

Private Sub CommandButton3_Click()
Call verifica1("H2SO4", "HNO3", "HCl", "H2S", "HF", "acido solforico", "acido nitrico", "acido cloridrico", "acido solfridrico", "acido fluoridrico")
End Sub

Private Sub CommandButton27_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 CommandButton28_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 CommandButton29_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 CommandButton30_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 CommandButton31_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 CommandButton32_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 CommandButton33_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 CommandButton34_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 CommandButton35_Click()
Call acidi2("H2SO4", "HNO3", "HCl", "H2S", "HF", "acido solforico", "acido nitrico", "acido cloridrico", "acido solfridrico", "acido fluoridrico")
End Sub


Private Sub CommandButton36_Click()
Call verifica2("H2SO4", "HNO3", "HCl", "H2S", "HF", "acido solforico", "acido nitrico", "acido cloridrico", "acido solfridrico", "acido fluoridrico")
End Sub

Private Sub CommandButton37_Click()
Call acidi2("H2SO3", "HNO2", "HBr", "H3PO3", "HI", "acido solforoso", "acido nitroso", "acido bromidrico", "acido fosforoso", "acido iodidrico")
End Sub

Private Sub CommandButton38_Click()
Call verifica2("H2SO3", "HNO2", "HBr", "H3PO3", "HI", "acido solforoso", "acido nitroso", "acido bromidrico", "acido fosforoso", "acido iodidrico")
End Sub

Private Sub CommandButton39_Click()
Call acidi2("HClO", "HClO4", "HClO3", "HClO2", "H3PO4", "acido ipocloroso", "acido perclorico", "acido clorico", "acido cloroso", "acido fosforico")
End Sub

Private Sub CommandButton4_Click()
Call acidi1("H2SO3", "HNO2", "HBr", "H3PO3", "HI", "acido solforoso", "acido nitroso", "acido bromidrico", "acido fosforoso", "acido iodidrico")
End Sub

Private Sub CommandButton40_Click()
Call verifica2("HClO", "HClO4", "HClO3", "HClO2", "H3PO4", "acido ipocloroso", "acido perclorico", "acido clorico", "acido cloroso", "acido fosforico")
End Sub

Private Sub CommandButton41_Click()
Call acidi2("HIO4", "H3PO3", "HBrO3", "HBrO2", "HIO2", "acido periodico", "acido fosforoso", "acido bromico", "acido bromoso", "acido iodoso")
End Sub

Private Sub CommandButton42_Click()
Call verifica2("HIO4", "H3PO3", "HBrO3", "HBrO2", "HIO2", "acido periodico", "acido fosforoso", "acido bromico", "acido bromoso", "acido iodoso")
End Sub

Private Sub CommandButton43_Click()
Call acidi2("NaOH", "Ca(OH)2", "Al(OH)3", "KOH", "Fe(OH)2", "idrossido di sodio1", "idrossido di calcio2", "idrossido di alluminio3", "idrossido di potassio1", "idrossido di ferro2")
End Sub

Private Sub CommandButton44_Click()
Call verifica2("NaOH", "Ca(OH)2", "Al(OH)3", "KOH", "Fe(OH)2", "idrossido di sodio1", "idrossido di calcio2", "idrossido di alluminio3", "idrossido di potassio1", "idrossido di ferro2")
End Sub

Private Sub CommandButton45_Click()
Call acidi2("CuOH", "Fe(OH)3", "Pb(OH)4", "Cu(OH)2", "Mg(OH)2", "idrossido di rame1", "idrossido di ferro3", "idrossido di piombo4", "idrossido di rame2", "idrossido di magnesio2")
End Sub

Private Sub CommandButton46_Click()
Call verifica2("CuOH", "Fe(OH)3", "Pb(OH)4", "Cu(OH)2", "Mg(OH)2", "idrossido di rame1", "idrossido di ferro3", "idrossido di piombo4", "idrossido di rame2", "idrossido di magnesio2")
End Sub

Private Sub CommandButton47_Click()
Call acidi2("NaH", "CuH2", "AlH3", "KH", "FeH2", "idruro di sodio1", "idruro di rame2", "idruro di alluminio3", "idruro di potassio1", "idruro di ferro2")
End Sub

Private Sub CommandButton48_Click()
Call verifica2("NaH", "CuH2", "AlH3", "KH", "FeH2", "idruro di sodio1", "idruro di calcio2", "idruro di alluminio3", "idruro di potassio1", "idruro di ferro2")
End Sub

Private Sub CommandButton49_Click()
Call acidi2("CuH", "FeH3", "PbH4", "CuH2", "MgH2", "idruro di rame1", "idruro di ferro3", "idruro di piombo4", "idruro di rame2", "idruro di magnesio2")
End Sub

Private Sub CommandButton5_Click()
Call verifica1("H2SO3", "HNO2", "HBr", "H3PO3", "HI", "acido solforoso", "acido nitroso", "acido bromidrico", "acido fosforoso", "acido iodidrico")
End Sub

Private Sub CommandButton50_Click()
Call verifica2("CuH", "FeH3", "PbH4", "CuH2", "MgH2", "idruro di rame1", "idruro di ferro3", "idruro di piombo4", "idruro di rame2", "idruro di magnesio2")
End Sub

Private Sub CommandButton51_Click()
Call acidi2("Na20", "Ca0", "Al2O3", "K2O", "FeO", "ossido di sodio1", "ossido di calcio2", "ossido di alluminio3", "ossido di potassio1", "ossido di ferro2")
End Sub

Private Sub CommandButton52_Click()
Call verifica2("Na2O", "CaO", "Al2O3", "K2O", "FeO", "ossido di sodio1", "ossido di calcio2", "ossido di alluminio3", "ossido di potassio1", "ossido di ferro2")
End Sub

Private Sub CommandButton53_Click()
Call acidi2("Cu2O", "Fe2O3", "PbO2", "CuO", "MgO", "ossido di rame1", "ossido di ferro3", "ossido di piombo4", "ossido di rame2", "ossido di magnesio2")
End Sub

Private Sub CommandButton54_Click()
Call verifica2("Cu2O", "Fe2O3", "PbO2", "CuO", "MgO", "ossido di rame1", "ossido di ferro3", "ossido di piombo4", "ossido di rame2", "ossido di magnesio2")
End Sub

Private Sub CommandButton55_Click()
Call acidi2("N2O5", "P2O3", "Cl2O5", "P2O5", "Cl2O7", "ossido di azoto5", "ossido di fosforo3", "ossido di cloro5", "ossido di fosforo5", "ossido di cloro7")
End Sub

Private Sub CommandButton56_Click()
Call verifica2("N2O5", "P2O3", "Cl2O5", "P2O5", "Cl2O7", "ossido di azoto5", "ossido di fosforo3", "ossido di cloro5", "ossido di fosforo5", "ossido di cloro7")
End Sub

Private Sub CommandButton57_Click()
Call acidi2("SO2", "CO2", "SO3", "N2O3", "Cl2O", "ossido di zolfo4", "ossido di carbonio4", "ossido di zolfo6", "ossido di azoto3", "ossido di cloro1")
End Sub

Private Sub CommandButton58_Click()
Call verifica2("SO2", "CO2", "SO3", "N2O3", "Cl2O", "ossido di zolfo4", "ossido di carbonio4", "ossido di zolfo6", "ossido di azoto3", "ossido di cloro1")
End Sub

Private Sub CommandButton59_Click()
Call acidi2("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 CommandButton6_Click()
Call acidi1("HClO", "HClO4", "HClO3", "HClO2", "H3PO4", "acido ipocloroso", "acido perclorico", "acido clorico", "acido cloroso", "acido fosforico")
End Sub

Private Sub CommandButton60_Click()
Call verifica2("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 CommandButton61_Click()
Call acidi2("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 CommandButton62_Click()
Call verifica2("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 CommandButton63_Click()
Call acidi2("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 CommandButton64_Click()
Call verifica2("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 CommandButton65_Click()
Call acidi2("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 CommandButton66_Click()
Call verifica2("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 CommandButton7_Click()
Call verifica1("HClO", "HClO4", "HClO3", "HClO2", "H3PO4", "acido ipocloroso", "acido perclorico", "acido clorico", "acido cloroso", "acido fosforico")
End Sub

Private Sub CommandButton8_Click()
Call acidi1("HIO4", "H3PO3", "HBrO3", "HBrO2", "HIO2", "acido periodico", "acido fosforoso", "acido bromico", "acido bromoso", "acido iodoso")
End Sub

Private Sub CommandButton9_Click()
Call verifica1("HIO4", "H3PO3", "HBrO3", "HBrO2", "HIO2", "acido periodico", "acido fosforoso", "acido bromico", "acido bromoso", "acido iodoso")
End Sub


Private Sub domande1_Click()
Call acidi1("H2SO4", "HNO3", "HCl", "H2S", "HF", "acido solforico", "acido nitrico", "acido cloridrico", "acido solfridrico", "acido fluoridrico")
End Sub



Private Sub CommandButton12_Click()
Call verifica1("NaOH", "Ca(OH)2", "Al(OH)3", "KOH", "Fe(OH)2", "idrossido di sodio1", "idrossido di calcio2", "idrossido di alluminio3", "idrossido di potassio1", "idrossido di ferro2")
End Sub


Private Sub CommandButton13_Click()
Call acidi1("CuOH", "Fe(OH)3", "Pb(OH)4", "Cu(OH)2", "Mg(OH)2", "idrossido di rame1", "idrossido di ferro3", "idrossido di piombo4", "idrossido di rame2", "idrossido di magnesio2")
End Sub

Private Sub CommandButton14_Click()
Call verifica1("CuOH", "Fe(OH)3", "Pb(OH)4", "Cu(OH)2", "Mg(OH)2", "idrossido di rame1", "idrossido di ferro3", "idrossido di piombo4", "idrossido di rame2", "idrossido di magnesio2")
End Sub

Private Sub CommandButton15_Click()
Call acidi1("NaH", "CuH2", "AlH3", "KH", "FeH2", "idruro di sodio1", "idruro di rame2", "idruro di alluminio3", "idruro di potassio1", "idruro di ferro2")
End Sub

Private Sub CommandButton16_Click()
Call verifica1("NaH", "CuH2", "AlH3", "KH", "FeH2", "idruro di sodio1", "idruro di calcio2", "idruro di alluminio3", "idruro di potassio1", "idruro di ferro2")
End Sub

Private Sub CommandButton17_Click()
Call acidi1("CuH", "FeH3", "PbH4", "CuH2", "MgH2", "idruro di rame1", "idruro di ferro3", "idruro di piombo4", "idruro di rame2", "idruro di magnesio2")
End Sub

Private Sub CommandButton18_Click()
Call verifica1("CuH", "FeH3", "PbH4", "CuH2", "MgH2", "idruro di rame1", "idruro di ferro3", "idruro di piombo4", "idruro di rame2", "idruro di magnesio2")
End Sub

Private Sub button11_Click()
Call acidi1("NaOH", "Ca(OH)2", "Al(OH)3", "KOH", "Fe(OH)2", "idrossido di sodio1", "idrossido di calcio2", "idrossido di alluminio3", "idrossido di potassio1", "idrossido di ferro2")
End Sub



Private Sub CommandButton20_Click()
Call verifica1("Na2O", "CaO", "Al2O3", "K2O", "FeO", "ossido di sodio1", "ossido di calcio2", "ossido di alluminio3", "ossido di potassio1", "ossido di ferro2")
End Sub



Private Sub CommandButton21_Click()
Call acidi1("Cu2O", "Fe2O3", "PbO2", "CuO", "MgO", "ossido di rame1", "ossido di ferro3", "ossido di piombo4", "ossido di rame2", "ossido di magnesio2")
End Sub

Private Sub CommandButton22_Click()
Call verifica1("Cu2O", "Fe2O3", "PbO2", "CuO", "MgO", "ossido di rame1", "ossido di ferro3", "ossido di piombo4", "ossido di rame2", "ossido di magnesio2")
End Sub

Private Sub CommandButton23_Click()
Call acidi1("N2O5", "P2O3", "Cl2O5", "P2O5", "Cl2O7", "ossido di azoto5", "ossido di fosforo3", "ossido di cloro5", "ossido di fosforo5", "ossido di cloro7")
End Sub

Private Sub CommandButton24_Click()
Call verifica1("N2O5", "P2O3", "Cl2O5", "P2O5", "Cl2O7", "ossido di azoto5", "ossido di fosforo3", "ossido di cloro5", "ossido di fosforo5", "ossido di cloro7")
End Sub

Private Sub CommandButton25_Click()
Call acidi1("SO2", "CO2", "SO3", "N2O3", "Cl2O", "ossido di zolfo4", "ossido di carbonio4", "ossido di zolfo6", "ossido di azoto3", "ossido di cloro1")
End Sub

Private Sub CommandButton26_Click()
Call verifica1("SO2", "CO2", "SO3", "N2O3", "Cl2O", "ossido di zolfo4", "ossido di carbonio4", "ossido di zolfo6", "ossido di azoto3", "ossido di cloro1")
End Sub



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

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


End Sub




Private Sub verifica2(a, b, c, d, e, f, g, h, k, m As String)
Dim fo(5) As String
Dim rispo(5) As String
fo(1) = f
fo(2) = g
fo(3) = h
fo(4) = k
fo(5) = m
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = a
rispo(2) = b
rispo(3) = c
rispo(4) = d
rispo(5) = e
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 UserForm_Click()

End Sub
inizio