Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
x Salvo
- Creatore Discussione chicco3
- Data di inizio
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]
chicco [IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/forum.lottoced.com\/image\/gif;base64,R0lGODlhAQABAPABAP\/\/\/wAAACH5BAEKAAAALAAAAAABAAEAAAICRAEAOw=="}[/IMG2]
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
Chicco
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
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
Secondo script, nella prima ruota un estratto, nella seconda ruota 2 estratti
Terzo script, unificato
chicco3;n2119467 ha scritto:
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 SubSecondo 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 SubTerzo 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
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
chicco
Ultima estrazione Lotto
-
Estrazione del lotto
giovedì 05 febbraio 2026Bari5963127489Cagliari0460785131Firenze6356138439Genova4303738684Milano7368216927Napoli2960610209Palermo4928518923Roma4321773130Torino0525647689Venezia1416775156Nazionale5320068928Estrazione Simbolotto
Cagliari
4244323106
