| Ciao Forum, Mi sono permesso di postare il listato del metodo anche se incluso degli abbinamenti.
Il primo ambo è l'originale poi ai due numeri messo gli abbinamenti.
Spero di avere ffatto cosa gradita Ciao Gianni
Sub main()
Dim nu1(10),nu2(10),nu3(10)
Dim rt(3),rtt(1)
Dim ptt(5)
ptt(2)=1
rtt(1)=11
clp=14
rt(3)=12
fin=EstrazioneFin
ini=fin-150
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10
For p1=1 To 5
n1=Estratto(es,r1,p1)
For r2=r1+1 To 11
If r2=11 Then r2=12
For p3=1 To 5
n3=Estratto(es,r2,p3):so=n1+n3
If so=90 And p1=p3 And r1+1=r2 Then
a1=n1*n3
a2=a1+90
casi=casi+1
Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r1)&" "& StringaEstratti(es,r1)&_
" > ambo ripetuto < "& Format2(n1)&"."
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r2)&" "& StringaEstratti(es,r2)&_
" > ambo ripetuto < "& Format2(n3)&". Somma "& Format2(so)&" > "& Format2(b2)&" ."
Scrivi String(65,"-")&" caso n° "&(casi)
rt(1)=r1: rt(2)=r2
co=0
b3=Int(a2/100)
b4=Fuori90(a2-b3*10)
b5=Fuori90(b3+b4)
nu3(1)=b3:nu3(2)=b4
co=co+1
ImpostaGiocata co,nu3,rt,ptt,clp
co=co+1
ImpostaGiocata co,nu3,rtt,ptt,clp
nu2(1)=b5:nu2(2)=b3:nu2(3)=Vert(b3)
co=co+1
ImpostaGiocata co,nu2,rt,ptt,clp
nu2(1)=b5:nu2(2)=b4:nu2(3)=Vert(b4)
co=co+1
ImpostaGiocata co,nu2,rt,ptt,clp
nu2(1)=b5:nu2(2)=b4:nu2(3)=b3
co=co+1
ImpostaGiocata co,nu2,rt,ptt,clp
nu1(1)=b5:nu1(2)=b3:nu1(3)=Vert(b3):nu1(4)=b4:nu1(5)=Vert(b4)
co=co+1
ImpostaGiocata co,nu1,rt,ptt,clp
Gioca es
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
|
