Mike58
Advanced Member >PLATINUM PLUS<
provalo cosi.
Codice:
'Option Explicit
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
ReDim Atutto(0) 'array per i CG (freq>2), gli abbin(freq=2)
aRuota(1) = CInt(InputBox(" Scegli la ruota di ricerca ",,"1"))
ini = CInt(InputBox(" Scegli l'estrazione di inizio ricerca ",,8000))
sfa = CInt(InputBox("Quanti superfrequenti ",,1))
clc = CInt(InputBox("Quanti cicli di gioco ",,12))
clp = CInt(InputBox("Quanti colpi di gioco ",,12))
fin = EstrazioneFin
ciclo = clc : ciclo = ciclo - 1 ' durata del ciclo di ricerca ripetuti. Non togliere il -1!
colpi = clp 'colpi di gioco
aPosta(2) = 1
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
ReDim Atutto(0) ' e riazzero gli array prima di ogni ciclo
For ii = 1 To 90
tutto(1) = ii
If SerieFreqTurbo(ini1,es,tutto,aRuota,1) = sfa Then
ktutto = ktutto + 1
ReDim Preserve Atutto(ktutto)
Atutto(ktutto) = ii
End If
Next
kCasi = kCasi + 1
Call ColoreTesto(1)
Call Scrivi
Call Scrivi(String(155,"=") & " Caso n° " & cc)
Call Scrivi("Ricerca su " & SiglaRuota(aRuota(1)) & " ciclo di " & ciclo + 1 & " estrazioni (" & ini1 & "-" & es & ")" & " gioco fino..." & GetInfoEstrazione(es + colpi),1)
Call Scrivi("Tutti i Numeri con frequenza = " & sfa)
Scrivi StringaNumeri(Atutto) & " [ " & ktutto & " ] ",1
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
For idestr = es + 1 To es + colpi
kk = kk + 1
Call VerificaEsitoTurbo(Atutto,aRuota,idestr,1,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
'kk = kk + 1
Call Scrivi(idestr & " - " & Format2(kk) & "° - " & RetEstratti & " - " & RetEsito & " - " & GetInfoEstrazione(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
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
Call Scrivi(" Script Listed by Mike58 ",True,True,3,1,3)
End Sub
Ultima modifica:
