Per mike58

[solare]

Ciao Mike58, ho trovato questo tuo listato, sembra interessante ma quando si avvia spesso va in off memory.
In cosa consiste questo listato ?
Grazie

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)
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)
spia = CInt(InputBox("Quale SPIA controllo",,48))
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
er = EstrattoRitardoTurbo(rg,spia,EstrazioneFin - qt,EstrazioneFin)
Scrivi "Spia Analizzata : " & spia & " Ritarda da .... " & er,1
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
If Posizione(n,rg,spia) > 0 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 - er + 1 + 1,1,er,,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
'Ciaohttp://forum.lottoced.com/c

 

[Mike58]

Ciao Solare, si tratta di un costruttore di sommativi che cerca il miglior sommativo dopo spia.

Purtroppo copiato cosi dai forum (L'ho detto molte volte) si staccano i caratteri e poi non siete in grado di unificarli, dovete imparare a postare correttamente nei tag # i listati

cliccando sull'icona # appare il code ed in mezzo inserire il listato.

[CODE ] qui inserite il listato [ /CODE ]

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)
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)
spia = CInt(InputBox("Quale SPIA controllo",,48))
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
er = EstrattoRitardoTurbo(rg,spia,EstrazioneFin - qt,EstrazioneFin)
Scrivi "Spia Analizzata : " & spia & " Ritarda da .... " & er,1
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
If Posizione(n,rg,spia) > 0 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 - er + 1 + 1,1,er,,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

 

[solare]

Grazie infinite
ottimo