Novità

A gentile richiesta x Cinzia27

B

boxer60

Junior Member
Buongiorno a tutti, mi rivolgo possibilmente a Cinzia27 in quanto lo script che ho usato per fare la seguente ricerca è suo: Ritardi attuali e storici di ripetizione a colpo su Posizione determinata...io ho solamente ampliato lo script racchiudendo tutte le ruote per poter avere a fine elaborato il riscontro del max ritardo storico in tutte posizioni di tutte le ruote. Quindi vorrei chiedere a Cinzia27 se fosse possibile fare la stessa cosa riguardo il ritardo max attuale in tutte le posizioni di tutte le ruote...il tutto per avere una comparazione istantanea tra max storico e max attuale. Personalmente ho provato a farlo ma purtroppo non riesco nell'intento...spero che tu possa riuscire a farlo. Lo script è il seguente un saluto e grazie:

' Cinzia - Ritardi attuali e storici di ripetizione a colpo su Posizione determinata
' sulle 10 ruote dall' estrazione 3950
Sub main()
Dim n1(1),n2(1),n3(1),n4(1),n5(1),n6(1),n7(1),n8(1),n9(1),n10(1),n12(1),nn1(1),nn2(1),nn3(1),nn4(1),nn5(1),nn6(1),nn7(1),nn8(1),nn9(1),nn10(1),nn12(1)
Dim aa(12),mx1(12)
f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10508 step-1
aa(1)=aa(1)+1
For r1=1 To 1
n1(1)=Estratto(es,r1,x)
nn1(1)=Estratto(es-1,r1,x)
If nn1(1)=n1(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r1)&" n. "&format2(n1(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
c=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r1)&" n. "&format2(nn1(1))&" rt "&aa(1)
If aa(1)>mx Then mx=aa(1)
If aa(1)>mx1(1) Then mx1(1)=aa(1)
If aa(1)>mx1(11) Then mx1(11)=aa(1)
aa(1)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(1)



f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-7107 step-1
aa(2)=aa(2)+1
For r2=2 To 2
n2(1)=Estratto(es,r2,x)
nn2(1)=Estratto(es-1,r2,x)
If nn2(1)=n2(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r2)&" n. "&format2(n2(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
aa(2)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r2)&" n. "&format2(nn2(1))&" rt "&aa(2)
If aa(2)>mx Then mx=aa(2)
If aa(2)>mx1(2) Then mx1(2)=aa(2)
If aa(2)>mx1(11) Then mx1(11)=aa(2)
aa(2)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(2)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(3)=aa(3)+1
For r3=3 To 3
n3(1)=Estratto(es,r3,x)
nn3(1)=Estratto(es-1,r3,x)
If nn3(1)=n3(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r3)&" n. "&format2(n3(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
aa(3)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r3)&" n. "&format2(nn3(1))&" rt "&aa(3)
If aa(3)>mx Then mx=aa(3)
If aa(3)>mx1(3) Then mx1(3)=aa(3)
If aa(3)>mx1(11) Then mx1(11)=aa(3)
aa(3)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(3)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-7107 step-1
aa(4)=aa(4)+1
For r4=4 To 4
n4(1)=Estratto(es,r4,x)
nn4(1)=Estratto(es-1,r4,x)
If nn4(1)=n4(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r4)&" n. "&format2(n4(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
aa(4)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r4)&" n. "&format2(nn4(1))&" rt "&aa(4)
If aa(4)>mx Then mx=aa(4)
If aa(4)>mx1(4) Then mx1(4)=aa(4)
If aa(4)>mx1(11) Then mx1(4)=aa(11)
aa(4)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(4)




f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(5)=aa(5)+1
For r5=5 To 5
n5(1)=Estratto(es,r5,x)
nn5(1)=Estratto(es-1,r5,x)
If nn5(1)=n5(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r5)&" n. "&format2(n5(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
aa(5)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r5)&" n. "&format2(nn5(1))&" rt "&aa(5)
If aa(5)>mx Then mx=aa(5)
If aa(5)>mx1(5) Then mx1(5)=aa(5)
If aa(5)>mx1(11) Then mx1(11)=aa(5)
aa(5)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(5)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(6)=aa(6)+1
For r6=6 To 6
n6(1)=Estratto(es,r6,x)
nn6(1)=Estratto(es-1,r6,x)
If nn6(1)=n6(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r6)&" n. "&format2(n6(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
aa(6)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r6)&" n. "&format2(nn6(1))&" rt "&aa(6)
If aa(6)>mx Then mx=aa(6)
If aa(6)>mx1(6) Then mx1(6)=aa(6)
If aa(6)>mx1(11) Then mx1(11)=aa(6)
aa(6)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(6)







f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(7)=aa(7)+1
For r7=7 To 7
n7(1)=Estratto(es,r7,x)
nn7(1)=Estratto(es-1,r7,x)
If nn7(1)=n7(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r7)&" n. "&format2(n7(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
aa(7)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r7)&" n. "&format2(nn7(1))&" rt "&aa(7)
If aa(7)>mx Then mx=aa(7)
If aa(7)>mx1(7) Then mx1(7)=aa(7)
If aa(7)>mx1(11) Then mx1(11)=aa(7)
aa(7)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(7)




f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(8)=aa(8)+1
For r8=8 To 8
n8(1)=Estratto(es,r8,x)
nn8(1)=Estratto(es-1,r8,x)
If nn8(1)=n8(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r8)&" n. "&format2(n8(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
aa(8)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r8)&" n. "&format2(nn8(1))&" rt "&aa(8)
If aa(8)>mx Then mx=aa(8)
If aa(8)>mx1(8) Then mx1(8)=aa(8)
If aa(8)>mx1(11) Then mx1(11)=aa(8)
aa(8)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(8)




f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(9)=aa(9)+1
For r9=9 To 9
n9(1)=Estratto(es,r9,x)
nn9(1)=Estratto(es-1,r9,x)
If nn9(1)=n9(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r9)&" n. "&format2(n9(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
aa(9)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r9)&" n. "&format2(nn9(1))&" rt "&aa(9)
If aa(9)>mx Then mx=aa(9)
If aa(9)>mx1(9) Then mx1(9)=aa(9)
If aa(9)>mx1(11) Then mx1(11)=aa(9)
aa(9)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(9)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(10)=aa(10)+1
For r10=10 To 10
n10(1)=Estratto(es,r10,x)
nn10(1)=Estratto(es-1,r10,x)
If nn10(1)=n10(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r10)&" n. "&format2(n10(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
aa(10)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r10)&" n. "&format2(nn10(1))&" rt "&aa(10)
If aa(10)>mx Then mx=aa(10)
If aa(10)>mx1(10) Then mx1(10)=aa(10)
If aa(10)>mx1(11) Then mx1(11)=aa(10)
aa(10)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(10)






f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-3243 step-1
aa(12)=aa(12)+1
For r12=12 To 12
n12(1)=Estratto(es,r12,x)
nn12(1)=Estratto(es-1,r12,x)
If nn12(1)=n12(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r12)&" n. "&format2(n12(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
aa(12)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r12)&" n. "&format2(nn12(1))&" rt "&aa(12)
If aa(12)>mx Then mx=aa(12)
If aa(12)>mx1(12) Then mx1(12)=aa(12)
If aa(12)>mx1(11) Then mx1(11)=aa(12)
aa(12)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(12)

Scrivi " max st assoluto in qualsiasi ruota in qualsiasi posizione "&mx1(11)
End Sub
 
Ciao, intendi aggiungere la scritta finale in neretto ?

max st posizione 5 326

max st qualsiasi posizione 373
max st assoluto in qualsiasi ruota in qualsiasi posizione 740
max ATTUALE assoluto in qualsiasi ruota in qualsiasi posizione 432
 
boxer60 ha scritto:
Buongiorno a tutti, mi rivolgo possibilmente a Cinzia27 in quanto lo script che ho usato per fare la seguente ricerca è suo: Ritardi attuali e storici di ripetizione a colpo su Posizione determinata...io ho solamente ampliato lo script racchiudendo tutte le ruote per poter avere a fine elaborato il riscontro del max ritardo storico in tutte posizioni di tutte le ruote. Quindi vorrei chiedere a Cinzia27 se fosse possibile fare la stessa cosa riguardo il ritardo max attuale in tutte le posizioni di tutte le ruote...il tutto per avere una comparazione istantanea tra max storico e max attuale. Personalmente ho provato a farlo ma purtroppo non riesco nell'intento...spero che tu possa riuscire a farlo. Lo script è il seguente un saluto e grazie:

' Cinzia - Ritardi attuali e storici di ripetizione a colpo su Posizione determinata
' sulle 10 ruote dall' estrazione 3950
Sub main()
Dim n1(1),n2(1),n3(1),n4(1),n5(1),n6(1),n7(1),n8(1),n9(1),n10(1),n12(1),nn1(1),nn2(1),nn3(1),nn4(1),nn5(1),nn6(1),nn7(1),nn8(1),nn9(1),nn10(1),nn12(1)
Dim aa(12),mx1(12)
f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10508 step-1
aa(1)=aa(1)+1
For r1=1 To 1
n1(1)=Estratto(es,r1,x)
nn1(1)=Estratto(es-1,r1,x)
If nn1(1)=n1(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r1)&" n. "&format2(n1(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
c=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r1)&" n. "&format2(nn1(1))&" rt "&aa(1)
If aa(1)>mx Then mx=aa(1)
If aa(1)>mx1(1) Then mx1(1)=aa(1)
If aa(1)>mx1(11) Then mx1(11)=aa(1)
aa(1)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(1)



f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-7107 step-1
aa(2)=aa(2)+1
For r2=2 To 2
n2(1)=Estratto(es,r2,x)
nn2(1)=Estratto(es-1,r2,x)
If nn2(1)=n2(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r2)&" n. "&format2(n2(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
aa(2)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r2)&" n. "&format2(nn2(1))&" rt "&aa(2)
If aa(2)>mx Then mx=aa(2)
If aa(2)>mx1(2) Then mx1(2)=aa(2)
If aa(2)>mx1(11) Then mx1(11)=aa(2)
aa(2)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(2)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(3)=aa(3)+1
For r3=3 To 3
n3(1)=Estratto(es,r3,x)
nn3(1)=Estratto(es-1,r3,x)
If nn3(1)=n3(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r3)&" n. "&format2(n3(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
aa(3)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r3)&" n. "&format2(nn3(1))&" rt "&aa(3)
If aa(3)>mx Then mx=aa(3)
If aa(3)>mx1(3) Then mx1(3)=aa(3)
If aa(3)>mx1(11) Then mx1(11)=aa(3)
aa(3)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(3)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-7107 step-1
aa(4)=aa(4)+1
For r4=4 To 4
n4(1)=Estratto(es,r4,x)
nn4(1)=Estratto(es-1,r4,x)
If nn4(1)=n4(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r4)&" n. "&format2(n4(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
aa(4)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r4)&" n. "&format2(nn4(1))&" rt "&aa(4)
If aa(4)>mx Then mx=aa(4)
If aa(4)>mx1(4) Then mx1(4)=aa(4)
If aa(4)>mx1(11) Then mx1(4)=aa(11)
aa(4)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(4)




f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(5)=aa(5)+1
For r5=5 To 5
n5(1)=Estratto(es,r5,x)
nn5(1)=Estratto(es-1,r5,x)
If nn5(1)=n5(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r5)&" n. "&format2(n5(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
aa(5)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r5)&" n. "&format2(nn5(1))&" rt "&aa(5)
If aa(5)>mx Then mx=aa(5)
If aa(5)>mx1(5) Then mx1(5)=aa(5)
If aa(5)>mx1(11) Then mx1(11)=aa(5)
aa(5)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(5)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(6)=aa(6)+1
For r6=6 To 6
n6(1)=Estratto(es,r6,x)
nn6(1)=Estratto(es-1,r6,x)
If nn6(1)=n6(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r6)&" n. "&format2(n6(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
aa(6)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r6)&" n. "&format2(nn6(1))&" rt "&aa(6)
If aa(6)>mx Then mx=aa(6)
If aa(6)>mx1(6) Then mx1(6)=aa(6)
If aa(6)>mx1(11) Then mx1(11)=aa(6)
aa(6)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(6)







f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(7)=aa(7)+1
For r7=7 To 7
n7(1)=Estratto(es,r7,x)
nn7(1)=Estratto(es-1,r7,x)
If nn7(1)=n7(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r7)&" n. "&format2(n7(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
aa(7)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r7)&" n. "&format2(nn7(1))&" rt "&aa(7)
If aa(7)>mx Then mx=aa(7)
If aa(7)>mx1(7) Then mx1(7)=aa(7)
If aa(7)>mx1(11) Then mx1(11)=aa(7)
aa(7)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(7)




f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(8)=aa(8)+1
For r8=8 To 8
n8(1)=Estratto(es,r8,x)
nn8(1)=Estratto(es-1,r8,x)
If nn8(1)=n8(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r8)&" n. "&format2(n8(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
aa(8)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r8)&" n. "&format2(nn8(1))&" rt "&aa(8)
If aa(8)>mx Then mx=aa(8)
If aa(8)>mx1(8) Then mx1(8)=aa(8)
If aa(8)>mx1(11) Then mx1(11)=aa(8)
aa(8)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(8)




f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(9)=aa(9)+1
For r9=9 To 9
n9(1)=Estratto(es,r9,x)
nn9(1)=Estratto(es-1,r9,x)
If nn9(1)=n9(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r9)&" n. "&format2(n9(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
aa(9)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r9)&" n. "&format2(nn9(1))&" rt "&aa(9)
If aa(9)>mx Then mx=aa(9)
If aa(9)>mx1(9) Then mx1(9)=aa(9)
If aa(9)>mx1(11) Then mx1(11)=aa(9)
aa(9)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(9)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(10)=aa(10)+1
For r10=10 To 10
n10(1)=Estratto(es,r10,x)
nn10(1)=Estratto(es-1,r10,x)
If nn10(1)=n10(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r10)&" n. "&format2(n10(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
aa(10)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r10)&" n. "&format2(nn10(1))&" rt "&aa(10)
If aa(10)>mx Then mx=aa(10)
If aa(10)>mx1(10) Then mx1(10)=aa(10)
If aa(10)>mx1(11) Then mx1(11)=aa(10)
aa(10)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(10)






f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-3243 step-1
aa(12)=aa(12)+1
For r12=12 To 12
n12(1)=Estratto(es,r12,x)
nn12(1)=Estratto(es-1,r12,x)
If nn12(1)=n12(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r12)&" n. "&format2(n12(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
aa(12)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r12)&" n. "&format2(nn12(1))&" rt "&aa(12)
If aa(12)>mx Then mx=aa(12)
If aa(12)>mx1(12) Then mx1(12)=aa(12)
If aa(12)>mx1(11) Then mx1(11)=aa(12)
aa(12)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(12)

Scrivi " max st assoluto in qualsiasi ruota in qualsiasi posizione "&mx1(11)
End Sub
Clicca per espandere...
Cinzia27 ha scritto:
Ciao, intendi aggiungere la scritta finale in neretto ?

max st posizione 5 326

max st qualsiasi posizione 373
max st assoluto in qualsiasi ruota in qualsiasi posizione 740
max ATTUALE assoluto in qualsiasi ruota in qualsiasi posizione 432
Clicca per espandere...
Buonasera Cinzia27, sarebbe perfetto...grazie infinite.
 
Eccolo.
Ciao

Codice: 
' Cinzia - Ritardi attuali e storici di ripetizione a colpo su Posizione determinata
' sulle 10 ruote dall' estrazione 3950
Sub main()
Dim n1(1),n2(1),n3(1),n4(1),n5(1),n6(1),n7(1),n8(1),n9(1),n10(1),n12(1),nn1(1),nn2(1),nn3(1),nn4(1),nn5(1),nn6(1),nn7(1),nn8(1),nn9(1),nn10(1),nn12(1)
Dim aa(12),mx1(12)
f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10508 step-1
aa(1)=aa(1)+1
For r1=1 To 1
n1(1)=Estratto(es,r1,x)
nn1(1)=Estratto(es-1,r1,x)
If nn1(1)=n1(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r1)&" n. "&format2(n1(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
c=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r1)&" n. "&format2(nn1(1))&" rt "&aa(1)
If aa(1)>mx Then mx=aa(1)
If aa(1)>mx1(1) Then mx1(1)=aa(1)
If aa(1)>mx1(11) Then mx1(11)=aa(1)
aa(1)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(1)



f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-7107 step-1
aa(2)=aa(2)+1
For r2=2 To 2
n2(1)=Estratto(es,r2,x)
nn2(1)=Estratto(es-1,r2,x)
If nn2(1)=n2(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r2)&" n. "&format2(n2(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(2)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r2)&" n. "&format2(nn2(1))&" rt "&aa(2)
If aa(2)>mx Then mx=aa(2)
If aa(2)>mx1(2) Then mx1(2)=aa(2)
If aa(2)>mx1(11) Then mx1(11)=aa(2)
aa(2)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(2)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(3)=aa(3)+1
For r3=3 To 3
n3(1)=Estratto(es,r3,x)
nn3(1)=Estratto(es-1,r3,x)
If nn3(1)=n3(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r3)&" n. "&format2(n3(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(3)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r3)&" n. "&format2(nn3(1))&" rt "&aa(3)
If aa(3)>mx Then mx=aa(3)
If aa(3)>mx1(3) Then mx1(3)=aa(3)
If aa(3)>mx1(11) Then mx1(11)=aa(3)
aa(3)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(3)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-7107 step-1
aa(4)=aa(4)+1
For r4=4 To 4
n4(1)=Estratto(es,r4,x)
nn4(1)=Estratto(es-1,r4,x)
If nn4(1)=n4(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r4)&" n. "&format2(n4(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(4)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r4)&" n. "&format2(nn4(1))&" rt "&aa(4)
If aa(4)>mx Then mx=aa(4)
If aa(4)>mx1(4) Then mx1(4)=aa(4)
If aa(4)>mx1(11) Then mx1(4)=aa(11)
aa(4)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(4)




f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(5)=aa(5)+1
For r5=5 To 5
n5(1)=Estratto(es,r5,x)
nn5(1)=Estratto(es-1,r5,x)
If nn5(1)=n5(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r5)&" n. "&format2(n5(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(5)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r5)&" n. "&format2(nn5(1))&" rt "&aa(5)
If aa(5)>mx Then mx=aa(5)
If aa(5)>mx1(5) Then mx1(5)=aa(5)
If aa(5)>mx1(11) Then mx1(11)=aa(5)
aa(5)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(5)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(6)=aa(6)+1
For r6=6 To 6
n6(1)=Estratto(es,r6,x)
nn6(1)=Estratto(es-1,r6,x)
If nn6(1)=n6(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r6)&" n. "&format2(n6(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(6)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r6)&" n. "&format2(nn6(1))&" rt "&aa(6)
If aa(6)>mx Then mx=aa(6)
If aa(6)>mx1(6) Then mx1(6)=aa(6)
If aa(6)>mx1(11) Then mx1(11)=aa(6)
aa(6)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(6)







f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(7)=aa(7)+1
For r7=7 To 7
n7(1)=Estratto(es,r7,x)
nn7(1)=Estratto(es-1,r7,x)
If nn7(1)=n7(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r7)&" n. "&format2(n7(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(7)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r7)&" n. "&format2(nn7(1))&" rt "&aa(7)
If aa(7)>mx Then mx=aa(7)
If aa(7)>mx1(7) Then mx1(7)=aa(7)
If aa(7)>mx1(11) Then mx1(11)=aa(7)
aa(7)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(7)




f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(8)=aa(8)+1
For r8=8 To 8
n8(1)=Estratto(es,r8,x)
nn8(1)=Estratto(es-1,r8,x)
If nn8(1)=n8(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r8)&" n. "&format2(n8(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(8)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r8)&" n. "&format2(nn8(1))&" rt "&aa(8)
If aa(8)>mx Then mx=aa(8)
If aa(8)>mx1(8) Then mx1(8)=aa(8)
If aa(8)>mx1(11) Then mx1(11)=aa(8)
aa(8)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(8)




f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(9)=aa(9)+1
For r9=9 To 9
n9(1)=Estratto(es,r9,x)
nn9(1)=Estratto(es-1,r9,x)
If nn9(1)=n9(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r9)&" n. "&format2(n9(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(9)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r9)&" n. "&format2(nn9(1))&" rt "&aa(9)
If aa(9)>mx Then mx=aa(9)
If aa(9)>mx1(9) Then mx1(9)=aa(9)
If aa(9)>mx1(11) Then mx1(11)=aa(9)
aa(9)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(9)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(10)=aa(10)+1
For r10=10 To 10
n10(1)=Estratto(es,r10,x)
nn10(1)=Estratto(es-1,r10,x)
If nn10(1)=n10(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r10)&" n. "&format2(n10(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(10)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r10)&" n. "&format2(nn10(1))&" rt "&aa(10)
If aa(10)>mx Then mx=aa(10)
If aa(10)>mx1(10) Then mx1(10)=aa(10)
If aa(10)>mx1(11) Then mx1(11)=aa(10)
aa(10)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(10)






f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-3243 step-1
aa(12)=aa(12)+1
For r12=12 To 12
n12(1)=Estratto(es,r12,x)
nn12(1)=Estratto(es-1,r12,x)
If nn12(1)=n12(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r12)&" n. "&format2(n12(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(12)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r12)&" n. "&format2(nn12(1))&" rt "&aa(12)
If aa(12)>mx Then mx=aa(12)
If aa(12)>mx1(12) Then mx1(12)=aa(12)
If aa(12)>mx1(11) Then mx1(11)=aa(12)
aa(12)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(12)

Scrivi " max st assoluto in qualsiasi ruota e in qualsiasi posizione "&mx1(11)
Scrivi " max ATTUALE assoluto in qualsiasi ruota e in qualsiasi posizione "&mmxx,1
End Sub
 
Ciao Cinzia27...ho controllato perfetto...anche se il max ritardo storico è 786 estrazioni perché va aggiunta 1 estrazione...ritardo a Milano proprio ad inizio archivio 08/01/1871. Ancora un grazie e complimenti x lo script.
 
boxer60 ha scritto:
Ciao Cinzia27...ho controllato perfetto...anche se il max ritardo storico è 786 estrazioni perché va aggiunta 1 estrazione...ritardo a Milano proprio ad inizio archivio 08/01/1871. Ancora un grazie e complimenti x lo script.
Clicca per espandere...


Ciao, Boxer60.
Ho visto che hai messo intervalli di archivio diversi tra le ruote.
Comunque, senza intervenire su questi, l'ho alleggerito in modo che scorra anche con intervalli maggiori
e migliorato l'output.

Codice: 
' Cinzia - Ritardi attuali e storici di ripetizione a colpo su Posizione determinata
' sulle 10 ruote dall' estrazione 3950
Sub main()
Dim n1(1),n2(1),n3(1),n4(1),n5(1),n6(1),n7(1),n8(1),n9(1),n10(1),n12(1),nn1(1),nn2(1),nn3(1),nn4(1),nn5(1),nn6(1),nn7(1),nn8(1),nn9(1),nn10(1),nn12(1)
Dim aa(12),mx1(12)
f=EstrazioneFin
r1=1
r2=2
r3=3
r4=4
r5=5
r6=6
r7=7
r8=8
r9=9
r10=10
r12=12
For x=1 To 5
mx=0
ce=0
For es=f To f-10508 step-1
aa(1)=aa(1)+1

n1(1)=Estratto(es,r1,x)
nn1(1)=Estratto(es-1,r1,x)
If nn1(1)=n1(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r1)&" n. "&format2(n1(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
c=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r1)&" n. "&format2(nn1(1))&" rt "&aa(1)
If aa(1)>mx Then mx=aa(1)
If aa(1)>mx1(1) Then mx1(1)=aa(1)
If aa(1)>mx1(11) Then mx1(11)=aa(1)
aa(1)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi

Scrivi " max st qualsiasi posizione "&mx1(1)



f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-7107 step-1
aa(2)=aa(2)+1
n2(1)=Estratto(es,r2,x)
nn2(1)=Estratto(es-1,r2,x)
If nn2(1)=n2(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r2)&" n. "&format2(n2(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(2)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r2)&" n. "&format2(nn2(1))&" rt "&aa(2)
If aa(2)>mx Then mx=aa(2)
If aa(2)>mx1(2) Then mx1(2)=aa(2)
If aa(2)>mx1(11) Then mx1(11)=aa(2)
aa(2)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi

Scrivi " max st qualsiasi posizione "&mx1(2)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(3)=aa(3)+1

n3(1)=Estratto(es,r3,x)
nn3(1)=Estratto(es-1,r3,x)
If nn3(1)=n3(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r3)&" n. "&format2(n3(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(3)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r3)&" n. "&format2(nn3(1))&" rt "&aa(3)
If aa(3)>mx Then mx=aa(3)
If aa(3)>mx1(3) Then mx1(3)=aa(3)
If aa(3)>mx1(11) Then mx1(11)=aa(3)
aa(3)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi

Scrivi " max st qualsiasi posizione "&mx1(3)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-7107 step-1
aa(4)=aa(4)+1

n4(1)=Estratto(es,r4,x)
nn4(1)=Estratto(es-1,r4,x)
If nn4(1)=n4(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r4)&" n. "&format2(n4(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(4)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r4)&" n. "&format2(nn4(1))&" rt "&aa(4)
If aa(4)>mx Then mx=aa(4)
If aa(4)>mx1(4) Then mx1(4)=aa(4)
If aa(4)>mx1(11) Then mx1(4)=aa(11)
aa(4)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi

Scrivi " max st qualsiasi posizione "&mx1(4)




f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(5)=aa(5)+1

n5(1)=Estratto(es,r5,x)
nn5(1)=Estratto(es-1,r5,x)
If nn5(1)=n5(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r5)&" n. "&format2(n5(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(5)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r5)&" n. "&format2(nn5(1))&" rt "&aa(5)
If aa(5)>mx Then mx=aa(5)
If aa(5)>mx1(5) Then mx1(5)=aa(5)
If aa(5)>mx1(11) Then mx1(11)=aa(5)
aa(5)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi

Scrivi " max st qualsiasi posizione "&mx1(5)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(6)=aa(6)+1

n6(1)=Estratto(es,r6,x)
nn6(1)=Estratto(es-1,r6,x)
If nn6(1)=n6(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r6)&" n. "&format2(n6(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(6)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r6)&" n. "&format2(nn6(1))&" rt "&aa(6)
If aa(6)>mx Then mx=aa(6)
If aa(6)>mx1(6) Then mx1(6)=aa(6)
If aa(6)>mx1(11) Then mx1(11)=aa(6)
aa(6)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi

Scrivi " max st qualsiasi posizione "&mx1(6)







f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(7)=aa(7)+1

n7(1)=Estratto(es,r7,x)
nn7(1)=Estratto(es-1,r7,x)
If nn7(1)=n7(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r7)&" n. "&format2(n7(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(7)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r7)&" n. "&format2(nn7(1))&" rt "&aa(7)
If aa(7)>mx Then mx=aa(7)
If aa(7)>mx1(7) Then mx1(7)=aa(7)
If aa(7)>mx1(11) Then mx1(11)=aa(7)
aa(7)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi

Scrivi " max st qualsiasi posizione "&mx1(7)




f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(8)=aa(8)+1

n8(1)=Estratto(es,r8,x)
nn8(1)=Estratto(es-1,r8,x)
If nn8(1)=n8(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r8)&" n. "&format2(n8(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(8)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r8)&" n. "&format2(nn8(1))&" rt "&aa(8)
If aa(8)>mx Then mx=aa(8)
If aa(8)>mx1(8) Then mx1(8)=aa(8)
If aa(8)>mx1(11) Then mx1(11)=aa(8)
aa(8)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi

Scrivi " max st qualsiasi posizione "&mx1(8)




f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(9)=aa(9)+1

n9(1)=Estratto(es,r9,x)
nn9(1)=Estratto(es-1,r9,x)
If nn9(1)=n9(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r9)&" n. "&format2(n9(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(9)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r9)&" n. "&format2(nn9(1))&" rt "&aa(9)
If aa(9)>mx Then mx=aa(9)
If aa(9)>mx1(9) Then mx1(9)=aa(9)
If aa(9)>mx1(11) Then mx1(11)=aa(9)
aa(9)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi

Scrivi " max st qualsiasi posizione "&mx1(9)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10682 step-1
aa(10)=aa(10)+1

n10(1)=Estratto(es,r10,x)
nn10(1)=Estratto(es-1,r10,x)
If nn10(1)=n10(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r10)&" n. "&format2(n10(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(10)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r10)&" n. "&format2(nn10(1))&" rt "&aa(10)
If aa(10)>mx Then mx=aa(10)
If aa(10)>mx1(10) Then mx1(10)=aa(10)
If aa(10)>mx1(11) Then mx1(11)=aa(10)
aa(10)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi

Scrivi " max st qualsiasi posizione "&mx1(10)






f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-3243 step-1
aa(12)=aa(12)+1

n12(1)=Estratto(es,r12,x)
nn12(1)=Estratto(es-1,r12,x)
If nn12(1)=n12(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r12)&" n. "&format2(n12(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(12)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,5,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r12)&" n. "&format2(nn12(1))&" rt "&aa(12)
If aa(12)>mx Then mx=aa(12)
If aa(12)>mx1(12) Then mx1(12)=aa(12)
If aa(12)>mx1(11) Then mx1(11)=aa(12)
aa(12)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi

Scrivi " max st qualsiasi posizione "&mx1(12)

Scrivi " max st assoluto in qualsiasi ruota e in qualsiasi posizione "&mx1(11)
Scrivi " max ATTUALE assoluto in qualsiasi ruota e in qualsiasi posizione "&mmxx,1
End Sub
 
Ciao Cinzia27, si gli intervalli diversi in alcune ruote per evitare la mancanza di estrazioni che rallentano l'elaborazione. Avevo provato anche a cambiare l'impostazione per partire dall'estrazione 1 in modo di non dover aggiungere un estrazione ogni volta ad ogni ruota...anche se è di relativa importanza solo per gli storici. Comunque tutto ok...e grazie ancora.
 
Di nulla, Boxer60.

Per evitare i cosiddetti buchi nelle estrazioni, potresti aggiungere if n1(1)>0 then
ad es.
n1(1)=Estratto(es,r1,x)
if n1(1)>0 then
ripetendolo per ogni ruota

n2(1)=Estratto(es,r2,x)
if n2(1)>0 then

ecc.

Buona serata
 
Buonasera a tutti, rivolgendomi a Cinzia27...riguardo l'impostazione che hai postato per evitare i buchi di estrazione...purtroppo non evidenzia
il max ritardo assoluto per tutte le posizioni di tutte le ruote a MILANO di 786 estrazioni ad inizio archivio 08/01/1871...che risulta invece di
740 estrazioni. Per questo motivo ho preferito lasciare i limiti di ogni ruota, per via anche dell'ampliamento che ho fatto della ricerca inserendo
un inputbox con i numeri da 1 a 90 da inserire e sommare agli estratti determinati in tutte le posizioni a tutte le ruote. Ricerca che ho fatto con
un pò di pazienza inserendo tutti i numeri...riscontrando come la tabella di seguito evidenzia il ritardo sulla ruota di MILANO di 1139 estrazioni...che
equiparato ai massimi storici risulta di ECCEZIONALE rilievo statistico.

All'estrazione del 17/07/2025.

max attuale con +62 SOMMA AL 3° estratto di MILANO a colpo rit.1139 estrazioni eguagliando addirittura il massimo ritardo storico di 1139 dell'87
che ha ritardato a NAPOLI in 3° posizione... del 22/06/2017.

Di seguito i max storici riscontrati nell'intero archivio dal 1871 in tutte le posizioni di tutte le ruote sempre a colpo.
max st +85 =1009 a NAPOLI SOMMA AL 3°ESTRATTO
max st +53 =970 a VENEZIA somma al 2°estratto
max st +64 =965 a NAPOLI SOMMA AL 1°ESTRATTO
max st +79 =953 a VENEZIA SOMMA AL 2°ESTRATTO
max st +43 =944 a BARI SOMMA AL 5°ESTRATTO
max st +03 =935 a NAPOLI SOMMA AL 1°ESTRATTO
max st +62 =924 a VENEZIA SOMMA AL 1°ESTRATTO
max st +76 =912 a FIRENZE SOMMA AL 2°ESTRATTO
max st +04 =908 a BARI SOMMA AL 1°ESTRATTO
max st +1 =902 a NAPOLI somma al 1°estratto

Ringraziandoti ancora per lo script ti saluto e ti auguro una buona serata.
 
boxer60 ha scritto:
Buonasera a tutti, rivolgendomi a Cinzia27...riguardo l'impostazione che hai postato per evitare i buchi di estrazione...purtroppo non evidenzia
il max ritardo assoluto per tutte le posizioni di tutte le ruote a MILANO di 786 estrazioni ad inizio archivio 08/01/1871...che risulta invece di
740 estrazioni. Per questo motivo ho preferito lasciare i limiti di ogni ruota, per via anche dell'ampliamento che ho fatto della ricerca inserendo
un inputbox con i numeri da 1 a 90 da inserire e sommare agli estratti determinati in tutte le posizioni a tutte le ruote. Ricerca che ho fatto con
un pò di pazienza inserendo tutti i numeri...riscontrando come la tabella di seguito evidenzia il ritardo sulla ruota di MILANO di 1139 estrazioni...che
equiparato ai massimi storici risulta di ECCEZIONALE rilievo statistico.

All'estrazione del 17/07/2025.

max attuale con +62 SOMMA AL 3° estratto di MILANO a colpo rit.1139 estrazioni eguagliando addirittura il massimo ritardo storico di 1139 dell'87
che ha ritardato a NAPOLI in 3° posizione... del 22/06/2017.

Di seguito i max storici riscontrati nell'intero archivio dal 1871 in tutte le posizioni di tutte le ruote sempre a colpo.
max st +85 =1009 a NAPOLI SOMMA AL 3°ESTRATTO
max st +53 =970 a VENEZIA somma al 2°estratto
max st +64 =965 a NAPOLI SOMMA AL 1°ESTRATTO
max st +79 =953 a VENEZIA SOMMA AL 2°ESTRATTO
max st +43 =944 a BARI SOMMA AL 5°ESTRATTO
max st +03 =935 a NAPOLI SOMMA AL 1°ESTRATTO
max st +62 =924 a VENEZIA SOMMA AL 1°ESTRATTO
max st +76 =912 a FIRENZE SOMMA AL 2°ESTRATTO
max st +04 =908 a BARI SOMMA AL 1°ESTRATTO
max st +1 =902 a NAPOLI somma al 1°estratto

Ringraziandoti ancora per lo script ti saluto e ti auguro una buona serata.
Clicca per espandere...


Ciao, Boxer60.
Ma l'impostazione
n1(1)=Estratto(es,r1,x)
if n1(1)>0 then
non l'ho inserita. Ti ho solo consigliato di aggiungerla ( ora l'ho fatto io nello script sottostante)

Vedo che hai postato dati col metodo sommativo.Lo script non fa nulla di tutto ciò.
Quindi non ti posso aiutare.
Esso semplicemente rileva mx st e attuali ripetizioni a colpo dei determinati.
Per quello che deve fare a me sembra corretto.
Se hai rilevato incongruenze, dovresti postare quello originario, prima delle tue modifiche,
in modo che vediamo insieme di risolverle.

P.S. : se continua la conversazione, forse è meglio che ci spostiamo nella sezione download.

Codice: 
' Cinzia - Ritardi attuali e storici di ripetizione a colpo su Posizione determinata
' sulle 10 ruote dall' estrazione 1
Sub main()
Dim n1(1),n2(1),n3(1),n4(1),n5(1),n6(1),n7(1),n8(1),n9(1),n10(1),n12(1),nn1(1),nn2(1),nn3(1),nn4(1),nn5(1),nn6(1),nn7(1),nn8(1),nn9(1),nn10(1),nn12(1)
Dim aa(12),mx1(12)
f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(1)=aa(1)+1
For r1=1 To 1
n1(1)=Estratto(es,r1,x)
If n1(1)>0 Then
nn1(1)=Estratto(es-1,r1,x)
If nn1(1)=n1(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r1)&" n. "&format2(n1(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
c=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r1)&" n. "&format2(nn1(1))&" rt "&aa(1)
If aa(1)>mx Then mx=aa(1)
If aa(1)>mx1(1) Then mx1(1)=aa(1)
If aa(1)>mx1(11) Then mx1(11)=aa(1)
aa(1)=0
End If
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(1)



f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(2)=aa(2)+1
For r2=2 To 2
n2(1)=Estratto(es,r2,x)
If n2(1)>0 Then
nn2(1)=Estratto(es-1,r2,x)
If nn2(1)=n2(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r2)&" n. "&format2(n2(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(2)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r2)&" n. "&format2(nn2(1))&" rt "&aa(2)
If aa(2)>mx Then mx=aa(2)
If aa(2)>mx1(2) Then mx1(2)=aa(2)
If aa(2)>mx1(11) Then mx1(11)=aa(2)
aa(2)=0
End If
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(2)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(3)=aa(3)+1
For r3=3 To 3
n3(1)=Estratto(es,r3,x)
If n3(1)>0 Then
nn3(1)=Estratto(es-1,r3,x)
If nn3(1)=n3(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r3)&" n. "&format2(n3(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(3)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r3)&" n. "&format2(nn3(1))&" rt "&aa(3)
If aa(3)>mx Then mx=aa(3)
If aa(3)>mx1(3) Then mx1(3)=aa(3)
If aa(3)>mx1(11) Then mx1(11)=aa(3)
aa(3)=0
End If
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(3)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(4)=aa(4)+1
For r4=4 To 4
n4(1)=Estratto(es,r4,x)
If n4(1)>0 Then
nn4(1)=Estratto(es-1,r4,x)
If nn4(1)=n4(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r4)&" n. "&format2(n4(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(4)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r4)&" n. "&format2(nn4(1))&" rt "&aa(4)
If aa(4)>mx Then mx=aa(4)
If aa(4)>mx1(4) Then mx1(4)=aa(4)
If aa(4)>mx1(11) Then mx1(4)=aa(11)
aa(4)=0
End If
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(4)




f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(5)=aa(5)+1
For r5=5 To 5
n5(1)=Estratto(es,r5,x)
If n5(1)>0 Then
nn5(1)=Estratto(es-1,r5,x)
If nn5(1)=n5(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r5)&" n. "&format2(n5(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(5)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r5)&" n. "&format2(nn5(1))&" rt "&aa(5)
If aa(5)>mx Then mx=aa(5)
If aa(5)>mx1(5) Then mx1(5)=aa(5)
If aa(5)>mx1(11) Then mx1(11)=aa(5)
aa(5)=0
End If
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(5)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(6)=aa(6)+1
For r6=6 To 6
n6(1)=Estratto(es,r6,x)
If n6(1)>0 Then
nn6(1)=Estratto(es-1,r6,x)
If nn6(1)=n6(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r6)&" n. "&format2(n6(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(6)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r6)&" n. "&format2(nn6(1))&" rt "&aa(6)
If aa(6)>mx Then mx=aa(6)
If aa(6)>mx1(6) Then mx1(6)=aa(6)
If aa(6)>mx1(11) Then mx1(11)=aa(6)
aa(6)=0
End If
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(6)







f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(7)=aa(7)+1
For r7=7 To 7
n7(1)=Estratto(es,r7,x)
If n7(1)>0 Then
nn7(1)=Estratto(es-1,r7,x)
If nn7(1)=n7(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r7)&" n. "&format2(n7(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(7)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r7)&" n. "&format2(nn7(1))&" rt "&aa(7)
If aa(7)>mx Then mx=aa(7)
If aa(7)>mx1(7) Then mx1(7)=aa(7)
If aa(7)>mx1(11) Then mx1(11)=aa(7)
aa(7)=0
End If
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(7)




f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(8)=aa(8)+1
For r8=8 To 8
n8(1)=Estratto(es,r8,x)
If n8(1)>0 Then
nn8(1)=Estratto(es-1,r8,x)
If nn8(1)=n8(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r8)&" n. "&format2(n8(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(8)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r8)&" n. "&format2(nn8(1))&" rt "&aa(8)
If aa(8)>mx Then mx=aa(8)
If aa(8)>mx1(8) Then mx1(8)=aa(8)
If aa(8)>mx1(11) Then mx1(11)=aa(8)
aa(8)=0
End If
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(8)




f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(9)=aa(9)+1
For r9=9 To 9
n9(1)=Estratto(es,r9,x)
If n9(1)>0 Then
nn9(1)=Estratto(es-1,r9,x)
If nn9(1)=n9(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r9)&" n. "&format2(n9(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(9)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r9)&" n. "&format2(nn9(1))&" rt "&aa(9)
If aa(9)>mx Then mx=aa(9)
If aa(9)>mx1(9) Then mx1(9)=aa(9)
If aa(9)>mx1(11) Then mx1(11)=aa(9)
aa(9)=0
End If
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(9)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(10)=aa(10)+1
For r10=10 To 10
n10(1)=Estratto(es,r10,x)
If n10(1)>0 Then
nn10(1)=Estratto(es-1,r10,x)
If nn10(1)=n10(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r10)&" n. "&format2(n10(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(10)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r10)&" n. "&format2(nn10(1))&" rt "&aa(10)
If aa(10)>mx Then mx=aa(10)
If aa(10)>mx1(10) Then mx1(10)=aa(10)
If aa(10)>mx1(11) Then mx1(11)=aa(10)
aa(10)=0
End If
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(10)






f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To 1 step-1
aa(12)=aa(12)+1
For r12=12 To 12
n12(1)=Estratto(es,r12,x)
If n12(1)>0 Then
nn12(1)=Estratto(es-1,r12,x)
If nn12(1)=n12(1) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r12)&" n. "&format2(n12(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(12)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r12)&" n. "&format2(nn12(1))&" rt "&aa(12)
If aa(12)>mx Then mx=aa(12)
If aa(12)>mx1(12) Then mx1(12)=aa(12)
If aa(12)>mx1(11) Then mx1(11)=aa(12)
aa(12)=0
End If
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(12)

Scrivi " max st assoluto in qualsiasi ruota e in qualsiasi posizione "&mx1(11)
Scrivi " max ATTUALE assoluto in qualsiasi ruota e in qualsiasi posizione "&mmxx,1
End Sub
 
Buongiorno a tutti, scusami Cinzia27 avevo dimenticato di postare lo script che ho modificato aggiungendo l'inputbox per la scelta del numero da sommare.... se inserisco la tua impostazione ad ogni ruota non rileva più i ritardi che ti ho accennato. Comunque lo script è il seguente se vuoi controllare anche tu per possibili errori ti ringrazio. Poi per rispondere a Nives.78...se fai girare lo script il numero 62 nell'inputbox ti apparirà il ritardo attuale di 1139 che rappresenta anche il nuovo max storico. Per quanto mi riguarda non faccio previsioni mi attengo solamente ad evidenziare un dato statistico di rilievo molto interessante. Un saluto.

' Cinzia - Ritardi attuali e storici di un numero sommato a ripetizione a colpo su Posizione determinata
' sulle 10 ruote dall' estrazione 3950
Sub main()
Dim n1(1),n2(1),n3(1),n4(1),n5(1),n6(1),n7(1),n8(1),n9(1),n10(1),n12(1),nn1(1),nn2(1),nn3(1),nn4(1),nn5(1),nn6(1),nn7(1),nn8(1),nn9(1),nn10(1),nn12(1)
Dim aa(12),mx1(12)
z=CInt(InputBox ("Quale numero vuoi sommare all'estratto determinato?",1))
f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10510 step-1
aa(1)=aa(1)+1
For r1=1 To 1
n1(1)=Estratto(es,r1,x)
nn1(1)=Estratto(es-1,r1,x)
If n1(1)=Fuori90(nn1(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r1)&" n. "&format2(n1(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(1)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r1)&" n. "&format2(nn1(1))&" rt "&aa(1)
If aa(1)>mx Then mx=aa(1)
If aa(1)>mx1(1) Then mx1(1)=aa(1)
If aa(1)>mx1(11) Then mx1(11)=aa(1)
aa(1)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(1)



f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-7109 step-1
aa(2)=aa(2)+1
For r2=2 To 2
n2(1)=Estratto(es,r2,x)
nn2(1)=Estratto(es-1,r2,x)
If n2(1)=Fuori90(nn2(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r2)&" n. "&format2(n2(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(2)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r2)&" n. "&format2(nn2(1))&" rt "&aa(2)
If aa(2)>mx Then mx=aa(2)
If aa(2)>mx1(2) Then mx1(2)=aa(2)
If aa(2)>mx1(11) Then mx1(11)=aa(2)
aa(2)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(2)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10684 step-1
aa(3)=aa(3)+1
For r3=3 To 3
n3(1)=Estratto(es,r3,x)
nn3(1)=Estratto(es-1,r3,x)
If n3(1)=Fuori90(nn3(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r3)&" n. "&format2(n3(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(3)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r3)&" n. "&format2(nn3(1))&" rt "&aa(3)
If aa(3)>mx Then mx=aa(3)
If aa(3)>mx1(3) Then mx1(3)=aa(3)
If aa(3)>mx1(11) Then mx1(11)=aa(3)
aa(3)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(3)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-7109 step-1
aa(4)=aa(4)+1
For r4=4 To 4
n4(1)=Estratto(es,r4,x)
nn4(1)=Estratto(es-1,r4,x)
If n4(1)=Fuori90(nn4(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r4)&" n. "&format2(n4(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(4)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r4)&" n. "&format2(nn4(1))&" rt "&aa(4)
If aa(4)>mx Then mx=aa(4)
If aa(4)>mx1(4) Then mx1(4)=aa(4)
If aa(4)>mx1(11) Then mx1(4)=aa(11)
aa(4)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(4)




f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10684 step-1
aa(5)=aa(5)+1
For r5=5 To 5
n5(1)=Estratto(es,r5,x)
nn5(1)=Estratto(es-1,r5,x)
If n5(1)=Fuori90(nn5(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r5)&" n. "&format2(n5(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(5)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r5)&" n. "&format2(nn5(1))&" rt "&aa(5)
If aa(5)>mx Then mx=aa(5)
If aa(5)>mx1(5) Then mx1(5)=aa(5)
If aa(5)>mx1(11) Then mx1(11)=aa(5)
aa(5)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(5)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10684 step-1
aa(6)=aa(6)+1
For r6=6 To 6
n6(1)=Estratto(es,r6,x)
nn6(1)=Estratto(es-1,r6,x)
If n6(1)=Fuori90(nn6(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r6)&" n. "&format2(n6(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(6)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r6)&" n. "&format2(nn6(1))&" rt "&aa(6)
If aa(6)>mx Then mx=aa(6)
If aa(6)>mx1(6) Then mx1(6)=aa(6)
If aa(6)>mx1(11) Then mx1(11)=aa(6)
aa(6)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(6)







f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10684 step-1
aa(7)=aa(7)+1
For r7=7 To 7
n7(1)=Estratto(es,r7,x)
nn7(1)=Estratto(es-1,r7,x)
If n7(1)=Fuori90(nn7(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r7)&" n. "&format2(n7(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(7)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r7)&" n. "&format2(nn7(1))&" rt "&aa(7)
If aa(7)>mx Then mx=aa(7)
If aa(7)>mx1(7) Then mx1(7)=aa(7)
If aa(7)>mx1(11) Then mx1(11)=aa(7)
aa(7)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(7)




f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10684 step-1
aa(8)=aa(8)+1
For r8=8 To 8
n8(1)=Estratto(es,r8,x)
nn8(1)=Estratto(es-1,r8,x)
If n8(1)=Fuori90(nn8(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r8)&" n. "&format2(n8(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(8)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r8)&" n. "&format2(nn8(1))&" rt "&aa(8)
If aa(8)>mx Then mx=aa(8)
If aa(8)>mx1(8) Then mx1(8)=aa(8)
If aa(8)>mx1(11) Then mx1(11)=aa(8)
aa(8)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(8)




f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10684 step-1
aa(9)=aa(9)+1
For r9=9 To 9
n9(1)=Estratto(es,r9,x)
nn9(1)=Estratto(es-1,r9,x)
If n9(1)=Fuori90(nn9(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r9)&" n. "&format2(n9(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(9)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r9)&" n. "&format2(nn9(1))&" rt "&aa(9)
If aa(9)>mx Then mx=aa(9)
If aa(9)>mx1(9) Then mx1(9)=aa(9)
If aa(9)>mx1(11) Then mx1(11)=aa(9)
aa(9)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(9)





f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-10684 step-1
aa(10)=aa(10)+1
For r10=10 To 10
n10(1)=Estratto(es,r10,x)
nn10(1)=Estratto(es-1,r10,x)
If n10(1)=Fuori90(nn10(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r10)&" n. "&format2(n10(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(10)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r10)&" n. "&format2(nn10(1))&" rt "&aa(10)
If aa(10)>mx Then mx=aa(10)
If aa(10)>mx1(10) Then mx1(10)=aa(10)
If aa(10)>mx1(11) Then mx1(11)=aa(10)
aa(10)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(10)






f=EstrazioneFin
For x=1 To 5
mx=0
ce=0
For es=f To f-3245 step-1
aa(12)=aa(12)+1
For r12=12 To 12
n12(1)=Estratto(es,r12,x)
nn12(1)=Estratto(es-1,r12,x)
If n12(1)=Fuori90(nn12(1)+z) Then
ce=ce+1
If ce=1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r12)&" n. "&format2(n12(1))&" Non esce da "&FormatSpace(f-es,4,1)_
&" estrazioni"
If (f-es)>mmxx Then mmxx=(f-es)
aa(12)=0
Else
If ce>1 Then
Scrivi FormatSpace(es,4,1)&" pos "&FormatSpace(x,4,1)&" "&_
SiglaRuota(r12)&" n. "&format2(nn12(1))&" rt "&aa(12)
If aa(12)>mx Then mx=aa(12)
If aa(12)>mx1(12) Then mx1(12)=aa(12)
If aa(12)>mx1(11) Then mx1(11)=aa(12)
aa(12)=0
End If
End If
End If
Next
Next
Scrivi
Scrivi " max st posizione "&x&" "&mx
Scrivi
Next
Scrivi " max st qualsiasi posizione "&mx1(12)

Scrivi " max st assoluto in qualsiasi ruota e in qualsiasi posizione "&mx1(11)
Scrivi " max ATTUALE assoluto in qualsiasi ruota e in qualsiasi posizione "&mmxx,1
Scrivi " la somma di riscontro "&z,1
End Sub
 
Ciao, Boxer.
boxer60 ha scritto:
Buongiorno a tutti, scusami Cinzia27 avevo dimenticato di postare lo script che ho modificato aggiungendo l'inputbox per la scelta del numero da sommare.... se inserisco la tua impostazione ad ogni ruota non rileva più i ritardi che ti ho accennato
Clicca per espandere...

Ok, ora allora possiamo verificare.
boxer60 ha scritto:
Per questo motivo ho preferito lasciare i limiti di ogni ruota
Clicca per espandere...
Ho notato che all'estrazionefin ( variabile f) sottrai il numero di estrazioni avuto dalla ruota, ma estrazionefin ( variabile f) è un valore che si
incrementa, di conseguenza ad ogni nuova estrazione dovresti incrementare anche il numero di estrazioni da sottrarre, il tutto per 10 ruote.
E' piuttosto macchinoso.
Poi c'è MI a cui hai sottratto tutto l'intero archivio essendo ruota attiva già dalla prima estrazione, però se sottrai 10684, fa 0
mentre la prima estrazione è 1, allora va fatto EstrazioneFin-10683

Sub main()
Scrivi EstrazioneFin-10684
End Sub

Ma essendo tutto farraginoso, molto meglio far partire l'analisi dall'estrazione iniziale di quella ruota
Per MI e per le altre ruote di pari anzianità occore fare
For es=f To 1 step-1

invece per le ruote che sono comparse dopo
For es=f To 174 step-1 'Bari
For es=f To 3575 step-1 'Cagliari -Genova

Sorge però un altro problema dato che nel 1943 alcune ruote non hanno avuto estrazioni.
(la situazione si è stabilizzata per le 10 ruote solo dalla 3950, 14/09/1946, poi alla 7440, 04/05/2005 è comparsa NZ ma qui non interessa,
infine per chi ritiene influente il cambiamento operato dalle venus l'estrazione di partenza da considerare è la 8117, 15/09/2009)

Tornando al suddetto problema
Credo, ma non ne sono certa, che così facendo le mancate estrazioni siano computate come ritardo.
Prova a verificare. Se è così e per te va bene, penso che puoi adottare la tua impostazione con gli accorgimenti detti.
 
Ciao Cinzia27, in realtà problemi non ci sono... riguardo i ritardi attuali ho controllato vanno bene...il ritardo a Milano è reale. Se poi hai tempo e voglia per fare uno script dello stesso tipo più contenuto e più funzionale ben venga. Un saluto e grazie.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 17 luglio 2025
    Bari
    22
    33
    04
    68
    47
    Cagliari
    09
    52
    27
    21
    47
    Firenze
    05
    33
    72
    17
    08
    Genova
    76
    67
    65
    68
    45
    Milano
    75
    52
    46
    34
    22
    Napoli
    40
    23
    71
    12
    22
    Palermo
    44
    89
    39
    01
    31
    Roma
    89
    04
    05
    82
    26
    Torino
    05
    59
    85
    88
    24
    Venezia
    69
    45
    75
    44
    30
    Nazionale
    28
    85
    16
    03
    83
    Estrazione Simbolotto
    Nazionale
    39
    26
    40
    23
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto