Ho modificato il listato
Cmq ti ringrazio per l'aiuto e per il listato.
Adesso spiego meglio il metodo
facendo un esempio
mer 09.12.2009 [8153]
G 1: M 57 Ro To 0/14
n.i. (14 colpi)
G 2: A 57.66.69 Ro To 0/14
n.i. (14 colpi)
G 3: A 57.66.69 Ro To 0/14
n.i. (14 colpi)
57-66-69 ok
Il terzo abbinamento si ripete perchè..........
si procede in questo modo
90-42=48 chiamiamolo Z
l'abbinamento sarà il risultato della somma di 18 con il nostro Z
quindi 18+48=66
Il 66 è ripetuto , pertanto in gioco ci sono solo due ambi secchiHo modificato il tuo bel listato... gentilmente, fallo girare e dimmi se ti trovi
GRazie
Sub main()
Dim nu1(10),nu2(10),nu3(10)
Dim ruote(10),ruota(3)
Dim ruote2 (10)
Dim posta(1),poste(2),post(3),pos(5)
ruote2(10)=11
posta(1)=1:poste(2)=1
pos(2)=3:pos(3)=0.8:pos(4)=0.2
fin=EstrazioneFin
Scrivi
Scrivi
Scrivi "*****Metodo Distanza 9 di Angeloskizzo****"
Scrivi "*****Metodo Distanza 9 di Angeloskizzo****"
ini=fin-50
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 11
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)
ds1=Distanza(n1,n3)
If Cadenza(n1)<>0 And Cadenza(n3)<>0 And ds1=9 And p1=p3 And r1+1=r2 Then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza < "&Format2(ds1)&" . "&Format2 (n1)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo distanza < "&Format2(ds1)&" . "&Format2 (n3)&" >"
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:k=14:co=0
a1=90-n1
a2=90-n3
a3=Fuori90(a1+18)
a4=Vert(a3)' AMBATA_
a5=Fuori90(a1+9)' 1 Abbinamento
a6=Vert(a5) ' 2 Abbinamento
z=90-n3
a7=Fuori90(18+z) ' 3 Abbinamento
nu3(1)=a4
co=co+1
ImpostaGiocata co,nu3,ruote,posta,k
nu1(1)=a4:nu1(2)=a5:nu1(3)=a6
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
nu2(1)=a4:nu2(2)=a5:nu2(3)=a6:nu2(4)=a7
co=co+1
coo=co+1
ImpostaGiocata co,nu2,ruote,poste,k
ImpostaGiocata coo,nu2,ruote2,poste,k
Gioca es
End If
Next:Next:Next
Next:Next
ScriviResoconto
End Sub
Edited by Angeloskizzo - 10/12/2009, 15:46
