annuncio

Comprimi
Ancora nessun annuncio.

X Salvo ò chi può una modifica a questo script.

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

  • X Salvo ò chi può una modifica a questo 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",10)
       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 5
                A = Estratto(Es,R1,P1)
                For R2 = R1 + 1 To 10
                   For P2 = 1 To 4
                      For P3 = P2 + 1 To 5
                         B = Estratto(Es,R2,P2)
                         C = Estratto(Es,R2,P3)
                         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
                                  ColoreTesto 1
                                  Scrivi String(60,"x") & " Caso " & FormattaStringa(Casi,"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 Orizontale " & 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
                      Next
                   Next
                Next
             Next
          Next
       Next
    End Sub
    Ciao Salvo spero tutto bene quando puoi modificami questo script fatto da te.Ti spiego cosa deve fare trovare sempre la distanza 30-10-1 in orizzontale,verticale e diagonale,però voglio ruote consecutive con ricerca numeri isotopi, possibilmente queste a parte sempre nello stesso listato, nonchè ruote non consecutive sempre ricerca con numeri isotopi, come da immagine. Se c'è qualcosa dimmelo pure prima di iniziare grazie e buon lavoro chicco
    Clicca sull'immagine per ingrandirla. 

Nome:   Cattura.JPG 
Visite: 173 
Dimensione: 25.3 KB 
ID: 2165604
    Ultima modifica di chicco3; 08-04-2019, 21:12.

  • #2
    Ciao Chicco3

    vedi se può andare

    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",10)
       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 5
                A = Estratto(Es,R1,P1)
                For R2 = R1 + 1 To 10
                   For P2 = 1 To 4
                      For P3 = P2 + 1 To 5
                         B = Estratto(Es,R2,P2)
                         C = Estratto(Es,R2,P3)
                         If(A <> B And A <> C) And P1 = P2 Or P1 = P3 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(P1 = P2 And BC = AB) And(AB = 1 Or AB = 10 Or AB = 30) Then S = AB : Ok = 1
                               If(P1 = P3 And BC = AC)And(AC = 1 Or AC = 10 Or AC = 30) Then S = AC : Ok = 1
                               'If AC = 1 Or AC = 10 Or AC = 30 Then S = AC : Ok = 1
                               If Ok = 1 Then
                                  'If BC = AC Or BC = AB 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 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 Orizontale " & Space(3) & "Distanza Verticale  ",1
                                  Scrivi Space(3) & Format2(A) & Space(17) & Format2(BC) & Space(18) & 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
                Next
             Next
          Next
       Next
    End Sub


    Ultima modifica di salvo50; 09-04-2019, 22:34.
    Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

    (B. Castiglione, - Il cortegiano)

    Commenta


    • #3
      Ciao Salvo grazie sei piu veloce della luce, se puoi eliminarmi le distanze orizzontali e verticali disuguali cioè 10 e 30, devono essere solo o 10-10; 30-30; 1-1 come da immagini. Poi le ruote consecutive non si può fare in modo che siano a parte nello stesso listato,chiedo non lo so se si può fare. Ciao e buona serata grazie sempre gentile
      Clicca sull'immagine per ingrandirla. 

Nome:   distanza 10.JPG 
Visite: 224 
Dimensione: 61.9 KB 
ID: 2165625

      Commenta


      • #4
        Ciao a Tutti.

        Ho eliminato nella visualizzazione le distanze disuguali, ma mi sono accorto che non sempre la distanza verticale era esatta, quindi dato che non posso sapere con quale si va ad incolonnare il primo estratto, col primo o secondo estratto della seconda ruota, nella visualizzazione la seconda distanza può essere verticale o diagonale.

        E' lo stesso inghippo che sto avendo con lo script chiesto da Kubes qui

        https://forum.lottoced.com/forum/lot...510-ambo-unito

        se risolvo da Kubes e se per te è importante, dopo accomoderò anche questo
        Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

        (B. Castiglione, - Il cortegiano)

        Commenta


        • #5
          Ciao Salvo si è importante deve avere due distanze uguali in pratica le altre non servono , comunque fai con comodo tanto io fretta non c'è lo.Ciao

          Commenta


          • #6
            Originariamente inviato da chicco3 Visualizza il messaggio
            Ciao Salvo si è importante deve avere due distanze uguali in pratica le altre non servono , comunque fai con comodo tanto io fretta non c'è lo.Ciao
            Ha 2 distanze uguali, perche oltre alla distanza orizzontale può avere solo un altra distanza o verticale oppure diagonale
            Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

            (B. Castiglione, - Il cortegiano)

            Commenta


            • #7
              Ho trovato il modo, adesso ci sono solo le distanze orizzontali e verticali, fai un controllo, perchè io ho controllato solo qualche estrazione
              Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

              (B. Castiglione, - Il cortegiano)

              Commenta


              • chicco3
                chicco3 commentata
                Modifica di un commento
                Ok ci guardo grazie

            • #8
              Ciao Salvo cosi' a vista d'occhio va bene almeno abbiamo tolto quello che era in più.Controlla anche te a me sembra che non ci siano i numeri da due sopra e uno sotto e, se riesci separami le ruote consecutive racchiuse in un quadrato rettangolo fa come ti pare. Ciao fammi sapere

              Commenta


              • #9
                Originariamente inviato da chicco3 Visualizza il messaggio
                Ciao Salvo cosi' a vista d'occhio va bene almeno abbiamo tolto quello che era in più.Controlla anche te a me sembra che non ci siano i numeri da due sopra e uno sotto e, se riesci separami le ruote consecutive racchiuse in un quadrato rettangolo fa come ti pare. Ciao fammi sapere
                Ciao a Tutti.

                Per le ruote consecutive racchiuse in un quadrato o rettangolo non so come fare, al massimo posso farlo apparire più grande, a riguardo dei 2 numeri sopra e 1 sotto, sicuramente non ci sono perchè io non li ho predisposti, non ho capito se vuoi che ci siano o no.
                Ultima modifica di salvo50; 10-04-2019, 08:16.
                Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                (B. Castiglione, - Il cortegiano)

                Commenta


                • #10
                  Buongiorno Salvo certo che devono apparire sia due numeri sopra che due numeri sotto.Per quanto riguarda le ruote consecutive va bene anche farle apparire più grandi. Grazie e buona giornata

                  Commenta


                  • #11
                    Ciao a Tutti.
                    Ciao Chicco, vedi se può andare

                    codice:
                    Option Explicit
                    Sub Main
                       Dim FIn,Es,Ini,R1,R2
                       Dim Caso,Casi,P1,P2,A,B,C,D,E1,E2
                       Dim PP1,PP2,DAB,DCD,DAC,DBD,DAD,DBC
                       Ini = 9600
                       FIn = EstrazioneFin
                       Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
                       Scrivi Space(12) & " DISTANZE UGUALI - chiesto da CHICCO3 - SCRIPT SALVO50",1,,4,,3,,1
                       For Es = Ini To FIn : Call Messaggio(Es) : Call AvanzamentoElab(Ini,FIn,Es)
                          Caso = 00
                          For R1 = 01 To 10
                             For R2 = R1 + 01 To 12
                                If R2 = 11 Then R2 = 12
                                For P1 = 01 To 04
                                   For P2 = P1 + 01 To 5
                                      A = Estratto(Es,R1,P1) : B = Estratto(Es,R1,P2)
                                      C = Estratto(Es,R2,P1) : D = Estratto(Es,R2,P2)
                                      If A > 0 And B > 0 And C > 0 And D > 0 Then
                                         DAB = Distanza(A,B) : DAC = Distanza(A,C) : DAD = Distanza(A,D)
                                         DCD = Distanza(C,D) : DBD = Distanza(B,D) : DBC = Distanza(B,C)
                                         '
                                         Call AmboAmbataVers01(DAB,DAC,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,C)
                                         Call AmboAmbataVers02(DAB,DBD,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,D)
                                         Call AmbataAmboVers01(DAC,DCD,Caso,Casi,Es,R1,R2,PP1,E1,A,PP2,E2,C,D)
                                         Call AmbataAmboVers02(DBD,DCD,Caso,Casi,Es,R1,R2,PP1,E1,B,PP2,E2,C,D)
                                         '
                                      End If
                                   Next
                                Next
                             Next
                          Next
                          If ScriptInterrotto Then Exit Sub
                       Next
                    End Sub
                    '
                    Sub AmboAmbataVers01(DAB,DAC,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,C)
                       If(DAB = 1 Or DAB = 10 Or DAB = 30) And DAC = DAB Then
                          Caso = Caso + 01 : Casi = Casi + 01
                          Call ColoreTesto(01)
                          Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2)
                          Call ColoreTesto(02)
                          Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1)
                          Call ColoreTesto(00)
                          If R2 - R1 = 1 Then Scrivi Space(10) & "RUOTE CONSECUTIVE",1,,,2,6
                          Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
                          Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
                          For PP1 = 01 To 05
                             E1 = Estratto(Es,R1,PP1)
                             If E1 = A Or E1 = B Then
                                Call ColoreTesto(02)
                             Else
                                Call ColoreTesto(00)
                             End If
                             Call Scrivi(Format2(E1) & " ",01,00)
                             Call ColoreTesto(00)
                          Next
                          Call Scrivi()
                          Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
                          Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
                          For PP2 = 01 To 05
                             E2 = Estratto(Es,R2,PP2)
                             If E2 = C Then
                                Call ColoreTesto(02)
                             Else
                                Call ColoreTesto(00)
                             End If
                             Call Scrivi(Format2(E2) & " ",01,00)
                             Call ColoreTesto(00)
                          Next
                          Call Scrivi()
                          Call Scrivi()
                          Scrivi " Estratti" & Space(4) & "Distanza Orizontale " & Space(3) & "Distanza Verticale  ",1
                          Scrivi Space(3) & Format2(A) & Space(17) & Format2(DAB) & Space(18) & Format2(DAC),1
                          Scrivi Space(3) & Format2(B),1
                          Scrivi Space(3) & Format2(C),1
                       End If
                    End Sub
                    '
                    Sub AmboAmbataVers02(DAB,DBD,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,D)
                       If(DAB = 1 Or DAB = 10 Or DAB = 30) And DAB = DBD Then
                          Caso = Caso + 01 : Casi = Casi + 01
                          Call ColoreTesto(01)
                          Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
                          Call ColoreTesto(02)
                          Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
                          Call ColoreTesto(00)
                          If R2 - R1 = 1 Then Scrivi Space(10) & "RUOTE CONSECUTIVE",1,,,2,6
                          Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
                          Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
                          For PP1 = 01 To 05
                             E1 = Estratto(Es,R1,PP1)
                             If E1 = A Or E1 = B Then
                                Call ColoreTesto(02)
                             Else
                                Call ColoreTesto(00)
                             End If
                             Call Scrivi(Format2(E1) & " ",01,00)
                             Call ColoreTesto(00)
                          Next
                          Call Scrivi()
                          Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
                          Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
                          For PP2 = 01 To 05
                             E2 = Estratto(Es,R2,PP2)
                             If E2 = D Then
                                Call ColoreTesto(02)
                             Else
                                Call ColoreTesto(00)
                             End If
                             Call Scrivi(Format2(E2) & " ",01,00)
                             Call ColoreTesto(00)
                          Next
                          Call Scrivi()
                          Call Scrivi()
                          Scrivi " Estratti" & Space(4) & "Distanza Orizontale " & Space(3) & "Distanza Verticale  ",1
                          Scrivi Space(3) & Format2(A) & Space(17) & Format2(DAB) & Space(18) & Format2(DBD),1
                          Scrivi Space(3) & Format2(B),1
                          Scrivi Space(3) & Format2(D),1
                       End If
                    End Sub
                    '
                    Sub AmbataAmboVers01(DAC,DCD,Caso,Casi,Es,R1,R2,PP1,E1,A,PP2,E2,C,D)
                       If(DCD = 1 Or DCD = 10 Or DCD = 30) And DCD = DAC Then
                          Caso = Caso + 01 : Casi = Casi + 01
                          Call ColoreTesto(01)
                          Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
                          Call ColoreTesto(02)
                          Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
                          Call ColoreTesto(00)
                          If R2 - R1 = 1 Then Scrivi Space(10) & "RUOTE CONSECUTIVE",1,,,2,6
                          Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
                          Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
                          For PP1 = 01 To 05
                             E1 = Estratto(Es,R1,PP1)
                             If E1 = A Then
                                Call ColoreTesto(02)
                             Else
                                Call ColoreTesto(00)
                             End If
                             Call Scrivi(Format2(E1) & " ",01,00)
                             Call ColoreTesto(00)
                          Next
                          Call Scrivi()
                          Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
                          Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
                          For PP2 = 01 To 05
                             E2 = Estratto(Es,R2,PP2)
                             If E2 = C Or E2 = D Then
                                Call ColoreTesto(02)
                             Else
                                Call ColoreTesto(00)
                             End If
                             Call Scrivi(Format2(E2) & " ",01,00)
                             Call ColoreTesto(00)
                          Next
                          Call Scrivi()
                          Call Scrivi()
                          Scrivi " Estratti" & Space(4) & "Distanza Orizontale " & Space(3) & "Distanza Verticale  ",1
                          Scrivi Space(3) & Format2(A) & Space(17) & Format2(DCD) & Space(18) & Format2(DAC),1
                          Scrivi Space(3) & Format2(C),1
                          Scrivi Space(3) & Format2(D),1
                       End If
                    End Sub
                    '
                    Sub AmbataAmboVers02(DBD,DCD,Caso,Casi,Es,R1,R2,PP1,E1,B,PP2,E2,C,D)
                       If(DCD = 1 Or DCD = 10 Or DCD = 30) And DCD = DBD Then
                          Caso = Caso + 01 : Casi = Casi + 01
                          Call ColoreTesto(01)
                          Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
                          Call ColoreTesto(02)
                          Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
                          Call ColoreTesto(00)
                          If R2 - R1 = 1 Then Scrivi Space(10) & "RUOTE CONSECUTIVE",1,,,2,6
                          Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
                          Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
                          For PP1 = 01 To 05
                             E1 = Estratto(Es,R1,PP1)
                             If E1 = B Then
                                Call ColoreTesto(02)
                             Else
                                Call ColoreTesto(00)
                             End If
                             Call Scrivi(Format2(E1) & " ",01,00)
                             Call ColoreTesto(00)
                          Next
                          Call Scrivi()
                          Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
                          Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
                          For PP2 = 01 To 05
                             E2 = Estratto(Es,R2,PP2)
                             If E2 = C Or E2 = D Then
                                Call ColoreTesto(02)
                             Else
                                Call ColoreTesto(00)
                             End If
                             Call Scrivi(Format2(E2) & " ",01,00)
                             Call ColoreTesto(00)
                          Next
                          Call Scrivi()
                          Call Scrivi()
                          Scrivi " Estratti" & Space(4) & "Distanza Orizontale " & Space(3) & "Distanza Verticale  ",1
                          Scrivi Space(3) & Format2(B) & Space(17) & Format2(DCD) & Space(18) & Format2(DBD),1
                          Scrivi Space(3) & Format2(C),1
                          Scrivi Space(3) & Format2(D),1
                       End If
                    End Sub
                    Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                    (B. Castiglione, - Il cortegiano)

                    Commenta


                    • #12
                      Ciao Salvo è perfetto adesso si che va bene le ruote consecutive danno subito all'occhio. Un'ultima cosa se si può fare racchiudere inventandoti qualcosa trà inizio data e fine data la ricerca, così almento si fa prima. Se è possibile comunque grazie di cuore chicco
                      buon weekend

                      Commenta


                      • #13
                        Ciao a Tutti.


                        codice:
                        Option Explicit
                        Sub Main
                           Dim FIn,Es,Ini,R1,R2
                           Dim Caso,Casi,P1,P2,A,B,C,D,E1,E2
                           Dim PP1,PP2,DAB,DCD,DAC,DBD,DAD,DBC
                           Ini = 9500
                           FIn = EstrazioneFin
                           Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
                           Scrivi Space(12) & " DISTANZE UGUALI, con ricerca - chiesto da CHICCO3  - SCRIPT SALVO50",1,,4,,3,,1
                           For Es = Ini To FIn : Call Messaggio(Es) : Call AvanzamentoElab(Ini,FIn,Es)
                              Caso = 00
                              For R1 = 01 To 10
                                 For R2 = R1 + 01 To 12
                                    If R2 = 11 Then R2 = 12
                                    'Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = TU_
                                    For P1 = 01 To 04
                                       For P2 = P1 + 01 To 5
                                          A = Estratto(Es,R1,P1) : B = Estratto(Es,R1,P2)
                                          C = Estratto(Es,R2,P1) : D = Estratto(Es,R2,P2)
                                          If A > 0 And B > 0 And C > 0 And D > 0 Then
                                             DAB = Distanza(A,B) : DAC = Distanza(A,C) : DAD = Distanza(A,D)
                                             DCD = Distanza(C,D) : DBD = Distanza(B,D) : DBC = Distanza(B,C)
                                             '
                                             Call AmboAmbataVers01(DAB,DAC,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,C)
                                             Call AmboAmbataVers02(DAB,DBD,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,D)
                                             Call AmbataAmboVers01(DAC,DCD,Caso,Casi,Es,R1,R2,PP1,E1,A,PP2,E2,C,D)
                                             Call AmbataAmboVers02(DBD,DCD,Caso,Casi,Es,R1,R2,PP1,E1,B,PP2,E2,C,D)
                                          End If
                                       Next
                                    Next
                                 Next
                              Next
                              If ScriptInterrotto Then Exit Sub
                           Next
                           ScriviResoconto
                        End Sub
                        '
                        Sub AmboAmbataVers01(DAB,DAC,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,C)
                           If(DAB = 1 Or DAB = 10 Or DAB = 30) And DAC = DAB Then
                              Caso = Caso + 01 : Casi = Casi + 01
                              Call ColoreTesto(01)
                              Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2)
                              Call ColoreTesto(02)
                              Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1)
                              Call ColoreTesto(00)
                              If R2 - R1 = 1 Then Scrivi Space(10) & "RUOTE CONSECUTIVE",1,,,2,6
                              Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
                              Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
                              For PP1 = 01 To 05
                                 E1 = Estratto(Es,R1,PP1)
                                 If E1 = A Or E1 = B Then
                                    Call ColoreTesto(02)
                                 Else
                                    Call ColoreTesto(00)
                                 End If
                                 Call Scrivi(Format2(E1) & " ",01,00)
                                 Call ColoreTesto(00)
                              Next
                              Call Scrivi()
                              Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
                              Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
                              For PP2 = 01 To 05
                                 E2 = Estratto(Es,R2,PP2)
                                 If E2 = C Then
                                    Call ColoreTesto(02)
                                 Else
                                    Call ColoreTesto(00)
                                 End If
                                 Call Scrivi(Format2(E2) & " ",01,00)
                                 Call ColoreTesto(00)
                              Next
                              Call Scrivi()
                              Call Scrivi()
                              Scrivi " Estratti" & Space(4) & "Distanza Orizontale " & Space(3) & "Distanza Verticale  ",1
                              Scrivi Space(3) & Format2(A) & Space(17) & Format2(DAB) & Space(18) & Format2(DAC),1
                              Scrivi Space(3) & Format2(B),1
                              Scrivi Space(3) & Format2(C),1
                              Dim Num(3)
                              Num(1) = A : Num(2) = B : Num(3) = C
                              Call GiocaES(Es,Num,R1,R2)
                           End If
                        End Sub
                        '
                        Sub AmboAmbataVers02(DAB,DBD,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,D)
                           If(DAB = 1 Or DAB = 10 Or DAB = 30) And DAB = DBD Then
                              Caso = Caso + 01 : Casi = Casi + 01
                              Call ColoreTesto(01)
                              Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
                              Call ColoreTesto(02)
                              Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
                              Call ColoreTesto(00)
                              If R2 - R1 = 1 Then Scrivi Space(10) & "RUOTE CONSECUTIVE",1,,,2,6
                              Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
                              Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
                              For PP1 = 01 To 05
                                 E1 = Estratto(Es,R1,PP1)
                                 If E1 = A Or E1 = B Then
                                    Call ColoreTesto(02)
                                 Else
                                    Call ColoreTesto(00)
                                 End If
                                 Call Scrivi(Format2(E1) & " ",01,00)
                                 Call ColoreTesto(00)
                              Next
                              Call Scrivi()
                              Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
                              Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
                              For PP2 = 01 To 05
                                 E2 = Estratto(Es,R2,PP2)
                                 If E2 = D Then
                                    Call ColoreTesto(02)
                                 Else
                                    Call ColoreTesto(00)
                                 End If
                                 Call Scrivi(Format2(E2) & " ",01,00)
                                 Call ColoreTesto(00)
                              Next
                              Call Scrivi()
                              Call Scrivi()
                              Scrivi " Estratti" & Space(4) & "Distanza Orizontale " & Space(3) & "Distanza Verticale  ",1
                              Scrivi Space(3) & Format2(A) & Space(17) & Format2(DAB) & Space(18) & Format2(DBD),1
                              Scrivi Space(3) & Format2(B),1
                              Scrivi Space(3) & Format2(D),1
                              Dim Num(3)
                              Num(1) = A : Num(2) = B : Num(3) = D
                              Call GiocaES(Es,Num,R1,R2)
                           End If
                        End Sub
                        '
                        Sub AmbataAmboVers01(DAC,DCD,Caso,Casi,Es,R1,R2,PP1,E1,A,PP2,E2,C,D)
                           If(DCD = 1 Or DCD = 10 Or DCD = 30) And DCD = DAC Then
                              Caso = Caso + 01 : Casi = Casi + 01
                              Call ColoreTesto(01)
                              Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
                              Call ColoreTesto(02)
                              Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
                              Call ColoreTesto(00)
                              If R2 - R1 = 1 Then Scrivi Space(10) & "RUOTE CONSECUTIVE",1,,,2,6
                              Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
                              Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
                              For PP1 = 01 To 05
                                 E1 = Estratto(Es,R1,PP1)
                                 If E1 = A Then
                                    Call ColoreTesto(02)
                                 Else
                                    Call ColoreTesto(00)
                                 End If
                                 Call Scrivi(Format2(E1) & " ",01,00)
                                 Call ColoreTesto(00)
                              Next
                              Call Scrivi()
                              Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
                              Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
                              For PP2 = 01 To 05
                                 E2 = Estratto(Es,R2,PP2)
                                 If E2 = C Or E2 = D Then
                                    Call ColoreTesto(02)
                                 Else
                                    Call ColoreTesto(00)
                                 End If
                                 Call Scrivi(Format2(E2) & " ",01,00)
                                 Call ColoreTesto(00)
                              Next
                              Call Scrivi()
                              Call Scrivi()
                              Scrivi " Estratti" & Space(4) & "Distanza Orizontale " & Space(3) & "Distanza Verticale  ",1
                              Scrivi Space(3) & Format2(A) & Space(17) & Format2(DCD) & Space(18) & Format2(DAC),1
                              Scrivi Space(3) & Format2(C),1
                              Scrivi Space(3) & Format2(D),1
                              Dim Num(3)
                              Num(1) = A : Num(2) = C : Num(3) = D
                              Call GiocaES(Es,Num,R1,R2)
                           End If
                        End Sub
                        '
                        Sub AmbataAmboVers02(DBD,DCD,Caso,Casi,Es,R1,R2,PP1,E1,B,PP2,E2,C,D)
                           If(DCD = 1 Or DCD = 10 Or DCD = 30) And DCD = DBD Then
                              Caso = Caso + 01 : Casi = Casi + 01
                              Call ColoreTesto(01)
                              Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
                              Call ColoreTesto(02)
                              Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
                              Call ColoreTesto(00)
                              If R2 - R1 = 1 Then Scrivi Space(10) & "RUOTE CONSECUTIVE",1,,,2,6
                              Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
                              Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
                              For PP1 = 01 To 05
                                 E1 = Estratto(Es,R1,PP1)
                                 If E1 = B Then
                                    Call ColoreTesto(02)
                                 Else
                                    Call ColoreTesto(00)
                                 End If
                                 Call Scrivi(Format2(E1) & " ",01,00)
                                 Call ColoreTesto(00)
                              Next
                              Call Scrivi()
                              Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
                              Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
                              For PP2 = 01 To 05
                                 E2 = Estratto(Es,R2,PP2)
                                 If E2 = C Or E2 = D Then
                                    Call ColoreTesto(02)
                                 Else
                                    Call ColoreTesto(00)
                                 End If
                                 Call Scrivi(Format2(E2) & " ",01,00)
                                 Call ColoreTesto(00)
                              Next
                              Call Scrivi()
                              Call Scrivi()
                              Scrivi " Estratti" & Space(4) & "Distanza Orizontale " & Space(3) & "Distanza Verticale  ",1
                              Scrivi Space(3) & Format2(B) & Space(17) & Format2(DCD) & Space(18) & Format2(DBD),1
                              Scrivi Space(3) & Format2(C),1
                              Scrivi Space(3) & Format2(D),1
                              Dim Num(3)
                              Num(1) = B : Num(2) = C : Num(3) = D
                              Call GiocaES(Es,Num,R1,R2)
                           End If
                        End Sub
                        Sub GiocaES(Es,Num,R1,R2)
                           Dim Ruo1(1),Ruo2(2),Posta(2),Poste(2)
                           Posta(1) = 1
                           Posta(2) = 1
                           Poste(2) = 1
                           Ruo1(1) = TU_ : Ruo2(1) = R1 : Ruo2(2) = R2
                           EliminaRipetuti Num
                           ImpostaGiocata 1,Num,Ruo2,Posta,10
                           ImpostaGiocata 2,Num,Ruo1,Poste,10
                           Gioca Es
                        End Sub
                        Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

                        (B. Castiglione, - Il cortegiano)

                        Commenta


                        • #14
                          Ciao Salvo che è sta roba.

                          Commenta


                          • #15
                            Originariamente inviato da chicco3 Visualizza il messaggio
                            Ciao Salvo che è sta roba.
                            Ciao Chicco3, dalla tua domanda intuisco che non ho capito un tubo di questa tua richiesta

                            Un'ultima cosa se si può fare racchiudere inventandoti qualcosa trà inizio data e fine data la ricerca, così almento si fa prima.

                            spiegati meglio, magari con qualche esempio.
                            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
                            sabato 20 aprile 2019
                            Bari
                            63
                            04
                            46
                            16
                            05
                            Cagliari
                            04
                            65
                            87
                            13
                            27
                            Firenze
                            45
                            37
                            31
                            20
                            42
                            Genova
                            44
                            40
                            55
                            77
                            81
                            Milano
                            35
                            14
                            31
                            59
                            41
                            Napoli
                            83
                            52
                            81
                            11
                            04
                            Palermo
                            68
                            82
                            78
                            60
                            29
                            Roma
                            65
                            13
                            35
                            66
                            29
                            Torino
                            24
                            69
                            06
                            03
                            76
                            Venezia
                            24
                            39
                            58
                            41
                            26
                            Nazionale
                            89
                            37
                            71
                            39
                            31
                            Sto operando...
                            X