Modesto Contributo 10 e lotto

[fillotto]

Ciao RUBINO grazie x l'interessamento, ho visto il tuo ultimo script
e considerato il livello raggiunto penso non dovresti avere difficoltà a fare un altro script che non si discosta dal tuo ultimo,
ti spiego:
Sappiamo che con i 20 numeri che escono in una singola estrazione si possono formare 1140 terni , analogamente a quanto fatto nel tuo ultimo script potresti fare uno script relativo a UNA SOLA ESTRAZIONE + LA VISIONE DELLA SUCCESSIVA X IL CONTROLLO, DOVE NELLA PRIMA SARANNO SVISCERATI NELL'OUTPUT TUTTI E 1140 TERNI POSSIBILI CON UNA CLASSIFICA DI TUTTI I TERNI ... SOMMA 1 QUANTITA' ... X
SOMMA 2 QUANTITA' ... Y ECC. fino a somma 90 .
Questo perchè ? considerando che in due estrazioni consecutive è facile che si ripetano tre o più numeri dell'estraz precedente, ecco
se visivamente si potesse avere una situazione di questo tipo si spera di avere delleindicazioni utili.
Buona guarigione... come stai adesso ? Fill

 

[imported_n/a]

quote:Originally posted by fillotto

Ciao RUBINO grazie x l'interessamento, ho visto il tuo ultimo script
e considerato il livello raggiunto penso non dovresti avere difficoltà a fare un altro script che non si discosta dal tuo ultimo,
ti spiego:
Sappiamo che con i 20 numeri che escono in una singola estrazione si possono formare 1140 terni , analogamente a quanto fatto nel tuo ultimo script potresti fare uno script relativo a UNA SOLA ESTRAZIONE + LA VISIONE DELLA SUCCESSIVA X IL CONTROLLO, DOVE NELLA PRIMA SARANNO SVISCERATI NELL'OUTPUT TUTTI E 1140 TERNI POSSIBILI CON UNA CLASSIFICA DI TUTTI I TERNI ... SOMMA 1 QUANTITA' ... X
SOMMA 2 QUANTITA' ... Y ECC. fino a somma 90 .
Questo perchè ? considerando che in due estrazioni consecutive è facile che si ripetano tre o più numeri dell'estraz precedente, ecco
se visivamente si potesse avere una situazione di questo tipo si spera di avere delleindicazioni utili.
Buona guarigione... come stai adesso ? Fill

Fill io non volevo osare chiedere oltre
stiamo lavorando in excel con keeper
se arriva lo script prima e meglio

 

[Roby]

ciao ragazzi

non so se ho capito bene, ma vi posto quello che ho fatto.
ditemi se manca qualcosa o se va corretto qualcos'altro.

ok?

Rileva somme numeri  dal concorso n.8332   al conc.n. 8333    Per il 10 E LOTTO 
Somma nr. consecutività..3
Conc.n. 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 ........somme......... 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20
______________________________________________________________________________________________________________________________________________________
8332    10 12 14 15 17 23 24 25 27 36 38 43 49 58 65 72 74 75 83 84 .......................36 41 46 55 64 72 76 88 11 27 40 60 82 15 31 41 52 62 
------  somma..41 ..12 14 15           72 74 75  
------ somma terni..01...presenze..14
------ somma terni..02...presenze..13
------ somma terni..03...presenze..12
------ somma terni..04...presenze..12
------ somma terni..05...presenze..12
------ somma terni..06...presenze..11
------ somma terni..07...presenze..12
------ somma terni..08...presenze..9
------ somma terni..09...presenze..13
------ somma terni..10...presenze..11
------ somma terni..11...presenze..13
------ somma terni..12...presenze..14
------ somma terni..13...presenze..8
------ somma terni..14...presenze..15
------ somma terni..15...presenze..11
------ somma terni..16...presenze..15
------ somma terni..17...presenze..12
------ somma terni..18...presenze..14
------ somma terni..19...presenze..14
------ somma terni..20...presenze..13
------ somma terni..21...presenze..16
------ somma terni..22...presenze..13
------ somma terni..23...presenze..15
------ somma terni..24...presenze..12
------ somma terni..25...presenze..14
------ somma terni..26...presenze..13
------ somma terni..27...presenze..14
------ somma terni..28...presenze..11
------ somma terni..29...presenze..9
------ somma terni..30...presenze..12
------ somma terni..31...presenze..12
------ somma terni..32...presenze..15
------ somma terni..33...presenze..15
------ somma terni..34...presenze..16
------ somma terni..35...presenze..16
------ somma terni..36...presenze..14
------ somma terni..37...presenze..11
------ somma terni..38...presenze..9
------ somma terni..39...presenze..7
------ somma terni..40...presenze..9
------ somma terni..41...presenze..14
------ somma terni..42...presenze..13
------ somma terni..43...presenze..15
------ somma terni..44...presenze..13
------ somma terni..45...presenze..16
------ somma terni..46...presenze..12
------ somma terni..47...presenze..13
------ somma terni..48...presenze..12
------ somma terni..49...presenze..13
------ somma terni..50...presenze..13
------ somma terni..51...presenze..11
------ somma terni..52...presenze..15
------ somma terni..53...presenze..11
------ somma terni..54...presenze..15
------ somma terni..55...presenze..11
------ somma terni..56...presenze..14
------ somma terni..57...presenze..13
------ somma terni..58...presenze..11
------ somma terni..59...presenze..12
------ somma terni..60...presenze..13
------ somma terni..61...presenze..12
------ somma terni..62...presenze..12
------ somma terni..63...presenze..12
------ somma terni..64...presenze..12
------ somma terni..65...presenze..14
------ somma terni..66...presenze..12
------ somma terni..67...presenze..17
------ somma terni..68...presenze..9
------ somma terni..69...presenze..13
------ somma terni..70...presenze..10
------ somma terni..71...presenze..11
------ somma terni..72...presenze..11
------ somma terni..73...presenze..13
------ somma terni..74...presenze..15
------ somma terni..75...presenze..15
------ somma terni..76...presenze..17
------ somma terni..77...presenze..11
------ somma terni..78...presenze..15
------ somma terni..79...presenze..10
------ somma terni..80...presenze..16
------ somma terni..81...presenze..11
------ somma terni..82...presenze..15
------ somma terni..83...presenze..15
------ somma terni..84...presenze..12
------ somma terni..85...presenze..14
------ somma terni..86...

 

[Roby]

commento:
ho preso per fare un esempio l'estrazione 8332

1) ho rilevato i numeri usciti e le varie somme terni consecutivi dell'estrazione in esame

2) ho calcolato di tutti i 1140 terni composti dai 20 numeri estratti le somme e le metto in output
con somme terni da 01 a 90 indicando quante combinazioni si sono verificate con quella somma.

naturalmente il totale dei terni e delle presenze nella varie somme sono uguale a 1140.


cosa manca?





-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[imported_n/a]

quote:Originally posted by rubino

commento:
ho preso per fare un esempio l'estrazione 8332

1) ho rilevato i numeri usciti e le varie somme terni dell'estrazione in esame

2) ho calcolato di tutti i 1140 terni composti dai 20 numeri estratti le somme e le metto in output
con somme terni da 01 a 90 indicando quante combinazioni si sono verificate con quella somma.

naturalmente il totale dei terni e delle presenze nella varie somme sono uguale a 1140.


cosa manca?





-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

Rubino non capisco perche fai la somma di tutti i terni
in teoria i terni sono 18, la verifica non so se va fatta sulle terzine d'origine o sui numeri (le somme) ricavate.

Poi altra cosa da come ho capito io devi sommare solo il 1°+2°+3° poi il 2°+3°+4° poi il 3°+4°+5° e cosi via alla fine ti risultano 18 somme controlla dall'estrazione successiva che esito ha dato

Passo la palla a Fillotto

 

[Roby]

infatti, l'analisi parte sempre e solo per i terni consecutivi o quelli totali 1140 dei 20 estratti?

mi è perso di capire che Fil voglia prendere in esame anche tutti i terni possibili e relative somme.

[?]

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[keeper]

scusate se mi intrometto
la verifica va fatta sulle estrazione successive a quella di ricerca
i terni sono 18 che si formano

 

[imported_n/a]

quote:Originally posted by rubino

infatti, l'analisi parte sempre e solo per i terni consecutivi o quelli totali 1140 dei 20 estratti?

mi è perso di capire che Fil voglia prendere in esame anche tutti i terni possibili e relative somme.

[?]

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

Rubino mi sa di no
questo e quanto scrive

in ogni estrazione di 20 num ci sono più di 1000 terni possibili ma se li prendiamo consecutivi sono solo 18 cioe il 1°+il 2°+il 3° il SEcondo terno formato dal 2°+3°+4° numero ..... il 18° terno formato dal 18°+19°+20° num

 

[imported_n/a]

quote:Originally posted by keeper

scusate se mi intrometto
la verifica va fatta sulle estrazione successive a quella di ricerca
i terni sono 18 che si formano

Keeper dammi un tuo contato via mail
che ti chiamo

 

[Roby]

ok, allora bisogna fare una verifica esito delle somme dei 18 terni consecutivi, ottenuti in questa estrazioni per 1 colpo ipotetico di gioco.

e che tipo di risultato ci si deve aspettare?

ambata, ambo, terno!



oppure

identificare i numeri che si sono ripetuti dall'estrazione precedente e quali somme si sono ripetute?






-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[keeper]

ce l'hai già ti ho inviato quei pessimi file
cmq ricapitolando fillotto diceva
con in venti numeri estratti si formano 18 terni
di que diciotto terni si fanno le somme
se la somma di una terzina corrisponde con quella di altra allora si prende in considerazione la giocata ovvero le due terzine di somma uguale
quindi due terzine per vari colpi
quindi occorre fare una verifica delle due terzine sulle estrazioni successive a quelle di ricerca per vedere se sono sortite.

 

[imported_n/a]

quote:Originally posted by keeper

ce l'hai già ti ho inviato quei pessimi file
cmq ricapitolando fillotto diceva
con in venti numeri estratti si formano 18 terni
di que diciotto terni si fanno le somme
se la somma di una terzina corrisponde con quella di altra allora si prende in considerazione la giocata ovvero le due terzine di somma uguale
quindi due terzine per vari colpi
quindi occorre fare una verifica delle due terzine sulle estrazioni successive a quelle di ricerca per vedere se sono sortite.

A questo punto per la verifica di almeno quaterna altrimenti non ha senso

 

[fillotto]

quote:Originally posted by rubino

infatti, l'analisi parte sempre e solo per i terni consecutivi o quelli totali 1140 dei 20 estratti?

mi è perso di capire che Fil voglia prendere in esame anche tutti i terni possibili e relative somme.

[?]

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

In effetti avete ragione tutti e due nel senso che nell'ultimo post
ho chiesto proprio quello che ha realizzato ultimamente rubino solo che se fosse possibile vedere nell'output i 1140 terni cosi da avere
a disposizione quali sono quelli (terni) che si ripetono nell immediate estrazioni considerato il fatto che nel giro di una due estrazioni si ripetono anche 5 o 6 numeri in modo da scoprire un nesso logico.
D'altra parte hanno anche ragione cebino e Keeper per finire il discorso fatto prima
Comunque grazie Rubino se puo postare anche lo script ultimo

 

[imported_n/a]

quote:Originally posted by fillotto

quote:Originally posted by rubino

infatti, l'analisi parte sempre e solo per i terni consecutivi o quelli totali 1140 dei 20 estratti?

mi è perso di capire che Fil voglia prendere in esame anche tutti i terni possibili e relative somme.

[?]

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

In effetti avete ragione tutti e due nel senso che nell'ultimo post
ho chiesto proprio quello che ha realizzato ultimamente rubino solo che se fosse possibile vedere nell'output i 1140 terni cosi da avere
a disposizione quali sono quelli (terni) che si ripetono nell immediate estrazioni considerato il fatto che nel giro di una due estrazioni si ripetono anche 5 o 6 numeri in modo da scoprire un nesso logico.
D'altra parte hanno anche ragione cebino e Keeper per finire il discorso fatto prima
Comunque grazie Rubino se puo postare anche lo script ultimo

