Novità

X Salvo ò chi può una modifica a questo 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",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
Cattura.JPG
 
Ultima modifica:

salvo50

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

chicco3

Advanced Member
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
distanza 10.JPG
 

salvo50

Advanced Member >PLATINUM PLUS<
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/lottoced/area-download/2165510-ambo-unito

se risolvo da Kubes e se per te è importante, dopo accomoderò anche questo
 

chicco3

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

salvo50

Advanced Member >PLATINUM PLUS<
chicco3;n2165772 ha scritto:
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
 

salvo50

Advanced Member >PLATINUM PLUS<
Ho trovato il modo, adesso ci sono solo le distanze orizzontali e verticali, fai un controllo, perchè io ho controllato solo qualche estrazione
 

chicco3

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

salvo50

Advanced Member >PLATINUM PLUS<
chicco3;n2165836 ha scritto:
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:

chicco3

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

salvo50

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

chicco3

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

salvo50

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

salvo50

Advanced Member >PLATINUM PLUS<
chicco3;n2166689 ha scritto:
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.
 

chicco3

Advanced Member
Ciao Salvo forse mi sono espresso male io,vedi l'immagine se si può fare se no va bene così.Una buonanotte chicco

DISTANZE.jpg
 

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

Ultimi Messaggi

Alto