Sub Main()
	Scrivi : ColoreTesto 1 : Scrivi"Metodo di qantonio su BA-Ca Alla 11° del mese "
	Scrivi "http://www.nonsololotto.com/topic.asp?TOPIC_ID=41799"
	Scrivi "ambata = 5° ge+13"
	Scrivi "1° abb x ambo:1° fi -5° fi x 1° ro"
	Scrivi "2° abb x ambo 3° fi + 2° mi - 1° fi"
	Scrivi "3° abb x ambo 1° ro +4° ca - 4° mi"
	Scrivi"1° abb x terno 2° ba +3° ve x 3° pa"
	Scrivi"2° abb x terno 1° ba x4° nz +1° ge"
	Scrivi"3° abb x terno 1° ba +5° ge x 3° pa"
	Scrivi : ColoreTesto 0
	Dim rt(2),pt(1),pta(2),ptta(3)
	Dim n1(2),ambata(4),ambo(7)
	pt(1) = 1 :pta(2) = 1 : ptta(3) = 1
	ee = InputBox("Quante estrazioni vuoi analizzare?","ESTRAZIONI",100)
	clp = 13
	rt(1) = 1 : rt(2) = 2
	ini = EstrazioneFin - ee
	fin = EstrazioneFin
	For es = ini To fin
		Messaggio(es)
		If IndiceMensile(es) = 11 Then '11° estrazione del mese
			casi = casi + 1
			Scrivi String(90,"=") & " Caso n° " & casi,1
			Scrivi DataEstrazione(es) & " < " & SiglaRuota(4) & " > " & StringaEstratti(es,4),1
			Scrivi
			n1(1) = Fuori90(Estratto(es,GE_,5) + 13)
			ImpostaGiocata 1,n1,rt,pt,clp
			ambata(1) = Fuori90(Estratto(es,GE_,5) + 13)
			ambata(2) = Fuori90((90 + Estratto(es,FI_,1) - Estratto(es,FI_,5)) * Estratto(es,RO_,1))
			ambata(3) = Fuori90((90 + Estratto(es,FI_,3) + Estratto(es,MI_,2)) - Estratto(es,FI_,1))
			ambata(4) = Fuori90((90 + Estratto(es,RO_,1) + Estratto(es,CA_,4)) - Estratto(es,MI_,4))
			ImpostaGiocata 2,ambata,rt,pta,clp
			ambo(1) = Fuori90(Estratto(es,GE_,5) + 13)
			ambo(2) = Fuori90((90 + Estratto(es,FI_,1) - Estratto(es,FI_,5)) * Estratto(es,RO_,1))
			ambo(3) = Fuori90((90 + Estratto(es,FI_,3) + Estratto(es,MI_,2)) - Estratto(es,FI_,1))
			ambo(4) = Fuori90((90 + Estratto(es,RO_,1) + Estratto(es,CA_,4)) - Estratto(es,MI_,4))
			ambo(5) = Fuori90((Estratto(es,BA_,2) + Estratto(es,VE_,3)) * Estratto(es,PA_,3))
			ambo(6) = Fuori90((Estratto(es,BA_,1)* Estratto(es,NZ_,4)) + Estratto(es,GE_,1))
			ambo(7) = Fuori90((Estratto(es,BA_,1) + Estratto(es,GE_,5)) * Estratto(es,PA_,3))
			ImpostaGiocata 3,ambo,rt,ptta,clp
			Gioca es
		End If
	Next
	Scrivi : Scrivi "Casi Rilevati " & CInt(casi)
	ScriviResoconto
End Sub

citazione:

---

Inviato in origine da franca46

Ciao Duca , grazie!!!
Ben tornato!!!!

---