Risultati della ricerca

Ci penso.....se si svegliano i neuroni.

Eccovi la mia versione (giusto per attivare i neuroni e sperimentare cose e codici new). Sub Main Dim aP,aV,nEsiti,Ru(1) Ini = EstrazioniArchivio -(360 + 20) fin = EstrazioniArchivio - 20 fine = EstrazioniArchivio Tot = fin - Ini filtro = CInt(InputBox("Quale presenza per...

Attenzione !!! non ho detto che gli archivi di galup non sono esatti. Io ri-dico che questi archivi anche i miei non sono totalmente corretti nell'utilizzo in quanto nelle colonne formate dalle ruote ci sono numeri ripetuti che non possono essere eliminati pena lunghetta non conforme per gli...

Strano a me scrive correttamente la VenusCentro. Sub Main Dim Nu(5) Dim Char,sFile,Riga,sRiga,RigaFile Dim VenusNord,Q Dim VenusCentro,VenusSud Char = "," sFile = "C:\Users\miche\OneDrive\Desktop\VenusCentro.txt" Call EliminaFile(sFile) Ini = 8117'EstrazioneFin - 30...

Ciao Codice l'ho provato ed è funzionamnte. come ho detto devi abilitare l'array che ti interessa e modificare la scrittura con percorso del file. sFile = "C:\Users\miche\OneDrive\Desktop\VenusCentro.txt" oltre che tutte le venus di richiamo nei codici. Dai che c'è la fai, non farti imboccare.

Grazie Raf faccio quello che posso, ma non è facile capire tutto, comunque cerco sempre di far del mio meglio. Fare script un pochetto mi piace ed è soprattutto una buone palestra per allenare la mente ,chiaro come dico sempre senza presunzione di perfezione. Ciao

Eccolo P.s. non saprei quanto sia corretto e comunque ripeto non mi piace mettere mano sugli script e nello specifico dopo un pò di tempo. si fa più fatica ad individuare il costrutto che fare una cosa o progetto ex novo. ciao Sub Main '++++++++++++++++ Dim n,T,V,Ru(1) Ini = EstrazioneFin...

x Rafele Effettivamente non mi piace rimettere mano ad uno script per uno scopo per poi estrapolare anche altri scopi e parametri. Ci ho messo un pochetto di tempo a farlo interagire e ti posso mettere il totale dei numeri trovati nelle estrazioni in esame. Sub Main Dim...

x Salva57 Si Te lo anche scritto, se ti serve lo te faccio anche diviso 2 cinquine come hai indicato con la numero 5 ripetuta. Essendo 2 giocate cambiano gli esiti al 70 % mentre rischia di ridursi l'utile. comunque eccolo. Sub Main Dim Nu(1),Ru(1),Posta(10),cinq1(5),cinq2(5) Posta(6) = 1...

Solo Per curiosità fatto script numeri in cadenza e verifica sortita in posizione. La verifica è su tutta la cadenza. Gli esiti sono in positivo al 50% e chiaramente gli utili andranno in negativo del 30-40 %. verificate. Sub Main Dim Nu(1),Ru(1),Posta(10) Posta(6) = 1 Posta(7) = 1...

Per Fortuna era salvato. eccolo per VenusNord attiva le alre ruote basta disattivare la prima ed attivare l'altra VenusNord = Array(0,5,4,9,10) 'VenusCentro = Array(0,8,2,3,12) 'VenusSud( = Array(0,6,1,7) la venus Sud produce 15 numeri avendo cura di modificare nello script la Venus.... di...

Si lo script dell'aggiornamento poi lo posto, lo avevo fatto ma non lo trovo più evidentemente non l'ho salvato, quindi devo rifarlo. Appeno posso lo faccio. Ciao

Ciao Codice, Secondo questi archivio così creati non possono andare bene per una raccolta dati anche in Codici FT (File di Testo). gli archivi che si possono creare per suffisso Ft devo avere parametri uniformi, ossia 1 - Dato progresssivo 2 - data in formato gg/mese/anno 3 - colonna separata da...

Non Lo so. Raf. Modificare script già compilati per uno scopo , diventa complicato poi ottenere altre risultanze. Ti metto un ' altro modus operandi che immettendo le spie in manuale (direttamente nello script con indicazioni remmate) e con scelta mese e anni come sopra, ottieni i tuoi...

x Batter devi usare una Redim Ru(0) anzichè Dim devi usare ScegliRuote(Ru) e scrivere le ruote anzichè siglaruota(r) con StringaRuote(Ru) dovrebbe essere tutto. comunque eccolo Sub Main Dim nu() ReDim ru(0) ' cambiata ScegliRuote(ru) ' cambiata 'r = InputBox("Quale ruota",,8)...

se invece ti serve per i numeri + frequenti nel mese dato un range di anni eccolo Sub Main() Dim x(90),ru(1),nu(1) r = InputBox("Inserisci la ruota di ricerca","RUOTA",9) kk = CInt(InputBox("Inserisci mese di ricerca","MESE",Month(Now))) An1 = CInt(InputBox("Inserisci INIZIO ANNO di...

Bene, ma senza un dato oggettivo posso simulare ben poco. Se ti serve approfondire vediamo cosa si può fare. invece Se ti serve uno script numeri per mese prova questo. fatto qualche anno fà, ma tuttora un ottimo script per verifiche mese. Sub Main Dim nu() Dim ru(1) r =...

Sub Main Dim Nu(5),n(3),kk(12) Ini = EstrazioneFin-600 fin = EstrazioneFin '---------------------- r = InputBox("Scegli Ruota",,1) n(1) = CInt(InputBox ("Scegli 1° Numero ",,12)) n(2) = CInt(InputBox ("Scegli 2° Numero ",,22)) n(3) = CInt(InputBox ("Scegli 3° Numero...

Raf, sicuramente non è quello che chiedi,ma purtroppo senza dati di prelievo da un archivio, mancano le ancore da dove partire. Comunque ti faccio una bozza di script spiegazioni Dato un Range estrazioni (circa 600 aumentabili a piacere) Ruota scelta numeri scelti e sommati con estrapolazione...

Ciao, bene alcune spiegazioni, poco chiare altre. Comunque ci penso vedo cosa posso fare....