Novità

X Salvo o Mike58 modifica script.

C

chicco3

Advanced Member
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",100)
   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 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               AB = Distanza(A,B)
               If AB = 1 Or AB = 10 Or AB = 30 Then
                  For R2 = R1 + 1 To 10
                     'If R2 = 11 Then R2 = 12
                     For P3 = 1 To 5
                        C = Estratto(Es,R2,P3)
                        If C <> A And C <> B Then
                           AC = Distanza(A,C) : BC = Distanza(B,C)
                           Ok = 0
                           If AC = 1 Or AC = 10 Or AC = 30 Then S = AC : Ok = 1
                           If BC = 1 Or BC = 10 Or BC = 30 Then S = BC : 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 CONSECUTIVE"
                                 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 Or E1 = B 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 = 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(AB) & Space(19) & Format2(S),1
                              Scrivi Space(3) & Format2(B),1
                              Scrivi Space(3) & Format2(C),1
                           End If
                        End If
                     Next
                  Next
               End If
            Next
         Next
      Next
   Next
End Sub

Ciao Salvo o Mike58 se è possible volevo modificare questo script all'epoca compilato da te Salvo, vengo al dunque:
- Vorrei che vengano cercati i numeri della distanza 30-10 e 1 come adesso,cambiando solo ruote consecutive con i 3 numeri solo isotopi; la ricerca va estesa sia i due numeri sotto che due numeri sopra come da immagini.Poi se possibile racchiudere la ricerca nelle varie date.Grazie e ne approfitto per farvi gli Auguri di buone feste ciao chicco
RUOTE CONSECUTIVE.JPG
 
Ciao a Tutti.

Ho messo la ricerca sia i due numeri sotto che due numeri sopra, visivamente non si nota, ma ho invertito le ruote, per me è molto più semplice fare così, li ho impostati isotopi, e poi non ho capito cosa intendi con - Poi se possibile racchiudere la ricerca nelle varie date.

Codice: 
 Option Explicit
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,Caso
   Qua = InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",10)
   Ini = EstrazioneFin - Qua
   Fin = EstrazioneFin

   For Es = Ini To Fin
      Messaggio "elab. estr. del < " & DataEstrazione(Es) & " >"
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = 1 To 10
               If R1 - R2 = 1 Or R2 - R1 = 1 Then
                  For P2 = 1 To 4
                     For P3 = P2 + 1 To 5
                        B = Estratto(Es,R2,P2)
                        C = Estratto(Es,R2,P3)
                        If P1 = P2 Or P1 = P3 Then
                           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
                                  Caso = Caso + 1
                                  ColoreTesto 2
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                    ColoreTesto 1
                                    Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"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 Orizzontale " & 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
                            End If
                        Next
                     Next

               End If
            Next
         Next
      Next
   Next
End Sub
 
Ultima modifica:
Ciao Salvo ho controllato lo script forse non mi sono spiegato bene se è possibile la ricerca va fatta come nell'immagine con numeri isotopi in verticale sia due sotto e due sopra con distanza orizzontale e verticale 30-10-1 su ruote consecutive le altre ruote non mi interessano. Per quanto riguarda la separazione delle date è solo per un fatto visivo intendevo esempio giorno 4.12.2018 raggruppare solo questa data dalle altre e cosi via, almeno posso controllare meglio che ne so il giorno 1 dicembre ci sono 4 ricerche distanza 30,nr.2 ricerche di distanza 10 ecc.grazie per il momento che ci metti tanta pazienza.Ciao chicco
 
Salvo cosi va bene lo stesso mancano le formazioni di sopra, queste sono con due numeri sotto e poi possibilmente i 3 numeri della formazione devono avere solo la distanza simmetrica unica in orizzontale e verticale come dall'immagine sopra e non distanza orizzontale 1 e verticale 30. Ok se c'è qualcosa che non capisci fammi sapere ciao e buon lavoro
 
Il fatto che siano con due numeri sotto è solo visivo, le ruote sono invertite quindi quando si verifica che le due ruote sono di sopra, li vedi di sotto perchè ho invertito le ruote, ti ho già detto che fare così per me è molto più semplice, poi è solo visivo cioè li vedi uno di sopra e due di sotto, ma dato che le ruote sono invertite e come se fossero al contrario, fai una prova lancia lo script che hai tu, quello non modificato ed avrai un certo numero di estrazioni con le caratteristiche del metodo, poi lancia lo script modificato e vedrai che le estrazioni con le caratteristiche del metodo, sono molte di più, perchè ci sono anche quelle con due numeri nella prima ruota e un numero nella seconda, ma lo ripeto di nuovo tu vedrai un numero nella ruota di sopra e due numeri nella ruota di sotto,

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/i.postimg.cc\/BQDCSjfT\/prova.png"}[/IMG2]
se guardi ll'estrazione in basso vedi che le ruote sono impostate cosi

CA
BA

La ruota di Bari è di sotto, ma Bari viene prima di Cagliari, quindi i due estratti sono nella ruota di sopra è l'estratto singolo nella ruota dopo, anche se li vedi invertiti,

poi per queste richieste

3 numeri della formazione devono avere solo la distanza simmetrica unica in orizzontale e verticale come dall'immagine sopra e non distanza orizzontale 1 e verticale 30. Ok se c'è qualcosa che non capisci fammi sapere ciao e buon lavoro

fammi degli esempi con estrazioni e numeri (anche inventati)
 
Ultima modifica:
Ciao Salvo va bene un'ultima modifica è di avere la stessa distanza simmetrica unica in orizzontale e verticale come tu hai descritto grazie e buona notte
 
Ciao a Tutti.

Codice: 
Option Explicit
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,Caso
   Qua = InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",100)
   Ini = EstrazioneFin - Qua
   Fin = EstrazioneFin
   For Es = Ini To Fin
      Messaggio "elab. estr. del < " & DataEstrazione(Es) & " >"
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = 1 To 10
               If R1 - R2 = 1 Or R2 - R1 = 1 Then
                  For P2 = 1 To 4
                     For P3 = P2 + 1 To 5
                        B = Estratto(Es,R2,P2)
                        C = Estratto(Es,R2,P3)
                        If P1 = P2 Or P1 = P3 Then
                           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
                                    If BC = S Then
                                       Casi = Casi + 1
                                       Caso = Caso + 1
                                       ColoreTesto 2
                                       Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                       ColoreTesto 1
                                       Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"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 Orizzontale " & 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
                           End If
                        End If
                     Next
                  Next
               End If
            Next
         Next
      Next
   Next
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    lunedì 03 novembre 2025
    Bari
    80
    28
    11
    67
    50
    Cagliari
    20
    29
    71
    33
    15
    Firenze
    33
    50
    21
    09
    11
    Genova
    32
    15
    90
    09
    23
    Milano
    66
    22
    48
    03
    77
    Napoli
    57
    64
    27
    20
    26
    Palermo
    22
    65
    78
    90
    74
    Roma
    32
    57
    43
    20
    08
    Torino
    74
    80
    66
    54
    01
    Venezia
    01
    75
    82
    13
    11
    Nazionale
    71
    05
    55
    77
    61
    Estrazione Simbolotto
    Torino
    13
    06
    40
    02
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto