开发工具:
文件大小: 163kb
下载次数: 0
上传时间: 2011-02-22
详细说明： 超好玩有意思小闹钟程序 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 ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
