drago2940 |
|
| Ciao Ecco lo script Sub main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim posta(5),poste(5)
poste(1)=1:posta(2)=2
fin=EstrazioneFin
ini=fin-100
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 p2=1 To 5
n2=Estratto(es,r2,p2)
x1=Distanza(n1,n2)
If x1=1 And r1+1=r2 And p1=p2 Then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > Numero distanza < "&Format2(n1)&" <"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > Numero posizione < "&Format2(n2)&"<"
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:k=14:co=0:ruota(5)=11
a1=Massimo(n1,n2)
b1=Fuori90(a1+1)
a2=Minimo(n1,n2)
b2=Abs(a2-1)
c1=Fuori90(a2+b1)
c2=Fuori90(a1+b2)
c3=Fuori90(b2+a2)
c4=Fuori90(a2+b1)
k1=Fuori90(n1+n2) ' AMBATA_
k2=Fuori90(b1+a1)
nu1(1)=k1
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
nu2(1)=k1
nu2(2)=c1
nu2(3)=c2
nu2(4)=c3
nu2(5)=c4
co=co+1
ImpostaGiocata co,nu2,ruote,posta,k
co=co+1
ImpostaGiocata co,nu2,ruota,posta,k
Gioca es
End If
Next:Next:Next
Next:Next
ScriviResoconto
End Sub |
| | |
