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

 


uccelli.ppt

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