推算坐标方位角程序

《推算坐标方位角程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、推算坐标方位角程序分类:土建参考资料2006.9.520:26作者：小杨

2、评论：0

3、阅读：1922OptionExplicitRem****GPHVB2.VBP****Rem****奇进偶舍、度分秒与弧度互化、推算坐标方位角程序****Rem****2005/03/23*****PrivateSubForm_Load()Rem*****此为第一个窗体From1.frm****Form1.Height=Screen.Height:'****设置窗体高占整个屏幕Form1.Width=Screen.Width:'***** 设置窗体宽占整个屏幕Form1.Left=0:'****设置窗体位置

4、距离屏幕左端的距离为值零Form1.Top=0:'**** 设置窗体位置距离屏幕上端的距离值为零EndSubPrivateSubGPHT1_Click(indexAsInteger)Rem****奇进偶舍演示****Rem——————————————————————————————Rem****VB提倡使用显示变量，要显示声明变量，方法有二：Rem****1.可在类模块、窗体模块或标准模块的声明段加入如下语句：Rem****OptionExplicitRem****2.在“工具”菜单中选取“选项”，单击“编辑器”选项卡，Rem****再复选“要求变量声明”选项，最后单击“确定”退出，这样

5、Rem****就在任何新模块（类模块、窗体模块、标准模块）的声明段中Rem****自动插入OptionExplicit语句，但不会在已经建立起来的Rem****模块中自动插入；所在工程内部，只能用手工方法向现有模Rem****块添加Optionexplicit语句。Rem——————————————————————————————DimAAsIntegerClsPrintPrintSpc(6);"奇进偶舍演示"PrintPrintSpc(6);"PI()"ForA=1To20    PrintSpc(6);LTrim$(A);"   NNN=";NNN(PI(),A)    'DO   

6、 'LoopUntilINKEY$<>""    NextAEndSubPrivateFunctionNNN(ByValNMAsDouble,ByValBBAsInteger)AsDoubleRem****奇进偶舍函数****Rem****NM为需要奇进偶舍的变量，BB为NM这个变量需要保留的小数点后面的位数*****Rem****分别用NM=PI()、BB=1、2、……Rem****NM=1.2225、BB=3Rem****NM=1.2235、BM=3 来验证该FUNCTION过程的正确性 ****DimBNMAsDoubleDimCAsIntegerDimJAsIntegerDimK

7、AsIntegerDimIAsDoubleC=Sgn(NM)BNM=Abs(NM)I=(BNM*10^(BB+1)+10^(-11))-10*Fix(BNM*10^BB+10^(-11))I=(Fix(I*10^10))/10^10J=Fix(BNM*10^BB+10^(-11))-10*Fix(BNM*10^(BB-1)+10^(-110))IfI>5ThenK=1ElseIfI<5ThenK=0ElseIf(I=5AndJ=2*Fix(J/2))ThenK=0ElseK=1EndIfNNN=C*Fix(BNM*10^BB+K)/10^BBEndFunctionPrivateStati

8、cFunctionPI()AsDoubleRem******计算PI*******PI=4*Atn(1)EndFunctionPrivateSubGPHT2_CLICK(indexAsInteger)Rem******DEG->RAD演示******DimDAsStringCls'D="00000"'D="01255"'D="21255"'D="123656"  'D="2331245" 'D="-2331245"PrintPrintSpc(6);"DEG->RAD　演示"PrintPrintSpc(6);"DEG$=";DPrintSpc(6);"RAD=";RAD(D)'******

9、*当Ｄ$="123656"时,RAD=0.220182981*****EndSubPrivateFunctionRAD(ByValDEGREEAsString)AsDoubleRem****XXX°XX′XX"->rad*****Rem****DEGREE$如"124518"的形式　****Rem****应加上如下功能：１.测试DEGREE$是否带有＋－号；Rem****２.测试度和分之间的空格之间有多少字符DimDEG11AsDo