Risultati della ricerca

Lo scompatti e lo metti (estrai) in una cartella e avrai exe l'eseguibile Lottery con i suoi archivi.

Ciao C-64, io la tua utility la utilizzo ed è comodissima oltre che aggiorna bene e subito le estrazioni. Sono qui a chiederti mancherebbe una lotteria il SiVinceTuttoSuperenalotto Non è che riusciresti ad implementarla. Un salutissimo e grazie ancora per quello che potrai fare. Mike (y)

nello script del superenalotto ci sono delle righe che permettono la gestione del numero Jolly e Star, io nel 10 e lotto la avevo tolta se la vuoi inserire è questa ReDim sEstr(08) : Dim nMaxPos,sNumeri If idEstr <= 914 Then nMaxPos = 07 : sEstr(08) = "99" Else...

Rubino vedi videata di aggiunta archivio da Form Penso si possa usare stesso procedimento anche da smess prova a vedere Ciao

Rubino lo script per creare l'archivio 10 e lotto , penso di averlo fatto io e funziona lo posto Option Explicit 'Aggiornatore archivio SuperEnaLotto FrameworkScriptGiochi Sub Main Dim nEstrInizio,nEstrFine Dim DataIni,DataFin Dim sFile Dim sChrSep Dim sDirDest Call...

Ciao Rubino. Purtroppo No !! Non ho fatto nessun Archivio 10 e lotto Serale , ed anche l'uso di TwinBasic Smess è andato nel dimenticatoio. Per i parametri archivi FT mi sembra di ricordare che sono quelli che hai elencato. Tuttavia ti posso mettere lo script (Spaziometria) che aggiorna...

Però Zetrix, innanzitutto bisogna seguire le indicazioni che metto in fase di spiegazione script. Poi SI !!! hai sbagliato il Posto del for Next. e soprattutto hai sbagliato a mettere il vettore di 20 numeri nella imposta giocata. Davvero lo script per me è finito Qui!!! ogni altra modifica è a...

Eh eh Marco è possibile anche questo. Sub Main() Dim ruote(10) Dim numeri1(10),anumfreq,n Dim posta(5) posta(2) = 1 posta(3) = 0 posta(4) = 0 posta(1) = 0 ruote(1) = 1 ' cambia ruota '-------------------- Const cNum = 1 Const cFrq = 2 Const cPre = 3 Const...

Ok Marco l'importante è capire il concetto. Però... Fare un ciclo for ti fa risparmiare tutta le altre scritture e non ti serve il fuori 90 (le posizioni sono massimo 90) Poi per inserire lo script nell'apposito codice ti basta cliccare sulle ultime icone tre puntini(più Opzioni) e ti...

Zetrix, io ho detto si Può usare il Codice NumeroPosRit, ma nulla vieta se si è capace di percorrere altre vie. Poi il tempo impiegato è minimo 15 secondi che con il codice turbo scende a 5 secondi. Impiega troppo tempo e non va bene non è vero.

Ciao Marcorun con il codice statestratti puoi mettere 20 e ti elenca i primi 20, ma poi lo script va in errore inquanto sul codice Gioca puoi tenere in gioco massimo 10 numeri. e poi non è possibile avere salti nella sequenza ossia 11-20. Per avere quello che chiedi può essere usato il codice...

Per chi ha problemi circa l'aggiornamento , io invece sto usando questo script che preleva le estrazioni da altra fonte e funzione bene. (aggiorna le estrazioni già dopo 15 min) Non l'ho visto postato anche se è una revisione di Joe. "Script per Spaziometria V.4.0 di LuigiB & Giomi Rev. By Joe"...

Ciao C-64 , Gran bella Utility. Un grande Grazie per l'aggiunta VinciCasa. Ottima è utilissima. (y)👏👏👋

No io non ti ho detto che il metodo non era confacente, ma il mio primo script postato se non era confacente( adatto appropriato ) con la tua richiesta con qualche altra dritta e dettaglio in più si potevano apportare correttivi. Capisco che è difficile capirsi, ma a capire malissimo ne passa...

Ciao Mastrogino,ho letto velocemente quello che vorresti ottenere, e ho capito ben poco. Chiaro.. ho letto velocemente e se per te è chiaro il tutto per me adesso rappresentano una accozzaglia di numeri senza un senso. La Mia domanda è perchè mi hai fatto impazzire a fare lo script dei numeri...

non So cosa ci devi fare con i numeri immessi manualmente e come dopo esserci u pochetto impazzito eccotene una bozza Sub Main Dim aN(12) '--------------------------------- aN(1) = "01,02,03,04,05" aN(2) = "56,88,79,61,47" aN(3) = "03,04,05,06,07" aN(4) = "04,05,06,07,08"...

oppure solo la somma richiesta Sub Main Dim Nu(5),Ru(1) Ini = EstrazioneFin - 100 fin = EstrazioneFin For es = Ini To fin For r = 1 To 12 If r <> 11 Then For p = 1 To 5 Nu(p) = Estratto(es,r,p) sm =...

Mastrogino si capisce poco. Per dare una prima risposta ti metto tutte le estrazioni, tutte le ruote la somma di tutti gli estratti evidenzia la somma 61 con affiancato il 1° e 5* estratto. Valuta. Se non confacente sarebbe meglio non essere avari circa i dettagli dei progetti. Sub Main Dim...

ti dice che devi mettere la chiamata ovvero call addrigatabella(...........................). quando usi le parentesi ci vuole la chiamata Call , e possibile anche senza chiamata call ma non ci vogliono le parentesi.

Cinzia, vedi se può andar bene Sub Main Dim N(2) For n1 = 1 To 5 For n2 = n1 + 1 To 5 If n2 > n1 Then N(1) = n1 : N(2) = n2 Scrivi N(1) Scrivi N(2) Scrivi End If Next Next End Sub 1 2 1 3 1 4 1 5 2 3 2...