Sub Main
Dim aP,aV,nEsiti,Ru(1)
Ini = EstrazioniArchivio -(360 + 20)
fin = EstrazioniArchivio - 20
fine = EstrazioniArchivio
Tot = fin - Ini
filtro = CInt(InputBox("Quale presenza per posizione superiore a ",,6))
r = InputBox("Quale Ruota",,1)
Scrivi "Estrazioni Attive : " & Tot
Scrivi "Estrazione Inizio...... " & Ini
Scrivi "Estrazione Fine........ " & fin
Scrivi "Filtro Posizioni sup > " & filtro,1
Scrivi "Ruota Esaminata........ " & NomeRuota(r)
Scrivi Space(140) & "Script by Mike58 " & Chr(169),1,,,2
aP = Array(aP,"Posizioni","Numeri Presenti" & "<br>" & "Q.tà Presenze","Min","Max","Q.Tà", _
"Numeri Sortiti" & "<br>" & "Relativa Quantità","Ritardo Serie","Verifica da Es " & fin + 1 & " a " & fine,"Tipo Esito")
Call InitTabella(aP,,,,,"Arial Black")
Ru(1) = r
For xx = 1 To 5
ReDim aPos(5)
aPos(xx) = True
For nn = 1 To 90
If EstrattoFrequenza(r,nn,Ini,fin,,,aPos) > filtro Then
kk = kk + 1
ReDim Preserve rigaP(kk)
rigaP(kk) = nn
min = MinimoV(rigaP,1,- 1)
max = MassimoV(rigaP)
sr = SerieRitardo(ini,fine,rigaP,Ru,1)
er = EstrattoFrequenza(r,nn,Ini,fin,,,aPos)
k3 = k3 + 1
ReDim Preserve aRit(k3)
aRit(k3) = er
nRit = nRit & Format2(aRit(k3)) & " "
ef = EstrattoFrequenza(r,nn,fin+1,fine)
If ef > 0 Then
k2 = k2 + 1
ReDim Preserve NumSort(k2)
NumSort(k2) = nn
ReDim Preserve freqNum(k2)
freqNum(k2) = ef
End If
'Call VerificaEsito(rigaP,ru,fin+1,2,10,,esito1,,es2)
End If
Next
'-----------------------------------------------------------------------
nEsiti = VerificaEsiti(rigaP,Ru,fin + 1,1,20,10,,esiti2,clp2,es2,id2)
For x = 1 To nEsiti
If nEsiti > 0 Then
clpPr = id2(x) - fin ' colpi progressivi
If clpPr > 21 Then Exit For
Vx = "Colpo" & x & " " & FormattaStringa(clp2(x),"000") & " | " & FormattaStringa(clpPr,"000") & " | [ " & FormattaStringa(id2(x),"00000") & " ] | " & es2(x)
ReDim Preserve esitiP(x)
esitiP(x) = Vx & "<br>" 'FormatSpace(clpPr,2) & " ( " & id2(x) & " ) " & es2(x)
riga = riga & esitiP(x) '& "<br>"
rigo = rigo & esiti2(x) & "<br>"
End If
Next
'--------------------------------------------------------------------------
If kk > 0 Then
aV = Array(aV,xx,StringaNumeri(rigaP,,1) & "<br>" & nRit,min,max,kk,StringaNumeri(NumSort,,1) & "<br>" & StringaNumeri(freqNum,,1),sr,riga,rigo)
Call AddRigaTabella(aV)
'riga = ""
End If
riga = ""
rigo = ""
nRit = ""
k2 = 0
k3 = 0
kk = 0
Next
Call SetTableWidth("100%")
Call CreaTabella()
End Sub
