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
 
salvo50

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:
C

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
 
C

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

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:
C

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

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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 13 aprile 2024
    Bari
    36
    14
    82
    54
    13
    Cagliari
    30
    22
    07
    06
    10
    Firenze
    15
    90
    28
    24
    51
    Genova
    67
    14
    23
    85
    90
    Milano
    67
    53
    40
    90
    84
    Napoli
    62
    58
    64
    29
    05
    Palermo
    61
    36
    90
    70
    83
    Roma
    71
    49
    72
    12
    54
    Torino
    16
    41
    78
    17
    75
    Venezia
    52
    09
    56
    85
    81
    Nazionale
    17
    84
    54
    28
    15
    Estrazione Simbolotto
    Genova
    33
    25
    27
    15
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto