| Eccoti un listato del BYRO
Sub main()
Dim nu1(10),nu2(10),nu3(10)
Dim ruote(10),ruota(10)
Dim poste(5),posta(5)
poste(2)=1
poste(3)=1
posta(1)=1
fin=EstrazioneFin
ini=fin-20
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 11:If r1=11 Then r1=12
a1=Estratto(es,r1,1):a2=Estratto(es,r1,2):a3=Estratto(es,r1,3):a4=Estratto(es,r1,4):a5=Estratto(es,r1,5)
For r3=1 To 200
xs=es-r3
b1=Estratto(xs,r1,1):b2=Estratto(xs,r1,2):b3=Estratto(xs,r1,3):b4=Estratto(xs,r1,4):b5=Estratto(xs,r1,5)
k1=Fuori90(a1+a2+a3+a4+a5)
If k1<10 Then k1=k1+90
k2=Fuori90(a2+a3+a4+a5+b1)
If k2<10 Then k2=k2+90
k3=Fuori90(a3+a4+a5+b1+b2)
If k3<10 Then k3=k3+90
k4=Fuori90(a4+a5+b1+b2+b3)
If k4<10 Then k4=k4+90
k5=Fuori90(a5+b1+b2+b3+b4)
If k5<10 Then k5=k5+90
k6=Fuori90(b1+b2+b3+b4+b5)
If k6<10 Then k6=k6+90
j1=a1-a2:If a1<a2 Then j1=Fuori90((90+a1)-a2)
j2=a2-a3:If a2<a3 Then j2=Fuori90((90+a2)-a3)
j3=a3-a4:If a3<a4 Then j3=Fuori90((90+a3)-a4)
j4=a4-a5:If a4<a5 Then j4=Fuori90((90+a4)-a5)
j5=a5-b1:If a5<b1 Then j5=Fuori90((90+a5)-b1)
j6=b1-b2:If b1<b2 Then j6=Fuori90((90+b1)-b2)
w1=k1-k2:If k1<k2 Then w1=Fuori90((90+k1)-k2)
w2=k2-k3:If k2<k3 Then w2=Fuori90((90+k2)-k3)
w3=k3-k4:If k3<k4 Then w3=Fuori90((90+k3)-k4)
w4=k4-k5:If k4<k5 Then w4=Fuori90((90+k4)-k5)
w5=k5-k6:If k5<k6 Then w5=Fuori90((90+k5)-k6)
k7=Fuori90(j1+j2+j3+j4+j5+j6+w1+w2+w3+w4+w5)
y1=Fuori90(k1+k2+k3+k4+k5+k6)
y1=Fuori90(k1+k2+k3+k4+k5+k6):y3=Fuori90(b1+k7)
jj=0
y2=Fuori90(y1+k7)
z2=Fuori90(k6+a1)
z3=Fuori90(j1+w5)
If y2=90 Then jj=jj+1
If z2=90 Then jj=jj+1
If z3=90 Then jj=jj+1
If jj=>2 And jj=<3 Then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&"."
Scrivi DataEstrazione(es-r3,1)&" < "&siglARuota(r1)& " "& StringaEstratti(xs,r1)&"."
Scrivi
Scrivi"Differenze Superiori "
Scrivi " "&Format2(j1)&"+"&Format2(j2)&"+"&Format2(j3)&"+"&Format2(j4)&"+"&Format2(j5)&"+"&Format2(j6)&_
"="&Format2(j6)&" Somma Differenze"
Scrivi String(65,"-")
Scrivi " "&Format2(a1)&"."&Format2(a2)&"."&Format2(a3)&"."&Format2(a4)&"."&Format2(a5)&"."&Format2(b1)&_
"."&Format2(b2)&" "
Scrivi " "&Format2(a2)&"."&Format2(a3)&"."&Format2(a4)&"."&Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&_
"."&Format2(b3)&" "
Scrivi " "&Format2(a3)&"."&Format2(a4)&"."&Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&"."&Format2(b3)&_
"."&Format2(b4)&" "
Scrivi " "&Format2(a4)&"."&Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&"."&Format2(b3)&"."&Format2(b4)&_
"."&Format2(b5)&" "
Scrivi " "&Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&"."&Format2(b3)&"."&Format2(b4)&"."_
&Format2(b5)&".("&Format2(y3)&")"
Scrivi String(20,"-")&" somme delle colonne "
Scrivi " "&Format2(k1)&"+"&Format2(k2)&"+"&Format2(k3)&"+"&Format2(k4)&"+"&Format2(k5)&"+"&Format2(k6)&_
"="&Format2(y1)&" Somma Delle somme delle colonne"
Scrivi String(20,"-")&" Differenze "
Scrivi " "&Format2(w1)&"+"&Format2(w2)&"+"&Format2(w3)&"+"&Format2(w4)&"+"&Format2(w5)&"="&Format2(zz)&_
" Somma differenze delle somme delle colonne"
Scrivi String(20,"-")&" Somma di tutte le Differenze "&Format2(k7)&" ."
Scrivi String(20,"-")&" 1° Equazione >"&Format2(k6)&" + "&Format2(a1)&" = "&Format2(z2)&" ."
Scrivi String(20,"-")&" 2° Equazione >"&Format2(j1)&" + "&Format2(w5)&" = "&Format2(z3)&" ."
Scrivi String(20,"-")&" 3° Equazione >"&Format2(y1)&" + "&Format2(k7)&" = "&Format2(y2)&" ."
ColoreTesto 2
Scrivi" Previsione Trovata Indietro "&Format2(r3)&" Estrazioni"
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruota(1)=11:k=13:co=0:ruote(2)=r2::ruote(3)=12
If k6+a1=90 And j1+w5=90 Then vv1=k6:vv2=a1:vv3=j1:vv4=w5
If k6+a1=90 And y1+k7=90 Then vv1=k6:vv2=a1:vv3=y1:vv4=k7
If y1+k7=90 And j1+w5=90 Then vv1=y1:vv2=k7:vv3=j1:vv4=w5
nu3(1)=y3
nu3(2)=90
co=co+1
ImpostaGiocata co,nu3,ruote,posta,k
nu2(1)=y3
nu2(2)=k7
nu2(3)=y1
nu2(4)=90
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
nu1(1)=vv1
nu1(2)=vv2
nu1(3)=vv3
nu1(4)=vv4
nu1(5)=90
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
Gioca es
End If
Next
Next
Next
ScriviResoconto
End Sub
|
