Sub Main
Dim T,V,Nu(1),star(1),jolly(1),vetQj,vetNj,vetQs,vetNs,Num(6)
estr = InputBox("Quante estrazioni Analizzo",,30)
Ini = EstrazioniArchivioSE - estr
fin = EstrazioniArchivioSE
Tot = fin - Ini + 1
Scrivi "Presenze SuperEnalotto",1,1,,1,3,,1
Scrivi "Range Inizio : " & DataEstrazioneSE(Ini)
Scrivi "Range Fine : " & DataEstrazioneSE(fin)
Scrivi "Totali Estraz.: " & Tot
Scrivi
T = Array(T,"N.Presenze","Numeri","Q.tà","Q.tà Prog","Ritardo Serie","Verifica","Esito","pari","dispari","N.Primi")
Call InitTabella(T)
For x = 0 To estr
For n = 1 To 90
Nu(1) = n
If SerieFreqSE(Ini,fin,Nu,1) = x Then
k = k + 1
kp = kp + 1
ReDim Preserve riga(k)
riga(k) = n
If pari(n) Then par = par + 1
If dispari(n) Then dis = dis + 1
If Primo(n) Then pr = pr + 1
sr = SerieRitardoSE(Ini,fin,riga,1)
Call VerificaEsitoSE(riga,EstrazioniArchivioSE,1,,esito,,es1)
End If
Next
If k > 0 Then
V = Array(V,x,StringaNumeri(riga),k,kp,sr,es1,esito,par,dis,pr)
Call AddRigaTabella(V)
End If
'riga = ""
k = 0
par = 0
dis = 0
pr = 0
Next
Call CreaTabella()
Scrivi "Ulima Estrazione : " & StringaEstrattiSE(fin),1
Scrivi
Tt = Array(Tt,"N.Presenze","Numeri","Q.tà","Q.tà Ripetuti","Numeri Ripetuti")
Call InitTabella(Tt)
'For xx = 1 To estr
For es = Ini To fin
star(1) = EstrattoSE(es,8)
jolly(1) = EstrattoSE(es,7)
If EstrattoFrequenzaSE(star(1),Ini,fin) > 0 Then
kk = kk + 1
ReDim Preserve stella(kk)
stella(kk) = star(1)
End If
If EstrattoFrequenzaSE(jolly(1),Ini,fin) > 0 Then
kj = kj + 1
ReDim Preserve joll(kj)
joll(kj) = jolly(1)
End If
'Next
Next
Call NumeriRipetutiRilevatiV(joll,vetNj,vetQj)
Call NumeriRipetutiRilevatiV(stella,vetNs,vetQs)
'If kk > 0 Then
vv = Array(vv,"SuperStar",StringaNumeri(stella,,1),kk,StringaNumeri(vetQs),StringaNumeri(vetNs))
Call AddRigaTabella(Vv)
Vj = Array(Vj,"jolly",StringaNumeri(joll,,1),kj,StringaNumeri(vetQj),StringaNumeri(vetNj))
Call AddRigaTabella(Vj)
'End If
kk = 0
kj = 0
vetQj = 0
vetQs = 0
par = 0
CreaTabella
Scrivi
Scrivi "Script By Mike58",1,,,1,2,,1
Scrivi
Scrivi "Formule per Alien"
Scrivi
Ttt = Array(Ttt,"Data Es ","Estrazioni","pari-dispari","Ritardo")
Call InitTabella(Ttt)
For ex = fin To Ini Step - 1
For pp = 1 To 6
Num(pp) = EstrattoSE(ex,pp)
If pari(Num(pp)) Then par = par + 1
If dispari(Num(pp)) Then dis = dis + 1
Next
vvv = Array(vvv,DataEstrazioneSE(ex),StringaNumeri(Num,,1),par & "-" & dis,fin-ex)
Call AddRigaTabella(vvv)
'Scrivi StringaNumeri(Num,,1) & vbTab & par & "-" & dis & vbTab & fin-ex
par = 0
dis = 0
Next
CreaTabellaOrdinabile
End Sub
quel mp spero di non aver perso dei punti
