'Spaziometria empirica - BaffoBlù
'Script Cinzia27
Sub Main()
r=10
For es=EstrazioneFin -100 To EstrazioneFin-8
aa=Estratto(es,r,3)
aa1=Estratto(es+4,r,3)
a=Estratto(es+8,r,1)
b=Estratto(es+8,r,5)
If b=aa1 Then
'******************
bx=b
dbx=Fuori90(bx+30)
dbx1=Fuori90(bx+60)
ax=a
dax=Fuori90(ax+30)
dax1=Fuori90(ax+60)
aax=aa
daax=Fuori90(aax+30)
daax1=Fuori90(aax+60)
vaa=Vert(aa)
vb=Vert(b)
'******************
'=========================================================================================
Scrivi DataEstrazione(es) &" "&FormatSpace(es,5,1)&" "&SiglaRuota(r) &" ",0,0
For p=1 To 2
Scrivi Format2(Estratto(es,r,p))&" ",0,0
Next
ColoreTesto 2
Scrivi Format2(aa)&" ",1,0
ColoreTesto 0
For p1=4 To 5
Scrivi Format2(Estratto(es,r,p1))&" ",0,0
Next
Scrivi
'=========================================================================================
'------------------------------------------------
For ex=es+1 To es+3
Scrivi DataEstrazione(ex)&" "&FormatSpace(ex,5,1)&" "& SiglaRuota(r) &" "&StringaEstratti(ex,r)
Next
'------------------------------------------------
'=========================================================================================
Scrivi DataEstrazione(es+4) &" "&FormatSpace(es+4,5,1)&" "&SiglaRuota(r) &" ",0,0
For pp=1 To 2
Scrivi Format2(Estratto(es+4,r,pp))&" ",0,0
Next
ColoreTesto 2
Scrivi Format2(aa1)&" ",1,0
ColoreTesto 0
For pp1=4 To 5
Scrivi Format2(Estratto(es+4,r,pp1))&" ",0,0
Next
Scrivi
'=========================================================================================
'------------------------------------------------
For ex1=es+5 To es+7
Scrivi DataEstrazione(ex1)&" "&FormatSpace(ex1,5,1)&" "& SiglaRuota(r) &" "&StringaEstratti(ex1,r)
Next
'------------------------------------------------
Scrivi DataEstrazione(es+8)&" "&FormatSpace(es+8,5,1)&" "&SiglaRuota(r) &" ",0,0
ColoreTesto 2
Scrivi Format2(a)&" ",1,0
ColoreTesto 0
For ppp=2 To 4
Scrivi Format2(Estratto(es+8,r,ppp))&" ",0,0
Next
ColoreTesto 2
Scrivi Format2(b)&" ",1
ColoreTesto 0
End If
Next
Scrivi
Scrivi bx
Scrivi dbx
Scrivi dbx1
Scrivi
Scrivi ax
Scrivi dax
Scrivi dax1
Scrivi
Scrivi aax
Scrivi daax
Scrivi daax1
Scrivi
Scrivi vaa
Scrivi vb
Scrivi
Scrivi Format2(bx)&"."&dax
Scrivi Format2(bx)&"."&dax1
Scrivi Format2(bx)&"."&aax
Scrivi Format2(bx)&"."&daax
Scrivi Format2(bx)&"."&daax1
Scrivi Format2(bx)&"."&vaa
Scrivi Format2(bx)&"."&dbx
Scrivi Format2(bx)&"."&dbx1
Scrivi
Scrivi Format2(ax)&"."&dax
Scrivi Format2(ax)&"."&dax1
Scrivi Format2(ax)&"."&aax
Scrivi Format2(ax)&"."&daax
Scrivi Format2(ax)&"."&daax1
Scrivi Format2(ax)&"."&vaa
Scrivi Format2(ax)&"."&dbx
Scrivi Format2(ax)&"."&dbx1
Scrivi Format2(ax)&"."&vb
Scrivi Format2(ax)&"."&bx
Scrivi
Scrivi Format2(aax)&"."&dax
Scrivi Format2(aax)&"."&dax1
Scrivi Format2(aax)&"."&daax
Scrivi Format2(aax)&"."&daax1
Scrivi Format2(aax)&"."&vaa
Scrivi Format2(aax)&"."&dbx
Scrivi Format2(aax)&"."&dbx1
End Sub