Ecco la modifica con 2 vertibili
- Codice: Seleziona tutto
Sub Main()
Scrivi "Ricerca per Lottomoney [Forum Lottopassion]":Scrivi
ce = CInt(InputBox("Quante estrazione vuoi controllare? ","estrazione",50))
fin = EstrazioneFin
ini = fin - ce
For es = ini To fin
AvanzamentoElab ini,fin,es
k = 0
For r1 = 1 To 10
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 11
If r2 = 11 Then r2 = 12
For p3 = 1 To 4
For p4 = p3 + 1 To 5
a = Estratto(es,r2,p3): b = Estratto(es,r2,p4)
If n1 = Vert(b) And n2 = Vert(a) Or n1 = Vert(a) And n2 = Vert(b) Or n1 = a And n2 = b Or n1 = b And n2 = a Then
casi = casi + 1
Scrivi String(80,"-") & " caso n° " &(casi)
Scrivi DataEstrazione(es) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > < " & Format2(n1) & "." & Format2(n2) & " >" & " Pos " & " " & Format2(p1) & " " & Format2(p2),Iif(p2 = p4 And p1 = p3,1,0)
Scrivi DataEstrazione(es) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > < " & Format2(a) & "." & Format2(b) & " >" & " Pos " & " " & Format2(p3) & " " & Format2(p4),Iif(p2 = p4 And p1 = p3,1,0),False
If n1 = a And n2 = b Or n1 = b And n2 = a Then Scrivi Space(4) & " Rip"
If n1 = Vert(b) And n2 = Vert(a) Or n1 = Vert(a) And n2 = Vert(b) Then Scrivi Space(4) & " 2Vert"
End If
Next
Next
Next
Next
Next
Next
Next
End Sub