| Ciao Forum Ecco il listato del metodo in l8
Sub main() Dim nu1(10),nu2(10) Dim ruote(10),ruota(10) Dim poste(2) poste(2)=1 fin=EstrazioneFin ini=fin-200 For es=ini To fin AvanzamentoElab ini,fin,es a1=Figura(Estratto(es,1,1)) a2=Figura(Estratto(es,1,2)) a3=Figura(Estratto(es,1,3)) a4=Figura(Estratto(es,1,4)) a5=Figura(Estratto(es,1,5)) b1=Figura(Estratto(es,2,1)) b2=Figura(Estratto(es,2,2)) b3=Figura(Estratto(es,2,3)) b4=Figura(Estratto(es,2,4)) b5=Figura(Estratto(es,2,5)) c1=Fuori90(a1+a2+a3+a4+a5) c2=Fuori90(b1+b2+b3+b4+b5) c3=Fuori90(c1+c2) c4=Fuori90(Decina(c3)*Cadenza(c3)) casi=casi+1:Scrivi String(75,"="),1 Scrivi DataEstrazione(es,1)&" < "&siglaRuota(1)& " "& StringaEstratti(es,1)&_ " > Somma Figure < "&Format2(c1)&" >" Scrivi DataEstrazione(es,1)&" < "&siglaRuota(2)& " "& StringaEstratti(es,2)&_ " > Somaa Figure < "&Format2(c2)&" >" Scrivi String(65,"-")&" caso n° "&(casi) ruote(1)=1:ruote(2)=2:ruota(1)=11:k=14:co=0 nu1(1)=c3 nu1(2)=c4 co=co+1 ImpostaGiocata co,nu1,ruote,poste,k co=co+1 ImpostaGiocata co,nu1,ruota,poste,k nu1(1)=Vert(c3) nu1(2)=Vert(c4) co=co+1 ImpostaGiocata co,nu1,ruote,poste,k co=co+1 ImpostaGiocata co,nu1,ruota,poste,k nu2(1)=c3 nu2(2)=c4 nu2(3)=Vert(c3) nu2(4)=Vert(c4) co=co+1 ImpostaGiocata co,nu2,ruote,poste,k Gioca es Next ScriviResoconto End Sub
Ciao Gianni
|