超好玩有意思小闹钟程序
Private Sub cmdCalc_Click()
B = Val(txtB.Text)
L = Val(txtL.Text)
X = Val(txtX.Text): Y = Val(Mid(txtY.Text, 3))
'根据椭球进行投影计算
If optTran.Value = True Then '正算
N = (L + lenL / 2) \ lenL
ProXYTwo Val(txtTa.Text), Val(txtTb.Text), B, L
Y = Y + N * 1000000 + 500000
txtX.Text = Format(X, "0.0000")
txtY.Text = Format(Y, "0.0000")
ElseIf optCon.Value = True Then '反算
'Y坐标还要再减500km
Y = Y - 500000
'计算开始的中央子午线经度和带号
N = Val(Left(txtY.Text, 2))
L0 = N * lenL - lenL / 2
ConProBL Val(txtTa.Text), Val(txtTb.Text), X, Y
L = L0 * PI / 180 + L
txtB.Text = Format(HuToDo(B), "0.00000000")
txtL.Text = Format(HuToDo(L), "0.00000000")
End If
End Sub