ooookkkk Fill
meno male che sei arrivato non ero sicuro di come si dovesse procedere.
L'amico Rubino come hai potuto notare e molto in gamba con Spazioscript mi dispiaceva se faceva un lavoro inutile

Sono qua tutto occhi e orecchie

 

[Roby]

il mio script

rileva i terni consecutivi, come richiesto da filotto
e mette in evidenza i terni aventi medesima somma.

vi riposto una situazione di output:

Rileva somme numeri  dal concorso n.8313   al conc.n. 8333    Per il 10 E LOTTO 
Somma nr. consecutività..3
Conc.n. 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 ........somme......... 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20
______________________________________________________________________________________________________________________________________________________
8332    10 12 14 15 17 23 24 25 27 36 38 43 49 58 65 72 74 75 83 84 .......................36 41 46 55 64 72 76 88 11 27 40 60 82 15 31 41 52 62 
------  somma..41 ..12 14 15           72 74 75  
8331    02 27 31 32 37 40 41 48 52 53 57 60 61 66 68 69 70 84 87 89 .......................60 90 10 19 28 39 51 63 72 80 88 07 15 23 27 43 61 80 
------  somma..80 ..53 57 60           84 87 89  
8330    04 10 13 19 20 25 28 34 38 39 45 48 64 65 66 70 78 83 84 89 .......................27 42 52 64 73 87 10 21 32 42 67 87 15 21 34 51 65 76 
------  somma..42 ..10 13 19           39 45 48  
------  somma..87 ..25 28 34           48 64 65  
------  somma..21 ..34 38 39           65 66 70  
8329    01 04 08 12 16 17 21 23 35 43 55 58 64 65 76 77 80 83 85 90 .......................13 24 36 45 54 61 79 11 43 66 87 07 25 38 53 60 68 78 
8328    06 17 20 27 38 40 41 43 45 48 54 55 61 64 68 72 81 82 83 87 .......................43 64 85 15 29 34 39 46 57 67 80 90 13 24 41 55 66 72 
8327    01 09 12 13 18 24 29 39 46 53 56 57 62 68 69 70 71 74 79 87 .......................22 34 43 55 71 02 24 48 65 76 85 07 19 27 30 35 44 60 
8326    01 03 06 07 09 12 22 23 29 37 41 45 50 56 57 58 80 81 85 89 .......................10 16 22 28 43 57 74 89 17 33 46 61 73 81 15 39 66 75 
8325    06 08 15 23 25 29 30 32 33 35 37 38 42 53 56 59 62 64 70 85 .......................29 46 63 77 84 01 05 10 15 20 27 43 61 78 87 05 16 39 
------  somma..05 ..30 32 33           59 62 64  
8324    03 10 14 15 18 20 21 28 30 34 39 43 44 47 57 66 69 72 84 88 .......................27 39 47 53 59 69 79 02 13 26 36 44 58 80 12 27 45 64 
------  somma..27 ..03 10 14           66 69 72  
8323    07 14 17 18 22 26 35 39 43 63 66 69 70 71 73 81 82 84 85 90 .......................38 49 57 66 83 10 27 55 82 18 25 30 34 45 56 67 71 79 
8322    03 07 09 14 19 30 34 46 49 50 51 53 56 59 62 68 82 83 84 90 .......................19 30 42 63 83 20 39 55 60 64 70 78 87 09 32 53 69 77 
8321    02 07 08 12 14 19 21 26 37 38 43 45 46 57 58 67 75 76 78 81 .......................17 27 34 45 54 66 84 11 28 36 44 58 71 02 20 38 49 55 
8320    02 04 14 16 18 21 26 35 41 44 48 50 52 62 63 67 81 85 87 90 .......................20 34 48 55 65 82 12 30 43 52 60 74 87 12 31 53 73 82 
------  somma..82 ..21 26 35           85 87 90  
------  somma..12 ..26 35 41           62 63 67  
8319    02 10 13 14 17 18 24 38 48 49 57 69 77 79 80 81 82 84 85 86 .......................25 37 44 49 59 80 20 45 64 85 23 45 56 60 63 67 71 75 
------  somma..45 ..38 48 49           69 77 79  
8318    02 04 13 20 26 27 29 36 38 40 42 50 51 53 54 56 57 61 64 79 .......................19 37 59 73 82 02 13 24 30 42 53 64 68 73 77 84 02 24 
------  somma..73 ..20 26 27           53 54 56  
------  somma..02 ..27 29 36           57 61 64  
------  somma..24 ..36 38 40           61 64 79  
8317    03 12 19 20 21 23 31 40 43 45 55 59 61 65 67 68 75 86 89 90 .......................34 51 60 64 75 04 24 38 53 69 85 05 13 20 30 49 70 85 
------  somma..85 ..55 59 61           86 89 90  
8316    03 06 16 20 29 30 32 34 41 45 47 52 57 58 59 64 67 74 87 90 .......................25 42 65 79 01 06 17 30 43 54 66 77 84 01 10 25 48 71 
------  somma..25 ..03 06 16           64 67 74  
------  somma..01 ..29 30 32           58 59 64  
8315    04 05 17 22 24 27 30 31 35 38 40 50 54 61 67 68 71

 

