'Option Explicit
Sub Main
Dim fre,rit,r1,est,da,x,c1,sorte
Dim ruota(1)
es = InputBox("Quante estrazioni controllo",,100)
ex = InputBox("Quante estrazioni a ritroso analizzo",,6)
spia = InputBox("Quale Numero Spia",,90)
sorte = InputBox("Quale sorte verifico ","SORTE",1)
colpi = CInt(InputBox("Quanti colpi verifico l'esito",,9))
Ini = EstrazioneFin - es
fin = EstrazioneFin
Tot = fin - Ini
ReDim att(8)
att(1) = " Tot Estr. "
att(2) = " data inizio "
att(3) = " data fine "
att(4) = " Numero spia "
att(5) = " colpi a ritroso "
att(6) = " sorte verifica "
att(7) = " colpi di verifica "
att(8) = " Author script "
Call InitTabella(att,1,,4,5)
ReDim avv(8)
avv(1) = Tot
avv(2) = DataEstrazione(Ini)
avv(3) = DataEstrazione(fin)
avv(4) = spia
avv(5) = ex
avv(6) = NomeSorte(sorte)
avv(7) = colpi
avv(8) = " Mike58 "
Call AddRigaTabella(avv,4,,4,0)
Call SetColoreCella(8,2,4)
CreaTabella()
'Call Scrivi(" *** Script con ricerca Numeri con 3 presenze su 36 estrazioni e con ritardo > a 18 *** " & " List Mike58 *** ",True,,2,4,3)
Scrivi
ReDim at(11)
at(1) = " data estraz. INIZIO "
at(2) = " Ruota "
at(3) = " Numeri in Gioco "
at(4) = " Conta Num "
at(5) = " Esito "
at(6) = " Colpo "
at(7) = " Estratti "
at(8) = " Data estraz. Fine "
at(9) = " Frequenza serie ciclo "
at(10) = " Ritardo serie "
at(11) = " Spia e estratti "
Call InitTabella(at,1,,3,5)
For est = EstrazioneFin To EstrazioneFin - es Step - 1
da = est - ex
Tot = fin - Ini
For r1 = 1 To 10
ReDim num(90)
For x = 1 To 90
fre = EstrattoFrequenza(r1,x,da,est)
rit = RitardoEstratto(x,est,r1)
If Posizione(est,r1,spia) Then
'If IndiceMensile(est) = 1 Then
If fre = 2 Then
'If rit > 18 Then
c1 = c1 + 1
'If c1 > 2 Then Exit For
num(c1) = x
'End If
End If
End If
Next
ruota(1) = r1
If c1 > 2 Then
Call VerificaEsito(num,ruota,est + 1,sorte,colpi,Nothing,retesito,retcolpi,retestratti,retid)
SF = SerieFreq(da,est,num,ruota,sorte)
sr = SerieRitardo(da,est,num,ruota,sorte)
ReDim av(11)
av(1) = DataEstrazione(est)
av(2) = NomeRuota(r1)
av(3) = StringaNumeri(num)
av(4) = c1
av(5) = retesito
av(6) = retcolpi
av(7) = retestratti
If retesito = "" And retcolpi > colpi Then av(8) = " esito non verificato "
If retesito = "" And retcolpi < colpi + 1 Then av(8) = " esito in corso "
If retesito <> "" Then av(8) = DataEstrazione(retid)
av(9) = sf
av(10) = sr
av(11) = StringaEstratti(est,r1)
Call AddRigaTabella(av,,,3)
If av(8) = " esito in corso " Then Call SetColoreCella(3,2,4)
If av(8) = " esito in corso " Then Call SetColoreCella(8,2,4)
If retesito <> "" Then
Call SetColoreCella(3,3,1)
Call SetColoreCella(5,3,1)
Call SetColoreCella(6,3,1)
Call SetColoreCella(7,3,1)
Call SetColoreCella(8,3,1)
End If
End If
c1 = 0
Next
Next
Call CreaTabella()
End Sub
