Metodo Il Tesoro Di antonio Longo

[Roby]

Ecco il listato

Sub main()
Dim nu1(10),nu2(10),nu3(10)
Dim rt(3),rtt(1)
Dim ptt(5)
ptt(2)=1
rtt(1)=11
clp=14
rt(3)=12
fin=EstrazioneFin
ini=fin-150
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10
For p1=1 To 5
n1=Estratto(es,r1,p1)
For r2=r1+1 To 11
If r2=11 Then r2=12
For p3=1 To 5
n3=Estratto(es,r2,p3):so=n1+n3
If so=90 And p1=p3 And r1+1=r2 Then
a1=n1*n3
a2=a1+90
casi=casi+1
Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r1)&" "& StringaEstratti(es,r1)&_
" > ambo ripetuto < "& Format2(n1)&"."
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r2)&" "& StringaEstratti(es,r2)&_
" > ambo ripetuto < "& Format2(n3)&". Somma "& Format2(so)&" . "
Scrivi String(65,"-")&" caso n° "&(casi)
rt(1)=r1: rt(2)=r2
co=0
b3=Int(a2/100)
b4=Fuori90(a2-b3*10)
b5=Fuori90(b3+b4)
nu3(1)=b3:nu3(2)=b4
co=co+1
ImpostaGiocata co,nu3,rt,ptt,clp
co=co+1
ImpostaGiocata co,nu3,rtt,ptt,clp
nu2(1)=b5:nu2(2)=b3:nu2(3)=Vert(b3)
co=co+1
ImpostaGiocata co,nu2,rt,ptt,clp
nu2(1)=b5:nu2(2)=b4:nu2(3)=Vert(b4)
co=co+1
ImpostaGiocata co,nu2,rt,ptt,clp
nu2(1)=b5:nu2(2)=b4:nu2(3)=b3
co=co+1
ImpostaGiocata co,nu2,rt,ptt,clp
nu1(1)=b5:nu1(2)=b3:nu1(3)=Vert(b3):nu1(4)=b4:nu1(5)=Vert(b4)
co=co+1
ImpostaGiocata co,nu1,rt,ptt,clp
Gioca es
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub


IL LOTTO E' UN GIUOCO E COME TALE VA TRATTATO,DOVE TUTTO E PROPABILE NIENTE E' CERTO
Eugenio

 

[marcello61]

mi spieghi per cortesia come utilizzare il listato?

marcello61

 

[Enplein]

sab 08.01.2011 < Ge 43.72.88.13.63 > 72 < 
sab 08.01.2011 < Mi 15.18.23.81.03 > 18 <  Somma 90 . 
----------------------------------------------------------------- caso n° 81
sab 08.01.2011  [8323]
  G  1:  A    13.86            Ge Mi Nz    14/14    
     negativo
  G  2:  A    13.86            Tu          14/14    
     negativo
  G  3:  A    09.13.31         Ge Mi Nz    14/14    
     negativo
  G  4:  A    09.86.68         Ge Mi Nz    14/14    
     A  86.09            su Nz    3° colpo   [8326/15.01.2011]

  G  5:  A    09.86.13         Ge Mi Nz    14/14    
     A  86.09            su Nz    3° colpo   [8326/15.01.2011]

  G  6:  A    09.13.31.86.68   Ge Mi Nz    14/14    
     A  86.09            su Nz    3° colpo   [8326/15.01.2011]

Ciao marcello61, bisogna cercare su due ruote nella stessa
posizione due numeri (72 e 18) la cui somma sia uguale a 90,
senza il Fuori 90.
A condizione rispettata, moltiplicare i due valori (72*18)+90=
=1386, che scomposti a due diventano N1=13 N2=86
Gli abbinamenti sono: ab1=(13+86)=9, ab2=Vertibile di N1=13=31
ab3=Vertibile di N2=86=68

Nella speranza di essere stato chiaro, saluto.

Ciao, Enplein.

 

[Pino67]

scusa enplein ma l'ambo di ricerca deve essere di somma 90 con i due numeri fissi (72-18) oppure con altri numeri che diano la somma 90???
Ciao,Pino

 

[Enplein]

...no!!! le coppie sono libere di somma 90.
I numeri postati si riferivano all'esempio.

Ciao, Enplein.

 

[Pino67]

ok,grazie.

 

[Pino67]

la ruota nazionale è facoltativa oppure da aggiungere sempre alle due ruote di ricerca???

quote:Originally posted by Pino67

ok,grazie.

 

[Enplein]

...dallo script si nota che è stata inserita
anche la ruota Nazionale.

Ciao, Enplein.

 

[marcello61]

Grazie per la spiegazione del metodo ma non so usare ugualmente lo script.

marcello61

 

[Enplein]

...è un metodo visivo e non occorre lo
script. Basta trovare in una estrazione
un ambo di somma 90.

Ciao e buon lavoro, Enplein.

 

[vivo]

Ringrazio per il metodo del grande Longo e penso di aver capito bene.
Nell'estrazione del 17.2 abbiamo a PA TO 56 - 34
io avrei ricavato 19.4 con 23 11 40
l'11 è un vertibile non puro, è valida?

Grazie


felice ogni mattina se metto i piedi a terra da solo
vivo

 

[vivo]

quote:Originally posted by vivo

Ringrazio per il metodo del grande Longo e penso di aver capito bene.
Nell'estrazione del 17.2 abbiamo a PA TO 56 - 34
io avrei ricavato 19.4 con 23 11 40
l'11 è un vertibile non puro, è valida?
oppure BA FI 46 44
dovrebbe darmi 21 14 con 35 12 14

Grazie


felice ogni mattina se metto i piedi a terra da solo
vivo

felice ogni mattina se metto i piedi a terra da solo
vivo