文件名称：超好玩有意思小闹钟程序
文件大小：163KB
文件格式：RAR
更新时间：2014-03-14 15:23:55
闹钟 程序
超好玩有意思小闹钟程序 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
【文件预览】：
小闹钟
----使用说明.txt(80B)
----小闹钟蚊子开发.exe(20KB)
----64840.jpg(160KB)