Sub Main()
Dim dati(10,5)
Dim dati2(10,5,10)
Dim dati3(10,5)
Dim an(1),ar(10)
es = InputBox("Quante estrazioni vuoi controllare ?",,100)
es = CInt(es)
'im = InputBox ("Su quale estrazione mensile devo elaborare ?",,1)
'im = CInt (im)
inizio = EstrazioneFin - es
For r = 1 To 10
'ImpostaRuota r,False
ar(r) = r
Next
For ru = 1 To 10
For p = 1 To 5
For ru2 = 1 To 10
dati2(ru,p,ru2) = 0
Next
Next
Next
ColoreTesto 2
Scrivi Date & _
Chr(32) & Chr(98) & Chr(121) & Chr(32) & Chr(106) & Chr(101) & Chr(115) & Chr(121)
Scrivi String(90,Chr(11)): ColoreTesto 1
Scrivi "Tabella 1"
Scrivi "La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva."
Scrivi "Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle "
Scrivi "estrazioni successive."
Scrivi "Esempio: R1 = 4 indica che il primo estratto di Bari è in ritardo da 4 estrazioni su Tutte"
ColoreTesto 2
Scrivi String(90,Chr(11)): ColoreTesto 1
For i = inizio To EstrazioneFin
'If IndiceMensile (i) = im Then
AvanzamentoElab inizio,EstrazioneFin,i
Messaggio "Stò elaborando l'estrazione del " & DataEstrazione(i)
If i = EstrazioneFin Then Exit For
For ru = 1 To 10
For p = 1 To 5
es1 = Estratto(i,ru,p)
'''calcola ritardo di ripetizione della posizione
an(1) = es1
ritardo = EstrattoRitardoTurbo(11,es1,Inizio,EstrazioneFin - 2)
dati3(ru,p) = ritardo
'''trova quanti colpi è in ritardo su tutte le ruote
For ru2 = 1 To 10
For p2 = 1 To 5
es2 = Estratto(i + 1,ru2,p2)
If es1 = es2 Then
'''calcola frequenza
dati(ru,p) = dati(ru,p) + 1
dati2(ru,p,ru2) = dati2(ru,p,ru2) + 1
End If
Next
Next
Next
Next
'End If
Next
ColoreTesto 1
Scrivi
Scrivi Space(20) & "Tabella 1 Resoconto Complessivo"
Scrivi
Scrivi " E1 E2 E3 E4 E5 "
ColoreTesto 2
ScriviMatrice dati,,4
Scrivi
ColoreTesto(1)
Scrivi " R1 R2 R3 R4 R5 "
ColoreTesto(2)
ScriviMatrice dati3,,4
Scrivi String(90,Chr(11)): ColoreTesto 1
Scrivi "Tabella 2"
Scrivi "Questa tabella indica, in maniera dettagliata, quante volte l'estratto"
Scrivi "in una determinata posizione, si ripete in ogni ruota. Esempio:"
Scrivi "(Ba Pos1 3 0 1) indica che il 1° estratto su Bari si è ripetuto 3 volte a"
Scrivi "Bari, 0 volte a Cagliari e 1 volta a Firenze."
ColoreTesto 2
Scrivi String(90,Chr(11)): ColoreTesto 1
Scrivi
Scrivi Space(20) & "Tabella 2 Resoconto Dettagliato"
Scrivi
For ru = 1 To 10
Scrivi Space(15) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
Space(3) & "To" & Space(3) & "Ve"
For p = 1 To 5
Scrivi FormatSpace(Left(NomeRuota(ru),2),5) + FormatSpace("Pos",4) + FormatSpace(p,6) + _
FormatSpace(dati2(ru,p,1),5) + _
FormatSpace(dati2(ru,p,2),5) + FormatSpace(dati2(ru,p,3),5) + _
FormatSpace(dati2(ru,p,4),5) + FormatSpace(dati2(ru,p,5),5) + _
FormatSpace(dati2(ru,p,6),5) + FormatSpace(dati2(ru,p,7),5) + _
FormatSpace(dati2(ru,p,8),5) + FormatSpace(dati2(ru,p,9),5) + _
FormatSpace(dati2(ru,p,10),5)
Next
Scrivi String(61,"-")
Next
'''''''situazione ambi
Call situazioneambi(inizio,ar)
End Sub
Function situazioneambi(inizio,ar)
Dim dati4(10,10,3)
Dim a,b,ii,rt,pi,aretritardi,aretidestr,fr,ult,max,retestratti,retidestr,yn
Dim rigafreq,rigarita,rigarmax,x
Scrivi:Scrivi String(150,"-"):Scrivi
Scrivi " Tabella 3 - Situazione dei 10 Ambi di Ogni ruota "
Scrivi:Scrivi "Per ogni Ruota vengono evidenziati dei 10 ambi che compongono la cinquina estratta"
Scrivi "la frequenza d'uscita - il ritardo corrente - il ritardo max "
Scrivi "Nb: i valori sono calcolati sull'Esito a colpo dell'ambo a TUTTE "
ColoreTesto(1)
Scrivi:Scrivi String(17," ") & FormatSpace(" 1 2 3 4 5 6 7 8 9 10",1)
Scrivi String(17," ") & FormatSpace(" 1:2 1:3 1:4 1:5 2:3 2:4 2:5 3:4 3:5 4:5",1)
ColoreTesto(0)
Scrivi
For ii = inizio To EstrazioneFin - 1
AvanzamentoElab inizio,EstrazioneFin,ii
If ii = EstrazioneFin Then Exit For
For rt = 1 To 10
ReDim num(5)
For pi = 1 To 5
num(pi) = Estratto(ii,rt,pi)
Next
ReDim nr(2)
yn = 0
For a = 1 To 4
For b = a + 1 To 5
nr(1) = num(a) : nr(2) = num(b)
yn = yn + 1
'''verifica esito a 1 colpo
Call VerificaEsitoTurbo(nr,ar,ii + 1,2,1,,,,retestratti,retidestr)
If retestratti <> "" Then
dati4(rt,yn,1) = dati4(rt,yn,1) + 1
If dati4(rt,yn,1) > dati4(rt,yn,3) Then
dati4(rt,yn,3) = dati4(rt,yn,1)
End If
dati4(rt,yn,2) = 0
Else
dati4(rt,yn,2) = dati4(rt,yn,2) + 1
End If
'''''
Next
Next
Next
Next
''
For rt = 1 To 10
rigafreq = "":rigarita = "":rigarmax = ""
For x = 1 To 10
rigafreq = rigafreq & FormatSpace(dati4(rt,x,1),8)
rigarita = rigarita & FormatSpace(dati4(rt,x,2),8)
rigarmax = rigarmax & FormatSpace(dati4(rt,x,3),8)
Next
Scrivi " Ruota " & SiglaRuota(rt) & " Freq. " & rigafreq
Scrivi " Ruota " & SiglaRuota(rt) & " R.c. " & rigarita
Scrivi " Ruota " & SiglaRuota(rt) & " Rmax " & rigarmax
Scrivi String(100,"-")
Next
End Function