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
    giovedì 16 gennaio 2025
    Bari
    47
    33
    54
    51
    58
    Cagliari
    58
    88
    03
    30
    65
    Firenze
    76
    56
    16
    73
    29
    Genova
    78
    58
    71
    18
    26
    Milano
    09
    74
    15
    26
    57
    Napoli
    75
    81
    35
    59
    17
    Palermo
    17
    39
    46
    54
    08
    Roma
    28
    75
    76
    02
    23
    Torino
    24
    36
    80
    87
    89
    Venezia
    86
    70
    37
    23
    45
    Nazionale
    09
    65
    30
    06
    07
    Estrazione Simbolotto
    Bari
    21
    43
    01
    02
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto