Salve a tutti.
se possibile fare questa correzzione a questo metodo,
ho provato a farlo ma ho il problema dell'ambata non mi da sempre quella giusta.
bisogna rintracciare nel quadro estrazionale, su una ruota, un ambo la cui distanza sia 30,
passiamo subito ad un esempio reale:
è stato rilevato sulla ruota Nazionale l’ambo 81-51 la cui chiusura simmetrica è 21 nonché l’ambata da mettere in gioco sulla Nazionale.
Per gli abbinamenti per il gioco di ambo, si usano i numeri rilevati, in questo caso 81 e 51 avremo cosi due ambi, 21-51 e 21-81 da giocare sulla ruota Nazionale e Tutte,
unire i due ambi, che formano un terno 21-51-81 da metter in gioco sempre sulla Nazionale e Tutte
Ruote di rilevamento : NZ
Formazione terzina simmetrica: 81 51
Chiusura : 21
Ruote di rilevamento : VE
Formazione terzina simmetrica: 25 55
Chiusura : 85
Sub main()
Dim nu1(2),nu2(2),nu3(2),nu4(3)
Dim ruote(10),ruota(10)
Dim posta(1),poste(2),post(2),pos(5)
posta(1)=1:
poste(2)=1
post(2)=1
pos(2)=1
pos(3)=1
fin=EstrazioneFin
ini=fin-12
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 12
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2):ds1=Distanza(n1,n2)
If ds1=30 Then
casi=casi+1:Scrivi String(65,"=")&" caso n° "&(casi),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza < "&Format2 (ds1)&" > "&Format2(n1)&"."&Format2 (n2)&" >"
ruote(1)=r1:k=12:co=0:ruota(4)=11
nu1(1)= Fuori90 (n1+30)
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k
nu2(1)=Fuori90 (n1+30)
nu2(2)=Fuori90 (n1+60)
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu3(1)=Fuori90 (n1+30)
nu3(2)=Fuori90 (n1+90)
co=co+1
ImpostaGiocata co,nu3,ruote,poste,k
nu4(1)=Fuori90 (n1+30)
nu4(2)=Fuori90 (n1+60)
nu4(3)=Fuori90 (n1+90)
co=co+1
ImpostaGiocata co,nu4,ruote,post,k
Gioca es
End If
Next
Next
Next
Next
ScriviResoconto
End Sub