'BaffoBlù - Spaziometria empirica - analisi statistica - con correzioni
'Script Cinzia
Sub main()
Dim n1(2),n2(2),n3(2),n4(2),n5(2),n6(2),n7(2),n8(2),n9(2),n10(2)
Dim n11(2),n12(2),n13(2),n14(2),n15(2),n16(2),n17(2),n18(2),n19(2),n20(2)
Dim n21(2),n22(2),n23(2),n24(2),n25(2),ru(1),ps(2)
ps(2)=1
dr=18
r=10
ru(1)=r
For es=1 To EstrazioneFin-8
If Estratto(es,r,1)>0 Then
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
If b<>aa Then
If a<>aa1 Then
If a<>aa Then
Scrivi String(60,"=")
Scrivi FormatSpace(es,5,1)&" "&siglaruota(r)&" ",0,0
For p=1 To 5
x= Estratto(es,r,p)
If p=3 Then ColoreTesto 2:Scrivi Format2(x)&" ",1,0 Else ColoreTesto 0:Scrivi Format2(x)&" ",0,0
ColoreTesto 0
Next
Scrivi
For ex=es+1 To es+3
Scrivi FormatSpace(ex,5,1)&" "&siglaruota(r)&" ",0,0
For pp=1 To 5
xa= Estratto(ex,r,pp)
Scrivi Format2(xa)&" ",0,0
Next
Scrivi
Next
Scrivi FormatSpace(es+4,5,1)&" "&siglaruota(r)&" ",0,0
For p1=1 To 5
x1= Estratto(es+4,r,p1)
If p1=3 Then ColoreTesto 2:Scrivi Format2(x1)&" ",1,0 Else ColoreTesto 0:Scrivi Format2(x1)&" ",0,0
ColoreTesto 0
Next
Scrivi
For exx=es+5 To es+7
Scrivi FormatSpace(exx,5,1)&" "&siglaruota(r)&" ",0,0
For pp1=1 To 5
xaa= Estratto(exx,r,pp1)
Scrivi Format2(xaa)&" ",0,0
Next
Scrivi
Next
Scrivi FormatSpace(es+8,5,1)&" "&siglaruota(r)&" ",0,0
ColoreTesto 2:Scrivi Format2(Estratto(es+8,r,1))&" ",1,0
For p2=2 To 4
x2= Estratto(es+8,r,p2)
ColoreTesto 0
Scrivi Format2(x2)&" ",0,0
Next
ColoreTesto 2:Scrivi Format2(Estratto(es+8,r,5)),1
'******************
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)
'******************
'=========================================================================================
ColoreTesto 0
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
n1(1)=bx:n1(2)=dax
n2(1)=bx:n2(2)=dax1
n3(1)=bx:n3(2)=aax
n4(1)=bx:n4(2)=daax
n5(1)=bx:n5(2)=daax1
n6(1)=bx:n6(2)=vaa
n7(1)=bx:n7(2)=dbx
n8(1)=bx:n8(2)=dbx1
n9(1)=ax:n9(2)=dax
n10(1)=ax:n10(2)=dax1
n11(1)=ax:n11(2)=aax
n12(1)=ax:n12(2)=daax
n13(1)=ax:n13(2)=daax1
n14(1)=ax:n14(2)=vaa
n15(1)=ax:n15(2)=dbx
n16(1)=ax:n16(2)=dbx1
n17(1)=ax:n17(2)=vb
n18(1)=ax:n18(2)=bx
n19(1)=aax:n19(2)=dax
n20(1)=aax:n20(2)=dax1
n21(1)=aax:n21(2)=daax
n22(1)=aax:n22(2)=daax1
n23(1)=aax:n23(2)=vaa
n24(1)=aax:n24(2)=dbx
n25(1)=aax:n25(2)=dbx1
ImpostaGiocata 1,n1,ru,ps,dr,2,1
ImpostaGiocata 2,n2,ru,ps,dr,2,1
ImpostaGiocata 3,n3,ru,ps,dr,2,1
ImpostaGiocata 4,n4,ru,ps,dr,2,1
ImpostaGiocata 5,n5,ru,ps,dr,2,1
ImpostaGiocata 6,n6,ru,ps,dr,2,1
ImpostaGiocata 7,n7,ru,ps,dr,2,1
ImpostaGiocata 8,n8,ru,ps,dr,2,1
ImpostaGiocata 9,n9,ru,ps,dr,2,1
ImpostaGiocata 10,n10,ru,ps,dr,2,1
ImpostaGiocata 11,n11,ru,ps,dr,2,1
ImpostaGiocata 12,n12,ru,ps,dr,2,1
ImpostaGiocata 13,n13,ru,ps,dr,2,1
ImpostaGiocata 14,n14,ru,ps,dr,2,1
ImpostaGiocata 15,n15,ru,ps,dr,2,1
ImpostaGiocata 16,n16,ru,ps,dr,2,1
ImpostaGiocata 17,n17,ru,ps,dr,2,1
ImpostaGiocata 18,n18,ru,ps,dr,2,1
ImpostaGiocata 19,n19,ru,ps,dr,2,1
ImpostaGiocata 20,n20,ru,ps,dr,2,1
ImpostaGiocata 21,n21,ru,ps,dr,2,1
ImpostaGiocata 22,n22,ru,ps,dr,2,1
ImpostaGiocata 23,n23,ru,ps,dr,2,1
ImpostaGiocata 24,n24,ru,ps,dr,2,1
ImpostaGiocata 25,n25,ru,ps,dr,2,1
For q=1 To 24
For q1=1 To 25
ImpostaInterruzioni q,q1,2
Next
Next
exx=es+9
Gioca exx
End If
End If
End If
End If
End If
Next
ScriviResoconto
End Sub