drago2940 |
|
| Così va bene Ciao
Sub main() Dim nu1(10),nu2(10),nu3(10) Dim ruote(3) Dim poste(10),posta(10) poste(1)=1 posta(2)=1 fin=EstrazioneFin ini=fin-100 For es=ini To fin AvanzamentoElab ini,fin,es For r1=1 To 11 If r1=11 Then r1=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) For r2=1 To 11 If r2=11 Then r2=12 If r2<>r1 And Distanza(r1,r2)=1 Then For p3=1 To 5 n3=Estratto(es,r2,p3) ds2=Distanza(n1,n3):ds3=Distanza(n2,n3) If ds1=9 And ds2=36 And ds3=45 Then k1=Fuori90(n1+45):ds4=Distanza(k1,n3) casi=casi+1:Scrivi String(75,"="),1 Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_ " > ambo distanza < "&Format2 (ds1)&" .< "&Format2(n1)&" . "&Format2(n2)&" >" Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_ " > ambo distanza < "&Format2 (ds4)&" .< "&Format2(n3)&" . "&Format2(k1)&" >" Scrivi" Numero chiusura "&Format2(k1)&" . " Scrivi String(65,"-")&" caso n° "&(casi) ruote(1)=r1:ruote(2)=r2: k=14:co=0 nu2(1)=k1 poste(1)=1 : poste(p1+5)=1 : poste(p2+5)=1 co=co+1 ImpostaGiocata co,nu2,ruote,poste,k Erase poste nu1(1)=k1 nu1(2)=Fuori90(n2+18) nu1(3)=Fuori90(n3+18) co=co+1 ImpostaGiocata co,nu1,ruote,posta,k nu3(1)=k1 nu3(2)=n1 nu3(3)=n2 nu3(4)=n3 co=co+1 ImpostaGiocata co,nu3,ruote,posta,k Gioca es End If Next End If Next Next Next Next Next ScriviResoconto End Sub
|
| |