Ritardo del rit max

Marcorun · 16 Ottobre 2023

Salve, è possibile avere uno script che restituisca una tabella con i soliti valori di frequenze e ritardi ecc. ed in più il ritardo o la data che ha il ritardo massimo di una "scegli formazione"?
In pratica sapere quando è avvenuto lo sfaldamento del ritardo massimo di quella formazione?
Grazie!

Mike58 · 16 Ottobre 2023

Ciao Marco, Prova.... a non correre

Codice:

Sub Main
Dim T
  Ini = EstrazioneIni
  fin = EstrazioneFin
  Tot = fin-Ini + 1
  ReDim Ru(0)
  ReDim Nu(0)
  ScegliNumeri(Nu)
  ScegliRuote(Ru)
  ss = ScegliEsito(1,1,5)
  T = Array(T,"Ruote","Combinazione","Sorte di Esito","Rit_Corrente","Rit_storico","InCr_Max","Estrazione_Data Storico", _
  "RitMaxSto","Verifica Sort DataSto","Frequenza","Indice Convenienza")
  Call InitTabella(T,,,,,"Arial Black")
  Call StatisticaFormazione(Nu,Ru,ss,rit,max,Incr,freq,Ini,fin)
  datasto = SerieEstrazioneStorico(Ini,fin,Nu,Ru,ss)
  Call VerificaEsito(Nu,Ru,datasto+1,ss,1,,,,es,id)
  ic = Round(freq/Tot*rit,2)
  ritMax = fin-datasto
  T = Array(T,StringaRuote(Ru),StringaNumeri(Nu),NomeSorte(ss),rit,max,Incr,GetInfoEstrazione(datasto),ritMax,es ,freq, ic)
  Call AddRigaTabella(T)
  CreaTabella
End Sub

Marcorun · 16 Ottobre 2023

Puntualmente gentile ,grazie MIKE.....
se posso,una richiesta...magari poter scegliere una formazione piuttosto che numeri
e una versione x 10elotto....se non chiedo troppo
GRAZIE!

Mike58 · 16 Ottobre 2023

ahia Marco.... adesso sei tu che mi fai correre

Lo script utilizza le formazioni formate in spaziometria ( ma nulla vieta di crearne altre - Non ricordo più come si creano, ma ricordo che era possibile).

Raccoglie i dati statistici e li ordina per colonna Datasto ( si può cambiare l'ordinamento)
Call CreaTabella(8) ' ordinata x colonna 8
versione per il lotto

Codice:

Sub Main
   Dim sFrz,nElemFz,K,T
   Ini = EstrazioneIni
   fin = EstrazioneFin
   Tot = fin - Ini + 1
   '
   T = Array(T,"Ruote","Combinazione","Sorte di Esito","Rit_Corrente","Rit_storico","InCr_Max","Estrazione_Data Storico",_
   "RitMaxSto","Verifica Sort DataSto","Frequenza","Indice Convenienza")
   Call InitTabella(T,,,,,"Arial Black")
   '
   ReDim Ru(0)
   Call ScegliRuote(Ru)
   '
   ss = ScegliEsito(1,1,5)
   sFrz = ScegliFrz
   nElemFz = GetQElemFormazione(sFrz)
   '
   Scrivi sFrz ' scrive Nome Formazione
   '
   For K = 1 To nElemFz
      ReDim Nu(0)
      Call GetItemFormazione(sFrz,Nu,K)
      Call StatisticaFormazione(Nu,Ru,ss,rit,max,Incr,freq,Ini,fin)
      datasto = SerieEstrazioneStorico(Ini,fin,Nu,Ru,ss)
      Call VerificaEsito(Nu,Ru,datasto + 1,ss,1,,,,es,id)
      ic = Round(freq/Tot*rit,2)
      ritMax = fin - datasto
      T = Array(T,StringaRuote(Ru),StringaNumeri(Nu),NomeSorte(ss),rit,max,Incr,GetInfoEstrazione(datasto),ritMax,es,freq,ic)
      Call AddRigaTabella(T)
   Next
   Call SetTableWidth("100%")
   Call CreaTabella(8) ' ordinata x colonna 8
   '
End Sub
'
Function ScegliFrz
   ReDim aFile(0)
   Dim sDir
   Dim k
   sDir = GetDirectoryAppData & "formazioni\"
   Call ElencoFileInDirectory(sDir,aFile,".frz")
   k = ScegliOpzioneMenu(aFile,,"Scegli formazione")
   If k >= 0 Then
      ScegliFrz = aFile(k)
   Else
      ScegliFrz = ""
   End If
End Function

versione per 10eLotto Serale non è possibile avere la data storico in quanto il codice
SerieEstrazioneStoricoDL
non esiste
quindi non possibile ricavarla
ti metto lo script senza tale voce mi spiace

Codice:

Sub Main
   ImpostaArchivio10ELotto(1)
   Dim sFrz,nElemFz,K,T
   Ini = 8119'EstrazioniArchivioDL
   fin = EstrazioniArchivioDL
   Tot = fin - Ini + 1
   '
   T = Array(T,"Combinazione","Sorte di Esito","Rit_Corrente","Rit_storico","InCr_Max","Estrazione_Data Storico",_
   "RitMaxSto","Verifica Sort DataSto","Frequenza","Indice Convenienza")
   Call InitTabella(T,,,,,"Arial Black")
   '
   'ReDim Ru(0)
   'Call ScegliRuote(Ru)
   '
   ss = ScegliEsito(1,1,10)
   sFrz = ScegliFrz
   nElemFz = GetQElemFormazione(sFrz)
   '
   Scrivi sFrz ' scrive Nome Formazione
   '
   For K = 1 To nElemFz
      ReDim Nu(0)
      Call GetItemFormazione(sFrz,Nu,K)
      Call StatisticaFormazioneDL(Nu,ss,rit,max,Incr,freq,Ini,fin)
      'datasto = SerieEstrazioneStorico(Ini,fin,Nu,Ru,ss)
      Call VerificaEsitoDL(Nu,fin-rit,ss,,,,es,id)
      ic = Round(freq/Tot*rit,2)
      'ritMax = fin - datasto
      T = Array(T,StringaNumeri(Nu),NomeSorte(ss),rit,max,Incr,GetInfoEstrazione(id),"---",es,freq,ic)
      Call AddRigaTabella(T)
   Next
   Call SetTableWidth("100%")
   Call CreaTabella() ' ordinata x colonna 8
   '
End Sub
'
Function ScegliFrz
   ReDim aFile(0)
   Dim sDir
   Dim k
   sDir = GetDirectoryAppData & "formazioni\"
   Call ElencoFileInDirectory(sDir,aFile,".frz")
   k = ScegliOpzioneMenu(aFile,,"Scegli formazione")
   If k >= 0 Then
      ScegliFrz = aFile(k)
   Else
      ScegliFrz = ""
   End If
End Function

Marcorun · 16 Ottobre 2023

GRAZIE,perfetta quella del lotto,peccato x il 10elotto.
per quanto riguarda le tabelle,si ..si creano di nuove con spaziometria,però forse a qualcuno può essere utile sapere che io ne creo a quantità industriale con Lotto+ perchè c'è una più grande varietà di opzioni,e poi le trasferisco in spaziometria.
Grazie MIKE58!

Mike58 · 16 Ottobre 2023

Bene per le tue Tabelle.
Chiaro con i codici ed algoritmi giusti penso che si possono creare formazioni ad oc per lotto e lotterie varie,ma è anche giusto quello che tu fai come procedimento.
Peccato Si !!! per il 10elotto e per quel codice che era quello che tu maggiormente volevi.
Il Buon LuigiB purtroppo non poteva a suo tempo pensare a TuTTo.
Ma rivedendo codici esiste
SerieEstrazioneStoricoFT è quindi sarebbe possibile allacciare una tabella con archivioFT, ma qui il discorso forse si complica.
Ci Penso e faccio delle prove.

Ciao

Mike58 · 16 Ottobre 2023

Marco con un script da spaziometria si crea un file di testo Archivio 1o e lotto lo metti sul desktop con nome e percorso tuo.
script crea_archivio

Codice:

Sub Main
   ImpostaArchivio10ELotto(1)
   Dim Nu(20)
   Dim Char,sFile,Riga,sRiga,RigaFile
   Dim VenusNord,Q
   Dim VenusCentro,VenusSud
   Char = ","
   sFile = "C:\Users\Mike58\OneDrive\Desktop\Archivio_10elotto.txt"
   Call EliminaFile(sFile)
   Ini = EstrazioniArchivioDL - 1000
   fin = EstrazioniArchivioDL
   For es = Ini To fin
      k = k + 1
      For p = 1 To 20
         Nu(p) = EstrattoDL(es,p)
         Riga = Riga &(Format2(Nu(p)) & Char)
      Next
      sRiga = RimuoviLastChr(Riga,Char)
      RigaFile = k & "," & Replace(DataEstrazioneDL(es),".","/") & "," & sRiga
      Scrivi k & "," & Replace(DataEstrazioneDL(es),".","/") & "," & sRiga
      Call ScriviFile(sFile,RigaFile,False,True)
      Riga = ""
   Next
   Call CloseFileHandle(sFile)
   Call LanciaFile(sFile)
End Sub

Poi con il 2° script allacci l'archivio FT 10 e lotto creato e le tue formazioni

Codice:

Sub Main
   Dim sFrz,nElemFz,K,T,sFile
   Ini = EstrazioniArchivioFT-300
   fin = EstrazioniArchivioFT
   Tot = fin - Ini + 1
   sFile = ScegliFile("C:\.....\Desktop\.txt")
   Call ApriBaseDatiFT(sFile,20,",",90)
   '
   T = Array(T,"Combinazione","Sorte di Esito","Rit_Corrente","Rit_storico","InCr_Max","Estrazione_Data Storico",_
   "RitMaxSto","Verifica Sort DataSto","Frequenza","Indice Convenienza")
   Call InitTabella(T,,,,,"Arial Black")
   '
   'ReDim Ru(0)
   'Call ScegliRuote(Ru)
   '
   ss = ScegliEsito(1,1,5)
   sFrz = ScegliFrz
   nElemFz = GetQElemFormazione(sFrz)
   '
   Scrivi sFrz ' scrive Nome Formazione
   '
   For K = 1 To nElemFz
      ReDim Nu(0)
      Call GetItemFormazione(sFrz,Nu,K)
      Call StatisticaFormazioneFT(Nu,ss,rit,max,Incr,freq,Ini,fin)
      datasto = SerieEstrazioneStoricoFT(Ini,fin,Nu,ss)
      Call VerificaEsitoFT(Nu,datasto + 1,ss,1,,,es,id)
      ic = Round(freq/Tot*rit,2)
      ritMax = fin - datasto
      T = Array(T,StringaNumeri(Nu),NomeSorte(ss),rit,max,Incr,GetInfoEstrazioneFT(datasto),ritMax,es,freq,ic)
      Call AddRigaTabella(T)
   Next
   Call SetTableWidth("100%")
   Call CreaTabella(8) ' ordinata x colonna 8
   '
End Sub
'
Function ScegliFrz
   ReDim aFile(0)
   Dim sDir
   Dim k
   sDir = GetDirectoryAppData & "formazioni\"
   Call ElencoFileInDirectory(sDir,aFile,".frz")
   k = ScegliOpzioneMenu(aFile,,"Scegli formazione")
   If k >= 0 Then
      ScegliFrz = aFile(k)
   Else
      ScegliFrz = ""
   End If
End Function

dimmi se funziona
Ciao

Marcorun · 16 Ottobre 2023

Certo che funziona! ho rinominato la directory col mio desktop et voilà !
Grazie a te ho aperto un nuovo filone di "studi"....x un tot di giorni i tuoi script mi terranno impegnato

Certo che x te la parola impossibile è sempre da valutare!

sei forte!
GRAZIE!

Cerca

Cerca

Ritardo del rit max

Marcorun

Advanced Member >GOLD<

Mike58

Advanced Member >PLATINUM PLUS<

Marcorun

Advanced Member >GOLD<

Mike58

Advanced Member >PLATINUM PLUS<

Marcorun

Advanced Member >GOLD<

Mike58

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

Marcorun

Advanced Member >GOLD<

Ultima estrazione Lotto

Ultimi Messaggi