script10elotto

[mistrall]

ciao ragazzi, sarebbe possibile uno script per il 10elottosimile a questo per il lotto? grazie.

Sub Main()
ColoreTesto 2 : Scrivi "ATTENZIONE !!!",1
Scrivi "Ricerca per Ambata eseguita in tutte le ruote contemporaneamente",1
Scrivi "Ricerca per Ambata condizionata a STEP(salti) nel periodo selezionato",1
Dim som(5,90)
Dim estr(5)
Dim Val(5,90)
Dim amb(90)
perc = InputBox("Imposta la percentuale esiti (10% - 100%)","PERCENTUALE",99)
nmc = CInt(InputBox("Quanti cicli(STEP) da analizzare ?","STEP",4))
esq = CInt(InputBox("La Lunghezza in estrazioni di uno STEP?","LUNGHEZZA STEP",5))
ncg = InputBox("Quanti colpi di gioco ?","COLPI DI GIOCO-ANALISI",3)
tes = CInt(InputBox("Quante estrazioni vuoi indietreggiare dall'ultima in archivio?","SOLO per ANALISI",1))
'la riga sopra serve solo per staccare l'analisi dall'ultima estrazione in archivio, potremmo così vedere
'nelle estrazioni che decidiamo di mettere nel limbo(valore tes), quali numeri sono già sortiti...
fin = EstrazioneFin - tes
ini = Fin -(nmc*esq)
For r2 = 1 To 10
For i = 1 To 90
amb(i) = 0
Next
ColoreTesto 0 : Scrivi : Scrivi String(50,"*")
ColoreTesto 0 : Scrivi "IMPOSTAZIONI:",1
s = "Cicli analizzati " & nmc & " da " & esq & " estrazioni cad. per "
If eval(ncg) = 1 Then
s = s + ncg + ") colpo:"
Else
s = s + ncg + ") colpi:"
End If
ColoreTesto 0 : Scrivi s
ColoreTesto 1 : Scrivi "Quantità cicli Impostati: (" & nmc & ") tot. (" &(nmc*esq) & ") Estr.",1
ColoreTesto 0 : Scrivi "Statistica dal: " + DataEstrazione(ini) + " al: " + DataEstrazione(Fin),1
ColoreTesto 2 : Scrivi "Percentuale Impostata: " & perc & "%",1
Scrivi
For r = 1 To 10
z = 0
For i = 1 To 5
For j = 1 To 90
som(i,j) = 0
Val(i,j) = True
Next
Next
For i = 1 To 5
estr(i) = 0
Next
valido = False
For n = ini To fin Step esq
If eval(esq) = 0 Then m = n + 1 Else m = n End If
z = z + 1
For i = 1 To 5
estr(i) = Estratto(n,r,i)
Next
For i = 1 To 5
For j = 1 To 90
Val(i,j) = True
Next
Next
k3 = n + ncg
If k3 > EstrazioniArchivio Then k3 = EstrazioniArchivio End If
For nv = n + 1 To k3
For i = 1 To 5
For j = 1 To 5
k = Estratto(nv,r2,j) - estr(i)
While k <= 0
k = k + 90
Wend
If Val(i,k) = True Then
som(i,k) = som(i,k) + 1
Val(i,k) = False
End If
Next
Next
Next
Next
For i = 1 To 5
For j = 1 To 90
zz = Int((z/100)*perc)
s = CStr(eval(i)) + "° di " + FormatSpace(NomeRuota(r),8) + " + " + Format2(CStr(eval(j))) + " su "
ColoreTesto 1
s = s + FormatSpace(NomeRuota(r2),8) + " è uscito " + CStr(som(i,j)) + "/" + CStr(eval(z))
s = s + " : " + FormatSpace(CStr(Fuori90(eval(estr(i) + j))),3)
If(Val(i,j) = True) Then s = s + " in corso" Else s = s + "----> sfaldato" End If
If som(i,j) >= zz Then
Scrivi s
amb(Fuori90(eval(estr(i) + j))) = amb(Fuori90(eval(estr(i) + j))) + 1
End If
Next
Next
Next
ColoreTesto 2 : Scrivi : Scrivi "***** NUMERI - CONVERGENTI *****",1
For i = 1 To 90
If(amb(i) > 1) Then ColoreTesto 1 : Scrivi CStr(eval(i)) + ": Convergente in (" + CStr(eval(amb(i))) + " sistemi)",1
Next
Next

End Sub