资源描述：
《坐标正反算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
