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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto