test didattico con grafici

per vedere grafici test11.htm

per vedere foglio test11.xls

Private Sub CommandButton1_Click()
Rem lista con 4 gruppi di domande e 4 domande per gruppo
Rem nota per eventuali modifiche a codice*********************
Rem possibile aumentare gruppi di domande,sempre con 4 domande
Rem per gruppo , per motivi di spazio visibile
Rem assegnare cifra per risposta esatta in ogni gruppo
Rem esempio sempre 1,2,3,4 per domanda 1,2,3,4
Rem inserendo risposta esatta in posizione 1,2,3,4 delle
Rem domande consecutive
Rem e aggiungendo nel codice Case 5 per 5 gruppo, case 6 per sesto..
Rem e sigle per cifre
Rem vedi esempio non attivo di 5 gruppo aggiunto in codice pulsante4
Rem altre modifiche da apportare per chi conosce abbastanza il codice
Rem fine nota ***************************************************
ListBox1.Visible = True
Rem prima serie di 4 domande con 4 risposte ognuna
Rem esatta 1,2,3,4
ListBox1.AddItem ("primo gruppo di 4 domande")
ListBox1.AddItem ("prima domanda:roccia sedimentaria? ")
ListBox1.AddItem ("1 arenaria ")
ListBox1.AddItem ("2 porfido")
ListBox1.AddItem ("3 quarzite")
ListBox1.AddItem ("4 granito ")
ListBox1.AddItem ("--------------------------------- ")
ListBox1.AddItem ("seconda domanda:roccia effusiva? ")
ListBox1.AddItem ("1 arenaria ")
ListBox1.AddItem ("2 porfido")
ListBox1.AddItem ("3 quarzite")
ListBox1.AddItem ("4 granito ")
ListBox1.AddItem ("--------------------------------- ")
ListBox1.AddItem ("terza domanda:roccia metamorfica? ")
ListBox1.AddItem ("1 arenaria ")
ListBox1.AddItem ("2 porfido")
ListBox1.AddItem ("3 quarzite")
ListBox1.AddItem ("4 granito ")
ListBox1.AddItem ("--------------------------------- ")
ListBox1.AddItem ("quarta domanda:roccia intrusiva? ")
ListBox1.AddItem ("1 arenaria ")
ListBox1.AddItem ("2 porfido")
ListBox1.AddItem ("3 quarzite")
ListBox1.AddItem ("4 granito ")
ListBox1.AddItem ("--------------------------------- ")

Rem esatta 2,3,4,1
ListBox1.AddItem ("secondo gruppo di 4 domande")
ListBox1.AddItem ("prima domanda:ghiandola che produce insulina? ")
ListBox1.AddItem ("1 surrene ")
ListBox1.AddItem ("2 pancreas")
ListBox1.AddItem ("3 tiroide")
ListBox1.AddItem ("4 ipofisi ")
ListBox1.AddItem ("--------------------------------- ")
ListBox1.AddItem ("seconda domanda:ghiandola che produce FSH? ")
ListBox1.AddItem ("1 timo ")
ListBox1.AddItem ("2 pancreas")
ListBox1.AddItem ("3 ipofisi")
ListBox1.AddItem ("4 tiroide ")
ListBox1.AddItem ("--------------------------------- ")
ListBox1.AddItem ("terza domanda:ghiandola che produce tiroxina? ")
ListBox1.AddItem ("1 ipofisi ")
ListBox1.AddItem ("2 surrene")
ListBox1.AddItem ("3 pancreas")
ListBox1.AddItem ("4 tiroide ")
ListBox1.AddItem ("--------------------------------- ")
ListBox1.AddItem ("quarta domanda:ghiandola che produce aldosterone? ")
ListBox1.AddItem ("1 surrene ")
ListBox1.AddItem ("2 tiroide")
ListBox1.AddItem ("3 paratirodi")
ListBox1.AddItem ("4 ipofisi ")
ListBox1.AddItem ("--------------------------------- ")

Rem esatta 3,4,1,2
ListBox1.AddItem ("terzo gruppo di 4 domande")
ListBox1.AddItem ("prima domanda:a quale era appartiene cambriano? ")
ListBox1.AddItem ("1 cenozoica ")
ListBox1.AddItem ("2 archeozoica")
ListBox1.AddItem ("3 paleozoica")
ListBox1.AddItem ("4 mesozoica ")
ListBox1.AddItem ("--------------------------------- ")
ListBox1.AddItem ("seconda domanda:a quale era appartiene cretaceo? ")
ListBox1.AddItem ("1 cenozoica ")
ListBox1.AddItem ("2 paleozoica")
ListBox1.AddItem ("3 neozoica")
ListBox1.AddItem ("4 mesozoica ")
ListBox1.AddItem ("--------------------------------- ")
ListBox1.AddItem ("terza domanda:a quale era appartiene miocene? ")
ListBox1.AddItem ("1 cenozoica ")
ListBox1.AddItem ("2 archeozoica")
ListBox1.AddItem ("3 mesozoica")
ListBox1.AddItem ("4 paleozoica ")
ListBox1.AddItem ("--------------------------------- ")
ListBox1.AddItem ("quarta domanda:a quale era appartiene siluriano? ")
ListBox1.AddItem ("1 neozoica ")
ListBox1.AddItem ("2 paleozoica")
ListBox1.AddItem ("3 mesozoica")
ListBox1.AddItem ("4 cenozoica ")
ListBox1.AddItem ("--------------------------------- ")

Rem esatta 4,1,2,3
ListBox1.AddItem ("quarto gruppo di 4 domande")
ListBox1.AddItem ("prima domanda:blenda :tipo di minerale? ")
ListBox1.AddItem ("1 silicato ")
ListBox1.AddItem ("2 carbonato")
ListBox1.AddItem ("3 solfato")
ListBox1.AddItem ("4 solfuro ")
ListBox1.AddItem ("--------------------------------- ")
ListBox1.AddItem ("seconda domanda:calcite:tipo di minerale? ")
ListBox1.AddItem ("1 carbonato ")
ListBox1.AddItem ("2 solfuro")
ListBox1.AddItem ("3 cloruro")
ListBox1.AddItem ("4 solfato ")
ListBox1.AddItem ("--------------------------------- ")
ListBox1.AddItem ("terza domanda:gesso:tipo di minerale? ")
ListBox1.AddItem ("1 fluoruro ")
ListBox1.AddItem ("2 solfato")
ListBox1.AddItem ("3 carbonato")
ListBox1.AddItem ("4 solfuro ")
ListBox1.AddItem ("--------------------------------- ")
ListBox1.AddItem ("quarta domanda:quarzo:tipo di minerale? ")
ListBox1.AddItem ("1 solfato ")
ListBox1.AddItem ("2 carbonato")
ListBox1.AddItem ("3 silicato")
ListBox1.AddItem ("4 solfuro ")
ListBox1.AddItem ("--------------------------------- ")


'Rem esempio aggiunta di 5 gruppo domande con risposta esatta 1,2,3,4
'Rem esatta 1,2,3,4
'ListBox1.AddItem ("quinto gruppo di 4 domande")
'ListBox1.AddItem ("prima domanda:opale :tipo di minerale? ")
'ListBox1.AddItem ("1 silicato ")
'ListBox1.AddItem ("2 carbonato")
'ListBox1.AddItem ("3 solfato")
'ListBox1.AddItem ("4 solfuro ")
'ListBox1.AddItem ("--------------------------------- ")
'ListBox1.AddItem ("seconda domanda:galena:tipo di minerale? ")
'ListBox1.AddItem ("1 carbonato ")
'ListBox1.AddItem ("2 solfuro")
'ListBox1.AddItem ("3 cloruro")
'ListBox1.AddItem ("4 solfato ")
'ListBox1.AddItem ("--------------------------------- ")
'ListBox1.AddItem ("terza domanda:calcite:tipo di minerale? ")
'ListBox1.AddItem ("1 fluoruro ")
'ListBox1.AddItem ("2 solfato")
'ListBox1.AddItem ("3 carbonato")
'ListBox1.AddItem ("4 solfuro ")
'ListBox1.AddItem ("--------------------------------- ")
'ListBox1.AddItem ("quarta domanda:cinabro:tipo di minerale? ")
'ListBox1.AddItem ("1 solfato ")
'ListBox1.AddItem ("2 carbonato")
'ListBox1.AddItem ("3 silicato")
'ListBox1.AddItem ("4 solfuro ")
'ListBox1.AddItem ("--------------------------------- ")

End Sub

Private Sub CommandButton10_Click()
Rem trasferimento dati a foglio2 per grafica
allievi = TextBox2
domande = 4
For riga = 1 To allievi
For colonna = 1 To domande
Foglio2.Cells(riga, colonna) = Cells(riga, colonna)
Next colonna
Next riga
Foglio2.Cells(22, 1) = "risposte 1,2,3,4 > 1,2,3,4"
Foglio2.Cells(23, 1) = "risposte 1,2,3,4 > 2,3,4,1"
Foglio2.Cells(24, 1) = "risposte 1,2,3,4 > 3,4,1,2"
Foglio2.Cells(25, 1) = "risposte 1,2,3,4 > 4,1,2,3"

End Sub


Private Sub CommandButton2_Click()
Rem cancella domande
ListBox1.Clear
End Sub

Private Sub CommandButton3_Click()
Rem mostra informazioni
ListBox4.Visible = True
ListBox4.AddItem ("cancellare esiti e risposte precedenti ")
ListBox4.AddItem ("visualizzare lista domande ")
ListBox4.AddItem ("inserire risposte in celle del foglio ")
ListBox4.AddItem ("allievi da 1 a 10 in verticale ")
ListBox4.AddItem ("domande da 1 a 4 in orizzontale ")
ListBox4.AddItem ("inserire in textbox1 numero gruppo 1,2,3,4 ")
ListBox4.AddItem ("visualizzare risultati con pulsante attiva gruppo ")
ListBox4.AddItem ("trasferire risposte a foglio2 per grafica ")
ListBox4.AddItem ("aprire foglio2 per vedere grafici ")
ListBox4.AddItem ("ritornare a foglio1 ,cancellare esiti e risposte ")
ListBox4.AddItem ("procedere per test con altro gruppo di domande")
End Sub

Private Sub CommandButton4_Click()
Rem richiesta primo gruppo domande
ListBox2.Visible = True
ListBox3.Visible = True
Dim esatte1, esatte2, esatte3, esatte4, esattetotale As Integer
Dim errate1, errate2, errate3, errate4, erratetotale As Integer
Dim percentoeatte, percentoerrate As Double
Dim allievi As Integer
allievi = TextBox2
domande = 4
totale = allievi * domande

esatte1 = 0
esatte2 = 0
esatte3 = 0
esatte4 = 0
errate1 = 0
errate2 = 0
errate3 = 0
errate4 = 0
gruppo = TextBox1

Dim allievo(20, 4) As Integer
colonna = 1 'domanda 1
For riga = 1 To allievi
allievo(riga, colonna) = Cells(riga, colonna)
Next riga
colonna = 2 'domanda 2
For riga = 1 To allievi
allievo(riga, colonna) = Cells(riga, colonna)
Next riga
colonna = 3 'domanda 3
For riga = 1 To allievi
allievo(riga, colonna) = Cells(riga, colonna)
Next riga
colonna = 4 ' domanda 4
For riga = 1 To allievi
allievo(riga, colonna) = Cells(riga, colonna)
Next riga

Select Case gruppo
Case 1
a1 = 1
a2 = 2
a3 = 3
a4 = 4

Case 2
a1 = 2
a2 = 3
a3 = 4
a4 = 1

Case 3
a1 = 3
a2 = 4
a3 = 1
a4 = 2

Case 4
a1 = 4
a2 = 1
a3 = 2
a4 = 3

'case 5
'a1=1
'a2=2
'a3=3
'a4=4

End Select



colonna = 1 ' domanda 1
ListBox2.AddItem ("******************************")
ListBox2.AddItem ("domanda n. " & colonna)
ListBox2.AddItem ("******************************")
For riga = 1 To allievi
ListBox2.AddItem ("allievo n. " & riga)
If allievo(riga, colonna) = a1 Then
ListBox2.AddItem (allievo(riga, colonna) & " esatto")
esatte1 = esatte1 + 1
Else
ListBox2.AddItem (allievo(riga, colonna) & " errato:era " & a1)
End If
ListBox2.AddItem ("-------------------------------")
Next riga


colonna = 2 ' domanda 2
ListBox2.AddItem ("******************************")
ListBox2.AddItem ("domanda n. " & colonna)
ListBox2.AddItem ("******************************")
For riga = 1 To allievi
ListBox2.AddItem ("allievo n. " & riga)
If allievo(riga, colonna) = a2 Then
ListBox2.AddItem (allievo(riga, colonna) & " esatto")
esatte2 = esatte2 + 1
Else
ListBox2.AddItem (allievo(riga, colonna) & " errato:era " & a2)
End If
ListBox2.AddItem ("-------------------------------")
Next riga


colonna = 3 ' domanda 3
ListBox2.AddItem ("******************************")
ListBox2.AddItem ("domanda n. " & colonna)
ListBox2.AddItem ("******************************")
For riga = 1 To allievi
ListBox2.AddItem ("allievo n. " & riga)
If allievo(riga, colonna) = a3 Then
ListBox2.AddItem (allievo(riga, colonna) & " esatto")
esatte3 = esatte3 + 1
Else
ListBox2.AddItem (allievo(riga, colonna) & " errato:era " & a3)
End If
ListBox2.AddItem ("-------------------------------")
Next riga


colonna = 4 ' domanda 4
ListBox2.AddItem ("******************************")
ListBox2.AddItem ("domanda n. " & colonna)
ListBox2.AddItem ("******************************")
For riga = 1 To allievi
ListBox2.AddItem ("allievo n. " & riga)
If allievo(riga, colonna) = a4 Then
ListBox2.AddItem (allievo(riga, colonna) & " esatto")
esatte4 = esatte4 + 1
Else
ListBox2.AddItem (allievo(riga, colonna) & " errato:era " & a4)
End If
ListBox2.AddItem ("-------------------------------")
Next riga

esattetotale = esatte1 + esatte2 + esatte3 + esatte4
erratetotale = totale - esattetotale
errate1 = allievi - esatte1
errate2 = allievi - esatte2
errate3 = allievi - esatte3
errate4 = allievi - esatte4
percentoesatte = esattetotale * 100 / totale
percentoerrate = erratetotale * 100 / totale

ListBox3.AddItem ("esatte 1 = " & esatte1)
ListBox3.AddItem ("esatte 2 = " & esatte2)
ListBox3.AddItem ("esatte 3 = " & esatte3)
ListBox3.AddItem ("esatte 4 = " & esatte4)
ListBox3.AddItem ("errate 1 = " & errate1)
ListBox3.AddItem ("errate 2 = " & errate2)
ListBox3.AddItem ("errate 3 = " & errate3)
ListBox3.AddItem ("errate 4 = " & errate4)
ListBox3.AddItem ("totale esatte= " & esattetotale)
ListBox3.AddItem ("totale errate = " & erratetotale)
ListBox3.AddItem (" esatte % = " & percentoesatte)
ListBox3.AddItem (" errate % = " & percentoerrate)

Foglio2.Cells(27, 1) = ("esatte1 = " & esatte1 & " errate1 = " & errate1)
Foglio2.Cells(28, 1) = ("esatte2 = " & esatte2 & " errate2 = " & errate2)
Foglio2.Cells(29, 1) = ("esatte3 = " & esatte3 & " errate3 = " & errate3)
Foglio2.Cells(30, 1) = ("esatte4 = " & esatte4 & " errate4 = " & errate4)

End Sub



Private Sub CommandButton5_Click()
Rem cancella risultati
ListBox2.Clear
ListBox3.Clear
End Sub

Private Sub CommandButton6_Click()
Rem nasconde domande
ListBox1.Visible = False
End Sub

Private Sub CommandButton7_Click()
Rem nasconde esiti
ListBox2.Visible = False
ListBox3.Visible = False

End Sub


Private Sub CommandButton8_Click()
Rem nasconde informazioni
ListBox4.Clear
ListBox4.Visible = False
End Sub

Private Sub CommandButton9_Click()
Rem cancella risposte
allievi = TextBox2
domande = 4
For riga = 1 To allievi
For colonna = 1 To domande
Cells(riga, colonna) = 0
Next colonna
Next riga

For riga = 1 To allievi
For colonna = 1 To domande
Foglio2.Cells(riga, colonna) = 0
Next colonna
Next riga

End Sub