Chi ouò fare questo Script

[jure]

Prima Operazione

Estrazione n.23 07 1975 NA 35 63
n.23 07 1975 TO 25 80
Come si vede tra i 2 Ambi vi sono 2 elementi che hanno dist.45
Impianto NA 35 63 ----- Somma 98 ------ Diff. 28
---------- TO 25 80 ----- Somma 15 ------ Diff. 35
Somma delle Somme 23
Somma 98 x il fisso 3
98 x 3 = 24 - 23 somma delle Somme 01 a 90 = 89
89 + 35 seconda differenza = 34 : 2 = 17 integrazione 89 = 72
1° Ambo 17 72 secondo Ambo si aggiunge il fisso 45 = 62 27
Seconda Operazione
Seconda Somma 15 x 3 = 45 - 23 la Somma delle Somme = 22 con integrazione al fisso 90 = 68
68 + 28 = 06 : 2 = 03 integrazione al 68 = 65

Ambi 03 65 si aggiunge il fisso 45 = 48 20.

Previsione NA TO
17 72
62 27
-----
03 65
48 20

Esito 1° Colpo NA 17 27 - TO 48 20 - 3° Colpo TO 17 27

 

[titta]

Eccoti il listato

Sub main()
Dim nu1(10),nu2(10),ru(10),rtt(10),nu3(10)
Dim rt(3)
Dim ptt(5),pt(5)
pt(1)=1
ptt(2)=1
ptt(3)=1
clp=14
fin=EstrazioneFin
ini=fin-10
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1): n2=Estratto(es,r1,p2)
For r2=r1+1 To 11
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
If p1=p3 And p2=p4 Then
n3=Estratto(es,r2,p3): n4=Estratto(es,r2,p4)
ds1=Distanza(n1,n4):ds2=Distanza(n2,n3):ds3=Distanza(n2,n3):ds4=Distanza(n2,n4)
If ds1=45 Or ds2=45 Then
casi=casi+1
Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r1)&" "& StringaEstratti(es,r1)&_
" > 1° ambo < "& Format2(n1)&"."& Format2 (n2)&" >"
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r2)&" "& StringaEstratti(es,r2)&_
" > 2° ambo < "& Format2(n3)&"."& Format2(n4)&" > "
Scrivi String(65,"-")&" caso n° "&(casi)
rt(1)=r1: rt(2)=r2: rtt(1)=11: rtt(2)=12
co=0
c1=n1+n2:y1=Abs(n1-n2)
c2=(n3+n4):y2=Abs(n3-n4)
so=Fuori90(c1+c2)
a1=Fuori90(c1*3)
a2=Abs(a1-so)
a3=90-a2
a4=Fuori90(a3+y2)
a5=Int(a4/2)
a6=Abs(a3-a5)
nu3(1)=a6:nu3(2)=a5
nu3(3)=Diametrale(a6)
nu3(4)=Diametrale(a5)
co=co+1
ImpostaGiocata co,nu3,rt,ptt,clp
b1=Fuori90(c2*3)
b2=Abs(b1-so)
b3=90-b2
b4=Fuori90(b3+y1)
b5=Int(b4/2)
b6=Abs(b3-b5)
nu3(1)=b6:nu3(2)=b5
nu3(3)=Diametrale(b6)
nu3(4)=Diametrale(b5)
co=co+1
ImpostaGiocata co,nu3,rt,ptt,clp
Gioca es
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

 

[jure]

GRAZIE Titta.