Novità

TROVARE LA DISTANZA DEGLI AMBI....

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
Salve... vorrei sapere se ci sono programmi che trovano tra i numeri di un'estrazione quelli isotopi e con una certa distanza ( tipo distanza 18 ) ...in orizzontale si può fare..ma a me servirebbe trovare quelli in verticale e in diagonale... come faccio?? esistono programmi così...con exel è possibile? grazie
 
ciao empy86
questo listato vede quelli in verticale isotopi ,è fatto per la distanza 18 ma tu la puoi cambiare per le tue esigenze.


Sub main()
Dim ruote(2)
ruote(1)=r
ruote(2)=rr
fin=EstrazioneFin
ini=fin-50
For es=ini To fin
AvanzamentoElab ini,fin,es

For r=1 To 10
For p=1 To 5
a=Estratto (es,r,p)

For rr=r+1 To 12
If rr<>11 Then
For q=1 To 5
b=Estratto (es,rr,q)
If Distanza (a,b)=18 Then
If p=q Then
Scrivi
Scrivi
Scrivi
Scrivi
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r),3) & " " & Format2(a)
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(rr),3) & " " & Format2(b)

End If
End If
Next
End If
Next
Next
Next
Next
End Sub

per le distanze in orizzontale e diagonale speriamo in qualke anima pia .

ciao ;);)


franca_444.gif
 
ciao empy86
questo listato vede quelli in verticale isotopi ,è fatto per la distanza 18 ma tu la puoi cambiare per le tue esigenze.


Sub main()
Dim ruote(2)
ruote(1)=r
ruote(2)=rr
fin=EstrazioneFin
ini=fin-50
For es=ini To fin
AvanzamentoElab ini,fin,es

For r=1 To 10
For p=1 To 5
a=Estratto (es,r,p)

For rr=r+1 To 12
If rr<>11 Then
For q=1 To 5
b=Estratto (es,rr,q)
If Distanza (a,b)=18 Then
If p=q Then
Scrivi
Scrivi
Scrivi
Scrivi
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r),3) & " " & Format2(a)
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(rr),3) & " " & Format2(b)

End If
End If
Next
End If
Next
Next
Next
Next
End Sub

per le distanze in orizzontale e diagonale speriamo in qualke anima pia .

ciao ;);)


franca_444.gif
 
ho inserito il listato ma io dovrei ricercare un ambo per ciascuna delle due ruote ...

ad esempio :
Napoli 31 50 42 86 12
Roma 13 86 59 14 69

isotopi e a distanza 18 ..questo intendo ... l'isotopia deve esserci sia tra i numeri in verticale che in orizzontale ...
 
ho inserito il listato ma io dovrei ricercare un ambo per ciascuna delle due ruote ...

ad esempio :
Napoli 31 50 42 86 12
Roma 13 86 59 14 69

isotopi e a distanza 18 ..questo intendo ... l'isotopia deve esserci sia tra i numeri in verticale che in orizzontale ...
 
Questo cerca gli ambi di distanza 18 isotopi in verticale, orizzontale, diagonale:

quote:
Sub main()
ne=InputBox("QUANTE ESTRAZIONI CONTROLLO ??:",,20)
ini=EstrazioneFin-ne
fin=EstrazioneFin
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 12
If r=11 Then r=12
For r1=r+1 To 12
If r1=11 Then r1=12
For p=1 To 5
For p1=1 To 5
For p2=p+1 To 5
For p3=p1+1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r1,p1)
aa=Estratto (es,r,p2)
bb=Estratto (es,r1,p3)
d1=Distanza (a,b)
d2=Distanza (aa,bb)
d3=Distanza (a,aa)
d4=Distanza (b,bb)
d5=Distanza (a,bb)
d6=Distanza (b,aa)
If a<>aa And b<>bb And d1=18 And d2=(d1) And p=(p1) And p2=(p3) Or a<>aa And b<>bb And d3=18 And d4=(d3) And p=(p1) And p2=(p3) Or a<>aa And b<>bb And d5=18 And d6=(d5) And p=(p1) And p2=(p3) Then
ColoreTesto 0
Scrivi DataEstrazione(es),True
ColoreTesto 2
Scrivi StringaEstratti(es,r)
Scrivi StringaEstratti(es,r1)
ColoreTesto 1
Scrivi "Dis.18 "&"-->"&" ["&Format2(a)&"]"&" ["&Format2(aa)&"]"&" Posizioni["&Format2(p)&"]"&"["&Format2(p2)&"] "&"su -->"&" "&NomeRuota(r)
Scrivi "Dis.18 "&"-->"&" ["&Format2(b)&"]"&" ["&Format2(bb)&"]"&" Posizioni["&Format2(p1)&"]"&"["&Format2(p3)&"] "&"su -->"&" "&NomeRuota(r1)
ColoreTesto 3
Scrivi"**********************************************************"
End If
Next
Next
Next
Next
Next
Next
Next
End Sub
Clicca per espandere...

Codice: 
26.06.2004
54.07.76.63.85
45.40.02.36.09
Dis.18 --> [54] [63]  Posizioni[01][04]  su --> Milano
Dis.18 --> [45] [36]  Posizioni[01][04]  su --> Roma
**********************************************************
30.06.2004
62.59.21.70.44
44.26.74.53.77
Dis.18 --> [59] [44]  Posizioni[02][05]  su --> Bari
Dis.18 --> [26] [77]  Posizioni[02][05]  su --> Cagliari
**********************************************************
30.06.2004
62.59.21.70.44
43.87.03.88.34
Dis.18 --> [21] [70]  Posizioni[03][04]  su --> Bari
Dis.18 --> [03] [88]  Posizioni[03][04]  su --> Napoli
**********************************************************
17.07.2004
32.31.80.47.24
29.27.49.50.71
Dis.18 --> [32] [47]  Posizioni[01][04]  su --> Cagliari
Dis.18 --> [29] [50]  Posizioni[01][04]  su --> Napoli
**********************************************************
21.07.2004
31.50.42.86.12
13.86.59.14.69
Dis.18 --> [31] [86]  Posizioni[01][04]  su --> Napoli
Dis.18 --> [13] [14]  Posizioni[01][04]  su --> Roma
**********************************************************
28.07.2004
70.23.06.26.78
60.28.77.83.52
Dis.18 --> [70] [78]  Posizioni[01][05]  su --> Cagliari
Dis.18 --> [60] [52]  Posizioni[01][05]  su --> Napoli
**********************************************************
28.07.2004
22.06.70.40.24
03.04.36.21.80
Dis.18 --> [22] [40]  Posizioni[01][04]  su --> Palermo
Dis.18 --> [03] [21]  Posizioni[01][04]  su --> Torino
**********************************************************
31.07.2004
70.61.49.67.60
82.37.30.48.14
Dis.18 --> [49] [67]  Posizioni[03][04]  su --> Milano
Dis.18 --> [30] [48]  Posizioni[03][04]  su --> Venezia
**********************************************************
11.08.2004
28.69.79.45.62
35.11.63.61.43
Dis.18 --> [79] [45]  Posizioni[03][04]  su --> Cagliari
Dis.18 --> [63] [61]  Posizioni[03][04]  su --> Venezia
**********************************************************
04.09.2004
35.74.34.85.19
37.89.67.16.34
Dis.18 --> [34] [85]  Posizioni[03][04]  su --> Bari
Dis.18 --> [67] [16]  Posizioni[03][04]  su --> Firenze
**********************************************************

<font face="Sc
 
Questo cerca gli ambi di distanza 18 isotopi in verticale, orizzontale, diagonale:

