CODICE
Sub main()
Dim num1(2),num2(6)
Dim ruote(2),posta(5),poste(5)
posta(1)=1:poste(2)=5:poste(3)=3:poste(4)=2:poste(5)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8265)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "semplice, è ciclometria di morenish (script by maxma62)",1
Scrivi String(83,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(rs)&" estr.)",1
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)
For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
If (p2=p1+1) Or (p2=5 And p1=1) Then '<<< pos consec
a=Estratto (es,r1,p1):b=Estratto (es,r1,p2)
r2=r1+1 ' per ruote consecutive (consec ba-ve)
If r1=10 Then r2=1
For p3=1 To 4
For p4=p3+1 To 5
If (p4=p3+1) Or (p4=5 And p3=1) Then '<<< pos consec
c=Estratto(es,r2,p3):d=Estratto(es,r2,p4)
If p1=p3 And p2=p4 Then 'iso
If Distanza(a,b)=Distanza(c,d) Then
d1=Distanza(a,b):d2=Distanza(c,d)
casi=casi+1:Scrivi String(65,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)&"."&Format2(b)&" ] dist. "&format2(d1)&" in "&(p1)&"^/"&(p2)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "&StringaEstratti(es,r2)&" ] [ "&_
Format2(c)&"."&Format2(d)&" ] dist. "&format2(d2)&" in "&(p3)&"^/"&(p4)&"^ pos."
Scrivi String(70,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:cg=0
nu1=Fuori90(d1*3)'ambata 1
nu2=Diametrale(nu1)'ambata 2
n1=Fuori90(90+(a-d1)) 'abb
n2=Fuori90(b+d1)'abb
n3=Fuori90(c+d1)'abb
n4=Fuori90(90+(d-d1))'abb
num1(1)=nu1:num1(2)=nu2
cg=cg+1
ImpostaGiocata cg,num1,ruote,posta,k
num2(1)=nu1:num2(2)=nu2:
num2(3)=n1:num2(4)=n2
num2(5)=n3:num2(6)=n4
cg=cg+1
ImpostaGiocata cg,num2,ruote,poste,k
Gioca es
End If
End If 'pos consec r2
End If 'iso
Next:Next
End If 'pos consec r1
Next:Next:Next:Next
Scrivi String(65,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "semplice, è ciclometria di morenish (script by maxma62)",1
End Sub