Novità

Modesto Contributo 10 e lotto

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
quote:Originally posted by rubino

Keeper
lo script ultimo postato era già aggiornata e definitivo e funzionante per quello che è stato concepito inizialmente:

lo riposto :

Codice:
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)
	Dim acolpi(9999)
	storia = InputBox("Estrazioni Range Conc.   ",,EstrazioneFin)
	z = InputBox("Controllo Tempo = conc.n.",,500)
	v = InputBox("nr.Garanzia somma 2,3,4,5",,3)
	lis = InputBox("ambo=2, Terno=3, Quarterna=4, Cinquina=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))
		If v = 3 Then
		t3 = Format2(EstrattoDL(idestr,r + 2))
		End If
		If v = 4 Then
		t3 = Format2(EstrattoDL(idestr,r + 2))
		t4 = Format2(EstrattoDL(idestr,r + 3))
		End If
		If v = 5 Then
		t3 = Format2(EstrattoDL(idestr,r + 2))
		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))
		If v = 3 Then
		u3 = Format2(EstrattoDL(idestr,r2 + 2))
		End If
		If v = 4 Then
		u3 = Format2(EstrattoDL(idestr,r2 + 2))
		u4 = Format2(EstrattoDL(idestr,r2 + 3))
		End If
		If v = 5 Then
		u3 = Format2(EstrattoDL(idestr,r2 + 2))
		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
						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) & " "
 
quote:Originally posted by cebino

quote:Originally posted by keeper

ciao fill ti ho inviato un file in posta eletronica dagli un'occhiata. grazie

Ciao Keeper ci siamo quasi
PS: io spetto ancora di parlare con te per il discorso lottolive
ciao
non per cattiveria ma sono molto preso dal 10elotto 5 minuti
oggio una vincita di € 500 con una quanrtina consecutiva ottenuta con lo script
 
quote:Originally posted by fillotto

quote:Originally posted by keeper

ciao fill ti ho inviato un file in posta eletronica dagli un'occhiata. grazie
Ciao Keeper grazie, ricambio file dai un occhiata anche tu fill.
cioa fill rimane sempre il problema di aggiornare le estrazioni in tempo reale dobbiamo creare e collegare un database
 
ho appena rintracciato la condizione a colpo è sortito una terzina
ma una volta trovata per quanti colpi deve essere giocata
 
quote:Originally posted by rubino

Keeper
lo script ultimo postato era già aggiornata e definitivo e funzionante per quello che è stato concepito inizialmente:

lo riposto :

Codice:
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)
	Dim acolpi(9999)
	storia = InputBox("Estrazioni Range Conc.   ",,EstrazioneFin)
	z = InputBox("Controllo Tempo = conc.n.",,500)
	v = InputBox("nr.Garanzia somma 2,3,4,5",,3)
	lis = InputBox("ambo=2, Terno=3, Quarterna=4, Cinquina=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))
		If v = 3 Then
		t3 = Format2(EstrattoDL(idestr,r + 2))
		End If
		If v = 4 Then
		t3 = Format2(EstrattoDL(idestr,r + 2))
		t4 = Format2(EstrattoDL(idestr,r + 3))
		End If
		If v = 5 Then
		t3 = Format2(EstrattoDL(idestr,r + 2))
		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))
		If v = 3 Then
		u3 = Format2(EstrattoDL(idestr,r2 + 2))
		End If
		If v = 4 Then
		u3 = Format2(EstrattoDL(idestr,r2 + 2))
		u4 = Format2(EstrattoDL(idestr,r2 + 3))
		End If
		If v = 5 Then
		u3 = Format2(EstrattoDL(idestr,r2 + 2))
		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
						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) & " "
 
Codice:
Ciao Rubino,
essendo interessata al 10 e lotto 5 min e a questo tuo metodo,ti ho seguito fin dal primo post,ho provato a far girare lo script,
ma forse non ho capito bene come funziona,
cioè quando mi chiede "estarzioni range conc" cosa vuol significare?

Poi quando mi chiede "controllo tempo-conc n°" cosa si intende?


quando mi chiede "estarzioni range conc" cosa vuol significare?</u>

in automatico ti mette l'ultima estrazione dell'archivio,
ma se tu la vuoi cambiare puoi mettere un'altro numero e far fare allo script una statistica ad un concorso precedente.

quindi cambia il range dal...al....della statistica.

potresti cambiare la scritta da come si presenta in
" statistica all'estrazione? " o in una scritta che tu capisci.

tieni conto che io lo script l'ho preparato per il 10elotto normale e non per quello ogni 5 minuti

a meno di impostare l'archivio diverso fin dalla prima istruzione.

esempio:
per il 10 e lotto normale
oggi dovrebbe presentarti l'estrazione 8351 che però potresti voler fare girare fino all'estrazione 8200
quindi sostituirai 8200 al valore 8351

-------------------------------------------------------------------





"controllo tempo = n.conc."</u>

anche qui significa la durata dei concorsi che lo script deve prendere in considerazione per la statistica = 500

ma se vuoi una statistica più corta basta cambiare il valore da 500 a 200 o 100 o 50.
è un dato variabile secondo le tue esigenze.


------------------------------------------------------------------
 
aggiornato:

questo script per il 10 LOTTO 5 minuti</u>,

mi sembra vada bene.


Codice:
Sub Main()
	' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
	'-------------------------------------------------------------------------------------------------------------------------------
	ImpostaArchivio10ELotto(2)

	Dim num(20)
	Dim asom(20)
	Dim acolpi(9999)
	storia = InputBox("Statistica Ult.Estrazione da Considerare   ",,EstrazioniArchivioDL)
	z = InputBox("Quante Estrazione vuoi esaminare? ",,50)
	v = InputBox("nr.Garanzia somma 2,3,4,5",,3)
	lis = InputBox("ambo=2, Terno=3, Quarterna=4, Cinquina=5",,3)
	fin = storia
	Ini = storia - z
	
	Scrivi "Rileva somme numeri  dal concorso n." & Ini & "   al conc.n. " & fin & "    Per il 10 E LOTTO 5 minuti    "
	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))
		If v = 3 Then
		t3 = Format2(EstrattoDL(idestr,r + 2))
		End If
		If v = 4 Then
		t3 = Format2(EstrattoDL(idestr,r + 2))
		t4 = Format2(EstrattoDL(idestr,r + 3))
		End If
		If v = 5 Then
		t3 = Format2(EstrattoDL(idestr,r + 2))
		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))
		If v = 3 Then
		u3 = Format2(EstrattoDL(idestr,r2 + 2))
		End If
		If v = 4 Then
		u3 = Format2(EstrattoDL(idestr,r2 + 2))
		u4 = Format2(EstrattoDL(idestr,r2 + 3))
		End If
		If v = 5 Then
		u3 = Format2(EstrattoDL(idestr,r2 + 2))
		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
						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)
						acolpi(RetCol
 
questo script è per il 10 E LOTTO normale

sembra che così vada bene:

Codice:
Sub Main()
	' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
	'-------------------------------------------------------------------------------------------------------------------------------
	ImpostaArchivio10ELotto(1)

	Dim num(20)
	Dim asom(20)
	Dim acolpi(9999)
	storia = InputBox("Statistica Ult.Estrazioni da considerare   ",,EstrazioniArchivioDL)
	z = InputBox("Quante Estrazione vuoi esaminare? ",,50)
	v = InputBox("nr.Garanzia somma 2,3,4,5",,3)
	lis = InputBox("ambo=2, Terno=3, Quarterna=4, Cinquina=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))
		If v = 3 Then
		t3 = Format2(EstrattoDL(idestr,r + 2))
		End If
		If v = 4 Then
		t3 = Format2(EstrattoDL(idestr,r + 2))
		t4 = Format2(EstrattoDL(idestr,r + 3))
		End If
		If v = 5 Then
		t3 = Format2(EstrattoDL(idestr,r + 2))
		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))
		If v = 3 Then
		u3 = Format2(EstrattoDL(idestr,r2 + 2))
		End If
		If v = 4 Then
		u3 = Format2(EstrattoDL(idestr,r2 + 2))
		u4 = Format2(EstrattoDL(idestr,r2 + 3))
		End If
		If v = 5 Then
		u3 = Format2(EstrattoDL(idestr,r2 + 2))
		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
						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)
						acolpi(RetColpi) = acolpi(RetColpi) + 1
 
