Risultati della ricerca

Buona Domenica a tutte/i. Ho aggiunto alcune semplici modifiche allo script, che c'è al primo messaggio. Sono utili per attuare e fornire un ragguaglio veloce, sullo stato dell'aggiornamento, sulla versione dello script, e soprattutto dell'avanzamento del livello degli indici di...

Ciao Sandrina. Non posso darti una risposta precisa perché non conosco la situazione del tuo archivio. Come aggiornavi, prima di aver usato questo script, più o meno quante estrazioni ha aggiunto ? Se fornisci queste informazioni ed inserisci sia l'indice annuale, che il totale delle...

Interessante confronto! Grazie. Volevo chiederti come aggiorni questi 2 programmi differenti ? :)

Ho corretto alcuni bug ed implementato alcune nuove funzioni. In particolare questa nuova versione permette di importare tutto l'archivio, anche quando Spaziometria ha "perso" o è stato cancellato il suo. Così pure permette di aggiungere molte estrazioni separando e numerando correttamente...

Ringrazio assieme a tutti gli affezionati lettori, anche bubù. In sintesi sono proposti in gioco 6-7- 8-9-10 numeri per Ambo a Ruota. Il pronostico è dinamico e varia ad ogni Estrazione. Assieme ai 18 risultati previsti c'è anche qualche Terno come quello qui elencato: Estrazione...

Tra tutte le Ruote nelle ultime 180 Estrazioni, i ritardi che hanno realizzato il maggior numero di Ambi sono 18. Nella ruota di Bari. Le coppie di numeri avevano RITARDO 5 e RITARDO 7 ESTRAZIONI. In SubOrdine nel realizzare un buon numero di Presenze ci sono anche i RITARDI 4-7 e 4-5...

Grazie. L'ho modificato un pochino per controllare se era in grado di gestire casi più complicati cioè con le 4 lunghette mescolate. :)

Ti posso dare lo script che realizza la tabella dei RITARDI. Tuttavia le caselle di cui al titolo sono tutt'altra cosa come pure il come s'è realizzato il pronostico. :) Option Explicit 'RITARDI By Joe Sub Main Dim Es,R,P,E Titoli For Es = EstrazioneFin - 17 To EstrazioneFin...

Cinzia, avevo capito una cosa molto più difficile da codificare, e mi sono indirizzato a realizzare quanto mi ero preposto. Ho dovuto riscrivere, la seconda parte del codice per farla aderire all'esempio della tua richiesta. Intanto ringrazio, come sempre, Salvo e gli altri attenti lettori...

Ciao Cinzia, Ho solo Spaziometria con cui provare. Forse potrebbe essere qualcosa di simile ? Option Explicit Sub Main Dim N(4),I,II,Pt N(1) = Array(1,2,3,4,5,6) N(2) = Array(1,2,4,9,30,38) N(3) = Array(1,4,9,39,35,4) N(4) = Array(1,5,4,6,29,80) For I = 1 To UBound(N) - 1...

Buon giorno a tutte/i. Qualche messaggio fa avevo scritto che appariva evidente la Presenza di molti estratti caduti con il Ritardo di 7 Estrazioni. Ho notato anche che Milano aveva la più bassa rendita (con solo 3 o 4 successi nelle ultime 10-12 Estrazioni) Oltre essere la più ritardataria...

Ciao Milla, dovrebbe essere così: Option Explicit Sub Main Dim Es,R,P,E,O,Q Q = InputBox ("Es = 15 ","Quante Estrazioni ?",15) For Es = EstrazioneFin - Q - 1 To EstrazioneFin Scrivi DataEstrazione(Es) Scrivi For R = 1 To 12 If R = 11 Then R = 12 O...

Provo a descrivere cosa fa quell'istruzione Sintassi : Esito (numero giocata) Restituisce true se l'ultima estrazione gioca ha avuto esito positivo. Il numerogiocata deve essere compreso tra 1 ed il massimo numero delle giocate, altrimenti restituirà False. La giocata è positiva se almeno...

Ho provato lo script presente al primo messaggio e si esegue senza necessità di correzioni in L8. Esito è una delle istruzioni necessarie allo svolgimento dello script. Se la versione (vecchia) di L8 non riconosce valida questa istruzione, le soluzioni possono essere due. O cercare un L8...

Con riferimento a quanto s'è accennato negli ultimi script, penso che il miglior risultato recente sia quello presentato messaggio #11 Cioè il Terno a Ruota in Cinquina Sincrona in 8 Colpi, a Palermo. Perché trattandosi di cinquine che raccolgono in ogni singolo estratto tutti i 5 possibili...

Potrebbe essere che una versione molto vecchia di L8 non riesca ad elaborare le istruzioni più nuove: Ho reimpostato lo script per renderlo maggiormente compatibile. Option Explicit Sub Main Dim Es,R,P,E,O Es = EstrazioneFin Scrivi "Estrazione del " & DataEstrazione(Es) Scrivi...

E' nelle mie intenzioni valutare queste quantità. Ma non ho ancora sviluppato niente al riguardo. Suppongo che risultati economicamente migliori si ottengano con gli Estratti e con gli Ambi, ottenibili con un minor numero di numeri. Per ora come appena scritto non ho nessun riscontro per...

Ciao Alien, No. Mi spiace ma non faccio più niente per giochi diversi dal Lotto. :)

Ciao Milla, Prova questo script : Option Explicit Sub Main Dim Es,R,P,E Es = EstrazioneFin Scrivi "Estrazione del " & DataEstrazione(Es) Scrivi For R = 1 To 12 If R = 11 Then R = 12 Scrivi NomeRuota(R) & " ",0,0 For P = 1 To 5 E = Estratto(Es,R,P)...

Con l'ultima estrazione altro risultato importante: :) Buona domenica a tutte/i.