| 'AMBOROCK by Morenish (sviluppato da Ramco)
'Versione 22-05-2011
Sub main()
Dim nn(2),na(2),nu(4),num(8),rt(2),pt(1),ptt(2),pttt(3)
pt(1)=1
ptt(2)=1
pttt(2)=1 : pttt(3)=1
clp=12
temp=InputBox("Quante estrazioni vuoi controllare?","ESTRAZIONI",100)
ini=EstrazioneFin -temp
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio es
For r=1 To 10
rt(1)=r
For p=1 To 4
For pp=p+1 To 5
a=Estratto (es,r,p): b=Estratto (es,r,pp)
If a=Diametrale (b) Then
x=Fuori90 (a+b)
For rr=r+1 To 11
If rr=11 Then rr=12
rt(2)=rr
For q=1 To 4
For qq=q+1 To 5
c=Estratto (es,rr,q) : d=Estratto (es,rr,qq)
If c=Diametrale (d) And c<>a And c<>b Then
z=Fuori90 (c+d)
co=co+1
Scrivi String (65,"=")&"Caso n°"&co
Scrivi DataEstrazione(es)&" "& SiglaRuota(r)&" "& StringaEstratti(es,r)&" Ambo "& Format2(a)&"-"& Format2(b)
Scrivi DataEstrazione(es)&" "& SiglaRuota(rr)&" "& StringaEstratti(es,rr)&" Ambo "& Format2(c)&"-"& Format2(d)
aa=Abs (x-z) : bb=Diametrale(aa) : cc=90-aa : dd=90-bb : k1=Distanza(aa,cc) : k2=Diametrale(k1) : k3=90-k1 : k4=90-k2
Scrivi "Somma Ambi Diametrali"
Scrivi Format2(a)&"+"& Format2(b)&"="& Format2(x)
Scrivi Format2(c)&"+"& Format2(d)&"="& Format2(z)
Scrivi "Differenza matematica somme(DMS)= "& Format2(aa)
Scrivi "Creazione Diametrale DMS = "& Format2(bb)
Scrivi "Complementi a 90.... ="& Format2(cc)&" e "& Format2(dd)
Scrivi "INIZIO QUADRATURA in DISTANZA CICLOMETRICA"
Scrivi Space(5)& Format2(aa)&"--"& Format2(bb)
Scrivi Space(5)& "|"& Space(3) &"|"
Scrivi Space(5)& Format2(cc)&"--"& Format2(dd)
Scrivi "Ottenimento Distanza Verticale"
Scrivi Space(5)& Format2(k1)&"--"& Format2(k1)&" con il suo diametrale formiamo le Ambate Principali ("& k1&"."&k2&")"
Scrivi "....inizio gioco...",1
ng=1
nn(1)=k1 : nn(2)=k2
ImpostaGiocata ng,nn,rt,pt,clp
ng=ng+1
na(1)=k2 : na(2)=dd
ImpostaGiocata ng,na,rt,ptt,clp
ng=ng+1
na(1)=k2 : na(2)=bb
ImpostaGiocata ng,na,rt,ptt,clp
ng=ng+1
na(1)=k1 : na(2)=aa
ImpostaGiocata ng,na,rt,ptt,clp
ng=ng+1
na(1)=k1 : na(2)=cc
ImpostaGiocata ng,na,rt,ptt,clp
ng=ng+1
na(1)=k4 : na(2)=aa
ImpostaGiocata ng,na,rt,ptt,clp
ng=ng+1
na(1)=k4 : na(2)=cc
ImpostaGiocata ng,na,rt,ptt,clp
ng=ng+1
na(1)=k3 : na(2)=dd
ImpostaGiocata ng,na,rt,ptt,clp
ng=ng+1
na(1)=k3 : na(2)=bb
ImpostaGiocata ng,na,rt,ptt,clp
ng=ng+1
nu(1)=aa : nu(2)=bb : nu(3)=cc : nu(4)=dd
ImpostaGiocata ng,nu,rt,pttt,clp
ng=ng+1
num(1)=aa : num(2)=bb : num(3)=cc : num(4)=dd
num(5)=k1 : num(6)=k2 : num(7)=k3 : num(8)=k4
ImpostaGiocata ng,num,rt,pttt,clp
Gioca es
End If
Next
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
|
