Novità

X Salvo o Mike58 modifica script.

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
 

salvo50

Advanced Member >PLATINUM PLUS<
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:

chicco3

Advanced Member
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
 

chicco3

Advanced Member
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
 

salvo50

Advanced Member >PLATINUM PLUS<
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:

chicco3

Advanced Member
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
 

salvo50

Advanced Member >PLATINUM PLUS<
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto