Novità

Aiuto per script

Antonio Pagano

Super member
Ciao a tutti. Avrei bisogno di sapere se c'è la possibilità di sapere, con uno script, il ritardo e la frequenza di un insieme di <ambi.
Esempio: 7 -21 / 18 -45 / 67 -74 / 10 - 53 / 21 - 66 / 53 - 90 Ecco di questo gruppo di ambi vorrei sapere ritardo e frequenza. Ringrazio anticipatamente a tutti coloro vorranno aiutarmi. Grazie e buona giornata.
 
Ciao Antonio, Si !! con lo script è possibile sapere anche il ritardo e frequenza di un determinato gruppo.
Ecco lo script già esistente nella cartella test di spaziometria ed adattato per la tua esigenza.


Codice:
Option Explicit
Sub Main
   ' dichiaro i valori di ritorno
   Dim RetRitardo,RetRitardoMax,Freq,sRetFormaz,Ruota,Ru(1),Sortita,Ini,fin
   Ini = EstrazioneIni
   fin = EstrazioneFin
   ' aggiungo le formazioni al gruppo
   ' N.B. in questo esempio  abbiamo tutti ambi ma possiamo inserire anche lunghette di classe differente
   ' e posso aggingere quante combinazioni voglio una sola come 100
   Ruota = ScegliRuota
   Ru(1) = Ruota
   ReDim aN(2)
   aN(1) = 7
   aN(2) = 21
   Call AddNumeriToGruppoStatistico(aN,Ruota)
   ReDim aN(2)
   aN(1) = 18
   aN(2) = 45
   Call AddNumeriToGruppoStatistico(aN,Ruota)
   ReDim aN(2)
   aN(1) = 67
   aN(2) = 74
   Call AddNumeriToGruppoStatistico(aN,Ruota)
   ReDim aN(2)
   aN(1) = 10
   aN(2) = 53
   Call AddNumeriToGruppoStatistico(aN,Ruota)
   ReDim aN(2)
   aN(1) = 21
   aN(2) = 66
   Call AddNumeriToGruppoStatistico(aN,Ruota)
   ReDim aN(2)
   aN(1) = 53
   aN(2) = 90
   Call AddNumeriToGruppoStatistico(aN,Ruota)
   ' ho finito di aggiungere le formazioni l gruppo lancio la statistica del gruppo
   Call StatisticaGruppoFormazioni(2,RetRitardo,RetRitardoMax,Freq,sRetFormaz,Ini,fin)
   Call VerificaEsitoTurbo(aN,Ru,EstrazioneFin - RetRitardo,2,,,,,Sortita)
   ' risultati a video
   Call Scrivi("Analisi delle combinazioni : ",1,,7,5,3)
   Call Scrivi(sRetFormaz,1,,,1)
   Call Scrivi("Ritardo attuale " & RetRitardo,1,,,2)
   Call Scrivi("Ritardo max     " & RetRitardoMax,1,,,2)
   Call Scrivi("Frequenza       " & Freq,1,,,2)
   Call Scrivi("Ultima Sortita........ " & StringaEstratti(fin - RetRitardo,Ruota) & Space(5) & GetInfoEstrazione(fin - RetRitardo),1)
End Sub
 
Grazie Mike58. Listato perfetto per le mie esigenze. Ci lavorerò un pò su per avere lo stesso risultato sulle singole 10 ruote. Per sapere su quale ruota è preferibile mettere in gioco. Ciao grazie
 
ciao a tutti , vorrei fare una domanda , sempre che abbia interpretato bene.
questo esito significa che lo script analizza solo il primo ambo?

Codice:
Analisi delle combinazioni : 
BA 7.21
BA 18.45
BA 67.74
BA 10.53
BA 21.66
BA 53.90
Ritardo attuale 3
Ritardo max     613
Frequenza       139
Ultima Sortita........ 07.21.15.54.27     [09944] [ 73] 19.06.2021

grazie
 
Franca46 ciao. Il ritardo e la frequenza si riferiscono all'insieme dei 6 ambi. All'uscita di un ambo dei sei il ritardo và a zero e la frequenza + 1. Buona serata.
 
Buon giorno a tutte/i.

Mike, ho visto la tua soluzione,

Nel caricare i dati esso sono uniti in numeri e ruota.

Questo rende difficile sostuire
la ruota.

Cioè si rende necessario ricaricare tutto per ogni ruota.

Ti risulta ci possano essere altre istruzioni simili e più orientate alla gestione dei soli pronostici numerici.

Naturalmente è richiesta aperta ed utile anche ad altri contributi.

:)
 
