| Ciao micro, purtroppo non sono in grado di modificare lo script per togliere i numeri che non interrompono la sequenza di numeri tutti diversi, mi spiace. Anche con questa limitazione ho visto che gli esiti avvengono in breve tempo, perciņ ripropongo lo script avendo modificato ordinamatrice, aggiunto la ruota nazionale e aggiunto delle opzioni che si attivano spostando l'apice: 'If e(1)>0 Then 'sincrononi livello 5 If e(1)<1 And e(2)>0 Then 'sincrononi livello 4 'If e(2)<1 And e(3)>0 Then 'sincrononi livello 3 'If e(3)>0 Then 'sincrononi livello 3-4-5 insieme Un saluto a tutti HTML 'Sincrononi livello 3-4-5 con precedente posizione estrattiva uguale
Sub main()
Dim e(5)
Dim e1(1)
Dim e2(1)
Dim e3(1)
Dim e4(1)
Dim e5(1)
Dim ru(1)
Dim sp(12)
Dim sf(12)
ini=EstrazioneFin-160
fin=EstrazioneFin
Scrivi "Sincrononi con precedente posizione estrattiva uguale" ,1
Scrivi
For es=ini To fin
For r=1 To 11
If r=11 Then r=12
ru(1)=r
e(1)=0
e(2)=0
e(3)=0
e(4)=0
e(5)=0
e1(1)=Estratto(es,r,1)
e2(1)=Estratto(es,r,2)
e3(1)=Estratto(es,r,3)
e4(1)=Estratto(es,r,4)
e5(1)=Estratto(es,r,5)
su1=SerieUltima(es-200,es-1,e1,ru,1)
su2=SerieUltima(es-200,es-1,e2,ru,1)
su3=SerieUltima(es-200,es-1,e3,ru,1)
su4=SerieUltima(es-200,es-1,e4,ru,1)
su5=SerieUltima(es-200,es-1,e5,ru,1)
If Posizione(su1,r,e1(1))=1 Then e(1)=Estratto(es,r,1)
If Posizione(su2,r,e2(1))=2 Then e(2)=Estratto(es,r,2)
If Posizione(su3,r,e3(1))=3 Then e(3)=Estratto(es,r,3)
If Posizione(su4,r,e4(1))=4 Then e(4)=Estratto(es,r,4)
If Posizione(su5,r,e5(1))=5 Then e(5)=Estratto(es,r,5)
OrdinaMatrice e,1
'If e(1)>0 Then 'sincrononi livello 5
If e(1)<1 And e(2)>0 Then 'sincrononi livello 4
'If e(2)<1 And e(3)>0 Then 'sincrononi livello 3
'If e(3)>0 Then 'sincrononi livello 3-4-5 insieme
sf(r)=SerieFreq(es+1,fin,e,ru,1)
sp(r)=SeriePrima(es+1,fin,e,ru,1)
If sf(r)<1 Then
rc=fin-es
ColoreTesto 0
Scrivi SiglaRuota(r)&" "&DataEstrazione(es)&" ",0,0
Scrivi " sincronone "&stringanumeri(e)&" ",0,0
Scrivi" attualmente a RC "& FormatSpace(rc,4),0,1
Else
rcs=sp(r)-es-1
ColoreTesto 2
Scrivi SiglaRuota(r)&" "&DataEstrazione(es)&" ",0,0
Scrivi " sincronone "&stringanumeri(e)&" ",0,0
Scrivi" sortito a rc "& FormatSpace(rcs,4),0,1
End If
End If
Next
Next
End Sub |
