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
    venerdì 25 luglio 2025
    Bari
    53
    75
    06
    08
    43
    Cagliari
    62
    52
    59
    55
    72
    Firenze
    54
    13
    56
    14
    62
    Genova
    07
    84
    21
    58
    20
    Milano
    27
    28
    62
    61
    04
    Napoli
    16
    43
    31
    68
    50
    Palermo
    72
    34
    60
    40
    66
    Roma
    46
    72
    66
    36
    11
    Torino
    77
    29
    23
    11
    48
    Venezia
    24
    77
    41
    48
    21
    Nazionale
    70
    83
    17
    40
    71
    Estrazione Simbolotto
    Nazionale
    09
    13
    05
    38
    03
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto