Cerco Listato

[joe]

Mhm ...

Bhe ... si come non darti ragione ?

Cinzia, sovente produce report nei quali raggruppa, i risultati.

Pensavo volesse fare qualcosa di simile.

"A gradini" ovvero "a gradoni".

 

[Cinzia27]

Grazie,Luigi,
Lo sto provando.

i parametri adottati sono 2,Bari,2




Mi compare questa finestra, ho cliccato si. Ho sbagliato ? Se clicco non non mi da niente

Formazione	Ritardo	Frequenza	RitardoMax
59.70	2151​	2151​	25​
78.86	1873​	1873​	18​
78.56	1804​	1804​	19​

Poi visti i dati, ho cliccato allora su frequenza
Prendiamo il primo ambo, il ritardo attuale che mi risulta è 828, gli altri due dati coincidono, ma sono a colonne inverse

Formazione	Ritardo	Frequenza	RitardoMax
86.52	821​	3879​	16​
57.79	25​	3287​	12​
50.76	525​	3175​	17​

Ho sbagliato qualcosa ?

 

[LuigiB]

devi dire no e ti dovrebeb uscire cosi , se dici si orende le prime 100 righe




per il resto hai ragione c'è un errore , inverti l'assegnazione 3 con la 4

 

[Cinzia27]

Fatto, però non mi da nulla

 

[Cinzia27]

E poi la prima terzina dovrebbe avere frequenza 50, attuale 30 e storico 1353.
Partendo dal 7/1/1871

 

[solare]

Io ho adottato il suggerimento di Luigi, che saluto....a me funziona
Option Explicit
Sub Main
Dim aLunghette,nQuantitaLung,nClasseFormazione
Dim aRuote,nSorte
Dim Inizio,Fine

Inizio = EstrazioneIni
Fine = EstrazioneFin

nQuantitaLung = AlimentaArrayLunghette(aLunghette)


If nQuantitaLung >= 2 Then
If VerificaDoppi(aLunghette) Then
nClasseFormazione = Int(InputBox("Quanti numeri per ogni formazione in gioco da 2 a " & nQuantitaLung))

Call ScegliRuote(aRuote)
nSorte = ScegliEsito(2,2,nClasseFormazione)


If nClasseFormazione >= 2 And nClasseFormazione <= nQuantitaLung Then
Call ProduciFormazioni(aLunghette,nClasseFormazione,aRuote,nSorte,Inizio,Fine)
Else
MsgBox "Quantità errata",vbExclamation
End If

End If
Else
MsgBox "Lunghette insufficient",vbExclamation
End If
End Sub
Function VerificaDoppi(aLunghette)

Dim k,j,n,sNumeriNonValidi,sNumeriDoppi
ReDim aB(90)

sNumeriNonValidi = ""
sNumeriDoppi = ""

For k = 1 To UBound(aLunghette)
For j = 1 To UBound(aLunghette(k))
n = Int(aLunghette(k)(j))
If n > 0 And n <= 90 Then
If aB Then
sNumeriDoppi = sNumeriDoppi & " Lunghetta " & k & " numero " & n & ","

Else
aB = True
End If
Else
sNumeriNonValidi = sNumeriNonValidi & " Lunghetta " & k & " numero " & n & ","
End If
Next
Next

If sNumeriNonValidi <> "" Or sNumeriDoppi <> "" Then
If sNumeriNonValidi <> "" Then
MsgBox "Numeri non validi " & vbCrLf & sNumeriNonValidi,vbExclamation
End If
If sNumeriDoppi <> "" Then
MsgBox "Numeri ripetuti " & vbCrLf & sNumeriDoppi,vbExclamation
End If
VerificaDoppi = False
Else
VerificaDoppi = True
End If


End Function

Function AlimentaArrayLunghette(aLunghette)
' per comodita le lunghette sono preimpostate ma nulla vieta di leggerle da un file o da inputbox
ReDim aLunghette(5)
aLunghette(1) = Split("0,66,67,69,78,72,89",",") ' 6
aLunghette(2) = Split("0,55,57,59,75,77,86",",") ' 6
aLunghette(3) = Split("0,65,68,79,88",",") '4
aLunghette(4) = Split("0,50,58,54,70,87",",") '5
aLunghette(5) = Split("0,56,52,76,85",",") '4
' la funzione torna il numero di lunghette ( l'elemento a indice 0 non è usato)
AlimentaArrayLunghette = UBound(aLunghette)
End Function
Sub ProduciFormazioni(aLunghette,nClasseFormazione,aRuote,nSorte,Inizio,fine)
Dim I
Dim k,aRetColonna,sLungUsate
Dim aT

aT = Array("","Formazione","Ritardo","Frequenza","RitardoMax")
Call InitTabella(aT)

ReDim aN(UBound(aLunghette))
For k = 1 To UBound(aN)
aN(k) = k
Next
ReDim aSegni(nClasseFormazione)
Call InitSviluppoIntegrale(aN,nClasseFormazione)
Do While GetCombSviluppo(aRetColonna)
sLungUsate = ""
For k = 1 To nClasseFormazione
aSegni(k) = aLunghette(aRetColonna(k))
sLungUsate = sLungUsate & aRetColonna(k) & "-"
Next
Call Messaggio("Sviluppo colonne tra le lunghette " & RimuoviLastChr(sLungUsate,"-"))
Call SviluppaColonne(aSegni,I,aRuote,nSorte,Inizio,fine)
If ScriptInterrotto Then Exit Do
DoEventsEx
Loop


Call Scrivi(String(50,"="))
Call Scrivi("Colonne sviluppate : " & I)
Call Scrivi("Classe : " & nClasseFormazione)
Call Scrivi("Sorte : " & nSorte)
Call Scrivi("Ruote : " & StringaRuote(aRuote))
Call Scrivi(String(50,"="))
Call Scrivi



Call CreaTabellaOrdinabile(2)

End Sub
Sub SviluppaColonne(aSegni,I,aRuote,nSorte,Inizio,Fine)
Dim nClasse,K,aTmp,nPnt
Dim nRitardo,nRitardoMax,nFrequenza

ReDim aT(4)
nClasse = UBound(aSegni)

ReDim aColonna(nClasse)
ReDim aPuntatore(nClasse)
ReDim aQSegni(nClasse)
For K = 1 To nClasse
aTmp = aSegni(K)
aPuntatore(K) = 1
aQSegni(K) = UBound(aTmp)
Next
nPnt = nClasse
Do
For K = 1 To nClasse
aTmp = aSegni(K)
aColonna(K) = aTmp(aPuntatore(K))
Next
I = I + 1
' Call Scrivi(FormatSpace(I,4,True) & ") " & StringaNumeri(aColonna))

Call StatFrzTurbo(aColonna,aRuote,nSorte,nRitardo,nRitardoMax,0,nFrequenza,,Inizio,Fine)
aT(1) = StringaNumeri(aColonna)
aT(2) = nRitardo
aT(3) = nFrequenza
aT(4) = nRitardoMax
Call AddRigaTabella(aT)

Do While aPuntatore(nPnt) + 1 > aQSegni(nPnt)
nPnt = nPnt - 1
If nPnt = 0 Then Exit Do
Loop
If nPnt > 0 Then
aPuntatore(nPnt) = aPuntatore(nPnt) + 1
For K = nPnt + 1 To nClasse
aPuntatore(K) = 1
Next
nPnt = nClasse
End If
If ScriptInterrotto Then Exit Do
DoEventsEx
Loop While nPnt > 0
End Sub

 

[Cinzia27]

Grazie, Solare. Vorrei capire se sbaglio qualcosa

 

[solare]

Io di listati non capisco
mi sono limitato a sostituire quello indicato da Luigi...

 

[LuigiB]

E poi la prima terzina dovrebbe avere frequenza 50, attuale 30 e storico 1353.
Partendo dal 7/1/1871

dovrebbe in base a cosa ? come lo hai clcolato il valore di riferimento che consideri esatto ?
io ho passato le prime 2 lunghette alla funzione statistica veloce e ottengo gli stessi valori , lascia stare che io ho usato un range non attuale in quanto non ho l'archivio aggiornato

 

[LuigiB]

se non ti da niente nella griglia prova a sostituire CreaTabellaOrdinabile con CreaTabella

 

[Cinzia27]

Con crea tabella ho questi risultati ( ti metto i primi 3)
==================================================

Colonne sviluppate : 1220

Classe : 3

Sorte : 2

Ruote : BA

==================================================

Formazione​	Ritardo​	Frequenza​	RitardoMax​
59.65.76​	915​	74​	915​
78.86.52​	821​	56​	863​
72.59.52​	767​	62​	850​

 

[joe]

Sembra che il tuo archivio, Luigi, sia al 18/05/2021

e che sia circa di 3000 Estrazioni.

Quindi per il confronto bisognerebbe allinearsi a questo ...

... perché altrimenti caduti alcuni ambi, cambiati ritardi e presenze,

i risultati non sono confrontabili.

 

[LuigiB]

Ciao Joe , ho l'archivio non aggiornato ed in piu ho usato un range di poche estrazioni alla fine , dato che il calcolo dei valori si basa su una funzione presente (StatFormazioneTurbo) o è sbagliata questa funzione e strano non essersi accorti prima oppure c'è qualche discordanza negli archivi.
I confronti fateli tra voi le discordanze non possono dipendere dallo script.

 

[Cinzia27]

Numeri	Ruota	Sorte	Ritardo	RitMax	IncrRitMax	Frequenza	Presenze	IndConv	RP1	RP2	RP3
59-65-76	BA	Ambo	ok 922​	922/739​	183​	ok 74​	72​	6,985​	39​	20​	90​

 

[LuigiB]

va fatta questa impostazione nel programma , hai provato a vedere quanto fa 922 - 183 ?

 

[Cinzia27]

Numeri	Ruota	Sorte	Ritardo	RitMax	IncrRitMax	Frequenza	Presenze	IndConv	RP1	RP2	RP3
59-65-76	BA	Ambo	ok 922​	922-739​	183​	ok 74​	72​	6,985​	39​	20​	90​

Scusate, il tempo per modificare mi è scaduto. Completo il messaggio.

Confrontando a parità di estrazioni (9966 su Spaziometria e 9966 nell' altro programma, praticamente l' intero archivio in entrambi) coincidono il ritardo e la frequenza.
Sull' altro programma il massimo storico è 739 che sommato all'incrRitMax di Spaziometria da 922 .

Questo è l' output dello script di LuigiB
Quindi laddove il ritardo attuale sia superiore al massimo storico, cioè si tratti di uno storico in corso, il RitardoMax è pari all' attuale

Formazione​	Ritardo​	Frequenza​	RitardoMax​
59.65.76​	922​	74​	922​

I dati coincidono invece in toto se il ritardo attuale è inferiore al massimo storico

72.59.52​

Ritardo 774 Ok​

Frequenza 62 OK​

RitardoMax 850 Ok​

In pratica, Luigi, per poter aver lo storico già realizzato e non quello in corso si dovrebbe soltanto sottrarre dal ritardoMax l' IncrRitMax

Se ho ben capito, non vi è alcun errore , occorre soltanto fare la suddetta sottrazione.

 

[LuigiB]

devi andare nel menu configura di spaziometria e selezionare ritardo massimo effetttivo dopo di che ti dara il risultato corretto.

 

[Cinzia27]

Fatto, Luigi. Adesso ci siamo.
Per avere l' ordinamento per ritardo storico dove devo agire ?

Colonne sviluppate : 1220
Classe : 3
Sorte : 2
Ruote : BA
==================================================

Formazione​	Ritardo​	Frequenza​	RitardoMax​
59.65.76​	922​	74​	739​

 

[LuigiB]

ti consiglio di rimettere CreaTabellaOrdinabile , alla prima domanda devi dire NO a quella successiva SI secondo me è qui che sbagliavi a dire no alla seconda domanda.
Cosi non devi stare a modificare lo script e puoi ordinare direttamente l'output

 

[Cinzia27]

Ho rimesso Call CreaTabellaOrdinabile(2) che mi piace di più, i risultati vanno bene ma ho dovuto dire si all' avviso (v. messaggio 20.37), comporta danni ?