quote:
Sub main()
ne=InputBox("QUANTE ESTRAZIONI CONTROLLO ??:",,20)
ini=EstrazioneFin-ne
fin=EstrazioneFin
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 12
If r=11 Then r=12
For r1=r+1 To 12
If r1=11 Then r1=12
For p=1 To 5
For p1=1 To 5
For p2=p+1 To 5
For p3=p1+1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r1,p1)
aa=Estratto (es,r,p2)
bb=Estratto (es,r1,p3)
d1=Distanza (a,b)
d2=Distanza (aa,bb)
d3=Distanza (a,aa)
d4=Distanza (b,bb)
d5=Distanza (a,bb)
d6=Distanza (b,aa)
If a<>aa And b<>bb And d1=18 And d2=(d1) And p=(p1) And p2=(p3) Or a<>aa And b<>bb And d3=18 And d4=(d3) And p=(p1) And p2=(p3) Or a<>aa And b<>bb And d5=18 And d6=(d5) And p=(p1) And p2=(p3) Then
ColoreTesto 0
Scrivi DataEstrazione(es),True
ColoreTesto 2
Scrivi StringaEstratti(es,r)
Scrivi StringaEstratti(es,r1)
ColoreTesto 1
Scrivi "Dis.18 "&"-->"&" ["&Format2(a)&"]"&" ["&Format2(aa)&"]"&" Posizioni["&Format2(p)&"]"&"["&Format2(p2)&"] "&"su -->"&" "&NomeRuota(r)
Scrivi "Dis.18 "&"-->"&" ["&Format2(b)&"]"&" ["&Format2(bb)&"]"&" Posizioni["&Format2(p1)&"]"&"["&Format2(p3)&"] "&"su -->"&" "&NomeRuota(r1)
ColoreTesto 3
Scrivi"**********************************************************"
End If
Next
Next
Next
Next
Next
Next
Next
End Sub
Clicca per espandere...

Codice: 
26.06.2004
54.07.76.63.85
45.40.02.36.09
Dis.18 --> [54] [63]  Posizioni[01][04]  su --> Milano
Dis.18 --> [45] [36]  Posizioni[01][04]  su --> Roma
**********************************************************
30.06.2004
62.59.21.70.44
44.26.74.53.77
Dis.18 --> [59] [44]  Posizioni[02][05]  su --> Bari
Dis.18 --> [26] [77]  Posizioni[02][05]  su --> Cagliari
**********************************************************
30.06.2004
62.59.21.70.44
43.87.03.88.34
Dis.18 --> [21] [70]  Posizioni[03][04]  su --> Bari
Dis.18 --> [03] [88]  Posizioni[03][04]  su --> Napoli
**********************************************************
17.07.2004
32.31.80.47.24
29.27.49.50.71
Dis.18 --> [32] [47]  Posizioni[01][04]  su --> Cagliari
Dis.18 --> [29] [50]  Posizioni[01][04]  su --> Napoli
**********************************************************
21.07.2004
31.50.42.86.12
13.86.59.14.69
Dis.18 --> [31] [86]  Posizioni[01][04]  su --> Napoli
Dis.18 --> [13] [14]  Posizioni[01][04]  su --> Roma
**********************************************************
28.07.2004
70.23.06.26.78
60.28.77.83.52
Dis.18 --> [70] [78]  Posizioni[01][05]  su --> Cagliari
Dis.18 --> [60] [52]  Posizioni[01][05]  su --> Napoli
**********************************************************
28.07.2004
22.06.70.40.24
03.04.36.21.80
Dis.18 --> [22] [40]  Posizioni[01][04]  su --> Palermo
Dis.18 --> [03] [21]  Posizioni[01][04]  su --> Torino
**********************************************************
31.07.2004
70.61.49.67.60
82.37.30.48.14
Dis.18 --> [49] [67]  Posizioni[03][04]  su --> Milano
Dis.18 --> [30] [48]  Posizioni[03][04]  su --> Venezia
**********************************************************
11.08.2004
28.69.79.45.62
35.11.63.61.43
Dis.18 --> [79] [45]  Posizioni[03][04]  su --> Cagliari
Dis.18 --> [63] [61]  Posizioni[03][04]  su --> Venezia
**********************************************************
04.09.2004
35.74.34.85.19
37.89.67.16.34
Dis.18 --> [34] [85]  Posizioni[03][04]  su --> Bari
Dis.18 --> [67] [16]  Posizioni[03][04]  su --> Firenze
**********************************************************

