maxma.62 |
|
| Comunque ora ti trova solo in ruote cosecutive con ve/ba e con la somma come dici: CODICE Sub main()
Dim num(2),nu1(5),nu2(8)
Dim ruote(3),posta(5),poste(5)
posta(1)=3:poste(2)=2:poste(3)=2:poste(4)=2:poste(5)=2
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8304) '7156
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "15 è la distanza giusta di c_baldazzi (script by maxma62)",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 10
For p1=1 To 5
a=Estratto (es,r1,p1)
r2=r1+1
If r1=10 Then r2=1
For p2=1 To 5
b=Estratto(es,r2,p2)
If p2=p1 Then 'iso
ds1=Distanza(a,b)
If ds1=15 Then
casi=casi+1:Scrivi String(58,"=")&" script by maxma62",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 "&(p2)&"^ pos."
Scrivi String(62,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:cg=0
amb1=Fuori90((a+b)*2)
ab1=Fuori90(a+30)
ab2=Fuori90(a+60)
ab3=Fuori90(b+30)
ab4=Fuori90(b+60)
nu1(1)=amb1
cg=cg+1
ImpostaGiocata cg,nu1,ruote,posta,k,1
nu2(1)=amb1
nu2(2)=ab1:nu2(3)=ab2
nu2(4)=ab3:nu2(5)=ab4
cg=cg+1
ImpostaGiocata cg,nu2,ruote,poste,k
Gioca es
End If
End If 'iso
Next:Next:Next:Next
Scrivi String(58,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "15 è la distanza giusta di c_baldazzi (script by maxma62)",1
End Sub ciao, max Edited by maxma.62 - 15/2/2011, 21:09 |
| | |
