Richiesta script lotto

[Ad Lotto]

Ciao a Tutti

volevo chiedere ai + esperti di script come modificare (da estrazione mensile (indice mensile) a estrazione continua (ogni estrazione) Software VL7 AMBATE SOMMATIVE

Anticipazione (Spoiler)
Sub Main()

' Originale: Danilo
' Software: L8
' Riadattato per VL7

Testo.Header("LISTATO DI DANILO")
Testut
Testo.Header("TROVA AMBATE SOMMATIVE SU INDICE MENSILE")

Dim som(5,90) As Integer
Dim estr(5) As Integer
Dim Val(5,90) As Boolean
Dim amb(90) As Integer

Dim ultest As Integer = Estrazione.Ultima
Dim n As Integer = Estrazione.Ultima
Dim z As Integer = 0

Dim trovato As Boolean = False
Dim valido As Boolean

Dim i, r, r2, j, m, k, k2, k3, nv, nn, zz As Integer
Dim s As String

s = InputBox("ESTRAZIONE MENSILE? (Inserisci 0 Per l'ultima, 1 per la prima, ....)",,0)
Dim es As Integer = CInt(s)

s = InputBox("NUMERO DI MESI?",,7)
Dim nmc As Integer = CInt(s)

s = InputBox("PERCENTUALE ESITI? (50-100)",,90)
Dim perc As Integer = CInt(s)

s = InputBox("COLPI DI GIOCO?",,7)
Dim ncg As Integer = CInt(s)

While z < nmc
If (es = 0 And n = ultest) Or (Estrazione.Mensile = es And es > 0) Or (Estrazione.Mensile(n + 1) = 1 And es = 0) Then
z += 1
End If
n -= 1
End While
nn = n + 1

For r2 = 1 To 11
Testo.Linea
For i = 1 To 90
amb(i) = 0
Next
If es = 0 Then
s = "All'ultima"
Else
s = "Alla " & es.ToString() & "°"
End If
s &= " estrazione del mese per "
If ncg = 0 Then
s &= "un mese:"
Else
If ncg = 1 Then
s &= ncg & " colpo"
Else
s &= ncg & " colpi"
End If
End If

Testut(s)
Testut("Quantità mesi Impostati: " & nmc & "")
Testut("Statistica dal / al : " & Estrazione.Data(nn) & " - " & Estrazione.Data(Estrazione.Ultima))
Testut("Percentuale Impostata : " & perc & "%")
Testut
Testut("RUOTA DI " & UCase(NomeRuota(r2)))
Testut

For r = 1 To 11
z = 0
For i = 1 To 5
estr(i) = 0
For j = 1 To 90
som(i,j) = 0
Val(i,j) = True
Next
Next
valido = False
For n = nn To Estrazione.Ultima
If es = 0 Then
m = n + 1
Else
m = n
End If
If (es = 0 And n = ultest) Or (Estrazione.Mensile = es And es > 0) Or (Estrazione.Mensile(n + 1) = 1 And es = 0) Then
z += 1
For i = 1 To 5
estr(i) = Estratti.Numero(n,r,i)
Next
For i = 1 To 5
For j = 1 To 90
Val(i,j) = True
Next
Next
k2 = ncg
k3 = n + k2
If k3 > Estrazione.Ultima Then k3 = Estrazione.Ultima
For nv = n + 1 To k3
For i = 1 To 5
For j = 1 To 5
k = Estratti.Numero(nv,r2,j) - estr(i)
While k <= 0
k += 90
End While
If Val(i,k) = True Then
som(i,k) += 1
Val(i,k) = False
End If
Next
Next
Next
End If
Next
For i = 1 To 5
For j = 1 To 90
zz = Int((z/100)*perc)

s = String.Format("{0}° di {1,-13} + {2,-2} su {3,-12} è uscito {4,2} volte su {5} : Previsione: {6,2} ", _
i, NomeRuota(r), j, NomeRuota(r2), som(i,j), z, F90(estr(i) + j))

If som(i,j) >= zz Then
If Val(i,j) = True Then
s &= " In Gioco "
Testut(s, _SOTTOLINEATO, "Red")
Else
s &= " Già Uscito "
Testut(s)
End If
amb(F90(estr(i) + j)) += 1
End If

Next
Next
Next

Testut
Testut("********** NUMERI - CONVERGENTI **********",_GRASSETTO,"Red")
For i = 1 To 90
If(amb(i) > 1) Then
Testut(FormatStr(i,2) & ": CONVERGENTE In " & FormatStr(amb(i),2) & " SISTEMI")
End If
Next


Next

End Sub

 

[claudio8]

Che io sappia il VL script non lo usa quasi nessuno.
Se accetti un suggerimento trovati script per spaziometria.
Saluti