CODICE
Sub main()
Dim nu1(4),ruote(2),ruota(1),posta(1),poste(2),nu(3),ug(2)
posta(1)=1:poste(2)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8333)
k=InputBox ("per quanti colpi?","colpi di gioco",9)
ini=ce
fin=EstrazioneFin
Scrivi "metodo somme_figure uguali di ufolotto (script by maxma62)",1
Scrivi String(83,"="),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 12
If r1<>11 Then
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1):b=Estratto(es,r1,p2)
For r2=1 To 12
If r2<>11 And r2<>r1 Then
For p3=1 To 5
c=Estratto(es,r2,p3)
If p1=p3 Or p2=p3 Then 'iso
f1=Figura(a):f2=Figura(b):f3=Figura(c)
If f1=f2 And f2=f3 And f3=f1 Then
d1=Distanza(a,b):d2=Distanza(b,c):d3=Distanza(a,c)
'If (d1=9 Or d1=18 Or d1=27 Or d1=45) And (d2=9 Or d2=18 Or d2=27 Or _
'd2=45) And (d3=9 Or d3=18 Or d3=27 Or d3=45)Then 'solo 9 / 18 / 27 / 45
If (d1=18 Or d1=27 Or d1=45) And (d2=18 Or d2=27 Or _
d2=45) And (d3=18 Or d3=27 Or d3=45)Then 'solo 18 / 27 / 45
n1=Fuori90(90+((a+b)-c)):n2=Fuori90(90+((a+c)-b))
n3=Fuori90(90+((c+b)-a)):n4=Fuori90(a+b+c) 'ambata 1
n5=Vert(n4) 'ambata 2
nu(1)=n1:nu(2)=n2:nu(3)=n3
For i= 1 To 2
For y=i+1 To 3
If nu(i)=nu(y) Then ug(1)=i:ug(2)=y:kk=nu(i)
Next:Next
If n1=n2 Or n2=n3 Or n3=n1 Then n5=kk
casi=casi+1:Scrivi String(65,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)&"."&format2(b)&" ] fig. [ "&(f1)&"."&(f2)&" ] in "&(p1)&"^/"&(p2)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&StringaEstratti(es,r2)&" ] [ "&_
Format2(c)&" ] fig. [ "&(f3)&" ] in "&(p3)&"^ pos."
Scrivi String(71,"-")&" caso n° "&(casi)
Scrivi "distanza "&format2(a)&"."&format2(b)&" = "&format2(d1)&" | distanza "&format2(b)&"."&_
Format2(c)&" = "&format2(d2)&" | distanza "&format2(a)&"."&format2(c)&" = "&format2(d3)
Scrivi String(83,"-")
Scrivi format2(a)&" = A / "&format2(b)&" = B / "&format2(c)&" = C "
Scrivi "1^ somma ((A+B)-C) = "&format2(n1)
Scrivi "2^ somma ((A+C)-D) = "&format2(n2)
Scrivi "3^ somma ((C+D)-A) = "&format2(n3)
Scrivi "somma delle somme = "&format2(n4)&" (ambata 1)"
If n1=n2 Or n2=n3 Or n3=n1 Then
Scrivi "nelle somme c'è un numero uguale = "&format2(kk)&" (ambata 2)"
Else
If n1<>n2 Or n2<>n3 Or n3<>n1 Then
Scrivi "nessun numero uguale nelle somme vert. di "&format2(n4)&_
" = "&format2(n5)&" (ambata 2)"
End if:end If
Scrivi String(83,"-")
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:co=0
nu1(1)=n4:nu1(2)=n5
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k,0
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k,0
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k,0
Gioca es
End If
End If 'iso
End If 'dist
Next
End If
Next:Next:Next
End If
Next:Next
Scrivi String(65,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "metodo somme_figure uguali di ufolotto (script by maxma62)",1
End Sub