坐标正反算vb测量程序.doc

坐标正反算vb测量程序.doc

ID:56703364

大小:476.00 KB

页数:4页

时间:2020-07-05

坐标正反算vb测量程序.doc_第1页
坐标正反算vb测量程序.doc_第2页
坐标正反算vb测量程序.doc_第3页
坐标正反算vb测量程序.doc_第4页
资源描述:

《坐标正反算vb测量程序.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、坐标正反算vb测量程序河北工程大学测绘1001刘长君以下是登陆界面和计算界面的截图:以下就是对应的代码:《登陆界面的代码》PrivateSubCommand1_Click()IfText1.Text="刘长君"AndText2.Text="100510130"ThenForm2.ShowUnloadMeElseDimaAsIntegera=MsgBox("密码输入有误,请重新输入",1,"提示框")Ifa=1ThenText2.Text=""Text2.SetFocusEndIfEndIfEndSubPrivateSubCommand2_Click()E

2、ndEndSub《计算界面的代码》PrivateSubCommand1_Click(IndexAsInteger)Dima1%,a2%,a3%,a4!,a5!,pi!Constconpi=3.14159265358979IfIsNumeric(Text1(1))=FalseOrIsNumeric(Text2(2))=FalseOrIsNumeric(Text3(3))=FalseOrIsNumeric(Text4(4))=FalseOrIsNumeric(Text5(5))=FalseOrIsNumeric(Text6(6))=FalseThenMsgB

3、ox"输入有误"Text1(1).SetFocusElseIfVal(Trim(Text5(5).Text))>60OrVal(Trim(Text5(5).Text))<0OrVal(Trim(Text6(6).Text))>60OrVal(Trim(Text6(6).Text))<0ThenMsgBox"方位角输入有误,请重新输入"Text4(4).SetFocusText4(4).Text=""Text5(5).Text=""Text6(6).Text=""EndIfa1=Val(Text4(4).Text)a2=Val(Text5(5).Text)

4、a3=Val(Text6(6).Text)a4=a1+a2/60+a3/3600a5=a4*conpi/180Label12.Caption=Val(Text3(3).Text)*Cos(a5)Label13.Caption=Val(Text3(3).Text)*Sin(a5)Label14.Caption=Val(Text1(1).Text)+Val(Label12.Caption)Label15.Caption=Val(Text2(2).Text)+Val(Label13.Caption)Label12.Caption=Format((Val(Lab

5、el12.Caption)*10000+0.5)/10000,"####.0000")Label13.Caption=Format((Val(Label13.Caption)*10000+0.5)/10000,"####.0000")Label14.Caption=Format((Val(Label14.Caption)*10000+0.5)/10000,"####.0000")Label15.Caption=Format((Val(Label15.Caption)*10000+0.5)/10000,"####.0000")EndIfEndSubPriv

6、ateSubCommand2_Click(IndexAsInteger)Text1(1).Text=""Text2(2).Text=""Text3(3).Text=""Text4(4).Text=""Text5(5).Text=""Text6(6).Text=""Label12.Caption=""Label13.Caption=""Label14.Caption=""Label15.Caption=""Text1(1).SetFocusEndSubPrivateSubCommand3_Click()Dimdx!,dy!,a12!,r12!,d12!Co

7、nstconpi=3.14159265358979IfIsNumeric(Text7)=FalseOrIsNumeric(Text8)=FalseOrIsNumeric(Text9)=FalseOrIsNumeric(Text10)=FalseThenMsgBox"输入有误"Elsedx=Val(Text9.Text)-Val(Text7.Text)dy=Val(Text10.Text)-Val(Text8.Text)d12=Sqr(dx^2+dy^2)Label25.Caption=Format((d12*10000+0.5)/10000,"####.

8、0000")Ifdx=0Anddy>0ThenLabel31.Caption=9

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。