| 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
|