configu1

 

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 presentato numero atomico Z variabile"
MsgBox "scrivere configurazione completa se Z=7"
MsgBox "1s2-2s2-2p3"
MsgBox "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("completo 6", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p2", "2s2-2p2", "2", "4", "p")
End Sub

Private Sub CommandButton12_Click()
Call verifica1("completo 6", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p2", "2s2-2p2", "2", "4", "p")
End Sub



Private Sub CommandButton19_Click()

Call acidi1("completo 6", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p2", "2s2-2p2", "2", "4", "p")
End Sub

Private Sub CommandButton35_Click()
Call acidi1("completo 16", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s2-3p4", "3s2-3p4", "3", "6", "p")
End Sub
Private Sub CommandButton36_Click()
Call verifica1("completo 16", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s2-3p4", "3s2-3p4", "3", "6", "p")

End Sub


Private Sub CommandButton2_Click()
Call acidi1("completo 18", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s2-3p6", "3s2-3p6", "3", "8", "p")

End Sub

Private Sub CommandButton3_Click()
Call verifica1("completo 18", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s2-3p6", "3s2-3p6", "3", "8", "p")

End Sub

Private Sub CommandButton27_Click()
Call acidi1("completo 17", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s2-3p5", "3s2-3p5", "3", "7", "p")

End Sub


Private Sub CommandButton28_Click()
Call verifica1("completo 17", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s2-3p5", "3s2-3p5", "3", "7", "p")

End Sub




Private Sub CommandButton29_Click()
Call acidi1("completo 20", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s2-3p6-4s2", "4s2", "4", "2", "s")

End Sub

Private Sub CommandButton30_Click()
Call verifica1("completo 20", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s2-3p6-4s2", "4s2", "4", "2", "s")

End Sub

Private Sub CommandButton31_Click()
Call acidi1("completo 9", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p5", "2s2-2p5", "2", "7", "p")

End Sub

Private Sub CommandButton32_Click()
Call verifica1("completo 9", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p5", "2s2-2p5", "2", "7", "p")

End Sub

Private Sub CommandButton33_Click()
Call acidi1("completo 15", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s2-3p3", "3s2-3p3", "3", "5", "p")

End Sub

Private Sub CommandButton34_Click()
Call acidi1("completo 15", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s2-3p3", "3s2-3p3", "3", "5", "p")

End Sub


Private Sub CommandButton4_Click()
Call acidi1("completo 11", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s1", "3s1", "3", "1", "s")

End Sub

Private Sub CommandButton5_Click()
Call verifica1("completo 11", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s1", "3s1", "3", "1", "s")

End Sub

Private Sub CommandButton6_Click()

Call acidi1("completo 5", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p1", "2s2-2p1", "2", "3", "p")
End Sub

Private Sub CommandButton7_Click()
Call verifica1("completo 5", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p1", "2s2-2p1", "2", "3", "p")

End Sub

Private Sub CommandButton8_Click()
Call acidi1("completo 10", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6", "2s2-2p6", "2", "8", "p")
End Sub

Private Sub CommandButton9_Click()
Call verifica1("completo 10", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6", "2s2-2p6", "2", "8", "p")

End Sub


Private Sub CommandButton13_Click()
Call acidi1("completo 19", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s2-3p6-4s1", "4s1", "4", "1", "s")
End Sub

Private Sub CommandButton14_Click()
Call verifica1("completo 19", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s2-3p6-4s1", "4s1", "4", "1", "s")

End Sub

Private Sub CommandButton15_Click()
Call acidi1("completo 12", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s2", "3s2", "3", "2", "s")
End Sub

Private Sub CommandButton16_Click()
Call verifica1("completo 12", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s2", "3s2", "3", "2", "s")

End Sub

Private Sub CommandButton17_Click()
Call acidi1("completo 14", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s2-3p2", "3s2-3p2", "3", "4", "p")
End Sub

Private Sub CommandButton18_Click()
Call verifica1("completo 14", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s2-3p2", "3s2-3p2", "3", "4", "p")

End Sub




Private Sub CommandButton20_Click()
Call verifica1("completo 6", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p2", "2s2-2p2", "2", "4", "p")

End Sub



Private Sub CommandButton21_Click()
Call acidi1("completo 16", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s2-3p6-4s2", "2s2-2p2", "2", "4", "p")
End Sub

Private Sub CommandButton22_Click()
Call verifica1("completo 16", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s2-3p6-4s2", "2s2-2p2", "2", "4", "p")

End Sub

Private Sub CommandButton23_Click()
Call acidi1("completo 13", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s2-3p1", "3s2-3p1", "3", "3", "p")

End Sub

Private Sub CommandButton24_Click()
Call verifica1("completo 13", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s2-3p1", "3s2-3p1", "3", "3", "p")


End Sub

Private Sub CommandButton25_Click()
Call acidi1("completo 11", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s1", "3s1", "3", "1", "s")

End Sub

Private Sub CommandButton26_Click()
Call verifica1("completo 11", "ultimo livello", "periodo", "gruppo", "blocco", "1s2-2s2-2p6-3s1", "3s1", "3", "1", "s")

End Sub




Private Sub UserForm_Click()

End Sub