' Cerca Ambate con parametro di ricerca in percentuale di sortita ecco il listato di Danilo
' ATTENZIONE ! ---> Analizza tutte le ruote in una sola scansione
'Ricerca per indice mese i numeri convergenti
Sub Main()
ColoreTesto 2
Scrivi "ATTENZIONE !!!",1
Scrivi "Ricerca per Ambata eseguita in tutte le ruote contemporaneamente",1
Dim som(5,90)
Dim estr(5)
Dim Val(5,90)
Dim amb(90)
perc = InputBox("Imposta la percentuale esiti (10% - 100%)",,0)
es = InputBox("Inserisci 0 ultima, 1 prima, ....:",,1)
nmc = InputBox("Quanti mesi da analizzare ?",,10)
ncg = InputBox("Quanti colpi di gioco ?",,3)
ultest = 8387 'aggiornare all'ultima estrazione
n = EstrazioneFin
z = 0
trovato = False
While z < eval(nmc)
If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile(n) = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
z = z + 1
End If
If z = 2 And ctr = 0Then
dal = eval(n)
Scrivi "data penult.ciclo..." & dal & "/" & DataEstrazione(dal)
ctr = 1
End If
n = n - 1
Wend
nn = n + 1
For r2 = 1 To 10
For i = 1 To 90
amb(i) = 0
Next
ColoreTesto 0
Scrivi
Scrivi "***********************************************************",1
ColoreTesto 0
Scrivi "IMPOSTAZIONI:",1
If eval(es) = 0 Then
s = "(All'ultima"
Else
s = "Alla (" + es
End If
s = s + "°) estrazione del mese per ("
If eval(ncg) = 0 Then
s = s + "un mese:"
Else
If eval(ncg) = 1 Then
s = s + ncg + ") colpo:"
Else
s = s + ncg + ") colpi:"
End If
End If
ColoreTesto 0
Scrivi s
ColoreTesto 1
Scrivi "Quantità mesi Impostati: (" & nmc & ")",1
ColoreTesto 0
Scrivi "Statistica dal: " + DataEstrazione(nn) + " al: " + DataEstrazione(EstrazioneFin),1
ColoreTesto 2
Scrivi "Percentuale Impostata: " & perc & "%",1
Scrivi
For r = 1 To 10 ' x ruote di partenza
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 = nn To EstrazioneFin
If eval(es) = 0 Then m = n + 1 Else m = n End If
If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile(n) = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
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
k2 = eval(ncg)
k3 = n + k2
If k3 > EstrazioneFin Then k3 = EstrazioneFin 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
End If
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)
ReDim num(1)
ReDim art(1)
If (Val(i,j) = True) Then
If som(i,j) = 0 Then
num(1) = Fuori90(eval(estr(i) + j))
art(1) = r2
ultusc = EstrattoRitardo(r2,Fuori90(eval(estr(i) + j)))
'''' s = s + " in corso con ritardo di " & SerieRitardo(dal,EstrazioneFin,num,art,1) & " estrazioni" '
s = s + " in corso........ ultima uscita.." & DataEstrazione(EstrazioneFin-ultusc)
End If
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
0724421603
