Novità

Perchè questo script mostra in output sempre e soltanto i primi 300 risultati?

lotto_tom75

Advanced Premium Member
Ho provato in mille modi a capire dove possa risiedere questo "limite" di visualizzazione in output ma senza alcun esito :( :)

Lo script in questione è derivante da una mia leggera modifica apportata su un altro script "orfano" che non aveva apparentemente questo limite ma che analizzava solo la fq 0 su una o più ruote mentre questo dovrebbe rilevare su una o più ruote i ritardi impostati. In sostanza questa mia versione dovrebbe rilevare eventuali isocronie in formazioni di classe voluta per la sorte desiderata e per il gruppo numerico di volta in volta preferito e importato da tabella. Purtroppo però appunto per adesso sembra mostrare solo e soltanto i primi 300 risultati.

Codice:
Option Explicit
Class clsCombinazione
Private aNum
Private aRuote
Private mFrequenza
Private mritardo
Private mSorte
Private mFine,mInizio
Public Property Get Frequenza
Frequenza = mFrequenza
End Property
Public Property Get Ritardo
Ritardo = mritardo
End Property
Public Property Get Sorte
Sorte = mSorte
End Property
Public Property Get EstrazioneInizio
EstrazioneInizio = mInizio
End Property
Public Property Get EstrazioneFine
EstrazioneFine = mFine
End Property
Function GetNumeri()
GetNumeri = aNum
End Function
Function GetRuote()
GetRuote = aRuote
End Function
Function GetQuantitaRuote
GetQuantitaRuote = UBound(aRuote)
End Function
Sub AggiungiRuota(r)
Dim i
i = UBound(aRuote) + 1
ReDim Preserve aRuote(i)
aRuote(i) = r
End Sub
Function GetStringaRuote
Dim k,s
s = ""
For k = 1 To UBound(aRuote)
s = s & SiglaRuota(aRuote(k)) & "."
Next
GetStringaRuote = RimuoviLastChr(s,".")
End Function

Function GetStringaRitardo
Dim a
a = ""
a = a & ritardo & "."
GetStringaRitardo = RimuoviLastChr(a,".")
End Function

Sub SetDati(aN,aR,Sorte,Inizio,Fine)
aNum = aN
aRuote = aR
mSorte = Sorte
mInizio = Inizio
mFine = Fine
End Sub
Sub CalcolaRitardo(aN,aR,nSorte,EstrIni,EstrFin)
aNum = aN
aRuote = aR
mSorte = nSorte
mInizio = EstrIni
mFine = EstrFin
mritardo = SerieRitardoTurbo(mInizio,mFine,aNum,aRuote,mSorte)
'mritardo
End Sub
End Class
Sub Main
Dim r,k
Dim aNumeri,nNumSel,aCol,nColonneSvil
ReDim aRuote(1)
Dim nClasse,nSorte,nColonneTot
Dim CollLunghette
Dim clsComb
Dim Inizio,Fine
Dim mFreqMinima
Dim mritardominimo
Dim mritardo



nClasse = 2
nSorte = 2
'mFreqMinima = 0
mritardominimo = 1

Inizio = EstrazioneIni
Fine = EstrazioneFin
Set CollLunghette = GetNewCollection
nNumSel = ScegliNumeri(aNumeri)
nColonneSvil = 0
If nNumSel >= nClasse Then
nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
' ciclo che continua fino a quando le colonne non finiscono
Do While GetCombSviluppo(aCol)
For r = 1 To 11
If r <> 11 Then
aRuote(1) = r
Set clsComb = New clsCombinazione
Call clsComb.CalcolaRitardo(aCol,aRuote,nSorte,Inizio,Fine)
If clsComb.ritardo >= mritardominimo Then
Call AddFormazioneTrovata(clsComb,CollLunghette)
End If
End If
Next
nColonneSvil = nColonneSvil + 1
'if ...
Call AvanzamentoElab(0,nColonneTot,nColonneSvil)
If ScriptInterrotto Then Exit Do
Call DoEventsEx
'End If
Loop
'Call AvanzamentoElab(0,nColonneTot,nColonneSvil)

Scrivi "Analisi da "
Scrivi "Inizio : " & GetInfoEstrazione(Inizio)
Scrivi "Fine   : " & GetInfoEstrazione(Fine)
Scrivi "Numeri : " & StringaNumeri(aNumeri)
Scrivi "Sviluppo in classe : " & nClasse
Scrivi "Sorte : " & NomeSorte(nSorte)
Scrivi "Ritardo minimo : " & mritardominimo
'Scrivi "Elenco delle combinazioni presenti con frequenza minore uguale a " & mFreqMinima
Scrivi

Dim aTitoli
aTitoli = Array("","Combinazione","Q Ruote","Ruote")
Call InitTabella(aTitoli,vbYellow)
ReDim aValori(3)

For Each clsComb In CollLunghette
'Call Scrivi (StringaNumeri (clsComb.GetNumeri ,,True )   & " su " & clsComb.GetStringaRuote )
aValori(1) = StringaNumeri(clsComb.GetNumeri,,True)
aValori(2) = clsComb.GetQuantitaRuote
aValori(3) = clsComb.GetStringaRuote
'aValori(4) = "ND"        '<< QUI NON RIESCO A RIPORTARE IN OUTPUT IL VALORE DI RITARDO
Call AddRigaTabella(aValori)
Next

Call CreaTabella(2,,,1000)
End If
End Sub
Sub AddFormazioneTrovata(clsComb,coll)
Dim sKey
Dim clsCombTmp
sKey = "key" & StringaNumeri(clsComb.GetNumeri,".",True)
Set clsCombTmp = GetItemColl(sKey,coll)
If clsCombTmp Is Nothing Then
Set clsCombTmp = New clsCombinazione
Call clsCombTmp.SetDati(clsComb.GetNumeri,clsComb.GetRuote,clsComb.Sorte,clsComb.EstrazioneInizio,clsComb.EstrazioneFine)
Call coll.Add(clsCombTmp,sKey)
Else
Dim aR
aR = clsComb.GetRuote
Call clsCombTmp.AggiungiRuota(aR(1))
End If
End Sub
Function GetItemColl(sKey,Coll)
On Error Resume Next
Set GetItemColl = Coll(sKey)
If Err <> 0 Then
Set GetItemColl = Nothing
Err.Clear
End If
End Function

Grazie agli eventuali "risolutori" di questo little... code gap :)

Ps: Con l'occasione domando, a chi ne fosse eventualmente a conoscenza, se vi sono altri script capaci di rilevare per un gruppo numerico desiderato, importato da tabella, eventuali isocronie su più ruote. Very Thanks.
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao

A me risultano tutte

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/i.postimg.cc\/GmM0tWM5\/per-Lotto-Tom75.png"}[/IMG2]
 

lotto_tom75

Advanced Premium Member
Ciao salvo, il problema viene fuori quando analizzi gruppi numerici + grandi. Ad esempio di 25 elementi. Se provi vedrai che in output avrai solo le prime 300 risultanze...
 

salvo50

Advanced Member >PLATINUM PLUS<
Ho messo 25 numeri, non ho capito se per elementi intendevi numeri, comunque adesso faccio un po di prove con più numeri

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/i.postimg.cc\/TYRFFBD1\/per-Lotto-Tom75.png"}[/IMG2]
 

lotto_tom75

Advanced Premium Member
salvo50;n2160015 ha scritto:
Ho messo 25 numeri, non ho capito se per elementi intendevi numeri, comunque adesso faccio un po di prove con più numeri

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/i.postimg.cc\/TYRFFBD1\/per-Lotto-Tom75.png"}[/IMG2]

Si con elementi intendevo numeri salvo. Ma con 25 numeri ti ha mostrato in output tutte le 3300 coppie? Se si che versione di spaziometria stai usando? Ciao
 

lotto_tom75

Advanced Premium Member
salvo50;n2160016 ha scritto:
Ho messo direttamente 90 numeri e l'ultima è la 9599 del 05.03.2019

Cioè? Quante coppie ti ha generato e mostrato a video? Tutte le 4005? Ciao
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Quindi sono gli ambi che sono 300, chiedo scusa, io avevo capito che erano le estrazioni, ho confuso fischi con fiaschi, posso dare un'occhiata ma questo è uno script di quelli tosti roba per Joe, Magia, I Leggend ecc...
 

Master

Advanced Member >PLATINUM<
Ciao

Ho sostituito questa riga Call CreaTabella(2,,,1000)

con Call CreaTabella(2,,,5000)

facendo così a me rileva tutti i 4005 ambi

Analisi da
Inizio : [00001] [ 1 ] 07.01.1871
Fine : [09600] [ 29] 07.03.2019
Numeri : 1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25.26.27.28.29.30.31.32.33.34.35.36.37.38.39.40.41.42.43.44.45.46.47.48.49.50.51.52.53.54.55.56.57.58.59.60.61.62.63.64.65.66.67.68.69.70.71.72.73.74.75.76.77.78.79.80.81.82.83.84.85.86.87.88.89.90
Sviluppo in classe : 2
Sorte : Ambo
Ritardo minimo : 1


Cattura5000.JPG
 

claudio8

Premium Member
Call CreaTabella(2,,,1000) dallo script che adesso è nel post iniziale, in crea tabella hai inserito una specifica di 1000 righe se vuoi vedere tutte le righe esistenti , o non mettere alcuna specifica o scrivi 4006. Call CreaTabella(2,,,4006) versione utilizzata (lenta) 1.6.31 saluti da Claudio8
 

lotto_tom75

Advanced Premium Member
Grazie a tutti :)

Sapete per caso anche come mostrare il ritardo in questa colonna della tabella?

Codice:
For Each clsComb In CollLunghette
'Call Scrivi (StringaNumeri (clsComb.GetNumeri ,,True )   & " su " & clsComb.GetStringaRuote )
aValori(1) = StringaNumeri(clsComb.GetNumeri,,True)
aValori(2) = clsComb.GetQuantitaRuote
aValori(3) = clsComb.GetStringaRuote
'aValori(4) = "ND"        '<< QUI NON RIESCO A RIPORTARE IN OUTPUT IL VALORE DI RITARDO
Call AddRigaTabella(aValori)
Next
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto