su questa quartina nella sezione Sincronismo, ma spero ti possa essere utile ugualmente
HTML
'Sincrononi livello 4 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(10)
Dim sf(10)
ini=EstrazioneFin-160
fin=EstrazioneFin
Scrivi "Sincrononi livello 4 con precedente posizione estrattiva uguale" ,1
Scrivi
For r=1 To 10
ru(1)=r
For es=ini To fin
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)
If e(2)>0 Then
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