Novità

Ciao frate' Mike58 , chiedo aiuto.

antopun

antopun

Senior Member
:rolleyes:Ciao frate' , l'ultima volta che ci siamo sentiti era prima di natale quindi la prima cosa e' che ti auguro un grande anno nuovo, secondo: frate' gentilmente dato che gli script che avete posto nell'ultima discussione (script per 10elotto ogni 5min esistono?? ) non mi funzionano , nonostante io abbia la penultima versione 1,3,25 volevo chiederti cortesemente se puoi fare uno script (ho provato a fare uno script tutto mio ma anche seguendo le lezioni di baffo non ci sono riuscito) al 10e' l8 5min con queste indicazioni. Deve cercare la distanza tra il primo numero (es:2) con il secondo, poi con il terzo e' cosi' via, poi chiaramente devi passare dal primo al secondo (primo numero 2 secondo numero 5, quindi distanza tra il secondo con il terzo ,poi quarto e' cosi' via. fatto questo (scusami lo so che ti sto chiedendo troppo, ti chiedo gentilmente scusa frate') dovresti fare in modo che prosegue calcolando anche la somma , sempre come sopra. Mi auguro di non romperti i cosidetti con questo mio script, ma sappi che io veramente non so neanche da dove incominciare te lo giuro e' credimi mi sono arreso perche' stavo impazzendo. Spero che a tempo perso, quando avrai la possibbilita' di dedicarti anche solo per 5 min ogni tanto tu lo possa costruire, anche perche' credo che come idea di calcolo per questo gioco possa essere non dico buono ma abbastanza benino per ricerche su combinazioni che si possono ripetere dando qualche piccola soddisfazione. Credo che come tutti gli altri script da te composti devono portare il tuo nome come "marchio fabbrica" in modo che in futuro l'ideatore mike58 abbia l'onore di prendersi tutti gli elogi di noi tutti che frequentiamo il forum, ma sopratutto che oltre ad imparare , contribuiamo a qualche piccola idea. Concludendo ti RIPORGO le mie scuse e' ti saluto con affetto . antonio. :rolleyes:
 
Ciao Antonio, grazie per gli elogi e speriamo che sia un anno migliore per tutti.
Purtroppo in questi giorni sono un pò impegnato con problemi famigliari dei miei vecchi e mi restano poche energie per dedicarmi attivamente al forum.
Quanto chiedi non mi sembra difficile da realizzare mi serve solo la dovuta concentrazione unitamente al tempo, vedrò di fare il possibile.
Per gli altri script che non funzionano mi sembra strano, hai provato ad aggiornare gli archivi ed avere almeno le estrazioni aggiornate all'ultima settimana?
perchè altrimenti possono andare in conflitto con la lettura degli archivi.
Comunque abbi un pò di pazienza e se altri amici scripter vogliono partecipare sono i ben accetti.

Un Saluto carissimo

Mike58
 
per output
questo script calcola la distanza da primo numero ma puoi cambiare
idea dell'amico rubino
Codice: 
Sub
[SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Main[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]''''metodo 10 e lotto[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'--------------------------------------------------------[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]num[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](2)[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nm[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](20)[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]dis[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](89)[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ImpostaArchivio10ELotto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](2)[/SIZE]
[SIZE=2]
	fin 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrazioniArchivioDL[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	Storia 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]InputBox[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]estrazione iniziale..[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]",,fin)[/SIZE]
[SIZE=2]
	qe 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]InputBox[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]quante estrazioni analizzare..[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]",,750)[/SIZE]
[SIZE=2]
	p 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]InputBox[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Posizione fissa..[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]",,1)[/SIZE]
[SIZE=2]
	qt 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]CInt[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]InputBox[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]quanti Distanze vuoi..[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]",,10))[/SIZE]
[SIZE=2]
	Ini 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] storia [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Int[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](qe)[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] Ini [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] Ini [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] fin[/SIZE]
[SIZE=2]
		idestr 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] Ini[/SIZE]
[SIZE=2]
		
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'''scrivi ini[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]		
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'''carica schiera 20 numeri estratti[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]
[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]		
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] h [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 2 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 20[/SIZE]
[SIZE=2]
			di 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrattoDL[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](idestr [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1,h) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrattoDL[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](idestr [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1,p)[/SIZE]
[SIZE=2]
			
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]dis[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](di) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]dis[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](di) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1[/SIZE]
[SIZE=2]
		
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	k 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 201[/SIZE]
[SIZE=2]
	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] kk [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 20[/SIZE]
[SIZE=2]
		K 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] k [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1[/SIZE]
[SIZE=2]
		
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] ct [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]<=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] qt [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]			
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] t [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 89[/SIZE]
[SIZE=2]
				
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]dis[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](t) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] K [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]					
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Distanza [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](t) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]       [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]dis[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](t)[/SIZE]
[SIZE=2]
					ct 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] ct [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1[/SIZE]
[SIZE=2]
				
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]			
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]		
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]	
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]
End
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Sub[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE]
 
[ciao mike58 volevo chiederti qual'è la funzione per impostare l'archiviowfl[/QUOTE]

Ciao Keeper come sopra non ho molto tempo prendi spunto dall'esempio script di evidenzia numeri


Sub Main()
'EVIDENZIA ARCHIVI WINFORLIFE
Dim Nn(10)
QT = InputBox("Quanti Numeri","Numeri",10)
ScegliNumeri(Nn)
Ini = EstrazioneFin - 20
Fin = EstrazioneFin
Scrivi "........ Da " & DataEstrazioneWF(Ini) & " a " & DataEstrazioneWF(fin),1
'Scrivi
Scrivi String(120,"="),1
ColoreTesto 1
Scrivi "Evidenzia numeri giocati sulla combinazione win for life ",1
ColoreTesto 0
Scrivi String(120,"-")
ColoreTesto 2
Scrivi "Numeri in gioco " & StringaNumeri(Nn),1
ColoreTesto 0
Scrivi String(120,"-")
For Es = Ini To Fin
tot = 0
Scrivi DataEstrazioneWF(es) & " ",0,0
For P = 1 To 10
ColoreTesto 1
For x = 1 To Qt
If EstrattoWF(Es,P) = Nn(x) Then
ColoreTesto 2
tot = tot + 1
End If
Next
Scrivi Format2(EstrattoWF(Es,P)),1,0
ColoreTesto 0
Scrivi ".",0,0
Next
ColoreTesto 6
If ToT =>7 Or ToT <=3 Then Scrivi " - Punteggio max -> " & tot & " - Attenzione vincita ",1:End If
ColoreTesto 7
If Tot =>4 Or Tot <=6 Then Scrivi " - Punteggio max -> " & tot,1:End If
ColoreTesto 0
Next
Scrivi String(120,"-")
End Sub
 
attenzione , le funzioni EstrazioneFin ed EstrazioneIni sono per il lotto ...
 
me lo ero postoanche io il problema ma sull'hlep non riesco a trovare coe impostare l'archivio
 
alt !! ancora piu attenzione ... Keeper lo script è tutt giusto solo che le funzioni EstrazioneIni ed estrazioneFin non servono per impostare l'archivio ma il range di analisi (prendendolo da quello impostato nel programma)
Queste funzioni come avevo detto servono per il lotto e si riferiscono al range per il lotto.
Nel winforlife vanno sostituite mettendo o dei numeri in chiaro oppure usando EstrazioniArchivioWF che da il numero di estrazioni contenute nell'archivio winforlife
Ciao !
 
corretto output e ini-fin

corretto output e ini-fin

Ciao luigi, e grazie sempre per le precisasazioni, avevo fatto di fretta lo script lo riposto in modo corretto a benificio di chi voglia utilizzarlo.

Codice: 
Sub Main()
 'EVIDENZIA ARCHIVI WINFORLIFE
 Dim Nn(10)
 QT = InputBox("Quanti Numeri","Numeri",10)
 ScegliNumeri(Nn)
 Ini = EstrazioniArchivioWF - 20
 Fin = EstrazioniArchivioWF
 Scrivi "........ Da " & DataEstrazioneWF(Ini) & " a " & DataEstrazioneWF(fin),1
 'Scrivi
 Scrivi String(120,"="),1
 ColoreTesto 1
 Scrivi "Evidenzia numeri giocati sulla combinazione win for life ",1
 ColoreTesto 0
 Scrivi String(120,"-")
 ColoreTesto 2
 Scrivi "Numeri in gioco " & StringaNumeri(Nn),1
 ColoreTesto 0
 Scrivi String(120,"-")
 For Es = Ini To Fin
  tot = 0
  Scrivi DataEstrazioneWF(es) & " ",0,0
  For P = 1 To 10
   ColoreTesto 1
   For x = 1 To Qt
    If EstrattoWF(Es,P) = Nn(x) Then
     ColoreTesto 2
     tot = tot + 1
    End If
   Next
   Scrivi Format2(EstrattoWF(Es,P)),1,0
   ColoreTesto 0
   Scrivi ".",0,0
  Next
  ColoreTesto 6
  If ToT >= 7 Or ToT <= 3 Then
   Scrivi " - Punteggio max -> " & tot & " - Attenzione vincita ",1
  Else
   ColoreTesto 7
   If Tot >= 4 Or Tot <= 6 Then Scrivi " - Punteggio max -> " & tot,1
  End If
  ColoreTesto 0
 Next
 Scrivi String(120,"-")
 Scrivi " listed by Mike58",1
End Sub
 
grazie a te .. mi sa che sei uno dei pochi che utilizza gli script per il WF e almeno rendi onore al mio lavoro :-) ciao
 
Ciao Luigi.
Ma visto che ci sei, non potresti implementare in Spaziometria anche il WF Gold? Tuoi impegni e priorità permettendo, naturalmente.:)
 
Mi unisco anche io ad una richiesta per capire un codice script appena inseriti nelle ultime versioni di spaziometria e più precisamente ai codici:
getvincita
getspesa
getguadagno.
In merito a questi codici Luigi avevi detto di scriverli quando si voleva scrivere le risultanze delle giocate.
Ho provato anche a leggermi l'help ma la descrizione GetSpesa(Optional bParziale As Boolean = False) etc.
non riesco proprio ad impostarla.
Io ho provato la stessa procedura con il vecchio scriviresoconto e funziona allo scopo, ma vorrei vedere come funzionavano i nuovi codici.
ho anche cercato un qualche esempio negli script test ma non trovo niente.

Potresti cortesemente spiegare con un qualche esempio in questo script posto ad esempio.

Grazie se mi puoi dare un aiuto.


Sub Main()
'by rob spia 79 x terno
Dim aruo(2)
Dim aposte(3),posta(1)
posta(1) = 10 'x ambata
aposte(2) = 1.5 'x ambo
aposte(3) = 0.5 'x terno
Dim anum(10)
r = CInt(InputBox("SU CHE RUOTA DI RICERCA?",,1))
spia = CInt(InputBox("QUALE NUMERO SPIA?",,79))
ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO?",,160))
clp = CInt(InputBox("QUANTI COLPI?",,9))
co = 0' contatore
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
If Posizione(es,r,spia) > 0 Then
anum(1) = Fuori90(Estratto(es,BA_,1) + 73)
anum(2) = Fuori90(Estratto(es,FI_,1)*53)
anum(3) = Fuori90(90 + Estratto(es,NA_,3) - Estratto(es,CA_,5))
anum(4) = Fuori90(Estratto(es,RO_,4) + 41)
anum(5) = Fuori90(Estratto(es,BA_,3) + Estratto(es,GE_,5))
anum(6) = Fuori90(Estratto(es,BA_,1) * Estratto(es,TO_,4))
a1 = anum(1)
a2 = anum(2)
a3 = anum(3)
a4 = anum(4)
a5 = anum(5)
a6 = anum(6)
'ambo1 = Array(a1,a2,a3)
'ambo2 = Array(a1,a2,a4)
'ambo3 = Array(a1,a3,a4)
'ambo4 = Array(a1,a2,a5)
'ambo5 = Array(a1,a2,a6)
'ambo6 = Array(a1,a3,a4)
'ambo7 = Array(a1,a3,a5)
'ambo8 = Array(a1,a3,a6)
lunghetta = Array(a1,a2,a3,a4,a5,a6)
aruo(1) = BA_
aruo(2) = CA_
co = co + 1

ColoreTesto 7
Scrivi "Caso n°: " & CInt(co),1,0
ColoreTesto 1
Scrivi " - NUMERO SPIA " & CInt(spia) & " su " & NomeRuota(r) & " in data " & DataEstrazione(es),1
ColoreTesto 0 'For x = 1 To 9
'For xx = 1 To 9
'For xxx = 1 To 9
'ImpostaGiocata 1,ambo1,aruo,aposte,clp,2
'ImpostaGiocata 2,ambo2,aruo,aposte,clp,2
'ImpostaGiocata 3,ambo3,aruo,aposte,clp,2
'ImpostaGiocata 4,ambo4,aruo,aposte,clp,2
'ImpostaGiocata 5,ambo5,aruo,aposte,clp,2
'ImpostaGiocata 6,ambo6,aruo,aposte,clp,2
'ImpostaGiocata 7,ambo7,aruo,aposte,clp,2
Scrivi String(130,"=")
ImpostaGiocata 8,lunghetta,aruo,aposte,clp,3

'ImpostaInterruzioni xx,xxx,3
'Next:Next
Gioca es,,,1

Scrivi " RESOCONTO PARZIALE GIOCATA ",1,-1,3
ScriviResoconto True
Scrivi " RESOCONTO PROGRESSIVO GIOCATE ",1,-1,3
ScriviResoconto,0
End If
Next
Scrivi " RESOCONTO TOTALE GIOCATE ",1,-1,4
ScriviResoconto
End Sub

 
Ciao mike58 grazie per l'aiuto che dai a noi tutti, mi dispiace per i tuoi "vecchi" spero che tutto si risolvi in bene. quello che io ho scritto all'inizio discussione e' verita' sacrosanta per cui non sei tu a ringraziare ma sicuramente noi tutti . questo vale anche per gli altri fratelli tipo luigiB ed altri (ho fatto solo questo nome per paura di dimenticare qualcun'altro) e' solo grazie a voi che noi impariamo. Detto questo, vorrei dirti che lo script che hai postato a me mi da errore 10-10 previsto identificatore. chiedo gentilmente se puoi controllarlo di nuovo e' ripostarlo grazie. Ti ricordo che eseguo alla lettera il copia e' incolla , cioe' lo copio sul blocco notelo salvo e' poi lo ricopio e' lo incollo su spazio per cui credo che l'errore e' dovuto al post. Ti ringrazio un abbraccio antonio.
 
Ciao ANTONIO un grazie di cuore per la comprensione questa sera mi sfogo un po scrivendo.
Non preocuuparti alla prima occasione mi dedicherò a quanto da te richiesto, mentre per quello che dici circa gli script postati che non ti funzionano
davvero non saprei dirti.
Ti posso solo dire che io uso sempre le ultime versioni del programma spaziometria con gli archivi aggiornati e gli script postati e ricopiati da questo post funzionano tranquillamente.
(basta copiare dal forum ed incollare in spazioscript) cancellando il sub main ed end sub di default ed eventuale option explicit
Se LUIGI ci legge penso possa capire meglio il tipo di conflitto che puoi avere.

Un Abbraccio anche a te.
 
Ciao mike58, io come versione ho la penultima la 1.3.25 va bene alla grande , ho paura di istallare l'ultima tu cosa mi cosa mi consigli?? la scarico e' faccio la procedura di disinstallazione o basta solo istallare l'ultima?? Scusami se ti sto a romp.....i cosidetti . Saluti antonio.
 
ciao Mike , il problema di Antonpun non ho idea da cosa dipenda ma al 99% c'è un errore di copia e incolla forse dovuto al forum
poi se uno segue alla lettera cio che ha scritto Baffoblu nella sua guida non si puo sbagliare.
Per rispondere al tuo quesito su quelle nuove funzioni non so se hai seguito che è stata una richiesta di Gennaro.
Lui mi prospettava il seguente problema : durante uno script di simulazione puo capitare un periodo di non vincite che prodice l'antipatico effetto di rosicchiare le eventuali vincite precedenti allora lui aveva bisogno di poter interrogare tramite scrip la situazione economica in quel preciso momento per vedere se era il caso di ridurre automaticamente le giocate che lo script simulava.
Ebbene il risultato di quelle funzioni è lo stesso di ciò che scrive la sub ScriviResoconto solo che ScriviResoconto i valori li scrive
a video lo sript non li conosce e non li puo valutare , per questo sono state introdotte queste funzioni per fare in modo
che da script si possa sapere se si vince o si perde e quanto ...e regolarsi .. ecco un banale esempio

Codice: 
Option Explicit
Sub Main
	Dim k
	Const nColpi = 10
	
	' gioco una previsione di esempio
	ReDim aNumeri(3)
	aNumeri(1) = 1
	aNumeri(2) = 2
	aNumeri(3) = 3
	ReDim aPoste(1)
	aPoste(1) = 10
	ReDim aRuote(1)
	aRuote(1) = RO_
	For k = EstrazioneIni To EstrazioneFin Step nColpi
		Call ImpostaGiocata(1,aNumeri,aRuote,aPoste,nColpi,1)
		Call Gioca(k)
		
		If GetGuadagno < -100 Then
			MsgBox "Meglio smettere di giocare perche si sta perdendo !"
			Exit For 
		End If
	Next
	
	Call ScriviResoconto
	
end sub
 
Ultima modifica di un moderatore:
Grazie Luigi, capito i nuovi codici saranno sicuramente utili allo scopo.
invece Per antonio penso anche io che sia u problema di copia ed incolla e dico di installare sempre gli aggiornamenti.
Perchè ci possono essere nuove funzioni di script che solo le ultime versioni possono avere.
 
Ciao luigiB, per cortesia puoi dirmi se istallo l'ultima versione di spazio, devo per forza prima disinstallare la versione vecchia oppure posso istallare la nuova senza procedura di disinstallazione?? Inoltre posso dirti che con gli altri script facendo copia e' incolla vanno bene , il problema e' solo su quel script che si trova in prima pagina , che il fratello mike58 ha postato.frate' puoi darmi un aiuto anche tu??? ti ringrazio di cuore come ringrazio anche mike58. Un abbraccio antonio.
 
Ciao , Mike aveva anche postato un acorrezione lo script ch eho provato io è quello corretto da Mike e ti dico che funziona perfettamente.
Avere sempre l'ultima versione è la cosa miglir da fare sia per compatibilita con gli script sia perche puo capitare che io corregga delel cose che gli utenti mi fanno notare percio se esiste una nuova versione c'è un motivo ed è quindi opportuno fare l'aggiornamento.
Il setup lo puoi fare pure sopra io personalemte ho provato e non ci sono errori.
Poi in caso di errori fai tutte le procedure del caso ..
Ciao
lo script da usare copiato pari pari è questo

Codice: 
Sub Main()
	'EVIDENZIA ARCHIVI WINFORLIFE
	Dim Nn(10)
	QT = InputBox("Quanti Numeri","Numeri",10)
	ScegliNumeri(Nn)
	Ini = EstrazioniArchivioWF - 20
	Fin = EstrazioniArchivioWF
	Scrivi "........ Da " & DataEstrazioneWF(Ini) & " a " & DataEstrazioneWF(fin),1
	'Scrivi
	Scrivi String(120,"="),1
	ColoreTesto 1
	Scrivi "Evidenzia numeri giocati sulla combinazione win for life ",1
	ColoreTesto 0
	Scrivi String(120,"-")
	ColoreTesto 2
	Scrivi "Numeri in gioco " & StringaNumeri(Nn),1
	ColoreTesto 0
	Scrivi String(120,"-")
	For Es = Ini To Fin
		tot = 0
		Scrivi DataEstrazioneWF(es) & " ",0,0
		For P = 1 To 10
			ColoreTesto 1
			For x = 1 To Qt
				If EstrattoWF(Es,P) = Nn(x) Then
					ColoreTesto 2
					tot = tot + 1
				End If
			Next
			Scrivi Format2(EstrattoWF(Es,P)),1,0
			ColoreTesto 0
			Scrivi ".",0,0
		Next
		ColoreTesto 6
		If ToT >= 7 Or ToT <= 3 Then
			Scrivi " - Punteggio max -> " & tot & " - Attenzione vincita ",1
		Else
			ColoreTesto 7
			If Tot >= 4 Or Tot <= 6 Then Scrivi " - Punteggio max -> " & tot,1
		End If
		ColoreTesto 0
	Next
	Scrivi String(120,"-")
	Scrivi " listed by Mike58",1
End Sub
 
Ciao a voi frate', v'informo che il listato che mi riferisco io non e' quello del win for life, ma e' quello del 10e'l8 ogni 5min postato gentilmente da mike58 ed e' questo :

Sub
Main



''''metodo 10 e lotto


'--------------------------------------------------------


Dimnum(2)


Dimnm(20)


Dimdis(89)


ImpostaArchivio10ELotto(2)

fin
=EstrazioniArchivioDL

Storia
=InputBox("estrazione iniziale..",,fin)

qe
=InputBox("quante estrazioni analizzare..",,750)

p
=InputBox("Posizione fissa..",,1)

qt
=CInt(InputBox("quanti Distanze vuoi..",,10))

Ini
= storia -Int(qe)


For Ini = Ini + 1 To fin

idestr
= Ini


'''scrivi ini


'''carica schiera 20 numeri estratti


For h = 2 To 20

di
=EstrattoDL(idestr - 1,h) -EstrattoDL(idestr - 1,p)


dis(di) =dis(di) + 1


Next


Next

k
= 201


For kk = 1 To 20

K
= k - 1


If ct <= qt Then


For t = 1 To 89


Ifdis(t) = K Then


Scrivi "Distanza " &Format2(t) & "" &dis(t)

ct
= ct + 1


EndIf


Next


EndIf


Next

End
Sub





Vi chiedo scusa se lo postato cosi' ma non sono bravo come mike58 a farlo nella "finestra"
come ha fatto lui. Credetemi e' pieno di errori !!! Nell'attesa che date uno sguardo al listato cordiali saluti antonio
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 26 luglio 2025
    Bari
    81
    09
    05
    54
    10
    Cagliari
    56
    07
    45
    69
    64
    Firenze
    39
    16
    56
    29
    09
    Genova
    67
    12
    55
    74
    04
    Milano
    40
    30
    44
    63
    27
    Napoli
    63
    07
    74
    86
    81
    Palermo
    80
    34
    16
    27
    53
    Roma
    08
    78
    43
    03
    52
    Torino
    38
    84
    47
    57
    20
    Venezia
    88
    70
    85
    65
    24
    Nazionale
    36
    09
    43
    55
    10
    Estrazione Simbolotto
    Nazionale
    25
    23
    13
    40
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto