| 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
|