Novità

x Salvo

salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

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

chicco3

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

salvo50

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

chicco3

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

salvo50

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

rudivall

Advanced Member >PLATINUM<
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......
 
C

chicco3

Advanced Member
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
    venerdì 19 aprile 2024
    Bari
    39
    05
    81
    89
    73
    Cagliari
    56
    21
    01
    90
    03
    Firenze
    05
    56
    68
    27
    09
    Genova
    42
    50
    90
    27
    83
    Milano
    16
    71
    29
    85
    04
    Napoli
    29
    19
    23
    63
    50
    Palermo
    35
    54
    33
    57
    61
    Roma
    17
    29
    43
    55
    74
    Torino
    69
    60
    03
    01
    26
    Venezia
    05
    57
    59
    43
    34
    Nazionale
    30
    43
    64
    65
    21
    Estrazione Simbolotto
    Genova
    02
    20
    25
    12
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto