test su collegamento tra formule
chimiche proposte
e nome al quale si riferiscono
esci con ../scienze.htm o precedente indice.htm
chimica1.ppt per tornare vedi chimica1.htm
Private Sub CommandButton40_Click()
Rem mostra tabella formule
Label53.Visible = "true"
Rem Label20.Visible = "true"
End Sub
Private Sub CommandButton41_Click()
Rem cela tabella formule
Label53.Visible = "false"
Label21.Visible = "true"
End Sub
Private Sub CommandButton38_Click()
Rem mostra infomazioni
Label25.Visible = "true"
End Sub
Private Sub CommandButton39_Click()
Rem cela informazioni
Label25.Visible = "false"
End Sub
Rem visualizza formule
*********************************
Private Sub CommandButton1_Click()
Rem apre foto1
Call cancella
Label35.Visible = "true"
Label15.Visible = "true"
TextBox1.SetFocus
End Sub
Private Sub CommandButton2_Click()
Rem apre foto2
Call cancella
Label36.Visible = "true"
Label17.Visible = "true"
TextBox1.SetFocus
End Sub
Private Sub CommandButton3_Click()
Rem apre foto3
Call cancella
Label37.Visible = "true"
Label16.Visible = "true"
TextBox1.SetFocus
End Sub
Private Sub CommandButton4_Click()
Rem apre foto4
Call cancella
Label38.Visible = "true"
Label19.Visible = "true"
TextBox1.SetFocus
End Sub
Private Sub CommandButton5_Click()
Rem foto 5
Call cancella
Label39.Visible = "true"
Label18.Visible = "true"
TextBox1.SetFocus
End Sub
Private Sub CommandButton6_Click()
Rem foto 6
Call cancella
Label40.Visible = "true"
Label24.Visible = "true"
TextBox1.SetFocus
End Sub
Private Sub CommandButton7_Click()
Rem foto7
Call cancella
Label41.Visible = "true"
Label22.Visible = "true"
TextBox1.SetFocus
End Sub
Private Sub CommandButton8_Click()
Rem foto8
Call cancella
Label42.Visible = "true"
Label23.Visible = "true"
TextBox1.SetFocus
End Sub
Private Sub CommandButton9_Click()
Rem foto9
Call cancella
Label43.Visible = "true"
Label21.Visible = "true"
TextBox1.SetFocus
End Sub
Private Sub CommandButton19_Click()
Rem apre foto10
Call cancella
Label44.Visible = "true"
Label30.Visible = "true"
TextBox1.SetFocus
End Sub
Private Sub CommandButton20_Click()
Rem apre foto11
Call cancella
Label45.Visible = "true"
Label27.Visible = "true"
TextBox1.SetFocus
End Sub
Private Sub CommandButton21_Click()
Rem apre foto12
Call cancella
Label46.Visible = "true"
Label26.Visible = "true"
TextBox1.SetFocus
End Sub
Private Sub CommandButton22_Click()
Rem apre foto13
Call cancella
Label47.Visible = "true"
Label29.Visible = "true"
TextBox1.SetFocus
End Sub
Private Sub CommandButton23_Click()
Rem apre foto14
Call cancella
Label48.Visible = "true"
Label28.Visible = "true"
TextBox1.SetFocus
End Sub
Private Sub CommandButton24_Click()
Rem apre foto15
Call cancella
Label49.Visible = "true"
Label31.Visible = "true"
TextBox1.SetFocus
End Sub
Private Sub CommandButton25_Click()
Rem apre foto16
Call cancella
Label50.Visible = "true"
Label32.Visible = "true"
TextBox1.SetFocus
End Sub
Private Sub CommandButton26_Click()
Rem apre foto17
Call cancella
Label51.Visible = "true"
Label34.Visible = "true"
TextBox1.SetFocus
End Sub
Private Sub CommandButton27_Click()
Rem apre foto18
Call cancella
Label52.Visible = "true"
Label33.Visible = "true"
TextBox1.SetFocus
End Sub
Rem verifica risposte con codice
+++++++++++++++++++++++++++++++++++++
Private Sub CommandButton10_Click()
Rem verifica foto1
Dim foto As String
foto = "acido solforico"
Call verifica(1, foto)
End Sub
Private Sub CommandButton11_Click()
Rem verifica foto2
Dim foto As String
foto = "acido cloridrico"
Call verifica(2, foto)
End Sub
Private Sub CommandButton12_Click()
Rem verifica foto3
Dim foto As String
foto = "anidride solforica"
Call verifica(3, foto)
End Sub
Private Sub CommandButton13_Click()
Rem foto 4
Dim foto As String
foto = "ossido di sodio"
Call verifica(4, foto)
End Sub
Private Sub CommandButton14_Click()
Rem foto 5
Dim foto As String
foto = "idrossido di calcio"
Call verifica(5, foto)
End Sub
Private Sub CommandButton15_Click()
Rem foto 6
Dim foto As String
foto = "acido nitrico"
Call verifica(6, foto)
End Sub
Private Sub CommandButton16_Click()
Rem foto 7
Dim foto As String
foto = "acido cloroso"
Call verifica(7, foto)
End Sub
Private Sub CommandButton17_Click()
Rem foto 8
Dim foto As String
foto = "cloruro di calcio"
Call verifica(8, foto)
End Sub
Private Sub CommandButton18_Click()
Rem foto 9
Dim foto As String
foto = "solfuro di ferro2"
Call verifica(9, foto)
End Sub
Private Sub CommandButton28_Click()
Rem verifica foto10
Dim foto As String
foto = "ossido di ferro3"
Call verifica(10, foto)
End Sub
Private Sub CommandButton29_Click()
Rem verifica foto11
Dim foto As String
foto = "acido solforoso"
Call verifica(11, foto)
End Sub
Private Sub CommandButton30_Click()
Rem verifica foto12
Dim foto As String
foto = "anidride carbonica"
Call verifica(12, foto)
End Sub
Private Sub CommandButton31_Click()
Rem verifica foto13
Dim foto As String
foto = "anidride solforosa"
Call verifica(13, foto)
End Sub
Private Sub CommandButton32_Click()
Rem verifica foto14
Dim foto As String
foto = "acido fosforico"
Call verifica(14, foto)
End Sub
Private Sub CommandButton33_Click()
Rem verifica foto15
Dim foto As String
foto = "nitrato di potassio"
Call verifica(15, foto)
End Sub
Private Sub CommandButton34_Click()
Rem verifica foto16
Dim foto As String
foto = "nitrito di sodio"
Call verifica(16, foto)
End Sub
Private Sub CommandButton35_Click()
Rem verifica foto17
Dim foto As String
foto = "solfato di rame2"
Call verifica(17, foto)
End Sub
Private Sub CommandButton36_Click()
Rem verifica foto18
Dim foto As String
foto = "solfito di sodio"
Call verifica(18, foto)
End Sub
Rem controlla e fornisce risultato
------------------------------
Private Sub verifica(k As Integer, x As String)
Rem verifica esattezza del codice inserito
Dim errate As Integer
Dim prove As Integer
Dim percento As Integer
Dim finale As Integer
Dim foto As String
foto = x
Dim scelta As Integer
Dim n As Integer
scelta = TextBox1
n = k
errate = 0
prove = 18
If scelta = n Then
Label2.Caption = "esatto : " & n & " era
:" & foto
Label2.BackColor = vbCyan
Else
Label2.Caption = "errato : " & n & " era
:" & foto
errate = errate + 1
Label2.BackColor = vbRed
End If
End Sub
Private Sub cancella()
Rem cancella formule e risposte
TextBox1 = ""
Label2.Caption = ""
Label35.Visible = "false"
Label36.Visible = "false"
Label37.Visible = "false"
Label38.Visible = "false"
Label39.Visible = "false"
Label40.Visible = "false"
Label41.Visible = "false"
Label42.Visible = "false"
Label43.Visible = "false"
Label44.Visible = "false"
Label45.Visible = "false"
Label46.Visible = "false"
Label47.Visible = "false"
Label48.Visible = "false"
Label49.Visible = "false"
Label50.Visible = "false"
Label51.Visible = "false"
Label52.Visible = "false"
End Sub
Private Sub CommandButton37_Click()
Rem cancella tutto
++++++++++++++++++++++++++++++++++++++
TextBox1 = ""
Rem formule proposte
Label35.Visible = "false"
Label36.Visible = "false"
Label37.Visible = "false"
Label38.Visible = "false"
Label39.Visible = "false"
Label40.Visible = "false"
Label41.Visible = "false"
Label42.Visible = "false"
Label43.Visible = "false"
Label44.Visible = "false"
Label45.Visible = "false"
Label46.Visible = "false"
Label47.Visible = "false"
Label48.Visible = "false"
Label49.Visible = "false"
Label50.Visible = "false"
Label51.Visible = "false"
Label52.Visible = "false"
Label53.Visible = "false"
Label2.Caption = ""
Label10.Caption = ""
TextBox2 = ""
TextBox3 = ""
Rem Image19.Visible = "false"
Label25.Visible = "false"
End Sub
Private Sub Image19_Click()
End Sub
Private Sub Label10_Click()
Rem % finale errate
Label10.Caption = Int(TextBox2 * 100 / TextBox3)
If Int(TextBox2 * 100 / TextBox3) <= 50 Then
MsgBox ("se % <= 50 :sufficiente, discreto, bravo")
Else
MsgBox ("se % > 50 conviene un ripasso con mostra
formule..")
End If
End Sub
Private Sub Label13_Click()
End Sub
Private Sub Label15_Click()
End Sub
Private Sub Label17_Click()
End Sub
Private Sub Label23_Click()
End Sub
Private Sub Label25_Click()
End Sub
Private Sub CommandButton42_Click()
Rem cela spunta
Label15.Visible = "false"
Label16.Visible = "false"
Label17.Visible = "false"
Label18.Visible = "false"
Label19.Visible = "false"
Label21.Visible = "false"
Label22.Visible = "false"
Label23.Visible = "false"
Label24.Visible = "false"
Label26.Visible = "false"
Label27.Visible = "false"
Label28.Visible = "false"
Label29.Visible = "false"
Label30.Visible = "false"
Label31.Visible = "false"
Label32.Visible = "false"
Label33.Visible = "false"
Label34.Visible = "false"
End Sub
Private Sub Label35_Click()
End Sub
Private Sub Label37_Click()
End Sub
Private Sub Label38_Click()
End Sub
Private Sub Label41_Click()
End Sub
Private Sub Label43_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_Click()
End Sub