x Salvo

[chicco3]

 

[salvo50]

Ciao a Tutti.

L'immagine è troppo piccola, l'ho pure salvata e ingrandita, ma è peggio

 

[chicco3]

 

[chicco3]

Prova adesso

 

[salvo50]

Uguale,
descrivi il metodo, che l'estrazione ce l'ho

 

[chicco3]

Ciao Salvo riesci a farmi questo script è una ricerca su tutte le cadenzee ruote consecutive esempio giorno 5-6-2018 MI 18 e 8 mentre NA 8 come vedi ruote consecutive e in isotopia.Altra cosa se è possibile nella ricerca sia in orizzontale che in verticale troviamo altri numeri della stessa cadenza si prendono anche quelli.In orizzontale sulla riga del 18 e 8, mentre in verticale bisogna solo guardare la linea del numero 8 e, se non trova nulla e ne trova solo tre come in figura va bene lo stesso.Ciao e fammi sapere qualcosa grazie
chicco [IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/forum.lottoced.com\/image\/gif;base64,R0lGODlhAQABAPABAP\/\/\/wAAACH5BAEKAAAALAAAAAABAAEAAAICRAEAOw=="}[/IMG2]​

 

[salvo50]

Non lo so se ci riesco, ci provo

rileggendo la spiegazione, qualcosa non mi è chiara,
mi dici le ruote da mettere in gioco, ma non ho capito quali sono i numeri da giocare

 

[chicco3]

Ciao salvo è solo una ricerca sul quadro estrazionale non sono da mettere in gioco,come vedi dall'esempio in foto bisogna rintracciare in triangolazione numeri di qualsiasi cadenza.E' piu o meno come quello che hai fatto con le distanze, solo che questo è solo su ruote consecutive e isotopa da ricercare quelle cadenze. Ricordati che vanno trovati sia due numeri sopra e 1 sotto e viceversa. Tutto qui ti saluto con stima. A volevo chiederti per caso hai la piramide dei ritardi e frequenze che mettendo un numero o 2 due come ambate mi restituisce i numeri da abbinare piu freq. o ritardi inerente a quei numeri in parole provere sapere quali numeri si abbinano di piu con le ambate che io inserisco x abbinamento per ambo Ciao Buona notte
Chicco

 

[salvo50]

OK

 

[salvo50]

Ciao a Tutti.

A volevo chiederti per caso hai la piramide dei ritardi e frequenze che mettendo un numero o 2 due come ambate mi restituisce i numeri da abbinare piu freq. o ritardi inerente a quei numeri in parole provere sapere quali numeri si abbinano di piu con le ambate che io inserisco x abbinamento per ambo Ciao Buona notte
Chicco

No, non ce l'ho.


A riguardo del metodo sulle cadenze, ho fatto 3 script, il primo nella prima ruota ha due estratti e nella seconda ruota un estratto, il secondo script viceversa, il terzo script ho cercato di unificare le due cose e qualcosa ho fatto, vedi tu quale può andare bene, sarebbe stato meglio se fossero apparsi tutte le ruote e colorare di rosso o altro colore solo gli estratti interessati, però non lo so fare.

Di questi script con l'apparizzione di tutte le ruote e colorare solo gli estratti interessati, LuigiB e Joe sono gli esperti.

Primo script, nella prima ruota 2 estratti nella seconda ruota un estratto

 'PROGETTO - Proposto da Chicco3 - N1
'è una ricerca su tutte le cadenzee ruote consecutive
'esempio giorno 5-6-2018 MI 18 e 8 mentre NA 8
'come vedi ruote consecutive e In isotopia.
'Altra cosa se è possibile nella ricerca sia In orizzontale
'che In verticale troviamo altri numeri della stessa Cadenza
'si prendono anche quelli.In orizzontale sulla riga del 18 e 8,
'mentre In verticale bisogna solo guardare la linea del numero 8 e,
'se non trova nulla e ne trova solo tre come In Figura va bene lo stesso.
'Due estratti nella prima ruota un estratto nella seconda ruota.
'SCRIPT BY SALVO50
Option Explicit
Sub Main
   Dim FIn,Es,Esq,Col,Esqcol
   Dim Caso,Casi,R1,R2,P1,P2,A,B,C,E1,E2
   Dim PP1,PP2,CA,CB,CC
   FIn = EstrazioneFin
   Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,9400)
   Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,FIn))
   Esqcol = Esq + Col
   If Esqcol > FIn Then Esqcol = FIn
   For Es = Esq To Esqcol
      Messaggio Es
      AvanzamentoElab Esq,Esqcol,Es
      Caso = 0
      For R1 = 1 To 10
         For R2 = R1 + 1 To 12
            If R2 = 11 Then R2 = 12
            For P1 = 1 To 4
               P2 = P1 + 1
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               C = Estratto(Es,R2,P1)
               CA = Cadenza(A)
               CB = Cadenza(B)
               CC = Cadenza(C)
               If CA = CB And CA = CC Then
                  Caso = Caso + 1
                  Casi = Casi + 1
                  ColoreTesto 1
                  Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                  ColoreTesto 2
                  Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                  ColoreTesto 0
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " ",1,0
                  For PP1 = 1 To 5
                     E1 = Estratto(Es,R1,PP1)
                     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 PP2 = 1 To 5
                     E2 = Estratto(Es,R2,PP2)
                     If E2 = C Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub

Secondo script, nella prima ruota un estratto, nella seconda ruota 2 estratti

 'PROGETTO - Proposto da Chicco3 - N2
'è una ricerca su tutte le cadenzee ruote consecutive
'esempio giorno 5-6-2018 MI 18 e 8 mentre NA 8
'come vedi ruote consecutive e In isotopia.
'Altra cosa se è possibile nella ricerca sia In orizzontale
'che In verticale troviamo altri numeri della stessa Cadenza
'si prendono anche quelli.In orizzontale sulla riga del 18 e 8,
'mentre In verticale bisogna solo guardare la linea del numero 8 e,
'se non trova nulla e ne trova solo tre come In Figura va bene lo stesso.
'Un estratto nella prima ruota, due estratti nella seconda ruota
'SCRIPT BY SALVO50
Option Explicit
Sub Main
   Dim FIn,Es,Esq,Col,Esqcol
   Dim Caso,Casi,R1,R2,P1,P2,A,B,C,E1,E2
   Dim PP1,PP2,CA,CB,CC
   FIn = EstrazioneFin
   Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,9380)
   Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,FIn))
   Esqcol = Esq + Col
   If Esqcol > FIn Then Esqcol = FIn
   For Es = Esq To Esqcol
      Messaggio Es
      AvanzamentoElab Esq,Esqcol,Es
      Caso = 0
      For R1 = 1 To 10
         For R2 = R1 + 1 To 12
            If R2 = 11 Then R2 = 12
            For P1 = 1 To 4
               P2 = P1 + 1
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               C = Estratto(Es,R2,P1)
               CA = Cadenza(A)
               CB = Cadenza(B)
               CC = Cadenza(C)
               If CA = CB And CA = CC Then
                  Caso = Caso + 1
                  Casi = Casi + 1
                  ColoreTesto 1
                  Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                  ColoreTesto 2
                  Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                  ColoreTesto 0
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R2) & " ",1,0
                  For PP1 = 1 To 5
                     E1 = Estratto(Es,R2,PP1)
                     If E1 = C 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 PP2 = 1 To 5
                     E2 = Estratto(Es,R1,PP2)
                     If E2 = A Or E2 = B Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub

Terzo script, unificato

 'PROGETTO - Proposto da Chicco3 - N3
'è una ricerca su tutte le cadenzee ruote consecutive
'esempio giorno 5-6-2018 MI 18 e 8 mentre NA 8
'come vedi ruote consecutive e In isotopia.
'Altra cosa se è possibile nella ricerca sia In orizzontale
'che In verticale troviamo altri numeri della stessa Cadenza
'si prendono anche quelli.In orizzontale sulla riga del 18 e 8,
'mentre In verticale bisogna solo guardare la linea del numero 8 e,
'se non trova nulla e ne trova solo tre come In Figura va bene lo stesso.
'SCRIPT BY SALVO50
Option Explicit
Sub Main
   Dim Ini,Fin,Es,R1,R2,R3,A,B,C,D
   Dim Caso,Casi,CA,CB,CC,CD,E1,E2,E3,E4
   Dim Esq,Col,EsqCol,P1,P2,P3,P4,P5,P6,P7
   Fin = EstrazioneFin
   Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,9380)
   Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,Fin))
   EsqCol = Esq + Col
   If EsqCol > Fin Then EsqCol = Fin
   For Es = Esq To EsqCol
      Messaggio Es
      AvanzamentoElab Esq,EsqCol,Es
      Messaggio Es
      For R1 = 1 To 9
         For P1 = 1 To 4
            A = Estratto(Es,R1,P1)
            P2 = P1 + 1
            B = Estratto(Es,R1,P2)
            R2 = R1 + 1
            R3 = R1 - 1
            If R3 <> BA_ - 1 Then
               For P3 = 1 To 5
                  C = Estratto(Es,R2,P3)
                  D = Estratto(Es,R3,P3)
                  If P3 = P1 + 1 Or P3 = P2 - 1 Then
                     CA = Cadenza(A)
                     CB = Cadenza(B)
                     CC = Cadenza(C)
                     CD = Cadenza(D)
                     If(CA = CB And CA = CC) Or(CA = CB And CA = CD) Then
                        Caso = Caso + 1
                        Casi = Casi + 1
                        ColoreTesto 1
                        Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000")
                        ColoreTesto 2
                        Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                        ColoreTesto 0
                        Scrivi
                        If CA = CC Then
                           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
                        End If
                        If CA = CD Then
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R3) & " ",1,0
                           For P6 = 1 To 5
                              E3 = Estratto(Es,R3,P6)
                              If E3 = D Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E3) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " ",1,0
                           For P7 = 1 To 5
                              E4 = Estratto(Es,R1,P7)
                              If E4 = A Or E4 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E4) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                        End If
                     End If
                  End If
               Next
            End If
         Next
      Next
   Next
End Sub

 

[rudivall]

Salvo sei grande, posso chiedere un favore? Come posso sommare il maggiore più il medio e poi il medio più il minore, il tutto applicato a questa ricerca......

 

[chicco3]

Ciao Salvo grazie dei tre script va quasi bene solo il primo. Peccato che non si vede la foto ti faccio l'esempio estraz. 12.6.2018 le uniche ruote da prendere sono TO-VE-NAZ ANGOLO RETTO CAD.7 OK SOLO QUESTE SONO VALIDE.Poi altro angolo retto RO 32 E TO 62 E 32 CAD.2. RUOTE SOLO CONSECUTIVE E IN TRIANGOLO E BASTA GLI ALTRI NUMERI SONO SUPERFLUI. Non ha importanza colorarli, eventualmente sotto o a fianco trovati i numeri si possono riepilogarli tipo TO VE NAZ 27 77 47 7 OK. Con calma Salvo sei un grande puoi farlo anche unificato.Se riesco ti mando una foto per renderti conto ok
chicco

 

[chicco3]

 

[chicco3]

Questo angolo retto to ve e naz cad.7 nr.4 tutto qui

 

[chicco3]

 

[chicco3]

Questo cad.2 RO TO 32 62 32 angolo retto nr.3

 

[chicco3]

 

[chicco3]

 

[chicco3]

Questo si vede bene

 

[chicco3]

Questo pure