Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
 be questo e un mio ragionamento da ambate da altri metodi che mi convergono poi la lottomatica come al solito fà il suo!!!!!!
 be questo e un mio ragionamento da ambate da altri metodi che mi convergono poi la lottomatica come al solito fà il suo!!!!!! 
  
	Sub Main()
	Scrivi String(30," ") & " Metodo di Onei...http://forum.lottoced.com/f8/ve-ottimo-provate-2405/"
	Dim ruote(2)
	Dim ambata(1)
	Dim ambo1(2)
	Dim ambo2(2)
	Dim ambo3(2)
	Dim ambo4(2)
	Dim lung(5)
	Dim posta(1)
	Dim poste(2)
	Dim postee(5)
	posta(1) = 1
	poste(2) = 1
	postee(2) = 1
	postee(3) = 1
	postee(4) = 1
	ruo1 = CInt(InputBox("1°RUOTA DI GIOCO?",,9))
	ruo2 = CInt(InputBox("2°RUOTA DI GIOCO?",,10))
	ec = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?",,300)
	k = CInt(InputBox("INSERISCI I COLPI DI GIOCO",,13))
	ini = EstrazioneFin - ec
	fin = EstrazioneFin
	co = 0
	ruote(1) = ruo1
	ruote(2) = ruo2
	For es = ini To fin
		Messaggio(es)
		xx = 13
		If Mese(es) = 2 Then xx = 12
		If IndiceMensile(es) = xx Then
			casi = casi + 1
			Scrivi String(72,"=") & " Caso n° " & casi,1
			ColoreTesto 1
			Scrivi DataEstrazione(es) & " - Ruote Di Gioco - " & SiglaRuota(ruo1) & " e " & SiglaRuota(ruo2)
			ColoreTesto 0
			Scrivi String(72,"="),1
			co = co + 1
			ambata(1) = Fuori90(Estratto(es,VE_,5) + 40)
			ImpostaGiocata 1,ambata,ruote,posta,k,1
			ambo1(1) = Fuori90(Estratto(es,VE_,5) + 40)
			ambo1(2) = Fuori90(Estratto(es,TO_,1) + 36)
			If ambo1(2) = ambo1(1) Then ambo1(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
			ImpostaGiocata 2,ambo1,ruote,poste,k,2
			ambo2(1) = Fuori90(Estratto(es,VE_,5) + 40)
			ambo2(2) = Fuori90(Estratto(es,TO_,1) + 57)
			If ambo2(2) = ambo2(1) Then ambo2(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
			ImpostaGiocata 3,ambo2,ruote,poste,k,2
			ambo3(1) = Fuori90(Estratto(es,VE_,5) + 40)
			ambo3(2) = Fuori90(Estratto(es,VE_,5) + 08)
			If ambo3(2) = ambo3(1) Then ambo3(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
			ImpostaGiocata 4,ambo3,ruote,poste,k,2
			ambo4(1) = Fuori90(Estratto(es,VE_,5) + 40)
			ambo4(2) = Fuori90(Estratto(es,TO_,3) + Estratto(es,VE_,3))
			If ambo4(2) = ambo4(1) Then ambo4(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
			ImpostaGiocata 5,ambo4,ruote,poste,k,2
			lung(1) = Fuori90(Estratto(es,VE_,5) + 40)
			lung(2) = Fuori90(Estratto(es,TO_,1) + 36)
			lung(3) = Fuori90(Estratto(es,TO_,1) + 57)
			lung(4) = Fuori90(Estratto(es,VE_,5) + 08)
			lung(5) = Fuori90(Estratto(es,TO_,3) + Estratto(es,VE_,3))
			If lung(2) = lung(1) Then lung(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
			If lung(3) = lung(1) Then lung(3) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
			If lung(4) = lung(1) Then lung(4) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
			If lung(5) = lung(1) Then lung(5) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
			EliminaRipetuti lung
			ImpostaGiocata 6,lung,ruote,postee,k,2
			Gioca es
		End If
		If ScriptInterrotto Then Exit For
	Next
	Scrivi
	Scrivi "Casi Rilevati " & CInt(co)
	ScriviResoconto
End Sub



[B][COLOR="#0000FF"]sab 28.04.2012[/COLOR][/B]  [8527]
  G  1:  M          61               To Ve    0/13    
     i.c. (13 colpi)
  G  2:  A          61.62            To Ve    0/13    
     i.c. (13 colpi)
  G  3:  A          61.83            To Ve    0/13    
     i.c. (13 colpi)
  G  4:  A          61.29            To Ve    0/13    
     i.c. (13 colpi)
  G  5:  A          61.19            To Ve    0/13    
     i.c. (13 colpi)
  G  6:  ATQ        61.62.83.29.19   To Ve    0/13    
     i.c. (13 colpi)


Ciao a tutti questo mese ci riproviamo visto che con i numeri passati ci siamo perse diverse ambate e l'ambo a torino cmq. X chi vuole:d
to-ve
ambata.......83
abb.............11-32-51-39
potete giocarli ad ambi secchi 83-11 /// 83-32 /// 83-51 /// 83-39
ma non dimenticate la lunghetta x ambo e terno .....83-11-32-51-39
buon lotto a tutti:d

 
     
     
     
    