sperimentare

test su riconoscimento rocce da parte di allievi
esercitazione con excel e vba:elaborazione dati con vba
viene presentata una serie di nomi di rocce
e richiesto di inserire per ognuna
un numero che la individua come
intrusiva 1, effusiva 2, metamorfica 3, sedimentaria 4
le risposte vengono eleborate e si visualizza l'esito:
risposte esatte, errate, percentuali, grafico
in fase di codificazione è possibile modificare
il numero di domande (variare costante k)
i nomi delle rocce o altri elementi
(minerali, fossili, piante..) assegnando i numeri per
riconoscimento
(nelle celle del foglio A per numeri attesi, C per nomi)
esempio presente con 20 rocce,
test1 con risposte tutte esatte, test2 esatte ed errate
per descrizione, codice vba, animazione vedi link

http://utenti.multimania.it/fumarino/excelpro/serie.htm
http://utenti.multimania.it/fumarino/excelpro/rocce1.htm
http://utenti.multimania.it/fumarino/excelpro/rocce1.xls

test su minerali
http://utenti.multimania.it/fumarino/excelpro/rocce2.xls

test su ere geologiche
http://utenti.multimania.it/fumarino/excelpro/rocce3.xls

test su ormoni e ghiandole endocrine
http://utenti.multimania.it/fumarino/excelpro/rocce4.xls

-----------------------------------------------------------

codice per copia incolla rocce1.xlse rocce2.xls rocce3.xls rocce4.xls

Private Sub CommandButton1_Click()
Rem inserimento risposte
ListBox1.Visible = True
Const k = 20
Dim attese(k) As Integer
Dim fornite(k) As Integer
Dim nome(k) As String
For riga = 1 To k
attese(riga) = Cells(riga, 1)
nome(riga) = Cells(riga, 3)
Next riga
For riga = 1 To k
fornite(riga) = Cells(riga, 2)
Next riga
End Sub

Private Sub CommandButton2_Click()
Rem verifica esiti
ListBox1.Visible = False
Const k = 20
Dim esatte, errate As Integer
Dim percentoesatte, percentoerrate As Double
esatte = 0
errate = 0
percentoesatte = 0
percentoerrate = 0
Dim attese(k) As Integer
Dim fornite(k) As Integer
Dim nome(k) As String
For riga = 1 To k
'Cells(riga, 4) = Cells(riga, 1)
Cells(riga, 5) = Cells(riga, 3)
If Cells(riga, 2) = Cells(riga, 1) Then
Cells(riga, 6) = "esatto"
esatte = esatte + 1
Else
Cells(riga, 7) = "errato:era= " & Cells(riga, 1)
errate = errate + 1
End If
Next riga
percentoesatte = esatte * 100 / k
percentoerrate = errate * 100 / k
Cells(19, 10) = esatte
Cells(20, 10) = errate
Cells(19, 12) = percentoesatte
Cells(20, 12) = percentoerrate
For riga = 1 To k
Foglio2.Cells(riga, 1) = Cells(riga, 1)
Foglio2.Cells(riga, 2) = Cells(riga, 2)
Next riga
Foglio2.Cells(22, 2) = esatte
Foglio2.Cells(23, 2) = errate
End Sub

Private Sub CommandButton3_Click()
Rem cancella tutto
ListBox1.Visible = True
Const k = 20
For riga = 1 To k
Cells(riga, 2) = ""
Cells(riga, 5) = ""
Cells(riga, 6) = ""
Cells(riga, 7) = ""
Foglio2.Cells(riga, 1) = ""
Foglio2.Cells(riga, 2) = ""
Next riga
Cells(19, 10) = ""
Cells(20, 10) = ""
Cells(19, 12) = ""
Cells(20, 12) = ""
Foglio2.Cells(22, 2) = ""
Foglio2.Cells(23, 2) = ""
End Sub