| Ecco il listato in L8 del Metodo
Sub main() Dim nu1(10),nu2(10) Dim ruote(10),ruota(10) Dim posta(5),poste(10) poste(1)=1:posta(2)=2 fin=EstrazioneFin ini=fin-180 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 10 For p3=1 To 5 n3=Estratto(es,r2,p3) ds1=Distanza(n1,n3) If Distanza(n1,n3)=45 And p1=p3 And r1+1=r2 Then casi=casi+1:Scrivi String(75,"="),1 Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_ " > Numero distanza < "&Format2 (ds1)&" > "&Format2(n1)&"<" Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_ " > Numero posizione < "&Format2 (p1)&" > "&Format2(n3)&"<" Scrivi String(65,"-")&" caso n° "&(casi) ruote(1)=r1:ruote(2)=r2:k=14:co=0 a1=Fuori90(n1+n3+78) a2=Fuori90(n1+n3+4) a3=Fuori90(n1+n3+39) a4=Fuori90(n1+n3+40) a5=Fuori90(n1+n3+63) nu2(1)=a1 poste(1)=1 : poste(p1+5)=1 : poste(p3+5)=1 co=co+1 ImpostaGiocata co,nu2,ruote,poste,k Erase poste nu1(1)=a1 nu1(2)=a2 nu1(3)=a3 nu1(4)=a4 nu1(5)=a5
co=co+1 ImpostaGiocata co,nu1,ruote,posta,k Gioca es End If Next:Next:Next Next:Next ScriviResoconto End Sub
Ciao Gianni
|