测量基本计算软件包设计+源代码(3)
If fwj(i + 1) > 360 Then
fwj(i + 1) = fwj(i + 1) - 360
End If
Text9.Text = Text9.Text & Format(Str(zhuanhua(fwj(i + 1))), "###.0000") & vbCrLf
Next
For i = 0 To UBound(xj1)
sxj = sxj + Val(xj1(i))
Next
Text20.Text = Str(Format(sxj, "####.000"))
For i = 0 To UBound(xj1) - 1
zx(i) = Val(xj1(i)) * Cos(hudu(fwj(i + 1)))
zy(i) = Val(xj1(i)) * Sin(hudu(fwj(i + 1)))
fx1 = fx1 + zx(i)
fy1 = fy1 + zy(i)
Text10.Text = Text10.Text & Format(Str(zx(i)), "####.00") & vbCrLf
Text11.Text = Text11.Text & Format(Str(zy(i)), "####.00") & vbCrLf
Next
fx = fx1 - (Val(Text2.Text) - Val(Text1.Text))
fy = fy1 - (Val(Text4.Text) - Val(Text3.Text))
下一篇：人行横道线检测算法设计与实现