SUPER LOTTO

DA RETTANGOLO AD ESAGONO

« Older   Newer »
  Share  
lottoelotto
CAT_IMG Posted on 4/10/2011, 14:41




BISOGNA TROVARE UN AMBO DISTANZA 45,E UNO DISTANZA 9

ESEMPIO;

ESTRAZIONE DEL 13/9

CAGLIARI 82.1 =DISTANZA 9 ORIZZONTALE
FIRENZE 46.XX=DISTANZA 45 DIAGONALE

82.46= DISTANZA 36
--------------------------------------------
CERCARE IL NUMERO X CHIUDERE IL RETTANGOLO
37 AMBATA
X ABBINAMENTI DIVIDERE LE CORDE DISTANZA 36
1+18=19
46+18=64
AMBI PRINCIPALI
37.19/37.64
AMBI SECONDARI
37.46/37.1/37.82
AL TERZO E AL 4 COLPO AMBO SECCO A RUOTA 37.82
GRAZIE ANTICIPATAMENTE
SALUTI DA LOTTOELOTTO

 
Top
lottoelotto
CAT_IMG Posted on 4/10/2011, 16:41




GRAZIE LO STESSO KISSSSSSSS OKKI
 
Top
drago2940
CAT_IMG Posted on 25/2/2012, 10:59




Così va bene Ciao

Sub main()
Dim nu1(10),nu2(10),nu3(10)
Dim ruote(3)
Dim poste(10),posta(10)
poste(1)=1
posta(2)=1
fin=EstrazioneFin
ini=fin-100
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 11
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2):ds1=Distanza(n1,n2)
For r2=1 To 11
If r2=11 Then r2=12
If r2<>r1 And Distanza(r1,r2)=1 Then
For p3=1 To 5
n3=Estratto(es,r2,p3)
ds2=Distanza(n1,n3):ds3=Distanza(n2,n3)
If ds1=9 And ds2=36 And ds3=45 Then
k1=Fuori90(n1+45):ds4=Distanza(k1,n3)
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza < "&Format2 (ds1)&" .< "&Format2(n1)&" . "&Format2(n2)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo distanza < "&Format2 (ds4)&" .< "&Format2(n3)&" . "&Format2(k1)&" >"
Scrivi" Numero chiusura "&Format2(k1)&" . "
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2: k=14:co=0
nu2(1)=k1
poste(1)=1 : poste(p1+5)=1 : poste(p2+5)=1
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
Erase poste
nu1(1)=k1
nu1(2)=Fuori90(n2+18)
nu1(3)=Fuori90(n3+18)
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k
nu3(1)=k1
nu3(2)=n1
nu3(3)=n2
nu3(4)=n3
co=co+1
ImpostaGiocata co,nu3,ruote,posta,k
Gioca es
End If
Next
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
 
Top
2 replies since 4/10/2011, 14:41   544 views
  Share