CODICE
Sub main()
Dim num(2),nu1(2),nu2(6)
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",8310) '6966
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "la mitica distanza 16 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=16 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)+45) '1^ ambata
amb2=DiametraleD(amb1) '2^ ambata
ab1=90-a
If ab1=0 Then ab1=90
ab2=Vert(ab1)
ab3=90-b
If ab3=0 Then ab3=90
ab4=Vert(ab3)
nu1(1)=amb1:nu1(2)=amb2
cg=cg+1
ImpostaGiocata cg,nu1,ruote,posta,k,1
nu2(1)=amb1:nu2(2)=amb2
nu2(3)=ab1:nu2(4)=ab2
nu2(5)=ab3:nu2(6)=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 "la mitica distanza 16 di c_baldazzi (script by maxma62)",1
End Sub
