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
    giovedì 24 aprile 2025
    Bari
    80
    69
    75
    58
    16
    Cagliari
    88
    05
    51
    65
    75
    Firenze
    74
    65
    19
    47
    42
    Genova
    87
    89
    22
    32
    26
    Milano
    27
    13
    15
    56
    23
    Napoli
    24
    87
    62
    41
    28
    Palermo
    76
    20
    33
    62
    35
    Roma
    80
    23
    84
    15
    85
    Torino
    78
    34
    18
    41
    62
    Venezia
    05
    84
    83
    31
    46
    Nazionale
    72
    69
    25
    54
    64
    Estrazione Simbolotto
    Genova
    21
    40
    27
    35
    16
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto