新建 文本文档.txt

来自「这里包含了测量计算过程中所需要的各种小程序。」· 文本 代码 · 共 40 行

Private Sub Command1_Click()
Dim ey, et, m1, m2, oy, ot, s As Double
Dim d1, d2, f1, f2, mi1, mi2, c1, r2, z, d As Double
ey = Val(Text1.Text)
et = Val(Text2.Text)
oy = Val(Text3.Text)
ot = Val(Text4.Text)
d1 = Val(Text5.Text)
d2 = Val(Text8.Text)
f1 = Val(Text6.Text)
f2 = Val(Text9.Text)
mi1 = Val(Text7.Text)
mi2 = Val(Text10.Text)
s = Val(Text11.Text)
m1 = d1 + f1 / 60 + mi1 / 3600
m2 = d2 + f2 / 60 + mi2 / 3600
c1 = ey * Sin((m1 + oy / 3600) * 3.14159265358979 / 180) * 206264.806247096 / s
r2 = et * Sin((m2 + ot / 3600) * 3.14159265358979 / 180) * 206264.806247096 / s
z = c1 + r2
Text12.Text = c1
Text13.Text = r2
Text14.Text = z
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
End Sub