您好,欢迎光临本网站![请登录][注册会员]  
文件名称: 超好玩有意思小闹钟程序
  所属分类: Proxy
  开发工具:
  文件大小: 163kb
  下载次数: 0
  上传时间: 2011-02-22
  提 供 者: wenyuyan*********
 详细说明: 超好玩有意思小闹钟程序 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最新版进行解压.
  • 如果您发现内容无法下载,请稍后再次尝试;或者到消费记录里找到下载记录反馈给我们.
  • 下载后发现下载的内容跟说明不相乎,请到消费记录里找到下载记录反馈给我们,经确认后退回积分.
  • 如下载前有疑问,可以通过点击"提供者"的名字,查看对方的联系方式,联系对方咨询.
 相关搜索: 闹钟 程序
 输入关键字,在本站1000多万海量源码库中尽情搜索: