-Ambata e ambo da numeri cadenza zero in posizione isotopa

[Mauro-emme]

Sub Main
Dim Nu(2),Ru(2),aN(3),Posta(3)
Posta(1) = 1
Posta(2) = 1
Posta(3) = 1
Ini = EstrazioneFin - 1000
fin = EstrazioneFin
For es = Ini To fin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p = 1 To 5
a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
a1 = Estratto(es,r1,1)
a2 = Estratto(es,r1,2)
a3 = Estratto(es,r1,3)
a4 = Estratto(es,r1,4)
a5 = Estratto(es,r1,5)
b1 = Estratto(es,r2,1)
b2 = Estratto(es,r2,2)
b3 = Estratto(es,r2,3)
b4 = Estratto(es,r2,4)
b5 = Estratto(es,r2,5)

If Cadenza(a) = 0 And Cadenza(b) = 0 Then
If r2 - r1 = 1 Then
k = k + 1
Nu(1) = a
Nu(2) = b
Ru(1) = r1
Ru(2) = r2
aN(1) = Fuori90(a/10 & b/10)
aN(2) = Fuori90(b/10 & a/10)
aN(3) = Fuori90(a/10 + b/10)
Scrivi String(100,"-")
Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab & a & " Posiz. " & p
Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r2) & vbTab & b & " Posiz. " & p
Scrivi String(100,"^") & " Caso n. " & k
Scrivi a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5
Scrivi b1 & " " & b2 & " " & b3 & " " & b4 & " " & b5
clp = 5
If aN(1) = a1 Or aN(1) = a2 Or aN(1) = a3 Or aN(1) = a4 Or aN(1) = a5 Then Ru(1) = RuotaDiametrale(r1) : Ru(2) = RuotaDiametrale(r2) 'analizza la presenza di numeri già sortiti o doppi
If aN(2) = a1 Or aN(2) = a2 Or aN(2) = a3 Or aN(2) = a4 Or aN(2) = a5 Then Ru(1) = RuotaDiametrale(r1) : Ru(2) = RuotaDiametrale(r2)
If aN(3) = a1 Or aN(3) = a2 Or aN(3) = a3 Or aN(3) = a4 Or aN(3) = a5 Then Ru(1) = RuotaDiametrale(r1) : Ru(2) = RuotaDiametrale(r2)
If aN(1) = b1 Or aN(1) = b2 Or aN(1) = b3 Or aN(1) = b4 Or aN(1) = a5 Then Ru(1) = RuotaDiametrale(r1) : Ru(2) = RuotaDiametrale(r2)
If aN(2) = b1 Or aN(2) = b2 Or aN(2) = b3 Or aN(2) = b4 Or aN(2) = a5 Then Ru(1) = RuotaDiametrale(r1) : Ru(2) = RuotaDiametrale(r2)
If aN(3) = b1 Or aN(3) = b2 Or aN(3) = b3 Or aN(3) = b4 Or aN(3) = a5 Then Ru(1) = RuotaDiametrale(r1) : Ru(2) = RuotaDiametrale(r2)
If aN(1) = a Or aN(2) = a Or aN(3) = a Or aN(1) = b Or aN(2) = b Or aN(3) = b Then v = 0
If a = b Then Ru(1) = RD(r1) And Ru(2) = RD(r2)
If aN(1) = aN(2) Then aN(2) = 0

ImpostaGiocata 1,aN,Ru,Posta,clp,0

Gioca es,1
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

Function RD(X)
Y = X + 5
If Y > 10 Then Y = Y - 10
RD = Y
End Function