<font face="Sc
 
per BEN8 sei stato grandissimo :-) grazieeeeeeeeeee :D

grazie anche a franca46 per l'aiuto e a danilo :-) adesso c'è tutto quello di cui si ha bisogno...

c'è solo una cosa che vorrei chiedervi...

visto che il metodo prevede come giocata un capogioco ad esempio 29
e poi quattro ambi 29 - 12 ; 29-66 , 29-74 ; 29-82 ....ad esempio per l'estrazione del 13 ottobre 2005 ... come dovrei giocarli secondo voi?? devo giocarli per 2 ruote ...ma non posso giocare 8 ambi e due estratti..perderei un sacco di soldi come il resoconto del metodo fa vedere... devo giocarli in quartina?? il fatto è che gli ambi secchi ci sono ma sono di più le ambate -.- un numero in quartina quanto viene pagato? [xx(] grazie dell'attenzione

forse è meglio che lascio perdere questo metodo ..e prendo i numeri di qualcuno che ha fatto di meglio :(

secondo voi questo metodo è un fallimento? [V]
 
per BEN8 sei stato grandissimo :-) grazieeeeeeeeeee :D

grazie anche a franca46 per l'aiuto e a danilo :-) adesso c'è tutto quello di cui si ha bisogno...

c'è solo una cosa che vorrei chiedervi...

visto che il metodo prevede come giocata un capogioco ad esempio 29
e poi quattro ambi 29 - 12 ; 29-66 , 29-74 ; 29-82 ....ad esempio per l'estrazione del 13 ottobre 2005 ... come dovrei giocarli secondo voi?? devo giocarli per 2 ruote ...ma non posso giocare 8 ambi e due estratti..perderei un sacco di soldi come il resoconto del metodo fa vedere... devo giocarli in quartina?? il fatto è che gli ambi secchi ci sono ma sono di più le ambate -.- un numero in quartina quanto viene pagato? [xx(] grazie dell'attenzione

forse è meglio che lascio perdere questo metodo ..e prendo i numeri di qualcuno che ha fatto di meglio :(

secondo voi questo metodo è un fallimento? [V]
 
Secondo me ogni metodo lo si può sempre migliorare, resta il fatto che nel gioco del lotto nessun metodo ti può garantire la vincita in continuazione e poi bisogna calcolare quanti soldi si è disposti a giocare per sperare di raggiungere una vincita.
Se per esempio per sperare di vincere 100 euro ne devi sborsare 500, allora non so se conviene.
Comunque resta sempre un azzardo e conviene farsi bene i conti prima.

Cordiali saluti.;)

Ben[8] </u>
 
Secondo me ogni metodo lo si può sempre migliorare, resta il fatto che nel gioco del lotto nessun metodo ti può garantire la vincita in continuazione e poi bisogna calcolare quanti soldi si è disposti a giocare per sperare di raggiungere una vincita.
Se per esempio per sperare di vincere 100 euro ne devi sborsare 500, allora non so se conviene.
Comunque resta sempre un azzardo e conviene farsi bene i conti prima.

Cordiali saluti.;)

Ben[8] </u>
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 17 febbraio 2026
    Bari
    40
    72
    47
    39
    63
    Cagliari
    03
    66
    47
    27
    35
    Firenze
    14
    62
    53
    08
    51
    Genova
    55
    12
    81
    52
    04
    Milano
    41
    31
    55
    23
    59
    Napoli
    30
    09
    38
    14
    50
    Palermo
    19
    86
    40
    32
    07
    Roma
    65
    88
    51
    42
    41
    Torino
    10
    06
    34
    84
    81
    Venezia
    06
    25
    82
    24
    52
    Nazionale
    10
    74
    04
    29
    88
    Estrazione Simbolotto
    Cagliari
    01
    41
    21
    44
    28
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto