I contenuti più recenti di Mauro-emme

Sub Main() Dim r(1), ambata(1), poste(10) ' --- CONFIGURAZIONE --- r(1) = 9 ' Ruota di Torino (Indice fisso: 9) pos1 = 1 ' 1° Posizione determinata pos2 = 2 ' 2° Posizione determinata poste(pos1 + 5) = 1 poste(pos2 + 5) = 1 ini =...

'Giochino su Palermo di SatuRno17 Sub Main() Dim r(1), quartina(4) Dim poste(4) ' Definizione poste: Terno e Quaterna ' (Il valore 1 indica l'importo ipotetico in Euro) poste(2) = 1 ' Puntata su Ambo poste(3) = 1 ' Puntata su Terno poste(4) = 1 ' Puntata su...

Io sulla IA di Google do le istruzioni per fare lo script che segue. Dalle risposte conosce Spaziometria e le sue funzioni: Sub Main() Dim r1, r2, p, es, n1, n2, d1, d2, nGioco, nVert Dim ini, fin, esRetro, rSel, esFut, colpi, pRetro, pFut Dim ruote(2), giaUscito, vintoGioco...

04/12/2025 Cadenza 2, posizione isotopa, ruote consecutive. Numeri 12 e 72, Togli la decina rimangono 1 e 7. Unisci i due numeri hai 17 e il vertibile 71. Si giocano entrambi sulle ruote di calcolo. Esce 17 su Mi. L'estrazione del 05/12/2025 i numeri sono 1 e 6 cioè 16 e 61. Sortisce il 09 su...

Option Explicit Sub Main Dim n, ruote(1) Dim ini, fin, es, r, p1, p5, d1, d5, u5, somma, fgr Dim k, i, cont, colpi, retestr, retsortita, retrit, retid Dim spesa, Vincita, bilancio colpi = 9 spesa = 0 Vincita = 0 ini = EstrazioneFin - 100 fin = EstrazioneFin...

Option Explicit Sub Main Dim n, ruote(1) Dim ini, fin, es, r, p1, p5, d1, d5, u5, somma, fgr Dim k, i, cont, colpi, retestr, retsortita, retrit, retid Dim spesa, Vincita, bilancio colpi = 9 spesa = 0 Vincita = 0 ini = EstrazioneFin - 100 fin = EstrazioneFin...

Sub Main() Dim Ini,Fin,es,id Dim nAmb,nAb1,n4Bari,sumDig,n4Pa,n2Na,n2To,quad Dim aPoste(2),aRuote(2),aAmb(1),aAmbo(2) ' --- INPUT --- Ini = CInt(InputBox("Estrazione di inizio controllo?",,9600)) Fin = EstrazioneFin ' --- IMPOSTAZIONI --- aRuote(1) = 1 '...

Sub Main() Dim nSpia,rSpia,nAmb,nAb1,nAb2,nAb3 Dim nColpi,Ini,Fin,es,p,id Dim aPoste(5),aRuote(2),aAmb(1),aQuart(4) ' --- INPUT --- Ini = CInt(InputBox("Da quale estrazione iniziare?", ,9500)) nColpi = CInt(InputBox("Quanti colpi?", ,13)) ' --- SETTAGGI ---...

Modificato con spiegazione metodo: Sub Main Dim n(20), ruote(1) Dim ini, fin, es, r, p1, p5, d1, d5, u5, somma, fgr Dim k, i, cont, colpi, retestr, retsortita, retrit, retid Dim spesa, Vincita, bilancio colpi = 9 spesa = 0 Vincita = 0 ini = EstrazioneFin - 100...

Sub Main Dim n(20), ruote(1) Dim ini, fin, es, r, p1, p5, d1, d5, u5, somma, fgr Dim k, i, cont, colpi, retestr, retsortita, retrit, retid Dim spesa, Vincita, bilancio colpi = 9 spesa = 0 Vincita = 0 ini = EstrazioneFin - 100 fin = EstrazioneFin...

Ho scoperto che Spaziometria v. 1.6.54 aggiorna perfettamente i dati! Non serviva fare script. Però ho dovuto disinstallare la vecchia versione e reinstallare quella nuova.

Option Explicit Sub Main Dim sFileZip, sFileTxt, sFileBd, sLink, sPathArc Dim nEstrTot, sDataLastEstr, Ia, nSalvate Dim aRighe, k, sDataEstr, aEstr, r, e, parti, rigaAttuale ' Configurazione percorsi sLink = "www.brightstarlottery.it" sFileBd = GetDirectoryAppData &...