CODICE
Sub main()
Dim nu1(1),nu2(4),ruote(2),ruota(1),posta(1),poste(4)
posta(1)=5:poste(2)=2:poste(3)=1.3:poste(4)=0.7
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8315)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "metodo ambi trasposti di p_valente (script by maxma62)",1
Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" 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
a=Estratto(es,r1,p1)
b=Estratto(es,r1,p2)
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)
at1=Fuori90(Trasposizione(c,d))'trasposizione
at2=Fuori90(Trasposizione(d,c))'trasposizione
If a=at1 And b=at2 Or a=at2 And b=at1 Then
casi=casi+1:Scrivi String(58,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)&"."&Format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)& " - "&StringaEstratti(es,r2)&" ] [ "&_
Format2(c)&"."&Format2(d)&" ] in "&(p3)&"^/"&(p4)&"^ pos."
Scrivi String(64,"=")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:co=0
n1=Fuori90(a+b) '1^ ambata
n2=Vert(n1) 'abb
n3=DiametraleD(n1) 'abb
n4=DiametraleD(n2) 'abb
nu1(1)=n1
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k,1
nu2(1)=n1:nu2(2)=n2
nu2(3)=n3:nu2(4)=n4
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k 'tutte
Gioca es
End If
Next:Next:Next:Next:Next:Next:Next
Scrivi String(58,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "metodo ambi trasposti di p_valente (script by maxma62)",1
End Sub
