【VB开源代码栏目提醒】：网学会员鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“曲线坐标正反算VB源代码 PDF - 技术总结”一文，供大家参考学习
Public Function HY 计算第一计和曲计Dim W H Z26 Z27 Z28 Z29W Z - Z12 liIf A 0 ThenH -1ElseH 1End IfZ26 Z - Z12 2 / 2 / R / S 180 / Pi βZ27 F Z26 H AiZ28 W - W 5 / 40 / R 2 / S 2 xiZ29 W 3 / 6 / R / S yiX ZHX Z28 MCosF - H Z29 MSinF P MCosZ27 Q 计算计果坐计XY ZHY Z28 MSinF H Z29 MCosF P MSinZ27 Q 计算计果坐计YF1 Z27 切计方位角End FunctionPublic Function YQ 计算计曲计Dim K H Z32 Z33 Z34 Z35K Z - Z12If A 0 ThenH -1ElseH 1End IfZ32 K - 0.5 S / R 180 / Pi βZ33 F Z32 H AiZ34 R MSinZ32 Z7 xiZ35 R 1 - MCosZ32 Z5 yiX ZHX Z34 MCosF - H Z35 MSinF P MCosZ33 Q 计算计果坐计XY ZHY Z34 MSinF H Z35 MCosF P MSinZ33 Q 计算计果坐计YF1 Z33 切计方位角End FunctionPublic Function YH 计算第二计和曲计Dim H M Z38 Z39 Z40 Z41 Z42If A 0 ThenH -1ElseH 1End IfM Z16 - Z liZ42 Z20 180If Z42 360 ThenZ42 Z42 - 360End IfZ38 M 2 / 2 / R / T 180 / Pi βZ39 Z20 Z38 H AiZ40 M - M 5 / 40 / R 2 / T 2 xiZ41 M 3 / 6 / R / T yiX HZX Z40 MCosZ42 - H Z41 MSinZ42 P MCosZ39 Q 计算计果坐计XY HZY Z40 MSinZ42 H Z41 MCosZ42 P MSinZ39 Q 计算计果坐计YF1 Z39 切计方位角End FunctionPrivate Sub Command4_Click 反算主程序Dim F2 F3 F4 XA YA PPIf TrimText1.Text Then MsgBox 计计入“本交点坐计X” vbInformation 提示: Text1.SetFocus: Exit Sub 若计计空计计行提示数If TrimText2.Text Then MsgBox 计计入“本交点坐计Y” vbInformation 提示: Text2.SetFocus: Exit SubIf TrimText3.Text Then MsgBox 计计入“交点计号JD” vbInformation 提示: Text3.SetFocus: Exit SubIf TrimText4.Text Or TrimText4.Text 0 Then MsgBox 计计入”曲计半径R” vbInformation 提示: Text4.SetFocus: Exit SubIf TrimText5.Text Then MsgBox 计计入“第一计和曲计计Ls1” vbInformation 提示: Text5.SetFocus: Exit SubIf TrimText6.Text Then MsgBox 计计入“第二计和曲计计Ls2” vbInformation 提示: Text6.SetFocus: Exit SubIf TrimText7.Text Or TrimText7.Text 0 Then MsgBox 计计入“曲计计角α”左计-右正 vbInformation 提示: Text7.SetFocus: Exit SubIf TrimText8.Text Then MsgBox 计计入“计算方位角F”d.ms格式 vbInformation 提示: Text8.SetFocus: Exit SubIf TrimText47.Text Then MsgBox 计计入“反算坐计X” vbInformation 提示: Text47.SetFocus: Exit SubIf TrimText48.Text Then MsgBox 计计入“反算坐计Y” vbInformation 提示: Text48.SetFocus: Exit SubCall SJ 计用子程序Call YSXA Text47.Text: YA Text48.TextZ Z14: P 0: Q 0Lbl1:If Z上一篇：VB计算器源代码
2013-9-15
