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
    sabato 19 luglio 2025
    Bari
    70
    37
    36
    68
    01
    Cagliari
    57
    02
    64
    33
    41
    Firenze
    18
    62
    09
    05
    06
    Genova
    36
    10
    74
    37
    42
    Milano
    39
    07
    58
    23
    22
    Napoli
    18
    69
    28
    36
    40
    Palermo
    71
    66
    72
    64
    23
    Roma
    19
    64
    39
    77
    10
    Torino
    83
    63
    71
    08
    72
    Venezia
    51
    83
    26
    50
    74
    Nazionale
    89
    81
    63
    32
    03
    Estrazione Simbolotto
    Nazionale
    16
    32
    21
    19
    03
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto