Per Maxma62

[Roby]

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

 

[maxma62]

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

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

 

[lola]

ciao Max,

i due estratti possono anche non essere isotopi.
Cordialità

lola

livia

 

[maxma62]

Resoconto anche con numeri non isotopi

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

 

[lola]

OK MAX, LO POSTI ?

ciao

lola

livia

 

[maxma62]

Quanti soldi mi dai?

 

[lola]

Max !!!!!!!!!!!!!
ciao grazie

lola

livia

 

[maxma62]

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)=3oste(3)=1.2oste(4)=0.5oste(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

 

[lola]

Ciao Max,

grasie seto, ti te se veramente un bravo butin

lola

livia

 

[lola]

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)=3oste(3)=1.2oste(4)=0.5oste(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

 

[maxma62]

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

 

[lola]

Ciao Max,

tutto OK, ancora grasie seto ciao

lola

livia