Novità

Per Maxma62

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

Roby

Guest
Ciao Max,
non ti ho scocciato nel chiederti i listati delle statistiche
postate, ma perchè non metti oltre ai risultati anche i listati
visto che sei così bravo e veloce ? Ti pongo un quesito :
quando tra Firenze e Genova si crea una differenza 1 (uno) tra
due estratti , devo giocare 42/81 42/48 31/62 e 48/41 . Se hai
tempo e voglia, io aspetto pazientemente ciao con tanti tanti
cordialissimi saluti

lola

livia
 
Resoconto del metodo (numeri isotopi?)
9 casi - 40 estr.
(controlla se va bene)

Codice: 
ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
 < distanza 1 vert. tra 2 num. isot. su Fi Ge di lola (livia) >
-----------------------------------------------------------------
sab 31.03.2007 < Fi 78.66.84.30.14 > 1°num. = 84 pos.3a
sab 31.03.2007 < Ge 36.28.83.08.62 > 2°num. = 83 pos.3a
distanza tra 84 e 83 = 1
------------------------------------------------------- caso n° 1

sab 31.03.2007  [7732]
  G  1:  A             42.81                  Fi Ge    12/12    
     A  42.81            su Ge    1° colpo   [7733/03.04.2007]

  G  2:  A             42.83                  Fi Ge    12/12    
     negativo
  G  3:  A             31.62                  Fi Ge    12/12    
     negativo
  G  4:  A             48.41                  Fi Ge    12/12    
     negativo
  G  5:  ATQC          42.81.83.31.62.48.41   Fi Ge    12/12    
     A  42.81            su Ge    1° colpo   [7733/03.04.2007]
     A  48.62            su Fi    9° colpo   [7741/21.04.2007]
     A  81.41            su Ge    9° colpo   [7741/21.04.2007]



ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
 < distanza 1 vert. tra 2 num. isot. su Fi Ge di lola (livia) >
-----------------------------------------------------------------
gio 05.04.2007 < Fi 86.30.07.79.10 > 1°num. = 30 pos.2a
gio 05.04.2007 < Ge 42.29.04.13.65 > 2°num. = 29 pos.2a
distanza tra 30 e 29 = 1
------------------------------------------------------- caso n° 2

gio 05.04.2007  [7734]
  G  1:  A             42.81                  Fi Ge    12/12    
     negativo
  G  2:  A             42.83                  Fi Ge    12/12    
     negativo
  G  3:  A             31.62                  Fi Ge    12/12    
     negativo
  G  4:  A             48.41                  Fi Ge    12/12    
     negativo
  G  5:  ATQC          42.81.83.31.62.48.41   Fi Ge    12/12    
     A  48.62            su Fi    7° colpo   [7741/21.04.2007]
     A  81.41            su Ge    7° colpo   [7741/21.04.2007]
     A  48.42            su Ge   12° colpo   [7746/03.05.2007]



ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
 < distanza 1 vert. tra 2 num. isot. su Fi Ge di lola (livia) >
-----------------------------------------------------------------
gio 12.04.2007 < Fi 10.71.28.32.36 > 1°num. = 71 pos.2a
gio 12.04.2007 < Ge 08.72.88.14.50 > 2°num. = 72 pos.2a
distanza tra 71 e 72 = 1
------------------------------------------------------- caso n° 3

gio 12.04.2007  [7737]
  G  1:  A             42.81                  Fi Ge    12/12    
     negativo
  G  2:  A             42.83                  Fi Ge    12/12    
     negativo
  G  3:  A             31.62                  Fi Ge    12/12    
     negativo
  G  4:  A             48.41                  Fi Ge    12/12    
     negativo
  G  5:  ATQC          42.81.83.31.62.48.41   Fi Ge    12/12    
     A  48.62            su Fi    4° colpo   [7741/21.04.2007]
     A  81.41            su Ge    4° colpo   [7741/21.04.2007]
     A  48.42            su Ge    9° colpo   [7746/03.05.2007]



ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
 < distanza 1 vert. tra 2 num. isot. su Fi Ge di lola (livia) >
-----------------------------------------------------------------
sab 21.04.2007 < Fi 87.43.48.62.27 > 1°num. = 87 pos.1a
sab 21.04.2007 < Ge 86.81.19.72.41 > 2°num. = 86 pos.1a
distanza tra 87 e 86 = 1
------------------------------------------------------- caso n° 4

sab 21.04.2007  [7741]
  G  1:  A             42.81                  Fi Ge    12/12    
     negativo
  G  2:  A             42.83                  Fi Ge    12/12    
     negativo
  G  3:  A             31.62                  Fi Ge    12/12    
     negativo
  G  4:  A             48.41                  Fi Ge    12/12    
     negativo
  G  5:  ATQC          42.81.83.31.62.48.41   Fi Ge    12/12
 
Resoconto anche con numeri non isotopi
Codice: 
ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
   < distanza 1 vert. tra 2 num. su Fi Ge di lola (livia) >
-----------------------------------------------------------------
gio 29.03.2007 < Fi 69.16.70.41.59 > 1°num. = 69 pos.1a
gio 29.03.2007 < Ge 79.70.64.68.44 > 2°num. = 70 pos.2a
distanza tra 69 e 70 = 1
------------------------------------------------------- caso n° 1

gio 29.03.2007  [7731]
  G  1:  A             42.81                  Fi Ge    12/12    
     A  42.81            su Ge    2° colpo   [7733/03.04.2007]

  G  2:  A             42.83                  Fi Ge    12/12    
     negativo
  G  3:  A             31.62                  Fi Ge    12/12    
     negativo
  G  4:  A             48.41                  Fi Ge    12/12    
     negativo
  G  5:  ATQC          42.81.83.31.62.48.41   Fi Ge    12/12    
     A  83.62            su Ge    1° colpo   [7732/31.03.2007]
     A  42.81            su Ge    2° colpo   [7733/03.04.2007]
     A  48.62            su Fi   10° colpo   [7741/21.04.2007]
     A  81.41            su Ge   10° colpo   [7741/21.04.2007]



ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
   < distanza 1 vert. tra 2 num. su Fi Ge di lola (livia) >
-----------------------------------------------------------------
gio 29.03.2007 < Fi 69.16.70.41.59 > 1°num. = 69 pos.1a
gio 29.03.2007 < Ge 79.70.64.68.44 > 2°num. = 68 pos.4a
distanza tra 69 e 68 = 1
------------------------------------------------------- caso n° 2

gio 29.03.2007  [7731]
  G  1:  A             42.81                  Fi Ge    12/12    
     A  42.81            su Ge    2° colpo   [7733/03.04.2007]

  G  2:  A             42.83                  Fi Ge    12/12    
     negativo
  G  3:  A             31.62                  Fi Ge    12/12    
     negativo
  G  4:  A             48.41                  Fi Ge    12/12    
     negativo
  G  5:  ATQC          42.81.83.31.62.48.41   Fi Ge    12/12    
     A  83.62            su Ge    1° colpo   [7732/31.03.2007]
     A  42.81            su Ge    2° colpo   [7733/03.04.2007]
     A  48.62            su Fi   10° colpo   [7741/21.04.2007]
     A  81.41            su Ge   10° colpo   [7741/21.04.2007]



ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
   < distanza 1 vert. tra 2 num. su Fi Ge di lola (livia) >
-----------------------------------------------------------------
sab 31.03.2007 < Fi 78.66.84.30.14 > 1°num. = 84 pos.3a
sab 31.03.2007 < Ge 36.28.83.08.62 > 2°num. = 83 pos.3a
distanza tra 84 e 83 = 1
------------------------------------------------------- caso n° 3

sab 31.03.2007  [7732]
  G  1:  A             42.81                  Fi Ge    12/12    
     A  42.81            su Ge    1° colpo   [7733/03.04.2007]

  G  2:  A             42.83                  Fi Ge    12/12    
     negativo
  G  3:  A             31.62                  Fi Ge    12/12    
     negativo
  G  4:  A             48.41                  Fi Ge    12/12    
     negativo
  G  5:  ATQC          42.81.83.31.62.48.41   Fi Ge    12/12    
     A  42.81            su Ge    1° colpo   [7733/03.04.2007]
     A  48.62            su Fi    9° colpo   [7741/21.04.2007]
     A  81.41            su Ge    9° colpo   [7741/21.04.2007]



ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
   < distanza 1 vert. tra 2 num. su Fi Ge di lola (livia) >
-----------------------------------------------------------------
gio 05.04.2007 < Fi 86.30.07.79.10 > 1°num. = 30 pos.2a
gio 05.04.2007 < Ge 42.29.04.13.65 > 2°num. = 29 pos.2a
distanza tra 30 e 29 = 1
------------------------------------------------------- caso n° 4

gio 05.04.2007  [7734]
  G  1:  A             42.81                  Fi Ge    12/12    
     negativo
  G  2:  A             42.83                  Fi Ge    12/12    
     negativo
  G  3:  A             31.62                  Fi Ge    12
 
Ciò lola, varda che jero drio schersare, ciapa quà:

Sub main
Dim ruota(10)
Dim posta(2),poste(5)
Dim n(2),n1(7)
posta(2)=2
poste(2)=3:poste(3)=1.2:poste(4)=0.5:poste(5)=0.2
co=0:t=0
d=CInt(InputBox("Qual'è la distanza da trovare? ","Distanza",1))
r=eval(InputBox("1a ruota di ricerca? ","1a ruota di ricerca",3))
rr=eval(InputBox("2a ruota di ricerca? ","2a ruota di ricerca",4))
r2=InputBox("1a ruota di gioco? ","1a ruota di gioco",3)
r3=InputBox("2a ruota di gioco? ","2a ruota di gioco",4)
k=InputBox("Per quanti colpi vuoi giocare? ","Durata gioco",12)
fin=EstrazioneFin
ini=fin-40
For es=ini To fin
For p1=1 To 5
a=Estratto(es,r,p1)
For p2=1 To 5
b=Estratto(es,rr,p2)
If Distanza(a,b)=d Then
co=co+1:t=t+1
ruota(1)=r2:ruota(2)=r3
Scrivi:Scrivi:Scrivi String(65,"o")
Scrivi Space(3)&"< distanza " &(d)&" vert. tra 2 num. su "&_
SiglaRuota(r)&" "&siglaRuota(rr)&" di lola (livia) >",1
Scrivi String(65,"-")
Scrivi DataEstrazione(es,1)&" < "&""&siglaRuota(r)&" "& StringaEstratti(es,r) &_
" > 1°num. = "&format2(a)&" pos."&posizione(es,r,a)&"a",1
Scrivi DataEstrazione(es,1)&" < "&""&siglaRuota(rr)&" "& StringaEstratti(es,rr)&_
" > 2°num. = "&format2(b)&" pos."&posizione(es,rr,b)&"a",1
Scrivi "distanza"&" tra "&(a)&" e "&(b)& " = "&(d),1
Scrivi String(55,"-")&" caso n° "&t:scrivi
ng=0
n(1)=42:n(2)=81:ng=ng+1
ImpostaGiocata ng,n,ruota,posta,k
n(1)=42:n(2)=83:ng=ng+1
ImpostaGiocata ng,n,ruota,posta,k
n(1)=31:n(2)=62:ng=ng+1
ImpostaGiocata ng,n,ruota,posta,k
n(1)=48:n(2)=41:ng=ng+1
ImpostaGiocata ng,n,ruota,posta,k
n1(1)=42:n1(2)=81:n1(3)=83:n1(4)=31
n1(5)=62:n1(6)=48:n1(7)=41
ImpostaGiocata 5,n1,ruota,poste,k
Gioca es
End If
Next:Next:next
Scrivi:Scrivi String(65,"•")
Scrivi "casi trovati : "& co,1:Scrivi String(65,"•")
ScriviResoconto
ColoreTesto 1:Scrivi "< distanza " &(d)&" vert. tra 2 num. su "&_
SiglaRuota(r)&" "&siglaRuota(rr)&" di lola (livia) >",1
End Sub

max
 
Ciao Max,

ho leggermente modificato il tuo bel listato, ma la distanza 32
imposta tra PA e RO deve necessariamente uscire solo in 3^ posi-
zione dove devo modificare ? EVIDENZIAMELO in modo so dove inter-
venire. Ciao grazie

lola



Sub main
Dim ruota(10)
Dim posta(2),poste(5)
Dim n(2),n1(7)
posta(2)=2
poste(2)=3:poste(3)=1.2:poste(4)=0.5:poste(5)=0.2
co=0:t=0
d=CInt(InputBox("Qual'è la distanza da trovare? ","Distanza",32))
po=CInt(InputBox("Posizione distanza da trovare ?",,3))
r=eval(InputBox("1a ruota di ricerca? ","1a ruota di ricerca",7))
rr=eval(InputBox("2a ruota di ricerca? ","2a ruota di ricerca",8))
r2=InputBox("1a ruota di gioco? ","1a ruota di gioco",7)
r3=InputBox("2a ruota di gioco? ","2a ruota di gioco",8)
k=InputBox("Per quanti colpi vuoi giocare? ","Durata gioco",12)
fin=EstrazioneFin
ini= 7366
For es=ini To fin
For p1=1 To 5
a=Estratto(es,r,p1)
For p2=1 To 5
b=Estratto(es,rr,p2)
If Distanza(a,b)=d Then
co=co+1:t=t+1
ruota(1)=r:ruota(2)=rr
Scrivi:Scrivi:Scrivi String(65,"o")
Scrivi Space(3)&"< distanza " &(d)&" vert. tra 2 num. su "&_
SiglaRuota(r)&" "&siglaRuota(rr)&" di lola (livia) >",1
Scrivi String(65,"-")
Scrivi DataEstrazione(es,1)&" < "&""&siglaRuota(r)&" "& StringaEstratti(es,r) &_
" > 1°num. = "&format2(a)&" pos."&posizione(es,r,a)&"a",1
Scrivi DataEstrazione(es,1)&" < "&""&siglaRuota(rr)&" "& StringaEstratti(es,rr)&_
" > 2°num. = "&format2(b)&" pos."&posizione(es,rr,b)&"a",1
Scrivi "distanza"&" tra "&(a)&" e "&(b)& " = "&(d),1
Scrivi String(55,"-")&" caso n° "&t:scrivi
ng=0
'------------------------------------------------------

b1 = Estratto(es,7,2)
b2 = Estratto(es,3,3)
b7 = Fuori90(90+(b1 - b2))
'------------------------------------------------------
a1 = Estratto(es,8,2)
a2 = Estratto(es,12,2)
a3 = Estratto(es,7,2)
a4 = Estratto(es,8,5)
a5 = Estratto(es,7,4)
a6 = Estratto(es,4,3)
a7 = Estratto(es,12,1)
a8= Estratto(es,7,5)
a9=Estratto(es,6,3)

'-----------------------------------------------------
a21 = Fuori90(90+(a1-a2))

a22 = Fuori90(a3+a4)
a23 = Fuori90(a22*21)
a24 = Fuori90(a23*a6)
a25 = Fuori90(90+(a24-39))
a26 = Fuori90(a25+a7)
a27 = Fuori90(90+(a26-a9))
'=================================================================================================




n(1)=b7:n(2)=a21:ng=ng+1
ImpostaGiocata ng,n,ruota,posta,k
n(1)=b7:n(2)=a27:ng=ng+1
ImpostaGiocata ng,n,ruota,posta,k
Gioca es
End If
Next:Next:next
Scrivi:Scrivi String(65,"•")
Scrivi "casi trovati : "& co,1:Scrivi String(65,"•")
ScriviResoconto
ColoreTesto 1:Scrivi "< distanza " &(d)&" vert. tra 2 num. su "&_
SiglaRuota(r)&" "&siglaRuota(rr)&" di lola (livia) >",1
End Sub




livia
 
Prova così

'For p1=1 To 5 '<<<---- togliere o mettere un apice
a=Estratto(es,r,po)'<<<---- modif.
'For p2=1 To 5 '<<<---- togliere o mettere un apice
b=Estratto(es,rr,po)'<<<<---- modif.
+ togliere (o mettere un apice) su 2 Next alla fine del listato

ciao, max
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 19 marzo 2026
    Bari
    02
    88
    51
    01
    04
    Cagliari
    35
    37
    47
    40
    83
    Firenze
    12
    34
    72
    24
    01
    Genova
    18
    58
    26
    62
    13
    Milano
    72
    58
    86
    31
    48
    Napoli
    64
    88
    44
    89
    24
    Palermo
    88
    14
    53
    87
    05
    Roma
    52
    59
    26
    22
    73
    Torino
    05
    37
    83
    85
    21
    Venezia
    60
    28
    36
    87
    66
    Nazionale
    72
    20
    34
    52
    69
    Estrazione Simbolotto
    Firenze
    20
    27
    29
    15
    40
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto