Risultati della ricerca

Probabilmente era meglio che stavo buono,sicuro ho capito male la discussione. A suo tempo,l'ideatore di Futuro2 chiese a Mike di creare uno script (questo) per cercare un numero uscito 4/5 volte in 18 estrazioni che servisse da spia da mettere in Futuro2,così che Futuro2 restituisse le migliori...

Se non ricordo male ,MIKE58 lo fece per cercare solo l'ambata da dare in pasto a FUTURO2,(era questo l'argomento di questa discussione)quindi gli abbinamenti di questo script non si tengono conto. Nulla esclude che si può modificare.

Premetto che è un lavoro del grande MIKE58. La modifica che chiedi è forse questa? : Sub Main ' x Batter Dim T,abb,aN(3),afreq(3),Ru(1),L(4) fin = InputBox("FINE",,EstrazioneFin) Ini = fin - 18 fine = EstrazioneFin Scrivi Ini & vbTab & fin T =...

Scusate l'introMISSIONE,state forse cercando questo? Sub Main ' x Batter Dim T,abb,aN(3),afreq(3),Ru(1),L(4) Ini = EstrazioneFin - 18 fin = EstrazioneFin fine = EstrazioneFin Scrivi Ini & vbTab & fin T = Array(T,"Ruota","Numero","Presenze","Ritardo","Abbinamenti Num","Freq...

Quindi quale è quello corretto?🙃

Ciao...ti metto quello che ho messo qualche post precedente a cui avevo chiesto una modesta modifica e che nessuno si è abbassato a farla! Sub Main Dim p1,p2,p3,p4,p5,p6,p7,ini,fin,es,Primo_num,Secondo_num,Terzo_num,Quarto_num,Quinto_num,sesto_num,Settimo_num Call ImpostaArchivio10ELotto(1) ini...

Un aiuto per questo semplice script : vorrei che visualizzasse in output , solo le giocate in corso . GRAZIE! Sub Main Dim p1,p2,p3,p4,p5,p6,ini,fin,es,Primo_num,Secondo_num,Terzo_num,Quarto_num,Quinto_num,sesto_num Call ImpostaArchivio10ELotto(1) ini = EstrazioneFin - 50 fin = EstrazioneFin...

Stranamente funziona fino al caso 23 ma senza mostrare la lunghetta.....poi dal 24 in su da errore Sub Main Dim p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,ini,fin,es,Primo_num,Secondo_num,x,z Dim Terzo_num,Quarto_num,Quinto_num,sesto_num,Settimo_num,ottavo_num,nono_num,decimo_num Call...

Se non chiedo troppo....ho provato a mettere scrividistribuzionecasiincorso ma non mi funziona. Sub Main Dim p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,ini,fin,es,Primo_num,Secondo_num,x,z Dim Terzo_num,Quarto_num,Quinto_num,sesto_num,Settimo_num,ottavo_num,nono_num,decimo_num Call...

GRAZIE SALVO....gentilissimo e bravo....spero di poter contraccambiare...(maagaari !):)

Salve....avrei bisogno di una piccola modifica a questo script,in modo che quando si verificano numeri ripetuti nella stessa lunghetta(in questo caso di 10 numeri)non la metta in gioco,neanche che metta in gioco i restanti numeri non ripetuti,e quindi non ne tenga conto neanche il resoconto...

:cry: Allora avevo visto male..........Grazie Claudio8(y)

Ciao,grazie ....sono interessanti i tuoi script,ci faccio un po di prove,ma quello che ho messo io sarebbe utile soprattutto x esaminare le formazioni cosi da provare anche lunghette di varie dimensioni..pensavo che uno ai tuoi livelli avrebbe modificato qualche riga x escludere l'ambo. GRAZIE...

Qualcuno riesce a fare una piccolissima modifica a questo script? Vorrei che calcolasse SOLO la sorte di ambetto , senza ambo.....GRAZIE! Sub Main Dim idEstr,Ruota Dim Inizio,Fine Dim nClasseFrz Dim id,k Dim nElemFrz Dim nQAmbetti Dim nEstrTot Dim nFrqMedia Dim sNomeFrz Inizio = EstrazioneFin -...

Ti ringrazio x avere pensato a me x una mano.......aimè stavolta è parecchio dura x le mie possibilità. Inutile dire che che ci ragiono sù lo stesso!:unsure:

Grazie....a me piace provarci sempre,anche quando so già che non sono all' altezza,ho aspettato un po' che qualcuno bravo come te venisse in supporto a Mission ......ma ho voluto dare una mano nel mio piccolo,visto che Mission ha condiviso la sua idea x tutti!

PROVA!!!!! Sub Main() 'metodo proposto da Antonio :laterali (Cinzia) Dim nua(3),nub(3),nuc(3),nud(3),nue(3),ru(1),poste(3) poste(1) = 1:poste(2) = 1 :poste(3) = 0.50 fin = EstrazioneFin ini = fin - 27 For es = ini To fin: Messaggio(es) r = 1 ru(1) = r nua(1) = Estratto(es,r,1) - 1 : nua(2) =...

Ci ragiono un pò,ma credo che non riesco :cry:

Prova: Sub Main() 'metodo proposto da Antonio :laterali (Cinzia) Dim nua(3),nub(3),nuc(3),nud(3),nue(3),ru(1),poste(3) poste(1) = 1:poste(2) = 1 :poste(3) = 0.50 r = InputBox ("RUOTA",,1) fin = EstrazioneFin ini = fin - 27 For es = ini To fin: Messaggio(es) 'r = 1 ru(1) = r nua(1) = Fuori90...

Credevo che x cercare la spia si usa l'altro script di Mike......il 27 è di default...il numero spia lo devi mettere tu.