Ciao
Eccolo controlla se i conti sono esatti
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
