坐标正反算vb测量程序

《坐标正反算vb测量程序》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、坐标正反算vb测y:程序河北工程大学测绘1001刘长君以下是登陆界面和计算界面的截图：工桴1-licrosoftVisualBasic【设计】翎《(£)视囝a)工格式必<3：IB)运行2i9Q!)ES«I)工fl(I)外招稃序⑹窗口帘肋01)190^B电愈>(3*®WQt:6285,37207515x5085

2、F»ral?or»按字母序按分类序1CO!=3Oc劝长君坐耘正sa.vbp）ClForoi座标正及货Fond.fn^ftFom2坐标正5算frm）1（名称）1FornlAAppearance1-3DAu

3、t^R«dr^vFUs«BackColor□We^OCOFaBorderStyleCaptionCl>pControl«1•Pixc3Single坐标正及货一刘K：若TrueControlBoxTruaDreMNode13-CopyP«nDravStyle0-SolidDr^vWidth1EnabledrillColor■ftXJIXCOCCOft（名靠）返回代W中W用的标识对触名称.文怦«）«tt«E）扨ffla）工柱It）格式QP曲运打V躉谓QP工M«3）外授樹¥⑷定口⑴姑助如Qft八>（5*©域分七<加

4、，1470；?!j?XOX«3«S□ao工®I(M长思變保£&打喊獸)QF«»ifr«)QFor*Zfom2frw)F«r»2Fox»按宇母序按分势FlAl9rfcvVod*l>r»«SlyleDrMRiaih&tkhl«dFillColwTillS吵Nat1-55P^lse□MCCeOFF»»i•rixuSiricuTrrx*Truen-Cwr«.0•S»li41True■OCC

5、COOOXW-I•7raa^p*r*T»t触一@5?科中使用的6识对和.以T就是对应的代码：《登陆界而的代码》PrivateSubCommand1_Click()IfText1.Text="刘长君”AndText2.TextForm2.ShowUnloadMeElseM100510130MThenDimaAsIntegera=MsgBox（"密码输入有误，请重新输入’*，1，”提示框n）Ifa=1ThenText2.Text=""Text2.SetFocusEndIfEndIfEndSubPrivateSub

6、Command2_Click()EndEndSub《计算界面的代码》PrivateSubCommandl_Click(IndexAsInteger)Dimal%，a2%,a3%，a4!,a5!,pi!Constconpi=3.14159265358979IfIsNumeric(Textl(l))=FalseOrIsNumeric(Text2(2))=FalseOrlsNumeric(Text3(3))=FalseOrIsNumeric(Text4(4))=FalseOrIsNumeric(Text5(5))=

7、FalseOrIsNumeric(Text6(6))=FalseThenMsgBox"输入有误nTextl(l).SetFocusElseIfVal(Trim(Text5(5).Text))>60OrVal(Trim(Text5(5).Text))<0OrVal(Trim(Text6(6).Text))>60OrVal(Trim(Text6(6).Text))<0ThenMsgBox”方位角输入有误，请重新输入nText4(4).SetFocusText4(4).Text="”Text5(5).Text="n

8、Text6(6).Text="nEndIfal=Val(Text4(4).Text)a2=Val(Text5(5).Text)a3=Val(Text6(6).Text)a4=al+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(Textl(l).Text)+Val(Label12.Caption)

9、Label15.Caption=Val(Text2(2).Text)+Val(Label13.Caption)Label12.Caption=Format((Val(Labell2.Caption)*10000+0.5)/10000,H####.0000H)Label13.Caption=Format((Val(Label13.Caption)*10000+0.5)/10000,"####.0000