Sub Main
Dim ambo1(2),ambo2(2),ambata1(2),ambata2(2)
Dim a,b,c,d,e,f,g,h,i,l,m,n,o,p,q,r,s,t,u,v,z,w,y,j,k,x
Dim n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16
Dim rs,rv,rx,es,rn
Dim R1,R2,R3
Dim poste(2),posta(2)
Dim ruote(5),ruota(3)
posta(1) = 1
poste(2) = 1
k = 9
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
For es = EstrazioneFin - rs To EstrazioneFin
AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
For R1 = 1 To 6
For R2 = R1 + 2 To R2
For R3 = R2 + 2 To R3
'
For p1 = 1 To 1
For p2 = 3 To 3
For p3 = 5 To 5
a = Estratto(es,R1,p1)
b = Estratto(es,R1,p2)
c = Estratto(es,R1,p3)
d = Estratto(es,R2,p1)
e = Estratto(es,R2,p2) ' numero centrale
f = Estratto(es,R2,p3)
g = Estratto(es,R3,p1)
h = Estratto(es,R3,p2)
i = Estratto(es,R3,p3)
'------------------------
n1 = Distanza(a,b)
n2 = Distanza(b,c)
n3 = Distanza(d,e)
n4 = Distanza(e,f)
n5 = Distanza(g,h)
n6 = Distanza(h,i)
'-------------------------
n7 = Distanza(a,d)
n8 = Distanza(b,e)
n9 = Distanza(c,f)
n10 = Distanza(d,g)
n11 = Distanza(e,h)
n12 = Distanza(f,i)
'-------------------------
n13 = Distanza(a,e)
n14 = Distanza(c,e)
n15 = Distanza(g,e)
n16 = Distanza(i,e)
'-------------------------
l = Fuori90(e*2)
s = Fuori90(a + i)
v = Fuori90(d + f)
x = Fuori90(s - b)
y = Fuori90(s - c)
'--------------------------
'If Fuori90(a+c) = l Or Fuori90(d+f)= l Or Fuori90(g+i) = l Or Fuori90(a+i) = l Or Fuori90(g+c) = l Or Fuori90(a+g) = l _
'Or Fuori90(b+h) = l Or Fuori90(c+i) = l Then
'
If s = v Then
'
ambata1(1) = x
ambata2(1) = y
ambo1(1) = x
ambo1(2) = y
'
ruota(1) = R1
ruota(2) = R2
ruota(3) = R3
'-----------------
ruote(1) = R1
ruote(2) = R2
ruote(3) = R3
ruote(4) = TT_
ruote(5) = NZ_
'------------------------------
ReDim MatriceCaselleDaEvid(10,1)
'---------------------------------------------------
MatriceCaselleDaEvid(1,0) = R1
MatriceCaselleDaEvid(1,1) = p1
'------------------------------ ---------------------
MatriceCaselleDaEvid(2,0) = R1
MatriceCaselleDaEvid(2,1) = p2
'--------------------------------------------------
MatriceCaselleDaEvid(3,0) = R1
MatriceCaselleDaEvid(3,1) = p3
'----------------------------------------------------
MatriceCaselleDaEvid(4,0) = R2
MatriceCaselleDaEvid(4,1) = p1
'----------------------------------------------------
MatriceCaselleDaEvid(5,0) = R2
MatriceCaselleDaEvid(5,1) = p2
'----------------------------------------------------
MatriceCaselleDaEvid(6,0) = R2
MatriceCaselleDaEvid(6,1) = p3
'----------------------------------------------------
MatriceCaselleDaEvid(7,0) = R3
MatriceCaselleDaEvid(7,1) = p1
'----------------------------------------------------
MatriceCaselleDaEvid(8,0) = R3
MatriceCaselleDaEvid(8,1) = p2
'----------------------------------------------------
MatriceCaselleDaEvid(9,0) = R3
MatriceCaselleDaEvid(9,1) = p3
'-----------------------------------------------------
ReDim MatriceLegami(20,3)
'1
MatriceLegami(1,0) = R1 '
MatriceLegami(1,1) = p1 '
MatriceLegami(1,2) = R1 '
MatriceLegami(1,3) = p2 '
' 2
MatriceLegami(2,0) = R1 '
MatriceLegami(2,1) = p1 '
MatriceLegami(2,2) = R2 '
MatriceLegami(2,3) = p1 '
' 3
MatriceLegami(3,0) = R1 '
MatriceLegami(3,1) = p2 '
MatriceLegami(3,2) = R2 '
MatriceLegami(3,3) = p2 '
' 4
MatriceLegami(4,0) = R2 '
MatriceLegami(4,1) = p1 '
MatriceLegami(4,2) = R2 '
MatriceLegami(4,3) = p2 '
' 5
MatriceLegami(5,0) = R2 '
MatriceLegami(5,1) = p1 '
MatriceLegami(5,2) = R3 '
MatriceLegami(5,3) = p1 '
' 6
MatriceLegami(6,0) = R2 '
MatriceLegami(6,1) = p2 '
MatriceLegami(6,2) = R3 '
MatriceLegami(6,3) = p2 '
' 7
MatriceLegami(7,0) = R3 '
MatriceLegami(7,1) = p1 '
MatriceLegami(7,2) = R3 '
MatriceLegami(7,3) = p2 '
' 8
MatriceLegami(8,0) = R1 '
MatriceLegami(8,1) = p2 '
MatriceLegami(8,2) = R1 '
MatriceLegami(8,3) = p3 '
' 9
MatriceLegami(9,0) = R2 '
MatriceLegami(9,1) = p2 '
MatriceLegami(9,2) = R2 '
MatriceLegami(9,3) = p3 '
' 10
MatriceLegami(10,0) = R3 '
MatriceLegami(10,1) = p2 '
MatriceLegami(10,2) = R3 '
MatriceLegami(10,3) = p3 '
' 11
MatriceLegami(11,0) = R1 '
MatriceLegami(11,1) = p3 '
MatriceLegami(11,2) = R2 '
MatriceLegami(11,3) = p3 '
' 12
MatriceLegami(12,0) = R2 '
MatriceLegami(12,1) = p3 '
MatriceLegami(12,2) = R3 '
MatriceLegami(12,3) = p3 '
'
Call DisegnaEstrazione(es,MatriceCaselleDaEvid,MatriceLegami)
'
Scrivi("" & Left(NomeRuota(R1),2) & "____" & Format2(a) & "_" & Format2(n1) & "_" & Format2(b) & "_" & Format2(n2) & "_" & Format2(c) & "______"),1,1,3,7,4
Scrivi("______" & Format2(n7) & "____" & Format2(n8) & "_" & "___" & Format2(n9) & "_" & "_____"),1,1,7,3,4
Scrivi("" & Left(NomeRuota(R2),2) & "____" & Format2(d) & "_" & Format2(n3) & "_" & Format2(e) & "_" & Format2(n4) & "_" & Format2(f) & "______"),1,1,3,7,4
Scrivi("______" & Format2(n10) & "____" & Format2(n11) & "_" & "___" & Format2(n12) & "_" & "_____"),1,1,7,3,4
Scrivi("" & Left(NomeRuota(R3),2) & "____" & Format2(g) & "_" & Format2(n5) & "_" & Format2(h) & "_" & Format2(n6) & "_" & Format2(i) & "______"),1,1,3,7,4
Scrivi
Scrivi
ImpostaGiocata 1,ambata1,ruota,posta,k
ImpostaGiocata 2,ambata2,ruota,posta,k
Gioca es,True
Scrivi
Scrivi String(55,"-"),0,1,7,3
Scrivi
ImpostaGiocata 1,ambo1,ruote,poste,k
Gioca es,1,,1
Scrivi
Scrivi
'Call DisegnaCerchioCiclometrico(n,True)
If ScriptInterrotto Then Exit For
End If
Next
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi "script di Zetrix",0,1,3,7,4,4,8
Scrivi "il cruciverba",0,1,7,3,4,4,8
End Sub
Grazie
