CODICE
'Ramco x algalby -Due ambi diametrali(bis)
'Metodo Dragon 45 (28/05/08)bis (19/09/2008)
Sub main()
Dim rt(2),rtt(3),nn(1),nu(2),ne(2),ni(2),na(4),pt(5),ptt(5)
pt(1)=1 : ptt(2)=1 : rtt(1)=11
rs=InputBox("Quante estrazioni vuoi controllare?",,25)
colpi=16
fin=EstrazioneFin : ini=fin-rs
casi=0
For es=ini To fin
Messaggio DataEstrazione (es)
For r= 1 To 10
For i= 1 To 4
For j=i+1 To 5
a=Estratto (es,r,i)
b=Estratto(es,r,j)
c=Distanza (a,b)
m1=Massimo (a,b)
If c=45 Then
For r2=r+1 To 11
If r2=11 Then r2=12
For p=1 To 4
For pp=p+1 To 5
aa=Estratto(es,r2,p)
bb=Estratto(es,r2,pp)
cc=Distanza (aa,bb)
m2=Massimo (aa,bb)
If cc=45 Then
casi=casi+1
av=Fuori90 (a+aa)
av1=Fuori90 (b+bb)
If Pari(a)=True Then ap=a : ap1=b Else ap=b : ap1=a
If Pari(aa)=True Then app=aa : app1=bb Else app=bb : app1=aa
bj=(ap+app)/2 : cj=(ap1+app1)/2
vj=Fuori90 (av+bj) : zj=Fuori90 (av+cj)
abt=Fuori90 (vj+zj) : ab1=Diametrale (abt)
ab2=m1 : ab3=m2
ColoreTesto 2 : Scrivi String (65,"=")&" Caso n°"&casi
ColoreTesto 1 : Scrivi " Ambo isotopo - Diametrale Isotopo - Valori Somma verticale " ,1
ColoreTesto 0 : Scrivi String (75,"-")
Scrivi DataEstrazione(es,1)
Scrivi SiglaRuota(r)&" "&StringaEstratti (es,r)
Scrivi SiglaRuota(r2)&" "&StringaEstratti (es,r2) : Scrivi
Scrivi SiglaRuota(r)&" "&Cint(a)&" e "&Cint(b)&" = Dist. Orizz. "&Cint(c)
Scrivi Space (4)&"| |" : Scrivi Space (4)&"| |"
Scrivi SiglaRuota(r2)&" "&Cint(aa)&" e "&Cint(bb)&" = Dist. Orizz. "&Cint(cc)
Scrivi " "&cint(av)&" Somma Vert. "
Scrivi " "&cint (av1)&" Somma Vert."
ColoreTesto 2 : Scrivi String (35,"-")
rt(1)=r : rt(2)=r2 : rtt(2)=r : rtt(3)=r2
nn(1)=abt
ImpostaGiocata 1,nn,rt,pt,colpi
nu(1)=abt : nu(2)=ab1
ImpostaGiocata 2,nu,rtt,ptt,colpi
ne(1)=abt : ne(2)=ab2
ImpostaGiocata 3,ne,rtt,ptt,colpi
ni(1)=abt : ni(2)=ab3
ImpostaGiocata 4,ni,rtt,ptt,colpi
na(1)=abt : na(2)=ab1 : na(3)=ab2 : na(4)=ab3
ImpostaGiocata 5,na,rt,ptt,colpi
Gioca es
End If
Next
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub