CODICE
Sub Main()
Dim ruote(11)
Dim n1(4)
Dim n2(4)
Dim n3(8)
Dim fi1
Dim fi2
Dim poste(10)
poste(2) = 1
poste(3) = 1
fi1 = CInt(InputBox(" Inserisci la prima Figura ",,"1"))
fi2 = CInt(InputBox(" Inserisci la seconda Figura ",,"6"))
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",30)
k = InputBox("per quanti colpi?","colpi di gioco",9)
ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 9
For r2 = r1 + 1 To 11
If r2 = 11 Then
r2 = 12
End If
For p1 = 1 To 4
For p2 = p1 + 1 To 5
For p3 = 1 To 4
For p4 = p3 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r2,p3)
d = Estratto(es,r2,p4)
'---------------------------------------------
If Figura(a) = fi1 And Figura(b) = fi1 Then
If Figura(c) = fi2 And Figura(d) = fi2 Then
ok = 1
'-----------------------------------------------
If ok = 1 Then
n1(1) = Fuori90(a + d)
n1(2) = Fuori90(b + c)
n1(3) = Vert(n1(1))
n1(4) = Vert(n1(2))
'--------------------------
n2(1) = Fuori90(a + c)
n2(2) = Fuori90(b + d)
n2(3) = Vert(n2(1))
n2(4) = Vert(n2(2))
'--------------------------
n3(1) = Fuori90(a + d)
n3(2) = Fuori90(b + c)
n3(3) = Vert(n1(1))
n3(4) = Vert(n1(2))
n3(5) = Fuori90(a + c)
n3(6) = Fuori90(b + d)
n3(7) = Vert(n2(1))
n3(8) = Vert(n2(2))
casi = casi + 1
Scrivi String(100,"°") & " Caso n°" & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(a) & " - " & Format2(b) & " ]" & " * Figure : " & " [ " & Figura(a) & " - " & Figura(b) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] * [ " & Format2(c) & " - " & Format2(d) & " ]" & " * Figure : " & " [ " & Figura(c) & " - " & Figura(d) & " ] ",1
ruote(1) = r1
ruote(2) = r2
n1(1) = Fuori90(a + d)
n1(2) = Fuori90(b + c)
n1(3) = Vert(n1(1))
n1(4) = Vert(n1(2))
'--------------------------
n2(1) = Fuori90(a + c)
n2(2) = Fuori90(b + d)
n2(3) = Vert(n2(1))
n2(4) = Vert(n2(2))
'--------------------------
n3(1) = Fuori90(a + d)
n3(2) = Fuori90(b + c)
n3(3) = Vert(n1(1))
n3(4) = Vert(n1(2))
n3(5) = Fuori90(a + c)
n3(6) = Fuori90(b + d)
n3(7) = Vert(n2(1))
n3(8) = Vert(n2(2))
ColoreTesto 0
EliminaRipetuti n1
ImpostaGiocata 1,n1,ruote,poste,k,2
EliminaRipetuti n2
ImpostaGiocata 2,n2,ruote,poste,k,2
EliminaRipetuti n3
ImpostaGiocata 3,n3,ruote,poste,k,2
Gioca es,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End Sub