Novità

Problema riscontrato con script in spaziometria versione 1.5.46 e la ruota nazionale

lotto_tom75

Advanced Premium Member
Per Luigi o per chi sa da cosa potrebbe dipendere e sopratutto come poter risolvere :)

Mi sembra che nella versione 1.5.46 di spaziometria i vari script non effettuino correttamente le ricerche dei parametri per quanto riguarda la ruota nazionale (per tutte le altre ruote prese sia singolarmente che unite e tutte funzionano benissimo).

Riporto solo a titolo di esempio questo script che ricerca in modo random i parametri voluti su una o più ruote separate (compresa la nazionale) e tutte

Codice:
Option Explicit
Sub Main


Dim k
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
Dim ColTot,aRetcol
Dim valoreInizioelaborazione,valorefineelaborazione


ReDim aNum(0)
QuantitaNumeriScelti = ScegliNumeri(aNum)
ReDim aRuoteSel(12)


ReDim aRuoteSel(12)
RuoteSelezionate = ScegliRuote(aRuoteSel)


Call Scrivi(" ---------------------------------------------------------------- ")
Call Scrivi(" Le ruote sottostanti nella ricerca vengono considerate SEPARATE! ")
Call Scrivi(" ---------------------------------------------------------------- ")


Dim sfile


Call EliminaFile(sfile)


Inizio = EstrazioneFin - 50


valoreInizioelaborazione = 1
valorefineelaborazione = 10000 '10mila colonne random

Classe = 30




ReDim aRuoteTmp(1)




For k = 1 To RuoteSelezionate


aRuoteTmp(1) = aRuoteSel(k)





For i = valoreInizioelaborazione To valorefineelaborazione

Call GetColonnaCasuale(Classe,aRetcol,aNum)

Call StatisticaFormazioneTurbo(aRetcol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq,Inizio)



Call AvanzamentoElab(1,valorefineelaborazione,i)


Call Messaggio("Colonna " & i)

nSorte = 2


Dim Diff
Diff = RetRitMax - RetRit1


If(RetRit1 > 10 And RetIncrRitMax > 1) Then

Call Scrivi("Ruota: " & SiglaRuota(aRuoteSel(k)) & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff)

'scrivo su file

Dim reportlunghettadoc2

reportlunghettadoc2 = "Ruota: " & SiglaRuota(aRuoteSel(k)) & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff


sfile = "c:\lunghetta-doc.txt" ' costruisce un percorso valido usando la dir temp dell'applicazione
'Call EliminaFile(sfile) ' cancella eventualmente il file se gia esiste
Call ScriviFile(sfile,reportlunghettadoc2,False,True) ' scrivo anche sul file preposto
Call CloseFileHandle(sfile) ' chiudo l'handle al file
Call LanciaFile(sfile) ' lancio il file si aprira notepad


Exit For 'esce ad ogni risultanza top per ruota... e passa alla ruota successiva...



End If


If ScriptInterrotto Then Exit For

Next

Next


'Loop


End Sub

Nelle precedenti versioni di spaziometria anche questo script mi sembra funzionasse regolamente anche per la ruota nazionale invece con la 1.5.46 mi trova sempre RA = RS = 1 e incmax = 1 stop qualsiasi sia il range temporale analizzato, la sorte ricercata, il numero di elementi in lunghetta ecc... :D . Così a occhio... mi pare che ci sia qualcosa che non torni... ;)

Grazie mille a chiunque fosse al corrente del problema con relativa eventuale soluzione.

Buone vacanze a tutti/e :)
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 07 giugno 2025
    Bari
    76
    01
    50
    74
    87
    Cagliari
    13
    76
    67
    43
    59
    Firenze
    37
    17
    71
    48
    23
    Genova
    54
    58
    44
    48
    46
    Milano
    48
    09
    86
    77
    44
    Napoli
    38
    25
    17
    19
    82
    Palermo
    81
    66
    78
    72
    05
    Roma
    70
    27
    83
    44
    71
    Torino
    79
    86
    53
    03
    89
    Venezia
    78
    18
    33
    79
    38
    Nazionale
    49
    63
    48
    86
    68
    Estrazione Simbolotto
    Napoli
    43
    08
    01
    35
    15
Indietro
Alto