Novità

x Salvo

Ciao a Tutti.

L'immagine è troppo piccola, l'ho pure salvata e ingrandita, ma è peggio
 
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]​
 
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
 
Ultima modifica:
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
 
Ciao a Tutti.

chicco3;n2119467 ha scritto:
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
Clicca per espandere...

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

Codice: 
 '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

Codice: 
 '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

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

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto