Novità

Cerco Listato

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".

:)
 
Grazie,Luigi,
Lo sto provando.

i parametri adottati sono 2,Bari,2



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

FormazioneRitardoFrequenzaRitardoMax
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
FormazioneRitardoFrequenzaRitardoMax
86.52
821​
3879​
16​
57.79
25​
3287​
12​
50.76
525​
3175​
17​

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

1629485533436.png


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

1629485379983.png
 
E poi la prima terzina dovrebbe avere frequenza 50, attuale 30 e storico 1353.
Partendo dal 7/1/1871
 
Ultima modifica:
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(n) Then
sNumeriDoppi = sNumeriDoppi & " Lunghetta " & k & " numero " & n & ","

Else
aB(n) = 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
 
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

1629487545384.png
 
se non ti da niente nella griglia prova a sostituire CreaTabellaOrdinabile con CreaTabella
 
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​
 
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.

:)
 
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.
 
NumeriRuotaSorteRitardoRitMaxIncrRitMaxFrequenzaPresenzeIndConvRP1RP2RP3
59-65-76BAAmbo
ok 922
922/739
183​
ok 74
72​
6,985​
39​
20​
90​
 
va fatta questa impostazione nel programma , hai provato a vedere quanto fa 922 - 183 ?


1629492621482.png
 
NumeriRuotaSorteRitardoRitMaxIncrRitMaxFrequenzaPresenzeIndConvRP1RP2RP3
59-65-76BAAmbo
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.
 
devi andare nel menu configura di spaziometria e selezionare ritardo massimo effetttivo dopo di che ti dara il risultato corretto.
 
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​
 
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
 
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 ?

1629494476309.png
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 27 maggio 2025
    Bari
    15
    61
    19
    34
    80
    Cagliari
    69
    10
    33
    22
    25
    Firenze
    18
    55
    30
    29
    78
    Genova
    64
    18
    35
    56
    57
    Milano
    41
    86
    61
    17
    89
    Napoli
    87
    31
    27
    57
    16
    Palermo
    31
    69
    53
    64
    14
    Roma
    14
    24
    02
    08
    29
    Torino
    83
    04
    79
    49
    27
    Venezia
    19
    57
    53
    10
    33
    Nazionale
    14
    68
    86
    56
    58
    Estrazione Simbolotto
    Milano
    42
    04
    44
    34
    07
Indietro
Alto