annuncio

Comprimi
Ancora nessun annuncio.

X Salvo o Mike58 modifica script.

Comprimi
X
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • X Salvo o Mike58 modifica script.

    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
    Clicca sull'immagine per ingrandirla. 

Nome:   RUOTE CONSECUTIVE.JPG 
Visite: 1 
Dimensione: 18.8 KB 
ID: 2142768

  • #2
    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 di salvo50; 05-12-2018, 21:46.
    Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

    (B. Castiglione, - Il cortegiano)

    Commenta


    • #3
      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

      Commenta


      • #4
        Ho messo solo ruote consecutive e quanti casi si sono verificati in una estrazione
        Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

        (B. Castiglione, - Il cortegiano)

        Commenta


        • #5
          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

          Commenta


          • #6
            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,


            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 di salvo50; 06-12-2018, 01:35.
            Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

            (B. Castiglione, - Il cortegiano)

            Commenta


            • #7
              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

              Commenta


              • #8
                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
                Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                (B. Castiglione, - Il cortegiano)

                Commenta


                • #9
                  Buongiorno Salvo lo script è perfetto grazie di cuore e buone feste

                  Commenta


                  • #10
                    Ciao Chicco3
                    Buone Feste Anche a Te
                    Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                    (B. Castiglione, - Il cortegiano)

                    Commenta

                    Unconfigured Ad Widget

                    Comprimi

                    Ultima estrazione del lotto

                    Comprimi

                    Estrazione del lotto
                    giovedì 06 dicembre 2018
                    Bari
                    51
                    21
                    12
                    10
                    62
                    Cagliari
                    60
                    85
                    81
                    12
                    43
                    Firenze
                    62
                    17
                    11
                    28
                    39
                    Genova
                    12
                    67
                    63
                    42
                    28
                    Milano
                    87
                    42
                    58
                    32
                    37
                    Napoli
                    74
                    12
                    27
                    16
                    03
                    Palermo
                    59
                    89
                    41
                    79
                    52
                    Roma
                    07
                    51
                    39
                    37
                    38
                    Torino
                    67
                    29
                    15
                    14
                    70
                    Venezia
                    33
                    35
                    06
                    03
                    58
                    Nazionale
                    81
                    23
                    45
                    71
                    14
                    Sto operando...
                    X