Novità

Sempre con gentilezza...

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

Roby

Guest
Buongiorno,
per favore chi sarebbe cosi' gentile da aiutarmi,mi servirebbe un listato,passo subito ad un esempio:
il 4/9 sulle ruote di BA-FI sono usciti questi numeri
BA 23-44
FI 46-67
se calcoliamo questi 4 n° abbiamo
23+44=67
46+67=23
abbiamo gli stessi numeri di partenza incrociati,composti dal n° maggiore e dal n° minore.
Queste sono le condizioni da ricercare...
Vi ringrazio anticipatamente:)
Ciao e buona giornata
 
Sub Main
'Buongiorno,
'per favore chi sarebbe cosi' gentile da aiutarmi,mi servirebbe un listato,passo subito ad un esempio:
'il 4/9 sulle ruote di BA-FI sono usciti questi numeri
'BA 23-44
'FI 46-67
'se calcoliamo questi 4 n° abbiamo
'23+44=67
'46+67=23
'abbiamo gli stessi numeri di partenza incrociati,composti dal n° maggiore e dal n° minore.
'Queste sono le condizioni da ricercare...
'Vi ringrazio anticipatamente
'Ciao e buona giornata
CIAO CON PIACERE PROVA SE VA BENE FAMMI SAPERE SALUTI ALDO
For e=EstrazioneFin-10 To EstrazioneFin
For R1=1 To 10
For R2=r1+1 To 10
For p1=1 To 5
For p2=P1+1 To 5
For P3=1 To 5
For P4=P3+1 To 5


n1=Estratto(e,r1,p1)
n2=Estratto(e,r1,p2)
n3=Estratto(e,r2,p3)
n4=Estratto(e,r2,p4)
If Fuori90(N1+N2)=N3 And Fuori90(N3+N4)=N2 Or Fuori90(N1+N2)=N4 And Fuori90(N3+N4)=N1 Then


Scrivi+"---------------------"
Scrivi DataEstrazione(E)+" "+ SiglaRuota(R1)+" "+ Format2(N3)+" "+Format2(N4)
Scrivi DataEstrazione(E)+" "+ SiglaRuota(R2)+" "+ Format2(N1)+" "+Format2(N2)
End If
Next
Next
Next
Next
Next
Next
Next
End Sub

saluti Aldo
 
premetto che non son bravo con i listati ,grazie aldo,vedo che i casi son tanti,forse è meglio mettere l'isotopia debora?
---------------------
17.03.2009 75.47.86.55.45 Ge 86 45
17.03.2009 38.41.12.46.04 Ro 41 04
mar 17.03.2009 [8039]
G 1: M 41.45 Ge Ro 13/13
M 41 su Ge 1° colpo [8040/19.03.2009]
M 45 su Ro 4° colpo [8043/26.03.2009]
M 41 su Ro 12° colpo [8051/14.04.2009]

G 2: A 41.45 Ge Ro Tu 13/13
A 41.45 su Tu (Mi) 8° colpo [8047/04.04.2009]

---------------------
17.03.2009 38.41.12.46.04 Ro 38 12
17.03.2009 05.78.06.39.50 To 78 50
mar 17.03.2009 [8039]
G 1: M 50.38 Ro To 13/13
M 38 su To 5° colpo [8044/28.03.2009]
M 38 su To 7° colpo [8046/02.04.2009]

G 2: A 50.38 Ro To Tu 13/13
negativo
---------------------
19.03.2009 23.68.12.70.24 Ca 23 12
19.03.2009 77.78.35.09.83 To 78 35
gio 19.03.2009 [8040]
G 1: M 35.23 Ca To 13/13
M 23 su Ca 9° colpo [8049/09.04.2009]

G 2: A 35.23 Ca To Tu 13/13
negativo
---------------------
19.03.2009 64.21.53.87.35 Fi 21 53
19.03.2009 37.01.29.42.74 Ve 37 74
gio 19.03.2009 [8040]
G 1: M 74.21 Fi Ve 13/13
negativo
G 2: A 74.21 Fi Ve Tu 13/13
negativo
---------------------
26.03.2009 72.68.53.17.12 Ba 53 12
26.03.2009 70.46.78.65.19 Na 78 65
gio 26.03.2009 [8043]
G 1: M 65.53 Ba Na 13/13
M 65 su Ba 4° colpo [8047/04.04.2009]

G 2: A 65.53 Ba Na Tu 13/13
negativo
---------------------
02.04.2009 16.87.62.81.22 Pa 62 22
02.04.2009 84.39.47.21.28 Ro 84 28
gio 02.04.2009 [8046]
G 1: M 84.22 Pa Ro 12/13
M 22 su Pa 3° colpo [8049/09.04.2009]
M 22 su Ro 4° colpo [8050/11.04.2009]
M 22 su Pa 12° colpo [8058/30.04.2009]
in corso (12° su 13)
G 2: A 84.22 Pa Ro Tu 12/13
A 22.84 su Tu (To) 5° colpo [8051/14.04.2009]
in corso (12° su 13)
---------------------
04.04.2009 42.28.09.22.81 Fi 09 81
04.04.2009 34.51.09.01.90 Ro 09 90
sab 04.04.2009 [8047]
G 1: M 90.09 Fi Ro 11/13
M 90 su Fi 2° colpo [8049/09.04.2009]
M 90 su Ro 8° colpo [8055/23.04.2009]
M 90 su Ro 9° colpo [8056/27.04.2009]
in corso (11° su 13)
G 2: A 90.09 Fi Ro Tu 11/13
in corso (11° su 13)
---------------------
09.04.2009 79.82.34.38.12 Mi 79 38
09.04.2009 02.79.07.52.27 Na 52 27
gio 09.04.2009 [8049]
G 1: M 27.79 Mi Na 9/13
in corso (9° su 13)
G 2: A 27.79 Mi Na Tu 9/13
in corso (9° su 13)
---------------------
18.04.2009 51.88.69.02.44 Ge 69 02
18.04.2009 48.71.21.78.38 Na 71 21
sab 18.04.2009 [8053]
G 1: M 71.02 Ge Na 5/13
M 02 su Na 5° colpo [8058/30.04.2009]
in corso (5° su 13)
G 2: A 71.02 Ge Na Tu 5/13
A 71.02 su Tu (Mi) 3° colpo [8056/27.04.2009]
A 71.02 su Tu (Pa) 4° colpo [8057/28.04.2009]
in corso (5° su 13)
---------------------
21.04.2009 61.21.79.36.45 Ba 61 79
21.04.2009 11.12.88.50.58 Ge 11 50
mar 21.04.2009 [8054]
G 1: M 50.61 Ba Ge 4/13
M 50.61 su Ge 1° colpo [8055/23.04.2009]
M 61 su Ge 4° colpo [8058/30.04.2009]
in corso (4° su 13)
G 2: A 50.61 Ba Ge Tu 4/13
A 50.61 su Ge 1° colpo [8055/23.04.2009]
A 50.61 su Tu (Ge) 1° colpo [8055/23.04.2009]
in corso (4° su 13)
---------------------
21.
 
quote:Originally posted by Aldo.G

Sub Main
'Buongiorno,
'per favore chi sarebbe cosi' gentile da aiutarmi,mi servirebbe un listato,passo subito ad un esempio:
'il 4/9 sulle ruote di BA-FI sono usciti questi numeri
'BA 23-44
'FI 46-67
'se calcoliamo questi 4 n° abbiamo
'23+44=67
'46+67=23
'abbiamo gli stessi numeri di partenza incrociati,composti dal n° maggiore e dal n° minore.
'Queste sono le condizioni da ricercare...
'Vi ringrazio anticipatamente
'Ciao e buona giornata
CIAO CON PIACERE PROVA SE VA BENE FAMMI SAPERE SALUTI ALDO
For e=EstrazioneFin-10 To EstrazioneFin
For R1=1 To 10
For R2=r1+1 To 10
For p1=1 To 5
For p2=P1+1 To 5
For P3=1 To 5
For P4=P3+1 To 5


n1=Estratto(e,r1,p1)
n2=Estratto(e,r1,p2)
n3=Estratto(e,r2,p3)
n4=Estratto(e,r2,p4)
If Fuori90(N1+N2)=N3 And Fuori90(N3+N4)=N2 Or Fuori90(N1+N2)=N4 And Fuori90(N3+N4)=N1 Then


Scrivi+"---------------------"
Scrivi DataEstrazione(E)+" "+ SiglaRuota(R1)+" "+ Format2(N3)+" "+Format2(N4)
Scrivi DataEstrazione(E)+" "+ SiglaRuota(R2)+" "+ Format2(N1)+" "+Format2(N2)
End If
Next
Next
Next
Next
Next
Next
Next
End Sub

saluti Aldo

Ciao Aldo,
sei stato molto gentile,
però se fosse possibile vorrei inserire una ulteriore condizione e cioè che questi ambi rilevati abbiano la stessa differenza,
nel nostro caso:
44-23=21
67-46=21
che è un numero uguale alla somma 44+67=21
Non so se mi sono spiegata bene...[:I]

Per Uruam
Non è detto che debbano essere isotopi,se poi lo sono che ben venga:)

Grazie ciaoo:)
 
ciao vedi ti ho messo le somme che si ricavano cosi puoi confrontare con le distanze fammi sapere.

Sub Main

For e = EstrazioneFin - 20 To EstrazioneFin
For R1 = 1 To 10
For R2 = r1 + 1 To 10
For p1 = 1 To 5
For p2 = P1 + 1 To 5
For P3 = 1 To 5
For P4 = P3 + 1 To 5


n1 = Estratto(e,r1,p1)
n2 = Estratto(e,r1,p2)
n3 = Estratto(e,r2,p3)
n4 = Estratto(e,r2,p4)
If Fuori90(N1 + N2) = N3 And Fuori90(N3 + N4) = N2 Or Fuori90(N1 + N2) = N4 And Fuori90(N3 + N4) = N1 Then
Scrivi+"SOMMe "
d1=Distanza(n1,n2)
d2=Distanza(n3,n4)
s1=Fuori90(n1+n4)
s2=Fuori90(n2+n3)
s3=Fuori90(n1+n3)
s4=Fuori90(n2+n4)
Scrivi+""+Format2(n1)+"+"+Format2(n4)+"="+Format2(s1)
Scrivi+""+Format2(n2)+"+"+Format2(n3)+"="+Format2(s2)
Scrivi+""+Format2(n1)+"+"+Format2(n3)+"="+Format2(s3)
Scrivi+""+Format2(n2)+"+"+Format2(n4)+"="+Format2(s4)
Scrivi+"--------"
Scrivi DataEstrazione(E) + " " + SiglaRuota(R1) + " " + Format2(N3) + " " + Format2(N4)+" Dist.: "+CStr(d1)
Scrivi DataEstrazione(E) + " " + SiglaRuota(R2) + " " + Format2(N1) + " " + Format2(N2)+" Dist.: "+CStr(d2)
Scrivi + "--------------------------------"



End If
Next
Next
Next
Next
Next
Next
Next
End Sub


saluti Aldo
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 26 luglio 2025
    Bari
    81
    09
    05
    54
    10
    Cagliari
    56
    07
    45
    69
    64
    Firenze
    39
    16
    56
    29
    09
    Genova
    67
    12
    55
    74
    04
    Milano
    40
    30
    44
    63
    27
    Napoli
    63
    07
    74
    86
    81
    Palermo
    80
    34
    16
    27
    53
    Roma
    08
    78
    43
    03
    52
    Torino
    38
    84
    47
    57
    20
    Venezia
    88
    70
    85
    65
    24
    Nazionale
    36
    09
    43
    55
    10
    Estrazione Simbolotto
    Nazionale
    25
    23
    13
    40
    35

Ultimi Messaggi

Indietro
Alto