| metodo interessante,trovato in rete
[CODE][Sub main()
Dim num1(2),num2(8),ruote(2),ruota(1),posta(1),poste(3)
Dim nu(6),nu1(6)
posta(1)=1:poste(2)=1.5:poste(3)=1.5
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",40)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=EstrazioneFin-ce
fin=EstrazioneFin
Scrivi " numero isotopo con uguale cadenza (script by lones) ",1
Scrivi String(6," ")& " su ruote consecutive ",1
Scrivi String(6," ")& " FORUM PREVISIONI899",1
Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione(es,1)
For r1=1 To 12
If r1=11 Then r1=12 End If
For p1=1 To 5
a=Estratto(es,r1,p1)
r2=r1+1
If r1=10 Then r2=12
If r1=12 Then r2=1
b=Estratto(es,r2,p1)
If Cadenza(a)=Cadenza(b) Then
c=Figura(a)
c1=Figura(b)
g=0
For p2=1 To 5
cc=Estratto (es,r1,p2)
If cc<>a Then
g=g+1
nu(g)=cc
End If
Next
g1=0
For p3=1 To 5
ccc=Estratto (es,r2,p3)
If ccc<>b Then
g1=g1+1
nu1(g1)=ccc
End If
Next
casi=casi+1:Scrivi String(60,"=")&" script by lones",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" "&StringaEstratti(es,r1)&_
" ] [ "&format2(a)&" ] in "&(p1)&"^ pos. "
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" "&StringaEstratti(es,r2)&_
" ] [ "&format2(b)&" ] in "&(p1)&"^ pos. "
Scrivi "numeri rimanenti [ "&format2(nu(1))&"."&format2(nu(2))&"."&format2(nu(3))&"."&format2(nu(4))&"]"
Scrivi "numeri rimanenti [ "&format2(nu1(1))&"."&format2(nu1(2))&"."&format2(nu1(3))&"."&format2(nu1(4))&"]"
Scrivi String(60,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:cg=0
num1(1)=Fuori90(c&c1)
num1(2)=Vert(num1(1))
cg=cg+1
ImpostaGiocata cg,num1,ruote,posta,k
num2(1)=Fuori90(c&c1)
num2(2)=Vert(num1(1))
num2(3)=Fuori90(Figura(nu(1))&Figura (nu1(1)))
num2(4)=Fuori90(Figura(nu(2))&Figura (nu1(2)))
num2(5)=Fuori90(Figura(nu(3))&Figura(nu1(3))):num2(6)=Fuori90(Figura(nu(4))&Figura(nu1(4)))
cg=cg+1
ImpostaGiocata cg,num2,ruote,poste,k
cg=cg+1
ImpostaGiocata cg,num2,ruota,poste,k
Gioca es
End If
Next:Next:Next
Scrivi String(60,"=")&" script by lones",1
ScriviResoconto
Scrivi " numero isotopo con uguale cadenza (script by lones) ",1
End Sub
/CODE]
|