[imported_n/a]

Rubino pero un solo caso come esame e poco
dovremmo vedere su almeno 500 estrazioni.
Ovviemnte 4 su 6 va bene anche se siamo al limite ricordiamoci che paga 10 € pero si puo gestire una progressione, riferendoci ovviamente al max ritardo di attesa.

Considerate inoltre che se io dovessi giocare un lunghetta di 6 numeri per quaterna in progressione per 30 colpi spenderi 110 € per avere un utile di media 4 €.
Vale la pena ?????

 

[Roby]

purtroppo cebino

il gioco è iniquo.

Sub Main()
	'statistica per rilevamento delle somme dei 20 estratti a gruppi consecutivi e totali'
	'condizione
	'-------------------------------------------------------------------------------------------------------------------------------
	Dim num(20)
	Dim asom(20)
	Dim fre(90)
	storia = InputBox("Estrazioni Range Conc.   ",,EstrazioneFin)
	z = InputBox("Controllo Tempo = conc.n.",,1)
	v = InputBox("nr.Garanzia somma 2,3,4,5",,3)
	fin = storia
	Ini = storia - z
	
	Scrivi "Rileva somme numeri  dal concorso n." & Ini & "   al conc.n. " & fin & "    Per il 10 E LOTTO "
	Scrivi "Somma nr. consecutività.." & v
	Scrivi "Conc.n. 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 ........somme......... 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20"
	Scrivi "______________________________________________________________________________________________________________________________________________________"
	
	
	For x = 1 To z
		idestr = storia - x
		riga = ""
		''''azzera schiera asom
		For t = 1 To 20
		asom(t) = ""
		Next
		''''stringa contenente i nr.estratti all'estrazione ()
		For yy = 1 To 20
			riga = riga & Format2(EstrattoDL(idestr,yy)) & " "
			num(yy) = Format2(EstrattoDL(idestr,yy))
		Next
		''''' calcola e rileva tutti i terni nei 20 numeri estratti e relative somme (01...90)	
		For k1 = 1 To 18
		For k2 = k1 + 1 To 19
		For k3 = k2 + 1 To 20
		
		kz = 	Fuori90(Int(num(k1)) + Int(num(k2)) + Int(num(k3)))
		fre(kz) = fre(kz) + 1
				
		Next
		Next
		Next
		
			
		
		
	If v = 2 Then	
		For b = 1 To 19
		c = Fuori90(Int(num(b)) + Int(num(b + 1)))
		asom(b) = asom(b) & CLng(c)
		Next 					
	lim = 19
	End If
	
		If v = 3 Then	
		For b = 1 To 18
		c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)))
		asom(b) = asom(b) & CLng(c)
		Next 					
	lim = 18
	End If
	
	If v = 4 Then	
		For b = 1 To 17
		c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)))
		asom(b) = asom(b) & CLng(c)
		Next 					
	lim = 17
	End If
		If v = 5 Then	
		For b = 1 To 16
		c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)) + Int(num(b + 4)))
		asom(b) = asom(b) & CLng(c)
		Next 					
	lim = 16
	End If
			rsomme = ""
			For f = 1 To Int(lim)
			rsomme = rsomme & Format2(asom(f)) & " "
			Next
		ColoreTesto(0):Scrivi idestr & "    " & riga & "......................." & rsomme	

''''riepilogo terni con somme uguali
		For r = 1 To lim
		For r2 = r + 1 To lim + 1
		If asom(r) = asom(r2) Then
		t1 = Format2(EstrattoDL(idestr,r))
		t2 = Format2(EstrattoDL(idestr,r + 1))
		t3 = Format2(EstrattoDL(idestr,r + 2))
		If v = 4 Then
		t4 = Format2(EstrattoDL(idestr,r + 3))
		End If
		If v = 5 Then
		t4 = Format2(EstrattoDL(idestr,r + 3))
		t5 = Format2(EstrattoDL(idestr,r + 4))
		End If
		
		u1 = Format2(EstrattoDL(idestr,r2))
		u2 = Format2(EstrattoDL(idestr,r2 + 1))
		u3 = Format2(EstrattoDL(idestr,r2 + 2))
		If v = 4 Then
		u4 = Format2(EstrattoDL(idestr,r2 + 3))
		End If
		If v = 5 Then
		u4 = Format2(EstrattoDL(idestr,r2 + 3))
		u5 = Format2(EstrattoDL(idestr,r2 + 4))
		End If

		ColoreTesto(1) : Scrivi "------  somma.." & Format2(asom(r)) & " .." & t1 & " " & t2 & " " & t3 & " " & t4 & " " & t5 & "         " & u1 & " " & u2 & " " & u3 & " " & u4 & " " & u5
		End If
		Next
		Next
				
		'''' riepilogo terni somme dell'estrazione idestr
		For LL = 1 To 90
		If fre(LL) > 0 Then
		Totale = Totale + fre(LL)
		Scrivi "------ somma terni.." & Format2(LL) & "...presenze.." & fre(LL)
		End If
		Next
		Scrivi "tot.terni elaborati 1140=[(18*19*20)/6] "
		Scrivi "totale contati presenze.." & Totale

	Next
	



End Sub

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[imported_n/a]

Rubino nell'ultimo tuo script non vedo l'esito
scusami.
Vedo che hai lasciato la gestione di tutti terni e non solo dei 18

Per quanto riguarda il gioco (so che e iniquo) infatti io vorrei applicare questa tecnica ad una lotteria estera di 36 numeri molto simile al 10elotto ma con estrazioni ogni 60 sec, ma con quote di tutto rispetto
ciao

 

[Roby]

aggiornamento:

allora questo è il primo script con il verificaesitoDL

è relativo alle 18 somme dei terni consecutivi.
ho impostato il ciclo su 500 colpi.

Sub Main()
	' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
	'condizione
	'------------
	'-------------------------------------------------------------------------------------------------------------------------------
	Dim num(20)
	Dim asom(20)
	storia = InputBox("Estrazioni Range Conc.   ",,EstrazioneFin)
	z = InputBox("Controllo Tempo = conc.n.",,500)
	v = InputBox("nr.Garanzia somma 2,3,4,5",,3)
	fin = storia
	Ini = storia - z
	
	Scrivi "Rileva somme numeri  dal concorso n." & Ini & "   al conc.n. " & fin & "    Per il 10 E LOTTO "
	Scrivi "Somma nr. consecutività.." & v
	Scrivi "Conc.n. 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 ........somme......... 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20"
	Scrivi "______________________________________________________________________________________________________________________________________________________"
	
	
	For x = 1 To z
		idestr = storia - x
		riga = ""
		For t = 1 To 20
		asom(t) = ""
		Next
		
		For yy = 1 To 20
			riga = riga & Format2(EstrattoDL(idestr,yy)) & " "
			num(yy) = Format2(EstrattoDL(idestr,yy))
		Next
		
	If v = 2 Then	
		For b = 1 To 19
		c = Fuori90(Int(num(b)) + Int(num(b + 1)))
		asom(b) = asom(b) & CLng(c)
		Next 					
	lim = 19
	End If
	
		If v = 3 Then	
		For b = 1 To 18
		c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)))
		asom(b) = asom(b) & CLng(c)
		Next 					
	lim = 18
	End If
	
	If v = 4 Then	
		For b = 1 To 17
		c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)))
		asom(b) = asom(b) & CLng(c)
		Next 					
	lim = 17
	End If
		If v = 5 Then	
		For b = 1 To 16
		c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)) + Int(num(b + 4)))
		asom(b) = asom(b) & CLng(c)
		Next 					
	lim = 16
	End If
			rsomme = ""
			For f = 1 To Int(lim)
			rsomme = rsomme & Format2(asom(f)) & " "
			Next
				Scrivi "___________________________________________________________________________________________________________________________________________________________"	
		ColoreTesto(0):Scrivi idestr & "    " & riga & "......................." & rsomme	

''''riepilogo terni con somme uguali
		For r = 1 To lim
		For r2 = r + 1 To lim + 1
		If asom(r) = asom(r2) Then
		t1 = Format2(EstrattoDL(idestr,r))
		t2 = Format2(EstrattoDL(idestr,r + 1))
		t3 = Format2(EstrattoDL(idestr,r + 2))
		If v = 4 Then
		t4 = Format2(EstrattoDL(idestr,r + 3))
		End If
		If v = 5 Then
		t4 = Format2(EstrattoDL(idestr,r + 3))
		t5 = Format2(EstrattoDL(idestr,r + 4))
		End If
		
		u1 = Format2(EstrattoDL(idestr,r2))
		u2 = Format2(EstrattoDL(idestr,r2 + 1))
		u3 = Format2(EstrattoDL(idestr,r2 + 2))
		If v = 4 Then
		u4 = Format2(EstrattoDL(idestr,r2 + 3))
		End If
		If v = 5 Then
		u4 = Format2(EstrattoDL(idestr,r2 + 3))
		u5 = Format2(EstrattoDL(idestr,r2 + 4))
		End If
		ColoreTesto(1) : Scrivi "------  somma.." & Format2(asom(r)) & " .." & t1 & " " & t2 & " " & t3 & " " & t4 & " " & t5 & "         " & u1 & " " & u2 & " " & u3 & " " & u4 & " " & u5
						lis = 2
						ReDim tnm(5)
						tnm(1) = t1
						tnm(2) = t2
						tnm(3) = t3
						tnm(4) = t4
						tnm(5) = t5
						If VerificaEsitoDL(tnm,idestr + 1,lis,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
						ColoreTesto 2
						Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
						ColoreTesto 0
						If RetEsito = "Terno" Then
						ternitotali = ternitotali + 1
						End If
						If RetEsito = "Ambo" Then
						ambitotali = ambitotali + 1
						End If
						End If

						ReDim tnm(5)
						tnm(1) = u1
						tnm(2) = u2
						tnm(3) = u3
						tnm(4) = u4
						tnm(5) = u5
						If VerificaEsitoDL(tnm,idestr

 

[Roby]

questo è un pezzettino di output

___________________________________________________________________________________________________________________________________________________________
7863    01 06 17 20 22 23 24 27 30 31 33 42 58 60 70 74 75 80 84 87 .......................24 43 59 65 69 74 81 88 04 16 43 70 08 24 39 49 59 71 
------  somma..24 ..01 06 17           60 70 74  
[07889] [ 39] 29.03.2008 Ambo colpi : 26 01 .. .. .. 17 .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
[07868] [ 18] 09.02.2008 Ambo colpi : 5 .. .. .. .. .. .. .. .. .. .. .. .. .. 60 .. 70 .. .. .. ..
------  somma..43 ..06 17 20           33 42 58  
[07868] [ 18] 09.02.2008 Ambo colpi : 5 .. .. .. .. .. 17 20 .. .. .. .. .. .. .. .. .. .. .. .. ..
[07864] [ 14] 31.01.2008 Ambo colpi : 1 .. .. .. .. .. .. .. 33 .. .. 42 .. .. .. .. .. .. .. .. ..
------  somma..59 ..17 20 22           75 80 84  
[07868] [ 18] 09.02.2008 Ambo colpi : 5 .. .. .. .. .. 17 20 .. .. .. .. .. .. .. .. .. .. .. .. ..
[07881] [ 31] 11.03.2008 Terno colpi : 18 .. .. .. .. .. .. .. .. .. .. .. 75 .. .. 80 .. .. 84 .. ..
___________________________________________________________________________________________________________________________________________________________
7862    10 15 17 20 25 28 31 38 40 47 58 60 67 76 77 82 85 87 89 90 .......................42 52 62 73 84 07 19 35 55 75 05 23 40 55 64 74 81 86 
------  somma..55 ..40 47 58           76 77 82  
[07870] [ 20] 14.02.2008 Ambo colpi : 8 .. .. .. .. .. .. 40 .. .. .. 58 .. .. .. .. .. .. .. .. ..
[07875] [ 25] 26.02.2008 Ambo colpi : 13 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. 76 82
___________________________________________________________________________________________________________________________________________________________
7861    02 06 07 08 11 13 14 18 28 33 39 41 51 54 55 63 73 79 84 88 .......................15 21 26 32 38 45 60 79 10 23 41 56 70 82 11 35 56 71 
------  somma..56 ..41 51 54           73 79 84  
[07872] [ 22] 19.02.2008 Ambo colpi : 11 .. .. .. .. .. .. .. .. .. 51 .. .. 54 .. .. .. .. .. .. ..
[07876] [ 26] 28.02.2008 Ambo colpi : 15 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. 73 84 .. ..
___________________________________________________________________________________________________________________________________________________________
7860    07 09 14 18 19 22 24 26 37 43 45 47 49 54 56 66 70 71 76 81 .......................30 41 51 59 65 72 87 16 35 45 51 60 69 86 12 27 37 48 
------  somma..51 ..14 18 19           45 47 49  
[07861] [ 11] 24.01.2008 Ambo colpi : 1 .. .. .. .. .. .. 14 18 .. .. .. .. .. .. .. .. .. .. .. ..
[07864] [ 14] 31.01.2008 Ambo colpi : 4 .. .. .. .. .. .. .. .. .. .. .. 45 47 .. .. .. .. .. .. ..
___________________________________________________________________________________________________________________________________________________________
7859    01 02 03 04 07 10 20 23 31 34 35 37 38 61 66 68 74 75 81 87 .......................06 09 14 21 37 53 74 88 10 16 20 46 75 15 28 37 50 63 
------  somma..37 ..07 10 20           68 74 75  
[07862] [ 12] 26.01.2008 Ambo colpi : 3 10 .. .. 20 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
[07863] [ 13] 29.01.2008 Ambo colpi : 4 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. 74 75 .. .. ..
___________________________________________________________________________________________________________________________________________________________
7858    02 03 04 08 11 15 19 21 33 35 42 43 59 61 67 70 73 76 88 90 .......................09 15 23 34 45 55 73 89 20 30 54 73 07 18 30 39 57 74 
------  somma..73 ..19 21 33           43 59 61  
[07869] [ 19] 12.02.2008 Ambo colpi : 11 .. .. .. .. .. 19 .. 33 .. .. .. .. .. .. .. .. .. .. .. ..
[07871] [ 21] 16.02.2008 Ambo colpi : 13 .. .. .. .. .. .. .. 43 .. .. 59 .. .. .. .. .. .. .. .. ..
------  somma..30 ..35 42 43           67 70 73  
[07872] [ 22] 19.02.2008 Ambo colpi : 14 .. .. .. .. .. 35 .. .. 43 .. .. .. .. .. .. .. .. .. .. ..
[07884] [ 34] 18.03.2008 Ambo colpi : 26 .. .