Ciao Joe proprio perchè trattasi di gruppo eterogeneo la ruota si può addizionare anche diversa per ogni redim aN(2) per poi essere richiamate dal codice StatisticaGruppoFormazione.
Altre soluzioni di gruppo in automatico la vedo dura.
Codice:
'Option Explicit
Sub Main
  
   ' dichiaro i valori di ritorno
   Dim RetRitardo,RetRitardoMax,Freq,sGruppo
  
   ' aggiungo le formazioni al gruppo
   ' N.B. in questo esempio  abbiamo tutti ambi ma possiamo inserire anche lunghette di classe differente
   ' e posso aggingere quante combinazioni voglio una sola come 100
  

  
   ReDim aN(2)
   aN(1) = 21
   aN(2) = 12
   Call AddNumeriToGruppoStatistico(aN,VE_)
  
   ReDim aN(2)
   aN(1) = 15
   aN(2) = 83
   Call AddNumeriToGruppoStatistico(aN,FI_)
  
   ReDim aN(2)
   aN(1) = 34
   aN(2) = 90
   Call AddNumeriToGruppoStatistico(aN,MI_)
  
   ReDim aN(2)
   aN(1) = 21
   aN(2) = 28
   Call AddNumeriToGruppoStatistico(aN,TO_)
  
   ReDim aN(2)
   aN(1) = 72
   aN(2) = 25
   Call AddNumeriToGruppoStatistico(aN,CA_)
  
   ReDim aN(2)
   aN(1) = 31
   aN(2) = 2
   Call AddNumeriToGruppoStatistico(aN,RO_)
  

  
   ' ho finito di aggiungere le formazioni l gruppo lancio la statistica del gruppo

   Call StatisticaGruppoFormazioni(2,RetRitardo,RetRitardoMax,Freq,sGruppo,EstrazioneIni,EstrazioneFin)
  
   ' risultati a video
  
   Call Scrivi("Analisi delle combinazioni : ")
   Call Scrivi(sGruppo & vbTab & srB & vbTab &  sortita)
   Call Scrivi("Ritardo attuale " & RetRitardo)
   Call Scrivi("Ritardo max     " & RetRitardoMax)
   Call Scrivi("Frequenza       " & Freq)
  

  
End Sub
 
Ti ringrazio...

mi sa che dovrò mettere in cantiere di studiarmi un po' sta cosa.

Ti posso confermare che il tuo script ((il primo) che ho controllato) funziona bene.

L'unico dato che non ho ancora calcolato è lo storico.

Gli altri risultati sono uguali.

:)
 
Joe, ogni tanto bisogna trovare stimoli in qualcosa di nuovo e diverso.
Nella cartella test ci sono 2 script
StatGruppoEterogeneo
StatgruppoFormazione
che agiscono sui gruppi di ambi , con la controverifica circa il ritardo e ritardostorico calcolato nel modo fuori dal codice.
Ciao.
 
Joe, ogni tanto bisogna trovare stimoli in qualcosa di nuovo e diverso
Nella cartella .test ci sono 2 script
StatGruppoEterogeneo
StatgruppoFormazione
che agiscono sui gruppi di ambi , con la controverifica circa il ritardo e ritardostorico calcolato nel modo fuori dal codice.
Ciao.

Ciao Mike,

Bhe si penso si possa affermare che alcune ricerche sono più complicate di altre.

Dice giustamente Luigi che non è che ci si debba misurare o dare prove né a sé, né agli altri.

Ma è gratificante l'avere prova di sapere di poter realizzare anche questi calcoli più complessi.

Poi naturalmente Storici, Frequenze, Ritardi, Gruppi Omogenei ed Eterogenei,

sanno raccogliere simpatie ed antipatie differenti.

Come presumevo e (un pò tra le righe) ho anticipato che, anche gli storici avrebbero coinciso (al netto del solito +/- 1).

Stat_Gruppo.jpg
:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 06 settembre 2025
    Bari
    01
    26
    50
    16
    49
    Cagliari
    61
    18
    01
    62
    22
    Firenze
    84
    23
    32
    26
    88
    Genova
    24
    27
    47
    76
    44
    Milano
    59
    08
    06
    11
    39
    Napoli
    02
    65
    40
    28
    57
    Palermo
    09
    66
    51
    81
    49
    Roma
    76
    55
    73
    88
    65
    Torino
    38
    49
    40
    21
    90
    Venezia
    80
    60
    34
    69
    42
    Nazionale
    89
    76
    64
    80
    21
    Estrazione Simbolotto
    Palermo
    39
    34
    02
    08
    43
Indietro
Alto