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ì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28

Ultimi Messaggi

Indietro
Alto