Novità

Listato ambi vertibili

solare

Advanced Member >PLATINUM<
Ciao, chiedo agli esperti un listato che trovi ambi vertibili su due ruote sortiti in posizione isotopa e su ruote consecutive.
Faccio un esempio: In data 22/10/2020 è sortito un'ambo vertibile sulla ruota di ve 23 e nazionale 32.
 
Ciao a Tutti.

Codice:
Option Explicit
Sub Main
   Dim A,B,Es,R1,R2,P1,P2,P3,Fin,Ini,E1,E2
   Ini = EstrazioneFin - 20
   Fin = EstrazioneFin
   Scrivi Space(1) & " Ruote Consecutive, Estratti Vertibili ed Isotope " & Space(1),1,,4,,3,,1
   Scrivi Space(9) & "Chiesto da Solare - SCRIPT Salvo50" & Space(9),1,,4,,3,,1
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 10
         R2 = R1 + 1
         If R2 = 11 Then R2 = 12
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R2,P1)
            If Vert(B) = A Then
               Scrivi String(52,"-"),1
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & " ",1,0
               For P2 = 1 To 5
                  E1 = Estratto(Es,R1,P2)
                  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 P3 = 1 To 5
                  E2 = Estratto(Es,R2,P3)
                  If E2 = B Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E2) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi
            End If
         Next
      Next
   Next
End Sub
 
Ciao a Tutti.

Codice:
Option Explicit
Sub Main
   Dim A,B,Es,R1,R2,P1,P2,P3,Fin,Ini,E1,E2
   Ini = EstrazioneFin - 20
   Fin = EstrazioneFin
   Scrivi Space(1) & " Ruote Consecutive, Estratti Vertibili ed Isotope " & Space(1),1,,4,,3,,1
   Scrivi Space(9) & "Chiesto da Solare - SCRIPT Salvo50" & Space(9),1,,4,,3,,1
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 10
         R2 = R1 + 1
         If R2 = 11 Then R2 = 12
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R2,P1)
            If Vert(B) = A Then
               Scrivi String(52,"-"),1
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & " ",1,0
               For P2 = 1 To 5
                  E1 = Estratto(Es,R1,P2)
                  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 P3 = 1 To 5
                  E2 = Estratto(Es,R2,P3)
                  If E2 = B Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E2) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi
            End If
         Next
      Next
   Next
End Sub
Ciao Salvo50, Complimenti. Potresti fare in modo che trovi gli ambi vertibili in una sola ruota a ritroso in max 3 estrazioni anche non isotopi?
 
Per Trivellato

Codice:
Option Explicit
Sub Main
   Dim A,B,Es,Es2,R1,R2,P1,P2,P3,P4,Fin,Ini,E1,E2,Ind
   Ind = InputBox("Quanti colpi indietro da esaminare?","COLPI",3)
   Ini = EstrazioneFin - 10
   Fin = EstrazioneFin
   Scrivi Space(1) & " Ricerca indietro, Estratti Vertibili  " & Space(1),1,,4,,3,,1
   Scrivi Space(1) & " Chiesto da Trivellato - SCRIPT Salvo50" & Space(1),1,,4,,3,,1
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
      For Es2 = Es - 1 To Es - Ind Step - 1
         For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
            For P1 = 1 To 5
               A = Estratto(Es,R1,P1)
               For P4 = 1 To 5
                  B = Estratto(Es2,R1,P4)
                  If Vert(A) = B Then
                     Scrivi String(52,"-"),1
                     Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R1) & " ",1,0
                     For P2 = 1 To 5
                        E1 = Estratto(Es,R1,P2)
                        If E1 = A Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E1) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                     Scrivi "  " & SiglaRuota(R1) & " ",1,0
                     For P3 = 1 To 5
                        E2 = Estratto(Es2,R1,P3)
                        If E2 = B Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E2) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                  End If
               Next
            Next
         Next
      Next
   Next
End Sub
 
Per Trivellato

Codice:
Option Explicit
Sub Main
   Dim A,B,Es,Es2,R1,R2,P1,P2,P3,P4,Fin,Ini,E1,E2,Ind
   Ind = InputBox("Quanti colpi indietro da esaminare?","COLPI",3)
   Ini = EstrazioneFin - 10
   Fin = EstrazioneFin
   Scrivi Space(1) & " Ricerca indietro, Estratti Vertibili  " & Space(1),1,,4,,3,,1
   Scrivi Space(1) & " Chiesto da Trivellato - SCRIPT Salvo50" & Space(1),1,,4,,3,,1
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
      For Es2 = Es - 1 To Es - Ind Step - 1
         For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
            For P1 = 1 To 5
               A = Estratto(Es,R1,P1)
               For P4 = 1 To 5
                  B = Estratto(Es2,R1,P4)
                  If Vert(A) = B Then
                     Scrivi String(52,"-"),1
                     Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R1) & " ",1,0
                     For P2 = 1 To 5
                        E1 = Estratto(Es,R1,P2)
                        If E1 = A Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E1) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                     Scrivi "  " & SiglaRuota(R1) & " ",1,0
                     For P3 = 1 To 5
                        E2 = Estratto(Es2,R1,P3)
                        If E2 = B Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E2) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                  End If
               Next
            Next
         Next
      Next
   Next
End Sub
GRAZIE SALVO50 TI INVIO UNA STRETTA DI MANO CHILOMETRICA E UNA STRETTA DI MANO ANCHE A SOLARE.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 16 settembre 2025
    Bari
    26
    29
    18
    10
    69
    Cagliari
    28
    35
    57
    44
    17
    Firenze
    19
    29
    49
    15
    17
    Genova
    23
    37
    13
    90
    58
    Milano
    33
    84
    76
    24
    79
    Napoli
    78
    15
    03
    24
    56
    Palermo
    80
    24
    41
    08
    75
    Roma
    55
    62
    83
    34
    69
    Torino
    27
    80
    69
    51
    84
    Venezia
    89
    74
    72
    82
    21
    Nazionale
    45
    20
    85
    33
    67
    Estrazione Simbolotto
    Palermo
    21
    19
    27
    36
    18
Indietro
Alto