Novità

Qualcuno riesce?

Giusto! c'è anche Claudio spesso disponibile che ringrazio tanto.
Lo script gira bene sul mio archivio txt ,ma non vedo i ritardi che avevano gli estratti caduti!
Lo script di Mike usa la funzione ritardo per altri scopi.
Te lo ho riscritto ad hoc.
Codice:
Option Explicit
Sub Main
     Dim nu(5),T,V,aN(55)
     Dim sFileBd,Ini,FIn,x,es,p
     Dim sChrSep
     sChrSep = ","
     sFileBd = "C:\Users\my\OneDrive\Desktop\ArcomodEx.txt" ' Qui specificare il proprio percorso e file archivio
     Call ApriBaseDatiFT(sFileBd,5,sChrSep,55) ' x MillionDay
     Ini = EstrazioniArchivioFT - 59
     FIn = EstrazioniArchivioFT
     Scrivi " Ritardi che avevano i numeri estratti"
     ReDim T(7)
     T(1) = "Data"
     T(2) = "Estratti"
     For x = 1 To 5
          T(x + 2) = "rit." & x & "°E"
     Next
     Call InitTabella(T)
     For es = Ini To FIn
          ReDim V(7)
          V(1) = DataEstrazioneFT(es)
          V(2) = StringaEstrattiFT(es)
          For p = 1 To 5
               x = EstrattoFT(es,p)
               V(2 + p) = EstrattoRitardoFT(x,0,es - 1)
          Next
          Call AddRigaTabella(V)
     Next
     CreaTabella
End Sub

Saluti
 
1739630119663.png

Qui ci sono solo le strazioni regolari, non le extra. Per fare la macro ho dato in pasto lo Script di claudio8 alla AI, con qualche modifica.
Tutto ciò che funziona è merito di claudio8, qualsiasi casino, errore, orrore è merito mio :cool:
Le modifiche: possibilità di inserire data inizio e fine, calcolo di quante volte, nel periodo richiesto, il ritardo era tra 1 e 9, 10 e 18 ecc.
Le altre macro mi stanno dando notevoli problemi, secondo una di queste il 38 ritarda da 14567 estrazioni... Giocatelo!
Baciccia
 
Vedi l'allegato 2297600

Qui ci sono solo le strazioni regolari, non le extra. Per fare la macro ho dato in pasto lo Script di claudio8 alla AI, con qualche modifica.
Tutto ciò che funziona è merito di claudio8, qualsiasi casino, errore, orrore è merito mio :cool:
Le modifiche: possibilità di inserire data inizio e fine, calcolo di quante volte, nel periodo richiesto, il ritardo era tra 1 e 9, 10 e 18 ecc.
Le altre macro mi stanno dando notevoli problemi, secondo una di queste il 38 ritarda da 14567 estrazioni... Giocatelo!
Baciccia
Il 38 a Palermo è uscito :oops::oops::oops:
Baciccia
 
Il 38 a Palermo è uscito :oops::oops::oops:
Baciccia
Naturalmente il 38 uscito a Palermo era una boutade.
Il 38 l'avevo inventato tanto per significare l'assurdità di certi risultati. Diffatti se guardate la ruota non c'è.
Ho solo guardato se, per caso, il 38 era uscito da qualche parte. E ho fatto il Post.
Non avete idea, tra i furbetti, quanto questa tecnica sia applicata. Non cascateci.
Ba ciccion (acc. quasi 100 chili! In 50 cm d'altezza)
 
Ciao @Baciccia nel tuo file xls hai qualcosa con le triple di figura ?
Se la risposta è no ti andrebbe di abbozzare qualcosa ?
Ti posso fornire una mia idea ti va ?
Il file è fermo la doppia estrazione porta un insieme di errori (o situazioni non previste) abnorme. Qui uno script si rivela superiore, se chi lo fa, lo sa fare. Io non lo so fare.
Aspetto una AI un pochino più "CAPACE", non come ora "capace" di fare casini immensi.
Esempio: il semplicfe tabellone al ritardo 0: poiché le estrazioni normali giornaliere sono due, uno o più numeri possono ripetersi:
la macro però SA che al ritardo 0 ci devono essere 10 numeri e mette anche i doppioni. Tutti i tentativi che ho fatto per evitare questo hanno comportato errori a cascata sui restanti ritardi. (se mettessi anche le estrazioni Extra, sia io che la AI ci suicideremmo mangiando 36 chili di ravioli con sugo di salsiccia io, e con un voltaggio di 20.000 volt la AI.
Baciccia
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 29 aprile 2025
    Bari
    03
    07
    32
    05
    33
    Cagliari
    66
    62
    27
    39
    26
    Firenze
    07
    41
    70
    75
    53
    Genova
    10
    26
    64
    44
    74
    Milano
    30
    76
    66
    51
    65
    Napoli
    56
    80
    34
    11
    29
    Palermo
    74
    37
    48
    13
    38
    Roma
    02
    21
    18
    51
    68
    Torino
    64
    06
    32
    88
    54
    Venezia
    66
    01
    11
    74
    54
    Nazionale
    65
    63
    50
    55
    33
    Estrazione Simbolotto
    Genova
    45
    10
    12
    24
    40

Ultimi Messaggi

Indietro
Alto