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

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

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ì 22 luglio 2025
    Bari
    29
    03
    79
    27
    86
    Cagliari
    22
    54
    55
    50
    29
    Firenze
    52
    38
    30
    29
    83
    Genova
    08
    62
    20
    69
    26
    Milano
    17
    45
    55
    67
    73
    Napoli
    64
    39
    35
    62
    02
    Palermo
    84
    33
    60
    43
    28
    Roma
    33
    79
    27
    41
    81
    Torino
    35
    58
    38
    70
    56
    Venezia
    64
    11
    07
    57
    27
    Nazionale
    53
    15
    38
    52
    66
    Estrazione Simbolotto
    Nazionale
    18
    24
    03
    21
    15

Ultimi Messaggi

Indietro
Alto