资源描述：
《偏角法放样实训报告》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划偏角法放样实训报告 代码如下： DimLCC(),jjj(),PJJ(),DD(),FF(),MM()AsDouble Dima,JD,ZY,QZ,YZ,B,DI,PI,PI1,PI2,PI3AsSingle DimR,T,L,E,qAsSingle Dimj,d,f,mAsDouble DimLC(),jj(),PJ(),DDD(),FFF(),MMM(),S()AsDouble '将度、分、秒形式化为弧度：输入为度、分、
2、秒形式，输出为弧度 PublicFunctionDoToHu(ByValDoFenMiaoAsDouble)AsDouble Dimdu%,fen%,miao#,angle# du=Fix(DoFenMiao) DoFenMiao=(DoFenMiao-du)*100 fen=Fix(DoFenMiao) miao=(DoFenMiao-fen)*100 angle=du+fen/60+miao/3600 DoToHu=angle*/180 EndFunction PrivateSubCommand1_Click()目的-通过该
3、培训员工可对保安行业有初步了解，并感受到安保行业的发展的巨大潜力，可提升其的专业水平，并确保其在这个行业的安全感。为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划 R=Val() a=Format(DoToHu(),"") JD=Val() T=R*Tan(a/2) L=R*a E=R*((1/Cos(a/2))-1) q=2*T-L ZY=JD-T YZ=ZY+L QZ=YZ-L/2 B=(Fix(1+(ZY/20))*20-ZY) DI=Fix(1+(ZY/
4、20))*20 PI=B*180/(2*R*) d=Int(PI) f=Int((PI-d)*60) m=((PI-d)*60-f)*60 'ZY到QZ的李成，间距，偏角 "点名";Space(10);"里程(m)";Space(10);"曲线点至ZY(YZ)距离";Space(10);"偏角" "ZY";Space(10);Format(ZY,"");Space(20);"";Space(20);"00000"目的-通过该培训员工可对保安行业有初步了解，并感受到安保行业的发展的巨大潜力，可提升其的专业水平，并确保其在这个行业的安全感
5、。为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划 "";Space(10);Format(DI,"");Space(20);Format(B,"");Space(20);"";Format(d,"00");"";Format(f,"00");"";Format(m,"00") DimNAsSingle N=Fix((QZ-ZY)/20)+1 ReDimLC(1ToN),jj(1ToN),PJ(1ToN),DDD(1ToN),FFF(1ToN),MMM(1ToN),S(1ToN
6、) ForI=1ToN-2 LC(I)=Fix(1+(ZY/20))*20+I*20 jj(I)=20 PJ(I)=I*PI+(jj(I)*180/(2*R*)) DDD(I)=Int(PJ(I)) FFF(I)=Int((PJ(I)-DDD(I))*60) MMM(I)=((PJ(I)-DDD(I))*60-FFF(I))*60 "";Space(10);LC(I);Space(20);Format(jj(I),"");Space(20);Format(DDD(I),"0");"";Format(FFF(I),"00");"";F
7、ormat(MMM(I),"00") NextI Print目的-通过该培训员工可对保安行业有初步了解，并感受到安保行业的发展的巨大潜力，可提升其的专业水平，并确保其在这个行业的安全感。为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划 B=QZ-(Fix(Fix((QZ-ZY)/20)+(ZY/20))*20) DI=QZ PI1=(Fix((QZ-ZY)/20)*PI)+(B*180/(2*R*)) d=Int(PI1) f=Int((PI1-d)*60) m=((P
8、I1-d)*60-f)*60 "QZ";Space(10);Format(QZ,"");Space(20);Format
