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
    sabato 21 febbraio 2026
    Bari
    72
    63
    35
    12
    01
    Cagliari
    02
    31
    01
    53
    10
    Firenze
    30
    35
    05
    87
    42
    Genova
    74
    32
    43
    68
    80
    Milano
    39
    06
    64
    16
    83
    Napoli
    56
    65
    71
    07
    12
    Palermo
    11
    57
    50
    28
    71
    Roma
    35
    23
    58
    89
    46
    Torino
    27
    28
    74
    16
    75
    Venezia
    68
    70
    27
    77
    83
    Nazionale
    28
    52
    18
    26
    39
    Estrazione Simbolotto
    Cagliari
    42
    15
    21
    19
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto