ecco lo script charly, almeno quello che abbiamo capito io e max dal tuo esempio!!!
CODICE
Sub main()
Dim num1(2),num2(7),nu1(2),ruota1(2),ruota2(1)
Dim posta(1),poste(2),post(5)
posta(1)=1:poste(2)=1
post(2)=1:post(3)=1:post(3)=1:post(4)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8324)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "script per charly",1
Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(rs)&" estr.)"
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
a=Estratto(es,r1,p1):b=Estratto(es,r1,p2)
d1=Distanza(a,b)
For r2=r1+1 To 12
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r2,p3):d=Estratto(es,r2,p4)
d2=Distanza(c,d)
If p1=p3 And p2=p4 Then 'iso
If d1=d2 Then
n1=Fuori90(a+b) 'L abb
n2=Fuori90(c+d) 'G abb
n3=Fuori90(n1+n2) 'Y capog
n4=Fuori90(a+d) 'M abb
n5=Fuori90(b+c) 'k capog
nu1(1)=n1:nu1(2)=n2
OrdinaMatrice nu1
n6=Abs(nu1(1)-n4) 'abb
n7=Abs(nu1(2)-n5) 'abb
casi=casi+1:Scrivi String(58,"=")&" 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(62,"-")&" caso n° "&(casi)
Scrivi "ambate in gioco su "&siglaruota(r1)&"/"&siglaruota(r2)&" [ "&format2(n3)&"."&_
Format2(n5)&" ] abb. [ "&format2(n1)&"."&format2(n2)&"."&format2(n6)&"."&format2(n7)&" ]"
Scrivi String(76,"-")
ruota1(1)=r1:ruota1(2)=r2:ruota2(1)=11:cg=0
num1(1)=n3:num1(2)=n5
cg=cg+1
ImpostaGiocata cg,num1,ruota1,posta,k
cg=cg+1
ImpostaGiocata cg,num1,ruota1,poste,k
cg=cg+1
ImpostaGiocata cg,num1,ruota2,poste,k
num2(1)=n3:num2(2)=n5
num2(3)=n1:num2(4)=n2
num2(5)=n6:num2(6)=n7
num2(7)=n4
cg=cg+1
ImpostaGiocata cg,num2,ruota1,post,k
Gioca es
End If
End If 'iso
Next:Next:Next:Next:Next:Next:next
Scrivi String(58,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "script per charly",1
End Sub
ovviamente ci sono tutte le distanze uguali,se non va bene facci sapereeeeeeeeeeeeeeeeeee