) ecco lo script che permette di trovare il ritardo raggiunto dal Gruppo di 4 Ambi Sincroni con capogioco su ruota.
'Gruppo 4 Ambi Sincroni con Capogioco su Ruote - V 1.0
'creato da Gam il 23.12.2019
Sub Main()
Dim nu(1),n1(2),ru(1),ruo(1),rn(1),vet(4)
Dim eIni,eFin,Es,sorte,LivArch,riga
Dim r,n,p,y,a,v
Dim cont,contR
sorte = 2
LivArch = 0
eIni = EstrazioneFin-200
eFin = EstrazioneFin
For Es = eIni To eFin
If Es = EstrazioneFin Then Exit For
Messaggio(Es)
For n = 1 To 90
For r = 1 To 1 'mettere 12 per statistica su tutte e 12 le ruote
If r = 11 Then r = 12 End If
If ScriptInterrotto Then Exit Sub
If Posizione(Es,r,n,LivArch) > 0 Then
riga = riga & FormatSpace(Es,4) & " " & DataEstrazione(Es) & " " & FormatSpace(SiglaRuota(r),2) & " " & StringaEstratti(Es,r,,,LivArch)
For p = 1 To 5
a = Estratto(Es,r,p,LivArch)
If a <> n Then
n1(1) = a
n1(2) = n
ruo(1) = r
x = SeriePrima(Es + 1,EstrazioneFin,n1,ruo,sorte,LivArch) - Es
y = SeriePrima(Es + 1,EstrazioneFin,n1,ruo,sorte,LivArch)
riga = riga & Space(1) & Format2(n) & "." & Format2(a)
If Posizione(y,r,a,LivArch) > 0 And Posizione(y,r,n,LivArch) > 0 Then
riga = riga & " STO " & FormattaStringa(x,"0000")
v = v + 1
vet(v) = x
cont = cont + 1
Else
riga = riga & " ATT " & FormattaStringa(EstrazioneFin - Es,"0000")
v = v + 1
vet(v) = EstrazioneFin - Es
End If
End If
Next
riga = riga & " P" & Posizione(Es,r,n,LivArch)
OrdinaMatrice vet,- 1
If cont = 0 And contR = 0 Then
ColoreTesto 2
riga = riga & " RitMinATT " & FormattaStringa(vet(cont + 1),"0000") & " ***"
Scrivi riga,,1
ColoreTesto 0
' Scrivi " " & StringaNumeri (vet)
End If
If cont = 4 Then
riga = riga & " RitMinSTO " & FormattaStringa(vet(4),"0000")
Scrivi riga,,1
' Scrivi " " & StringaNumeri (vet)
End If
riga = ""
End If
cont = 0:contR = 0: v = 0
Next
Next
Next
End Sub