Sub Main
Dim ini,fin,ini1,es,ciclo,colpi,i,y,ii
Dim bEsito
Dim kGiocate,kCasi,kCasiPos,kAmbi,ktutto 'contatori capigioco, abbinamenti, giocate,casi tot, casi pos, ambirealizz
Dim aRuota(1),aPosta(2),aNum(1),aAmbo(2),tutto(1)
Dim RetEsito,RetColpi,RetEstratti,retId,sorte
ReDim Atutto(0) 'array per i CG (freq>2), gli abbin(freq=2)
arch = CInt(InputBox("QUALE ARCHIVIO 10 e Lotto " & Chr(13) & " " & Chr(13) & "1 = 10 e lotto serale" & Chr(13) & "2 = 10 e lotto 5 Min ",,1))
ImpostaArchivio10ELotto(arch)
sorte = CInt(InputBox(" Scegli la sorte di verifica ",,"1"))
ini = CInt(InputBox(" Scegli l'estrazione di inizio ricerca ",,8665))
sfa = CInt(InputBox("Quanti superfrequenti ",,3))
clc = CInt(InputBox("Quanti cicli di gioco ",,10))
clp = CInt(InputBox("Quanti colpi di gioco ",,10))
fin = EstrazioniArchivioDL
ciclo = clc : ciclo = ciclo - 1 ' durata del ciclo di ricerca ripetuti. Non togliere il -1!
colpi = clp 'colpi di gioco
aPosta(2) = 1
Scrivi "Inizio estrazioni dal " & GetInfoEstrazioneDL(ini) & " a " & GetInfoEstrazioneDL(fin),True,False,2,4,3
If arch = 1 Then Scrivi " 10 e lotto Serale ",True,True,4,2,3
If arch = 2 Then Scrivi " 1o e lotto 5 Min ",True,True,4,2,3
For es = ini To fin Step ciclo + 1 ' analizzo l'archivo a blocchi di 9 estrazioni
cc = cc + 1
Messaggio es
Call AvanzamentoElab(ini,fin,es)
ini1 = es - ciclo ' calcolo l'inizio di ogni nuovo ciclo rispetto ad ogni es analizzata
ktutto = 0' ad ogni nuovo ciclo azzero i contatori
kktutto = 0
manca = 0
ReDim Atutto(0) ' e riazzero gli array prima di ogni ciclo
ReDim aaTT(0)
ReDim mancanti(0)
For ii = 1 To 90
tutto(1) = ii
If SerieFreqDL(ini1,es,tutto,sorte) = sfa Then
ktutto = ktutto + 1
ReDim Preserve Atutto(ktutto)
Atutto(ktutto) = ii
If SerieFreqDL(es + 1,es + clp,tutto,sorte) > 0 Then
kktutto = kktutto + 1
ReDim Preserve aaTT(kktutto)
aaTT(kktutto) = ii
perc = kktutto/ktutto*100
End If
If SerieFreqDL(es + 1,es + clp,tutto,sorte) < 1 Then
manca = manca + 1
ReDim Preserve mancanti(manca)
mancanti(manca) = ii
End If
End If
Next
kCasi = kCasi + 1
Call ColoreTesto(1)
Call Scrivi
Call Scrivi(String(155,"=") & " Caso n° " & cc)
Call Scrivi("Ricerca su ciclo di " & ciclo + 1 & " estrazioni (" & ini1 & "-" & es & ")" & " gioco fino..." & GetInfoEstrazioneDL(es + colpi),1)
Call Scrivi("Tutti i Numeri con frequenza = " & sfa)
Scrivi StringaNumeri(Atutto) & " [ " & ktutto & " ] ",1
Scrivi StringaNumeri(aaTT) & " [ " & kktutto & " ] " & " Perc% uscite.... " & Int(perc),True,True,4,2,2
Scrivi "Tutti i numeri non usciti nella Ricerca",True,True,,2,2
Scrivi StringaNumeri(mancanti) & " [ " & manca & " ] ",True,True,2,4,2
Call Scrivi(String(155,"="))
Call Scrivi
Call ColoreTesto(0)
kGiocate = 0 ' ad ogni nuova estrazione azzero il contatore delle giocate
bEsito = False
kCasiPos = kCasiPos + 1
'
Scrivi String(20,"-") & " Verifica esito nelle estrazioni successive " & String(20,"-")
kk = 0
estra = 0
ambo = 0
terno = 0
quat = 0
cinq = 0
sest = 0
Sett = 0
ot = 0
nov = 0
diec = 0
For idestr = es + 1 To es + colpi
kk = kk + 1
Call VerificaEsitoDL(Atutto,idestr,sorte,1,RetEsito,RetColpi,RetEstratti,retId)
'Next
If RetEsito <> "" Then
ColoreTesto 0
If RetEsito = "Estratto" Then estra = estra + 1
If RetEsito = "Estratto" Then TE = TE + 1
If RetEsito = "Ambo" Then ColoreTesto 2
If RetEsito = "Ambo" Then ta = ta + 1
If RetEsito = "Ambo" Then ambo = ambo + 1
If RetEsito = "Terno" Then ColoreTesto 1
If RetEsito = "Terno" Then terno = terno + 1
If RetEsito = "Terno" Then tte = tte + 1
If RetEsito = "Quaterna" Then ColoreTesto 7
If RetEsito = "Quaterna" Then quat = quat + 1
If RetEsito = "Quaterna" Then tq = tq + 1
If RetEsito = "Cinquina" Then ColoreTesto 6
If RetEsito = "Cinquina" Then cinq = cinq + 1
If RetEsito = "Cinquina" Then tc = tc + 1
If RetEsito = "Sestina" Then sest = sest + 1
If RetEsito = "Sette" Then Sett = Sett + 1
If RetEsito = "Otto" Then ot = ot + 1
If RetEsito = "Nove" Then nov = nov + 1
If RetEsito = "Dieci" Then diec = diec + 1
If RetEsito = "Sestina" Then tsest = tsest + 1
If RetEsito = "Sette" Then tSett = tSett + 1
If RetEsito = "Otto" Then ttot = ttot + 1
If RetEsito = "Nove" Then tnov = tnov + 1
If RetEsito = "Dieci" Then tdiec = tdiec + 1
'kk = kk + 1
Call Scrivi(idestr & " - " & Format2(kk) & "° - " & RetEstratti & " - " & RetEsito & " - " & vbTab & GetInfoEstrazioneDL(retId),1)
ColoreTesto 0
End If
Next
Scrivi
Scrivi" Totali Estratto..." & estra & " ",True,False,0,5,2
Scrivi" Totali Ambi......." & ambo & " ",True,False,2,4,2
Scrivi" Totali Terni......" & terno & " ",True,False,4,2,2
Scrivi" Totali quaterne..." & quat & " ",True,False,7,0,2
Scrivi" Totali cinquine..." & cinq & " ",True,True,6,0,2
Scrivi" Totali sestine...." & sest & " ",True,False,0,5,2
Scrivi" Totali settina...." & Sett & " ",True,False,7,0,2
Scrivi" Totali ottine....." & ot & " ",True,False,6,0,2
Scrivi" Totali novine....." & nov & " ",True,False,0,5,2
Scrivi" Totali decina....." & diec & " ",True,True,6,0,2
Call ColoreTesto(0)
If ScriptInterrotto Then Exit For
Next
Call Scrivi
Call Scrivi(String(60,"="))
Scrivi
Scrivi "Cicli.... " & cc,True,False,2,4,2
Scrivi " Colpi...." & clp,True,False,3,0,2
Scrivi " Tot. estrazioni ...." & cc*clp,True,True,4,2,2
Scrivi
Scrivi " Totali estratti..." & te,True,False,0,5,3
Scrivi " Totali Ambi......." & ta,True,False,2,4,3
Scrivi " Totali terni......" & tte,True,False,4,2,3
Scrivi " Totali Quaterne..." & tq,True,False,7,0,3
Scrivi " Totali Cinquine..." & tc,True,True,6,0,3
Scrivi " Totali sestine...." & tsest,True,False,0,5,3
Scrivi " Totali settine...." & tsett,True,False,2,4,3
Scrivi " Totali ottine....." & ttot,True,False,4,2,3
Scrivi " Totali novine....." & tnov,True,False,7,0,3
Scrivi " Totali decine..." & tdiec,True,True,6,0,3
Scrivi
Call Scrivi(" Script Listed by Mike58 ",True,True,3,1,3)
End Sub
Buona Giornata a tutte/i.
