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
    giovedì 30 luglio 2026
    Bari
    68
    87
    56
    61
    24
    Cagliari
    87
    73
    60
    89
    10
    Firenze
    63
    39
    08
    73
    61
    Genova
    40
    11
    48
    26
    87
    Milano
    19
    83
    16
    63
    49
    Napoli
    50
    19
    83
    39
    80
    Palermo
    57
    35
    03
    46
    52
    Roma
    64
    78
    03
    38
    46
    Torino
    72
    69
    56
    85
    41
    Venezia
    42
    09
    36
    43
    48
    Nazionale
    55
    33
    80
    70
    25
    Estrazione Simbolotto
    Nazionale
    32
    21
    33
    10
    08
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto