Sub Main()
Dim som(5,90)
Dim estr(5)
Dim T,V,Num(1),Ru(1),aNum(90)
Dim VetN,VetQ
Dim Val(5,90)
SetColorSezione(6)
T = Array(T,"Caso N°","Algoritmo","Addendi","Presenze su Casi"," % ","Ultima oper","Num Calcolato","VerificaEsito","Colpo","Info Data Id")
Call InitTabella(T)
qt = InputBox("Quante estrazioni controllo",,160)
es = CInt(InputBox("inserisci 0 per l'ultima estrazione, 1 per la prima del mese.",,1))
Rg = InputBox("Quale RUOTA di Gioco ",,1)
Scrivi "Ricerca Algoritmi migliori con perc% > 90%, su Tutte le Ruote e gioca su Ruota : " & SiglaRuota(rg),1,1,3
Scrivi "Indice Mensile analizzato : " & es,1
EndColorSezione
For r2 = rg To rg
For r = 1 To 10
z = 0
For i = 1 To 5
For j = 1 To 90
som(i,j) = 0
Val(i,j) = True
Next
Next
For i = 1 To 5
estr(i) = 0
Next
valido = False
For n = EstrazioneFin - qt To EstrazioneFin
If valido = True Then
For i = 1 To 5
For j = 1 To 5
k = Estratto(n,r2,j) - estr(i)
If k <= 0 Then
k = k + 90
End If
If Val(i,k) = True Then
som(i,k) = som(i,k) + 1
End If
Next
Next
For i = 1 To 5
For j = 1 To 5
k = Estratto(n,r2,j) - estr(i)
If k <= 0 Then
k = k + 90
End If
If Val(i,k) = True Then
Val(i,k) = False
End If
Next
Next
End If
If es = 0 Then m = n + 1 Else m = n End If
If IndiceMensile(m) = es Then
z = z + 1
valido = True
For i = 1 To 5
estr(i) = Estratto(n,r,i)
Next
For i = 1 To 5
For j = 1 To 90
Val(i,j) = True
Next
Next
End If
Next
For i = 1 To 5
For j = 1 To 90
zz = Int((z/100)*90)
's = CStr(eval(i)) + " estratto di " + SiglaRuota(r) + " + " + CStr(eval(j)) + " sulla ruota di "
s = i & "°" & " Estratto di " & SiglaRuota(r)
perc = Round(som(i,j)/z*100,2)
's = s + NomeRuota(r2) + " è uscito " + CStr(som(i,j)) + " volte su " + CStr(eval(z))
If som(i,j) > zz Then
If Valido = True Then kk = kk + 1
Num(1) = Fuori90(estr(i) + j)
Ru(1) = Rg
ReDim Preserve TotNum(kk)
TotNum(kk) = Num(1)
Ind = IndiceMensile(EstrazioneFin)
Call VerificaEsito(Num,Ru,EstrazioneFin - Ind + 1,1,Ind,,esito,colpi,es1,id)
V = Array(V,kk,s,j,som(i,j) & " su " & z,perc & "%",estr(i) & " + " & j,StringaNumeri(Num),es1,colpi,GetInfoEstrazione(id))
Call AddRigaTabella(V)
For xx = 1 To 5
If perc = 100 Then Call SetColoreCella((xx),2,4)
If id = EstrazioneFin Then Call SetColoreCella(10,7,5)
Next
End If
'End If
Next
Next
Next
Next
CreaTabella
'Scrivi ss
'Scrivi Ind
Scrivi "Stringa Numeri ricavati : " & StringaNumeri(TotNum),1,,,,3
Call NumeriRipetutiRilevatiV(TotNum,VetN,VetQ)
Scrivi "Numeri Ripetuti : " & StringaNumeri(VetN),1,,,1,3
Scrivi "Quantità Convergenti : " & StringaNumeri(VetQ,,1),1,,,2,3
Scrivi
Scrivi "Script By Mike58",1,,,7,3
End Sub
è pure per il superenalotto non mandatemi alla prima porta a destra
