uccelli
test per riconoscimento di uccelli
scuola elementare
esci con indice1.htm
per ogni immagine fornita con
pulsanti foto,
si deve scegliere tra i nomi proposti e inserire il codice
numerico collegato al nome
in caselle presso immagini:
premendo pulsante nomi si verifica la esattezza o meno delle
risposte
pagina di apertura
carica userform1 e mostra informazioni
seleziona gruppo foto1
inserisce codici numerici per
ogni immagine (alcuni errati)
seleziona nomi per controllo risposte (in rosso quelle errate)
cancella e passa ad altra prova con esci-carica userform2
caricato
userform2-foto1-inseriti codici
nomi1 :conferma codici tutti esatti
codice per userform1 (simile per userform2, a parte foto e diciture)
Private Sub CommandButton1_Click()
Image1.Visible = True
Image2.Visible = True
Image3.Visible = True
Image4.Visible = True
Image5.Visible = True
Image6.Visible = True
Label8.Caption = "aquila 1 , grifone 2 , astore 3 , falco 4,
poiana 5, sparviero 6"
End Sub
Private Sub CommandButton10_Click()
Label7.Visible = False
End Sub
Private Sub CommandButton11_Click()
Label8.Caption = ""
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
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
Image19.Visible = False
Image20.Visible = False
Image21.Visible = False
Image22.Visible = False
Image23.Visible = False
Image24.Visible = False
TextBox1.BackColor = vbCyan
TextBox2.BackColor = vbCyan
TextBox3.BackColor = vbCyan
TextBox4.BackColor = vbCyan
TextBox5.BackColor = vbCyan
TextBox6.BackColor = vbCyan
End Sub
Private Sub CommandButton12_Click()
Unload UserForm1
Load UserForm3
End Sub
Private Sub CommandButton2_Click()
Label1.Caption = "aquila 1"
Label2.Caption = "grifone 2"
Label3.Caption = "astore 3"
Label4.Caption = "sparviero 6"
Label5.Caption = "poiana 5"
Label6.Caption = "falco 4"
Call verifica
End Sub
Private Sub CommandButton3_Click()
Image7.Visible = True
Image8.Visible = True
Image9.Visible = True
Image10.Visible = True
Image11.Visible = True
Image12.Visible = True
Label8.Caption = "gufo 1 , barbagianni 2, civetta 3 ,
succiacapre 4, assiolo 5, allocco 6"
End Sub
Private Sub CommandButton4_Click()
Label1.Caption = "gufo 1"
Label2.Caption = "barbagianni 2"
Label3.Caption = "civetta 3"
Label4.Caption = "allocco 6"
Label5.Caption = "assiolo 5"
Label6.Caption = "succiacapre 4"
Call verifica
End Sub
Private Sub CommandButton5_Click()
Image13.Visible = True
Image14.Visible = True
Image15.Visible = True
Image16.Visible = True
Image17.Visible = True
Image18.Visible = True
Label8.Caption = "corvo 1, cornacchia 2, gazza 3, colombo 4,
tortora 5, ghiandaia 6"
End Sub
Private Sub CommandButton6_Click()
Label1.Caption = "corvo 1"
Label2.Caption = "cornacchia 2"
Label3.Caption = "gazza 3"
Label4.Caption = "ghiandaia 6"
Label5.Caption = "tortora 5"
Label6.Caption = "colombo 4"
Call verifica
End Sub
Private Sub CommandButton7_Click()
Image19.Visible = True
Image20.Visible = True
Image21.Visible = True
Image22.Visible = True
Image23.Visible = True
Image24.Visible = True
Label8.Caption = "gallo cedrone 1, gallo forcello 2, picchio
rosso 3, upupa 4, picchio muraiolo 5, picchio verde 6"
End Sub
Private Sub CommandButton8_Click()
Label1.Caption = "gallo cedrone 1"
Label2.Caption = "gallo forcello 2"
Label3.Caption = "picchio rosso 3"
Label4.Caption = "picchio verde 6"
Label5.Caption = "picchio muraiolo 5"
Label6.Caption = "upupa 4"
Call verifica
End Sub
Private Sub CommandButton9_Click()
Label7.Visible = True
End Sub
Private Sub Label8_Click()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub verifica()
If TextBox1 <> 1 Then
TextBox1.BackColor = vbRed
End If
If TextBox2 <> 2 Then
TextBox2.BackColor = vbRed
End If
If TextBox3 <> 3 Then
TextBox3.BackColor = vbRed
End If
If TextBox4 <> 6 Then
TextBox4.BackColor = vbRed
End If
If TextBox5 <> 5 Then
TextBox5.BackColor = vbRed
End If
If TextBox6 <> 4 Then
TextBox6.BackColor = vbRed
End If
End Sub