Sub Main()
Dim ruota(5),ruote(5)
Dim posta(5),poste(5)
Dim r1,r2,r3
Dim ambo1(2),ambo2(2),ambo3(2),terzina(3)
Dim caso
'
posta(2) = 1
poste(2) = 1
poste(3) = 1
'
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
k = 0
'
caso = 0
For es = EstrazioneFin - rs To EstrazioneFin
AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
'
For r1 = 1 To 8
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
'-----------------------------------
For r2 = r1 + 1 To 9
For p3 = 1 To 4
For p4 = p3 + 1 To 5
n3 = Estratto(es,r2,p3)
n4 = Estratto(es,r2,p4)
'----------------------------------
For r3 = r2 + 1 To 10
For p5 = 1 To 4
For p6 = p5 + 1 To 5
n5 = Estratto(es,r3,p5)
n6 = Estratto(es,r3,p6)
'-----------------------------------
'--------------------------------
n7 = Differenza(n1,n2)
n8 = Differenza(n3,n4)
n9 = Differenza(n5,n6)
'-------------------------
'
If Differenza(n1,n2) And Differenza(n3,n4) And n7 = n8 _
And Differenza(n3,n4) And Differenza(n5,n6) And n8 = n9 Then
'
'
n10 = Fuori90(n1 - n5 + n6)
n11 = Fuori90(n5 - n6 + n4)
n12 = Fuori90(n5 - n1 + n2)
'
ambo1(1) = n10
ambo1(2) = n11
'
ambo2(1) = n10
ambo2(2) = n12
'
ambo3(1) = n11
ambo3(2) = n12
'
terzina(1) = n10
terzina(2) = n11
terzina(3) = n12
'
ruote(1) = r1
ruote(2) = r2
ruote(3) = r3
ruote(4) = TT_
ruote(5) = NZ_
'----------------------------
'Scrivi String(99,"-") & " gioco n. " & caso
'
'---------------------------------
'
ReDim MatriceCaselleDaEvid(6,1)
' 1
MatriceCaselleDaEvid(1,0) = r1 '
MatriceCaselleDaEvid(1,1) = p1 '
' 2
MatriceCaselleDaEvid(2,0) = r1 '
MatriceCaselleDaEvid(2,1) = p2 '
' 3
MatriceCaselleDaEvid(3,0) = r2 '
MatriceCaselleDaEvid(3,1) = p3 '
' 4
MatriceCaselleDaEvid(4,0) = r2 '
MatriceCaselleDaEvid(4,1) = p4 '
' 5
MatriceCaselleDaEvid(5,0) = r3 '
MatriceCaselleDaEvid(5,1) = p5 '
' 6
MatriceCaselleDaEvid(6,0) = r3 '
MatriceCaselleDaEvid(6,1) = p6 '
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
'-------------------------------------------------------------
If n7 = n8 And n8 = n9 Then
Scrivi "differenza" & Space(2) & n1 & " " & n2 & Space(0) & " = " & n7 & " ",1,1,7,3,4
Scrivi "differenza" & Space(2) & n3 & " " & n4 & Space(0) & " = " & n8 & " ",1,1,7,3,4
Scrivi "differenza" & Space(2) & n5 & " " & n6 & Space(0) & " = " & n9 & " ",1,1,7,3,4
End If
'-------------------------------------------------------------------
Scrivi
If n7 = n8 And n8 = n9 Then
Scrivi("" & Format2(n1) & "____" & Format2(n2) & "____"),0,0,1,3,6
Scrivi("" & Format2(n10) & "") & " ",0,1,2,3,6
Scrivi("|" & Space(6) & "|" & Space(5) & "|" & " "),0,1,1,3,6
Scrivi("" & Format2(n11) & ""),0,0,2,3,6
Scrivi("" & Space(4) & Format2(n3) & Space(4) & Format2(n4) & " ") & "",0,1,1,3,6
Scrivi("|" & Space(6) & "|" & Space(5) & "|" & " ") & "",0,0,1,3,6
Scrivi
Scrivi("" & Format2(n5) & "____"),0,0,1,3,6
Scrivi("" & Format2(n12) & ""),0,0,2,3,6
Scrivi("____" & Format2(n6) & "") & " ",0,1,1,3,6
Scrivi "" & Space(15) & "",0,1,1,3,6
End If
'
Scrivi
ImpostaGiocata 1,ambo1,ruote,posta,k
ImpostaGiocata 2,ambo2,ruote,posta,k
ImpostaGiocata 3,ambo3,ruote,posta,k
Gioca es,1,,1
Scrivi
Scrivi
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Scrivi "script di Zetrix",0,1,7,3,4,4,8
Scrivi "sistema a cruciverba",0,1,7,3,4,4,8
End Sub