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) & " "
Clicca per espandere...
 
quote:Originally posted by cebino

quote:Originally posted by keeper

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

Ciao Keeper ci siamo quasi
PS: io spetto ancora di parlare con te per il discorso lottolive
ciao
Clicca per espandere...
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
Clicca per espandere...
Ciao Keeper grazie, ricambio file dai un occhiata anche tu fill.
Clicca per espandere...
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) & " "
Clicca per espandere...
 
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
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto