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
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07

Ultimi Messaggi

Indietro
Alto