E' possibile modificare il seguente script per il super enalotto?
Cordiali Saluti
Codice:
'Eu-Ri-Din_10 By Joe
Sub Main
Dim R,K,P,Es,Ini,fin,tmp,GR
Dim Ru(1) : DN = "1.2.3.4.5.6.7.8.9.10" : Nu = Split("0." & DN,".") : SO = 2
Ini = EstrazioneFin - 100: fin = EstrazioneFin
For R = 1 To 11
If R = 11 Then
R = R + 1
End If
Ru(1) = R : Messaggio NomeRuota(R)
K = 0 : Scrivi FormatSpace(NomeRuota(Ru(1)),11),1,0
For P = 1 To UBound(Nu) : Scrivi FormatSpace(P & "°",3),1,0 : Next : Scrivi " PdR",1
For Es = Ini To fin : AvanzamentoElab Ini,fin,Es
K = K + 1
If SerieFreqTurbo(Es,Es,Nu,Ru,1,,,1) >= SO Then
Scrivi DataEstrazione(Es) & " ",1,0
For P = 1 To UBound(Nu)
tmp = NumeroPosRit((Es - 1),Ru(1),P)
If Posizione(Es,Ru(1),tmp) > 0 Then ColoreTesto 2 : GR = 1
Scrivi Format2(tmp) & " ",GR,0 : ColoreTesto 0 : GR = 0
Next
Scrivi " Rit" & FormatSpace(K,4,1),1 : K = 0
End If
Next
Scrivi DataEstrazione(fin) & " ",1,0
For P = 1 To UBound(Nu)
Scrivi Format2(NumeroPosRit(fin,Ru(1),P)) & " ",1,0
Next : Scrivi " Rc " & FormatSpace(K,4,1),1
Scrivi String(49,"="),1
Next
Cordiali Saluti