anfibi-rettili

test per riconoscimento di pesci-anfibi-rettili
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

anfibirettili.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

foto4 , nomi 4 , tutti esatti

caricato userform2-foto3-inseriti codici
nomi3 :conferma codici tutti errati(non inseriti)

codice per userform1 ( simile per userform2)

Private Sub CommandButton1_Click()
Image1.Visible = True
Image2.Visible = True
Image3.Visible = True
Image4.Visible = True
Image5.Visible = True
Image6.Visible = True
Label8.Caption = "rospo c. 1 , rospo smeraldino 2 , rana temporaria 3 , rana dalmatina 4, rana temporaria 5, ululone 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 = "rospo comune 1"
Label2.Caption = "rospo smeraldino 2"
Label3.Caption = "rana temporaria 3"
Label4.Caption = "ululone 6"
Label5.Caption = "rana comune 5"
Label6.Caption = "rana dalmatina 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 = "raganella 1 , salamandra gialla 2, salamandra nera 3 , proteo 4, tritone alpino 5, tritone crestato 6"
End Sub

Private Sub CommandButton4_Click()
Label1.Caption = "raganella 1"
Label2.Caption = "salamandra gialla 2"
Label3.Caption = "salamandra nera 3"
Label4.Caption = "tritone crestato 6"
Label5.Caption = "tritone alpino 5"
Label6.Caption = "proteo 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 = "lucertola agile 1, lucertola muraria 2, lucertola vivipara 3, orbettino 4, ramarro 5, geco 6"
End Sub

Private Sub CommandButton6_Click()
Label1.Caption = "lucertola agile 1"
Label2.Caption = "lucertola muraria 2"
Label3.Caption = "luvertola vivipara 3"
Label4.Caption = "geco 6"
Label5.Caption = "ramarro 5"
Label6.Caption = "orbettino 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 = "vipera aspide 1, vipera berus 2, vipera dal corno 3, colubro di esculapio 4, natrie del collare 5, vipera ursini 6"
End Sub

Private Sub CommandButton8_Click()
Label1.Caption = "vipera aspide 1"
Label2.Caption = "vipera berus 2"
Label3.Caption = "vipera del corno 3"
Label4.Caption = "vipera ursini 6"
Label5.Caption = "natrice del collare 5"
Label6.Caption = "colubro di esculapio 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