test su collegamento tra
immagini (mammiferi) proposte
e nome al quale si riferiscono
mammiferi2.ppt per tornare vedi mammiferi2.htm
Private Sub CommandButton40_Click()
Rem mostra tabella
immagini
Image19.Visible = "true"
Label20.Visible = "true"
End Sub
Private Sub CommandButton41_Click()
Rem cela tabella immagini
Image19.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 immagini
*********************************
Private Sub CommandButton1_Click()
Rem apre foto1 bisonte
Image1.Visible = "true"
Label15.Visible = "true"
End Sub
Private Sub CommandButton2_Click()
Rem apre foto2 bufalo
Image2.Visible = "true"
Label17.Visible = "true"
End Sub
Private Sub CommandButton3_Click()
Rem apre foto3 camoscio
Image3.Visible = "true"
Label16.Visible = "true"
End Sub
Private Sub CommandButton4_Click()
Rem apre foto4 capriolo
Image4.Visible = "true"
Label19.Visible = "true"
End Sub
Private Sub CommandButton5_Click()
Rem foto 5 cervo
Image5.Visible = "true"
Label18.Visible = "true"
End Sub
Private Sub CommandButton6_Click()
Rem foto 6 renna
Image6.Visible = "true"
Label24.Visible = "true"
End Sub
Private Sub CommandButton7_Click()
Rem foto7 stambecco
Image7.Visible = "true"
Label22.Visible = "true"
End Sub
Private Sub CommandButton8_Click()
Rem foto8 orango
Image8.Visible = "true"
Label23.Visible = "true"
End Sub
Private Sub CommandButton9_Click()
Rem foto9 biscia gorilla
Image9.Visible = "true"
Label21.Visible = "true"
End Sub
Private Sub CommandButton19_Click()
Rem apre foto10 scimpanze
Image10.Visible = "true"
Label30.Visible = "true"
End Sub
Private Sub CommandButton20_Click()
Rem apre foto11 riccio
Image11.Visible = "true"
Label27.Visible = "true"
End Sub
Private Sub CommandButton21_Click()
Rem apre foto12 istrice
Image12.Visible = "true"
Label26.Visible = "true"
End Sub
Private Sub CommandButton22_Click()
Rem apre foto13 castoro
Image13.Visible = "true"
Label29.Visible = "true"
End Sub
Private Sub CommandButton23_Click()
Rem apre foto14 marmotta
Image14.Visible = "true"
Label28.Visible = "true"
End Sub
Private Sub CommandButton24_Click()
Rem apre foto15 donnola
Image15.Visible = "true"
Label31.Visible = "true"
End Sub
Private Sub CommandButton25_Click()
Rem apre foto16 lontra
Image16.Visible = "true"
Label32.Visible = "true"
End Sub
Private Sub CommandButton26_Click()
Rem apre foto17 scoiattolo
Image17.Visible = "true"
Label34.Visible = "true"
End Sub
Private Sub CommandButton27_Click()
Rem apre foto18 ermellino
Image18.Visible = "true"
Label33.Visible = "true"
End Sub
Rem verifica rispsote con
codice +++++++++++++++++++++++++++++++++++++
Private Sub CommandButton10_Click()
Rem verifica foto1
Dim foto As String
foto = "bisonte"
Call verifica(1, foto)
End Sub
Private Sub CommandButton11_Click()
Rem verifica foto2
Dim foto As String
foto = "bufalo"
Call verifica(2, foto)
End Sub
Private Sub CommandButton12_Click()
Rem verifica foto3
Dim foto As String
foto = "camoscio"
Call verifica(3, foto)
End Sub
Private Sub CommandButton13_Click()
Rem foto 4
Dim foto As String
foto = "capriolo"
Call verifica(4, foto)
End Sub
Private Sub CommandButton14_Click()
Rem foto 5
Dim foto As String
foto = "cervo"
Call verifica(5, foto)
End Sub
Private Sub CommandButton15_Click()
Rem foto 6
Dim foto As String
foto = "renna"
Call verifica(6, foto)
End Sub
Private Sub CommandButton16_Click()
Rem foto 7
Dim foto As String
foto = "stambecco"
Call verifica(7, foto)
End Sub
Private Sub CommandButton17_Click()
Rem foto 8
Dim foto As String
foto = "orango"
Call verifica(8, foto)
End Sub
Private Sub CommandButton18_Click()
Rem foto 9
Dim foto As String
foto = "gorilla"
Call verifica(9, foto)
End Sub
Private Sub CommandButton28_Click()
Rem verifica foto10
Dim foto As String
foto = "scimpanze"
Call verifica(10, foto)
End Sub
Private Sub CommandButton29_Click()
Rem verifica foto11
Dim foto As String
foto = "riccio"
Call verifica(11, foto)
End Sub
Private Sub CommandButton30_Click()
Rem verifica foto12
Dim foto As String
foto = "istrice"
Call verifica(12, foto)
End Sub
Private Sub CommandButton31_Click()
Rem verifica foto13
Dim foto As String
foto = "castoro"
Call verifica(13, foto)
End Sub
Private Sub CommandButton32_Click()
Rem verifica foto14
Dim foto As String
foto = "marmotta"
Call verifica(14, foto)
End Sub
Private Sub CommandButton33_Click()
Rem verifica foto15
Dim foto As String
foto = "donnola"
Call verifica(15, foto)
End Sub
Private Sub CommandButton34_Click()
Rem verifica foto16
Dim foto As String
foto = "lontra"
Call verifica(16, foto)
End Sub
Private Sub CommandButton35_Click()
Rem verifica foto17
Dim foto As String
foto = "scoiattolo"
Call verifica(17, foto)
End Sub
Private Sub CommandButton36_Click()
Rem verifica foto18
Dim foto As String
foto = "ermellino"
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 CommandButton37_Click()
Rem cancella tutto
++++++++++++++++++++++++++++++++++++++
TextBox1 = ""
Image1.Visible = "false"
Image2.Visible = "false"
Image3.Visible = "false"
Image4.Visible = "false"
Image5.Visible = "false"
Image6.Visible = "false"
Image7.Visible = "false"
Image8.Visible = "false"
Image9.Visible = "false"
Image10.Visible = "false"
Image11.Visible = "false"
Image12.Visible = "false"
Image13.Visible = "false"
Image14.Visible = "false"
Image15.Visible = "false"
Image16.Visible = "false"
Image17.Visible = "false"
Image18.Visible = "false"
Label2.Caption = ""
Label10.Caption = ""
TextBox2 = ""
TextBox3 = ""
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 bravo, discreto, sufficiente")
Else
MsgBox ("se % > 50 conviene un ripasso con mostra
foto..")
End If
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 UserForm_Click()
End Sub