Codice:
Sub Main()
Dim Es,Ini,Fin,Qua,R1,R2,P1,P2,P3,S,Ok
Dim A,B,C,AB,AC,BC,E1,E2,P4,P5,Casi
Qua = InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",10)
Ini = EstrazioneFin - Qua
Fin = EstrazioneFin
Casi = 0
For Es = Ini To Fin
Messaggio "elab. estr. del < " & DataEstrazione(Es) & " >"
AvanzamentoElab Ini,Fin,Es
For R1 = 1 To 9
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
For R2 = R1 + 1 To 10
For P2 = 1 To 4
For P3 = P2 + 1 To 5
B = Estratto(Es,R2,P2)
C = Estratto(Es,R2,P3)
If A <> B And A <> C Then
AB = Distanza(A,B) : AC = Distanza(A,C) : BC = Distanza(B,C)
Ok = 0
If BC = 1 Or BC = 10 Or BC = 30 Then
If AB = 1 Or AB = 10 Or AB = 30 Then S = AB : Ok = 1
If AC = 1 Or AC = 10 Or AC = 30 Then S = AC : Ok = 1
If Ok = 1 Then
Casi = Casi + 1
ColoreTesto 1
Scrivi String(60,"x") & " Caso " & FormattaStringa(Casi,"0000")
ColoreTesto 0
If R2 - R1 = 1 Then
ColoreTesto 2
Scrivi Space(20) & "RUOTE CONSECITIVE"
ColoreTesto 0
End If
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P4 = 1 To 5
E1 = Estratto(Es,R1,P4)
If E1 = A Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P5 = 1 To 5
E2 = Estratto(Es,R2,P5)
If E2 = B Or E2 = C Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi " Estratti" & Space(4) & "Distanza Orizontale " & Space(3) & "Distanza Verticale ",1
Scrivi Space(3) & Format2(A) & Space(17) & Format2(BC) & Space(19) & Format2(S),1
Scrivi Space(3) & Format2(B),1
Scrivi Space(3) & Format2(C),1
End If
End If
End If
Next
Next
Next
Next
Next
Next
End SubCiao Salvo spero tutto bene quando puoi modificami questo script fatto da te.Ti spiego cosa deve fare trovare sempre la distanza 30-10-1 in orizzontale,verticale e diagonale,però voglio ruote consecutive con ricerca numeri isotopi, possibilmente queste a parte sempre nello stesso listato, nonchè ruote non consecutive sempre ricerca con numeri isotopi, come da immagine. Se c'è qualcosa dimmelo pure prima di iniziare grazie e buon lavoro chicco
Ultima modifica:
