riconoscimento legami chimici con visual basic

cliccare domanda d1

appare serie formule :si deve indicare tipo legame presente

scrivere tipi legami: e poi cliccare risposta c1:appare correzione o conferma

VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} chimica2 
   Caption         =   "UserForm1"
   ClientHeight    =   4590
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8070
   OleObjectBlob   =   "legame1x.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "chimica2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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 e richiesto "
MsgBox "tipo di legame:omopolare,polare,ionico,metallico"
MsgBox "se presente formula singola:scrivi tipo di legame"
MsgBox "se presente formula doppia Ca-Ca....Cl2-Cl2.."
MsgBox "scrivi tipo di forza intermolecolare presente"
MsgBox "debole,dipolo,ionica,idrogeno"
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("HCl", "H2S", "H2O", "NaCl", "KF", "polare", "polare", "idrogeno", "ionico", "ionico")
End Sub

Private Sub CommandButton12_Click()
Call verifica1("HCl", "H2S", "H2O", "NaCl", "KF", "polare", "polare", "idrogeno", "ionico", "ionico")
End Sub
Private Sub CommandButton19_Click()
Call acidi1("HF", "KH", "CaH", "SO3", "KCl", "ionico", "polare", "polare", "polare", "ionico")
End Sub
Private Sub CommandButton20_Click()
Call verifica1("HF", "KH", "CaH", "SO3", "KCl", "ionico", "polare", "polare", "polare", "ionico")
End Sub

Private Sub CommandButton27_Click()
Call acidi1("Cl2O", "Cl2", "SO3", "N2O3", "CaF2", "polare", "omopolare", "polare", "polare", "ionico")
End Sub

Private Sub CommandButton28_Click()
Call verifica1("Cl2O", "Cl2", "SO3", "N2O3", "CaF2", "polare", "omopolare", "polare", "polare", "ionico")
End Sub

Private Sub CommandButton29_Click()
Call acidi1("CaO", "O2", "N2O5", "P2O5", "KCl", "ionico", "omopolare", "polare", "polare", "ionico")
End Sub

Private Sub CommandButton30_Click()
Call verifica1("CaO", "O2", "N2O5", "P2O5", "KCl", "ionico", "omopolare", "polare", "polare", "ionico")
End Sub

Private Sub CommandButton31_Click()
Call acidi1("HBr", "Cl2O5", "K2O", "Cl2O7", "MgF2", "polare", "polare", "ionico", "polare", "ionico")
End Sub

Private Sub CommandButton32_Click()
Call verifica1("HBr", "Cl2O5", "K2O", "Cl2O7", "MgF2", "polare", "polare", "ionico", "polare", "ionico")
End Sub

Private Sub CommandButton33_Click()
Call acidi1("Cu.Cu", "Na.Na", "KH", "KCl", "K.K", "metallico", "metallico", "polare", "ionico", "metallico")
End Sub

Private Sub CommandButton34_Click()
Call verifica1("Cu.Cu", "Na.Na", "KH", "KCl", "K.K", "metallico", "metallico", "polare", "ionico", "metallico")

End Sub

Private Sub CommandButton4_Click()
Call acidi1("H2-H2", "N2-N2", "H2O-H2O", "NH3-NH3", "O2-O2", "debole", "debole", "idrogeno", "idrogeno", "debole")
End Sub

Private Sub CommandButton5_Click()
Call verifica1("H2-H2", "N2-N2", "H2O-H2O", "NH3-NH3", "O2-O2", "debole", "debole", "idrogeno", "idrogeno", "debole")

End Sub

Private Sub CommandButton6_Click()
Call acidi1("SO3-SO3", "CO2-CO2", "Cl2O-Cl2O", "I2-I2", "F2-F2", "dipolo", "debole", "dipolo", "debole", "debole")
End Sub

Private Sub CommandButton7_Click()
Call verifica1("SO3-SO3", "CO2-CO2", "Cl2O-Cl2O", "I2-I2", "F2-F2", "dipolo", "debole", "dipolo", "debole", "debole")

End Sub

Private Sub CommandButton8_Click()
Call acidi1("NaCl-NaCl", "CH4-CH4", "KF-KF", "HCl-H2O", "CaF-CaF", "ionica", "debole", "ionica", "idrogeno", "ionica")
End Sub

Private Sub CommandButton9_Click()
Call verifica1("NaCl-NaCl", "CH4-CH4", "KF-KF", "HCl-H2O", "CaF-CaF", "ionica", "debole", "ionica", "idrogeno", "ionica")

End Sub

Private Sub CommandButton13_Click()
Call acidi1("NH3-H2O", "I2-I2", "Br2-Br2", "Cl2-Cl2", "H2O-H2O", "idrogeno", "debole", "debole", "debole", "idrogeno")
End Sub

Private Sub CommandButton14_Click()
Call verifica1("NH3-H2O", "I2-I2", "Br2-Br2", "Cl2-Cl2", "H2O-H2O", "idrogeno", "debole", "debole", "debole", "idrogeno")

End Sub

Private Sub CommandButton15_Click()
Call acidi1("NaH", "CuH2", "AlH3", "KH", "FeH2", "polare", "polare", "polare", "polare", "polare")
End Sub

Private Sub CommandButton16_Click()
Call verifica1("NaH", "CuH2", "AlH3", "KH", "FeH2", "polare", "polare", "polare", "polare", "polare")
End Sub

Private Sub CommandButton17_Click()
Call acidi1("CuO", "FeF2", "NaF", "CuH2", "MgH2", "ionico", "ionico", "ionico", "polare", "polare")
End Sub

Private Sub CommandButton18_Click()
Call verifica1("CuO", "FeF2", "NaF", "CuH2", "MgH2", "ionico", "ionico", "ionico", "polare", "polare")
End Sub

Private Sub CommandButton21_Click()
Call acidi1("NH3-H2O", "I2-I2", "Br2-Br2", "Cl2-Cl2", "H2O-H2O", "idrogeno", "debole", "debole", "debole", "idrogeno")
End Sub

Private Sub CommandButton22_Click()
Call verifica1("NH3-H2O", "I2-I2", "Br2-Br2", "Cl2-Cl2", "H2O-H2O", "idrogeno", "debole", "debole", "debole", "idrogeno")
End Sub

Private Sub CommandButton23_Click()
Call acidi1("N2O5", "P2O3", "Cl2O5", "P2O5", "Cl2O7", "polare", "polare", "polare", "polare", "polare")
End Sub

Private Sub CommandButton24_Click()
Call verifica1("N2O5", "P2O3", "Cl2O5", "P2O5", "Cl2O7", "polare", "polare", "polare", "polare", "polare")

End Sub

Private Sub CommandButton25_Click()
Call acidi1("SO2", "CO2", "SO3", "N2O3", "Cl2O", "polare", "polare", "polare", "polare", "polare")
End Sub

Private Sub CommandButton26_Click()
Call verifica1("SO2", "CO2", "SO3", "N2O3", "Cl2O", "polare", "polare", "polare", "polare", "polare")

End Sub
Private Sub CommandButton35_Click()
Call acidi1("HCl", "H2S", "H2O", "NaCl", "KF", "polare", "polare", "idrogeno", "ionico", "ionico")

End Sub
Private Sub CommandButton36_Click()
Call verifica1("HCl", "H2S", "H2O", "NaCl", "KF", "polare", "polare", "idrogeno", "ionico", "ionico")

End Sub

Private Sub UserForm_Click()

End Sub