Ciao Rubino mi puoi rispondere nell'altro post che ho aperto per poter adattare questo script ad un archivio quadro utente
ciao e grazie
 
ciao LuigiB

vorrei chiederti
usando il verificaesitoDL

nel 10 e lotto

cosa ritorna come descrizione nel RetEsito
quando si centrano 7,8,9,10 numeri?

fino alla sestina è ok
ma per 7,8,9,10 punti non mi compare la descrizione.

sbaglio qualcosa???


:)[?]


Codice:
8286    05 09 14 20 21 26 36 37 47 48 49 57 62 64 68 69 70 75 83 87 .......................69 90 27 50 77 14 37 58 83 10 30 50 63 76 05 24 
------  somma..50 ..20 21 26 36 37         57 62 64 68 69
[08292] [129] 28.10.2010 --Accorpata-- Sestina colpi : 6-----> .. .. .. 14 .. 20 .. 36 37 .. .. .. .. 57 .. 64 .. .. .. ..
___________________________________________________________________________________________________________________________________________________________
8285    01 05 10 12 19 31 37 39 40 46 50 60 73 74 76 79 84 85 88 89 .......................47 77 19 48 76 13 32 55 89 33 63 02 26 38 52 65 
___________________________________________________________________________________________________________________________________________________________
8284    01 06 12 13 15 16 20 27 34 45 54 55 67 71 74 76 81 84 85 86 .......................47 62 76 01 22 52 90 35 75 22 51 73 09 26 40 52 
------  somma..22 ..15 16 20 27 34         45 54 55 67 71
[08293] [130] 30.10.2010 --Accorpata--  colpi : 9-----> .. 06 12 16 20 .. 27 .. .. .. .. .. .. .. .. .. .. 71 81 85
------  somma..52 ..16 20 27 34 45         76 81 84 85 86
[08293] [130] 30.10.2010 --Accorpata--  colpi : 9-----> .. 06 12 16 20 .. 27 .. .. .. .. .. .. .. .. .. .. .. 81 85
___________________________________________________________________________________________________________________________________________________________
8283    01 23 25 29 30 31 33 41 45 47 55 57 67 69 75 77 78 79 81 87 .......................18 48 58 74 90 17 41 65 01 25 53 75 06 18 30 42 
------  somma..18 ..01 23 25 29 30         69 75 77 78 79
[08290] [127] 23.10.2010 --Accorpata-- Cinquina colpi : 7-----> 01 .. 23 25 .. .. .. .. .. .. .. .. .. .. .. .. .. 78 81 ..




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

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

camapanagaus.jpg
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 aprile 2025
    Bari
    55
    40
    19
    11
    08
    Cagliari
    40
    84
    20
    07
    36
    Firenze
    60
    12
    08
    10
    74
    Genova
    87
    68
    51
    61
    89
    Milano
    20
    49
    60
    82
    04
    Napoli
    62
    89
    01
    21
    29
    Palermo
    63
    69
    81
    78
    70
    Roma
    18
    69
    26
    40
    65
    Torino
    74
    83
    78
    16
    81
    Venezia
    64
    81
    72
    43
    02
    Nazionale
    04
    45
    30
    55
    34
    Estrazione Simbolotto
    Genova
    23
    41
    35
    32
    01
Indietro
Alto