configu4
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 configurazione elettronica
completa"
MsgBox "viene richiesto numero atomi Z="
MsgBox "si deve scrivere configurazione ultimo livello"
MsgBox "2s2-2p3"
MsgBox "scrivere periodo 1,2,3,4,5,6,7.....2"
MsgBox "scrivere gruppo (da 1 a 8 romano) :5 "
MsgBox "scrivere blocco s,p,d,f......p"
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("1s2-2s2-2p2..Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "6", "2s2-2p2",
"2", "4", "p")
End Sub
Private Sub CommandButton12_Click()
Call verifica1("1s2-2s2-2p2..Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "6", "2s2-2p2",
"2", "4", "p")
End Sub
Private Sub CommandButton35_Click()
Call acidi1("1s2-2s2-2p6-3s2-3p4...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "16", "3s2-3p4",
"3", "6", "p")
End Sub
Private Sub CommandButton36_Click()
Call verifica1("1s2-2s2-2p6-3s2-3p4...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "16", "3s2-3p4",
"3", "6", "p")
End Sub
Private Sub CommandButton2_Click()
Call acidi1("1s2-2s2-2p6-3s2-3p6...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "18", "3s2-3p6",
"3", "8", "p")
End Sub
Private Sub CommandButton3_Click()
Call verifica1("1s2-2s2-2p6-3s2-3p6...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "18", "3s2-3p6",
"3", "8", "p")
End Sub
Private Sub CommandButton27_Click()
Call acidi1("1s2-2s2-2p6-3s2-3p5...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "17", "3s2-3p5",
"3", "7", "p")
End Sub
Private Sub CommandButton28_Click()
Call verifica1("1s2-2s2-2p6-3s2-3p5...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "17", "3s2-3p5",
"3", "7", "p")
End Sub
Private Sub CommandButton29_Click()
Call acidi1("1s2-2s2-2p6-3s2-3p6-4s2...Z=",
"ultimo livello", "periodo",
"gruppo", "blocco", "20",
"4s2", "4", "2", "s")
End Sub
Private Sub CommandButton30_Click()
Call verifica1("1s2-2s2-2p6-3s2-3p6-4s2...Z=",
"ultimo livello", "periodo",
"gruppo", "blocco", "20",
"4s2", "4", "2", "s")
End Sub
Private Sub CommandButton31_Click()
Call acidi1("1s2-2s2-2p5...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "9", "2s2-2p5",
"2", "7", "p")
End Sub
Private Sub CommandButton32_Click()
Call verifica1("1s2-2s2-2p5...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "9", "2s2-2p5",
"2", "7", "p")
End Sub
Private Sub CommandButton33_Click()
Call acidi1("1s2-2s2-2p6-3s2-3p3...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "15", "3s2-3p3",
"3", "5", "p")
End Sub
Private Sub CommandButton34_Click()
Call acidi1("1s2-2s2-2p6-3s2-3p3...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "15", "3s2-3p3",
"3", "5", "p")
End Sub
Private Sub CommandButton4_Click()
Call acidi1("1s2-2s2-2p6-3s1...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "11", "3s1",
"3", "1", "s")
End Sub
Private Sub CommandButton5_Click()
Call verifica1("1s2-2s2-2p6-3s1...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "11", "3s1",
"3", "1", "s")
End Sub
Private Sub CommandButton6_Click()
Call acidi1("1s2-2s2-2p1...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "5", "2s2-2p1",
"2", "3", "p")
End Sub
Private Sub CommandButton7_Click()
Call verifica1("1s2-2s2-2p1...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "5", "2s2-2p1",
"2", "3", "p")
End Sub
Private Sub CommandButton8_Click()
Call acidi1("1s2-2s2-2p6...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "10", "2s2-2p6",
"2", "8", "p")
End Sub
Private Sub CommandButton9_Click()
Call verifica1("1s2-2s2-2p6...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "10", "2s2-2p6",
"2", "8", "p")
End Sub
Private Sub CommandButton13_Click()
Call acidi1("1s2-2s2-2p6-3s2-3p6-4s1...Z=",
"ultimo livello", "periodo",
"gruppo", "blocco", "19",
"4s1", "4", "1", "s")
End Sub
Private Sub CommandButton14_Click()
Call verifica1("1s2-2s2-2p6-3s2-3p6-4s1...Z=",
"ultimo livello", "periodo",
"gruppo", "blocco", "19",
"4s1", "4", "1", "s")
End Sub
Private Sub CommandButton15_Click()
Call acidi1("1s2-2s2-2p6-3s2...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "12", "3s2",
"3", "2", "s")
End Sub
Private Sub CommandButton16_Click()
Call verifica1("1s2-2s2-2p6-3s2...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "12", "3s2",
"3", "2", "s")
End Sub
Private Sub CommandButton17_Click()
Call acidi1("1s2-2s2-2p6-3s2-3p2...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "14", "3s2-3p2",
"3", "4", "p")
End Sub
Private Sub CommandButton18_Click()
Call verifica1("1s2-2s2-2p6-3s2-3p2...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "14", "3s2-3p2",
"3", "4", "p")
End Sub
Private Sub CommandButton19_Click()
Call acidi1("1s2-2s2-2p2...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "6", "2s2-2p2",
"2", "4", "p")
End Sub
Private Sub CommandButton20_Click()
Call verifica1("1s2-2s2-2p2...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "6", "2s2-2p2",
"2", "4", "p")
End Sub
Private Sub CommandButton21_Click()
Call acidi1("1s2-2s2-2p6-3s2-3p6-4s2...Z=",
"ultimo livello", "periodo",
"gruppo", "blocco", "16",
"2s2-2p2", "2", "4", "p")
End Sub
Private Sub CommandButton22_Click()
Call verifica1("1s2-2s2-2p6-3s2-3p6-4s2...Z=",
"ultimo livello", "periodo",
"gruppo", "blocco", "16",
"2s2-2p2", "2", "4", "p")
End Sub
Private Sub CommandButton23_Click()
Call acidi1("1s2-2s2-2p6-3s2-3p1...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "13", "3s2-3p1",
"3", "3", "p")
End Sub
Private Sub CommandButton24_Click()
Call verifica1("1s2-2s2-2p6-3s2-3p1...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "13", "3s2-3p1",
"3", "3", "p")
End Sub
Private Sub CommandButton25_Click()
Call acidi1("1s2-2s2-2p6-3s1...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "11", "3s1",
"3", "1", "s")
End Sub
Private Sub CommandButton26_Click()
Call verifica1("1s2-2s2-2p6-3s1...Z=", "ultimo
livello", "periodo", "gruppo",
"blocco", "11", "3s1",
"3", "1", "s")
End Sub
Private Sub UserForm_Click()
End Sub