Sub Main()
Dim n(2),ps(2),ru(2)
fin = EstrazioneFin
ini = 4268
ps(1) = 1
'ps(2)=1
For es = ini To fin
For r = 1 To 10
For r1 = r + 1 To 11
If r1 = 11 Then r1 = 12
ru(1) = r
ru(2) = r1
For p = 1 To 4
p1 = p + 1
a = Estratto(es,r,p) :b = Estratto(es,r,p1)
aa = Estratto(es,r1,p):bb = Estratto(es,r1,p1)
ab = Distanza(a,b)' dist. orizzontale
aabb = Distanza(aa,bb)
If ab = aabb Then
aaa = Distanza(a,aa)' dist. verticale
bbb = Distanza(b,bb)
If aaa = bbb Then
abb = Distanza(a,bb)' dist. diagonale
baa = Distanza(b,aa)
If abb = baa And abb = 45 Then
s = ab + aaa + abb 'somma delle 3 distanze
ab1 = Fuori90(a + b)' somma orizzontale
aabb1 = Fuori90(aa + bb)
If ab1 = aabb1 Then
aaa1 = Fuori90(a + aa)' somma verticale
bbb1 = Fuori90(b + bb)
If aaa1 = bbb1 Then
d = Abs(ab1 - aaa1)'diff. 2 somme
If d = 45 Then
n(1) = aa 'aa Manara
n(2) = 90 -(Diametrale(bb)) 'bb Fabarri
Scrivi
Scrivi "dist. orizzontale " & Format2(ab)
Scrivi "dist. verticale " & Format2(aaa)
Scrivi "dist. diagonale " & Format2(abb)
Scrivi "somma orizzontale " & Format2(ab1)
Scrivi "somma verticale " & Format2(aaa1)
Scrivi
Scrivi "somma 3 distanze " & Format2(s)
Scrivi "diff. 2 somme " & Format2(d)
ColoreTesto 2
Scrivi DataEstrazione(es) & " " & FormatSpace(es,4,1)
Scrivi SiglaRuota(r)
Scrivi Format2(a) & "|" & Format2(b)
Scrivi SiglaRuota(r1)
Scrivi Format2(aa) & "|" & Format2(bb)
ColoreTesto 0
ImpostaGiocata 1,n,ru,ps,16,1
Gioca es
End If
End If
End If
End If
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
