Private Sub Command1_Click()
Dim x1, x2, y1, y2, s, a, a1, a2, a3, a4 As Double
x1 = Val(Text1.Text)
y1 = Val(Text2.Text)
s = Val(Text6.Text)
a1 = Val(Text3.Text)
a2 = Val(Text4.Text)
a3 = Val(Text5.Text)
a = a1 + a2 / 60 + a3 / 3600
a4 = a * 3.14159265358979 / 180
x2 = x1 + s * Cos(a4)
y2 = y1 + s * Sin(a4)
Text7.Text = x2
Text8.Text = y2
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Dim x11, x21, y11, y21, s1, a1, a11, a21, a31, a41 As Double
x11 = Val(Text9.Text)
y11 = Val(Text10.Text)
x21 = Val(Text11.Text)
y21 = Val(Text12.Text)
If x21 = x11 Then
Debug.Print x11
a21 = 90
a31 = 0
a41 = 0
Else
Debug.Print 444
a1 = Atn((y11 - y21) / (x11 - x21))
a11 = a1 * 180 / 3.14159265358979
End If
s1 = Sqr((x11 - x21) ^ 2 + (y11 - y21) ^ 2)
Text13.Text = a11
Text16.Text = s1
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
End Sub