Se vi fa piacere vi posto lo script del metodo di bibbolotto.
Eccolo!!!
Sub Main()
Dim num(5),num1(5)
Dim ruote(10),ruotes(1),ruota(2)
Dim post(5),posta(3)
posta(1) = 1
post(2)=1
post(3)=1
tmp = InputBox("Quante estrazioni controllo?",,50)
fin = EstrazioneFin
ini = fin - tmp
For es = ini To fin
Messaggio CStr(EstrazioneFin - es)
For r = 1 To 10
r1 = r + 1
'If r1 = 11 Then r1 = 12
For p = 1 To 4
p1 = p + 1
For pp = 1 To 4
pp1 = pp + 1
If p=1 And p1=2 Then p3=p1+1: p4=p1+2: p5=p1+3:Else
If p=2 And p1=3 Then p3=p1-2: p4=p1+1: p5=p1+2:Else
If p=3 And p1=4 Then p3=p1+1: p4=p1-2: p5=p1-3:Else
If p=4 And p1=5 Then p3=p1-2: p4=p1-3: p5=p1-4
a1 = Estratto(es,r,p)
a2 = Estratto(es,r,p1)
a3 = Estratto(es,r1,pp)
a4 = Estratto(es,r1,pp1)
a5 = Estratto(es,r,p3):a6 = Estratto(es,r1,p3)
a7 = Estratto(es,r,p4):a8 = Estratto(es,r1,p4)
a9 = Estratto(es,r,p5):a10= Estratto(es,r1,p5)
b2 = Cadenza(a1)'somma estratti
b3 = Decina (a2)'Ambata
b4 = Cadenza(a3)'Primo abbinamento
b5 = (Fuori90(b2 & b3))
b6 = (Vert(b5)-1)
b7=Fuori90(a5+a6)
b8=Fuori90(a7+a8)
b9=Fuori90(a9+a10)
If b3 = b4 And p=pp And p1=pp1 Then
If b2 <> 0 And a1 <> Decina(0)Then
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),3) & " " & StringaEstratti(es,r) & _
" --> " & Format2(a1) & " - " & Format2(a2)&"-->posizione-"&CInt(p)&"^-"&CInt(p1)&"^"
Scrivi Left(NomeRuota(r1),3) & " " & StringaEstratti(es,r1) & _
" --> " & Format2(a3) & " - " & Format2(a4)&"-->posizione-"&CInt(pp)&"^-"&CInt(pp1)&"^"
ColoreTesto 2
Scrivi"Cadenza di a1---------------------------> "& CInt(b2)'distanza estratti
Scrivi"Decina di a2--- ------------------------> "& CInt(b3)
Scrivi"Cadenza di a3---------------------------> "& CInt(b4)'somma estratti
Scrivi"Ambata risultante-----------------------> "& CInt(b5)
Scrivi"Numeri abbinamenti per ambo--------> "& CInt(b7)&"-"& CInt(b8)&"-"& CInt(b9)
ColoreTesto 0
ruote(1)=r
ruota(1) = r1
ruotes(1)=TU_
num(1) = b5
num(2) = b6
num1(1)=b5
num1(2)=b6
num1(3)=b7
num1(4)=b8
num1(5)=b9
ImpostaGiocata 1,num,ruote,posta,5
ImpostaGiocata 2,num,ruota,posta,5
ImpostaGiocata 3,num1,ruote,post,9
ImpostaGiocata 4,num1,ruota,post,9
ImpostaGiocata 5,num1,ruotes,post,9
Gioca es
Scrivi"***************************************"
Scrivi "Listato del Barone di Aversa"
Scrivi"***************************************"
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
Spero che funzioni a me va benissimo ho inserito anche gli abbinamenti per ambo su ruota ed a tutte.-