Sub Main()
Dim nu1(10)
Dim ruote(10),ruota(10)
Dim poste(5),posta(5)
poste(2) = 1
fin = EstrazioneFin
ini = fin - 10
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 12
For p1 = 1 To 5
n1 = Estratto(es,r1,p1)
For r2 = r1 + 1 To 12
n2 = Estratto(es,r2,p1)
If Figura(n1) = Figura(n2) And n2 <> n1 And r2 <> r1 And r2 <> TT_ And r1 <> TT_ Then
For es1 = es + 1 To es + 4
For r3 = 1 To 12
For p2 = 1 To 5
n3 = Estratto(es1,r3,p2)
For r4 = r3 + 1 To 12
n4 = Estratto(es1,r4,p2)
If n3 <> n4 And r3 <> r4 And r3 <> TT_ And r4 <> TT_ And Fuori90(n1 + n2) = Fuori90(n3 + n4) Then
If n3 = n1 Or n3 = n2 Then
For es2 = es + 5 To es+ 9
For r5 = 1 To 12
For p3 = 1 To 5
n5 = Estratto(es2,r5,p3)
For r6 = r5 + 1 To 12
n6 = Estratto(es2,r6,p3)
If n5 <> n6 And r5 <> r6 And r5 <> TT_ And r6 <> TT_ And Fuori90(n3 + n4) = Fuori90(n5 + n6) Then
If n5 = n3 Or n6 = n3 Then
casi = casi + 1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > 1° Numero < " & Format2(n1) & " . "
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > 2° Numero < " & Format2(n2) & " . "
Scrivi DataEstrazione(es1,1) & " < " & SiglaRuota(r3) & " " & StringaEstratti(es1,r3) & _
" > 3° Numero < " & Format2(n3) & " . "
Scrivi DataEstrazione(es1,1) & " < " & SiglaRuota(r4) & " " & StringaEstratti(es1,r4) & _
" > 4° Numero < " & Format2(n4) & " . "
Scrivi DataEstrazione(es2,1) & " < " & SiglaRuota(r5) & " " & StringaEstratti(es2,r5) & _
" > 5° Numero < " & Format2(n5) & " . "
Scrivi DataEstrazione(es2,1) & " < " & SiglaRuota(r6) & " " & StringaEstratti(es2,r6) & _
" > 6° Numero < " & Format2(n6) & " . "
Scrivi String(65,"-") & " caso n° " &(casi)
ruote(1) = NZ_
ruote(2) = TT_
k = 18: co = o
nu2(1) = n1
nu2(2) = n2
co = co + 1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es2
End If
End If
Next
Next
Next
Next
End If
End If
Next
Next
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub