利用VB编写1:1万地形图新旧图幅号转换_软件开发论文

basic语言教程  时间:2021-02-20  阅读:()

发表利用VB编写1:1万地形图新旧图幅号转换马云飞刘振东摘要:利用VisualBasic语言编写新旧图幅号转换,方便作业员查找地形图数据资料,省去了新旧图号对应时产生的不便.

关键词:对应转换查询0、前言辽宁省摄影测量与遥感院具有近30多年的发展史,全院各种纸质地形图数万幅,由于实行新的一万地形图编码,当查寻资料时就需要新、老图号的地形图资料,由于相互图号不对应,这就为查找带来不便,编写此程序只要输入新或者旧的1:1万图幅号就能生成对应的图幅号,提高了工作效率.
1、转换原理1.
1旧图幅号编码规则1.
2图(3)是新图幅号编码规则是在1:100万图幅上按照坐标方法直接分成1:1万图幅.

1.
3、转换实例见图(1)和图(2)中圆圈所在1:1万图幅号为K51-133-49(均以辽宁地区为例)所对应的新图幅号横坐标为:11*8+7=95所对应的新图幅号纵坐标为:1所以新图幅号为K51G095001通过1:1万新图幅号反过来一样可以推出1:1万旧图幅号.
2、通过程序实现转换(部分代码)Dimx,y,z,h,wAsStringDima,b,c,d,e,f,m,nAsIntegerOnErrorGoTodelerrx=Text1.
Text取出需要转换的旧图幅号y=Mid(x,5,3)z=Mid(x,10,3)a=CInt(y)转换成整型b=CInt(z)h=Mid(x,1,3)n=Len(x)Ifa>144Then5万图幅号不能大于144GoTodelerr1EndIfIfb>64Then1万图幅号不能大于64GoTodelerr2EndIfIfn=0Orn>13ThenGoTodelerr3EndIf计算横坐标1/3c=ac=c\12d=aMod12Ifc=0Thenf=0ElseIfd=0Thenf=(c-1)*8Elsef=c*8(选择界面)EndIfEndIfc=bc=c\8d=bMod8Ifd=0Thenf=f+cElsef=f+c+1EndIf计算纵坐标a=CInt(y)b=CInt(z)c=ac=c\12d=aMod12(1:1万旧图幅号转换新图幅号界面)Ifd=0Thenm=88Elsem=(d-1)*8EndIfc=bc=c\8d=bMod8Ifd=0Thenm=m+8Elsem=m+dEndIfx=CStr(f)y=CStr(m)w=h&"G"&x&y(1:1万新图幅号转换旧图幅号界面)Text2.
Text=w'''写出转换后图号2/35、结束语该程序简单、易掌握,当新旧地形图需要转换时,不必人为手工计算或者查询转换表,提高了工作效率,减少了计算或查找工作量,便于查询.
由于篇幅有限,这里只列出了程序的部分代码.

hostodo:2021美国独立日7折优惠促销NVMe硬盘的VPS,低至$13/年,还送DirectAdmin授权

7月4日是美国独立日,大致就是国庆节的意思吧。hostodo今年提前搞了个VPS大促销活动,4款便宜VPS,相当于7折,续费不涨价,本次促销不定时,不知道有多少货,卖完为止。VPS基于KVM虚拟,NVMe阵列,1Gbps带宽,自带一个IPv4+/64 IPv6,solusvm管理,送收费版DirectAdmin授权,VPS在用就有效! 官方网站:https://www.hostodo.com ...

racknerd新上架“洛杉矶”VPS$29/年,3.8G内存/3核/58gSSD/5T流量

racknerd发表了2021年美国独立日的促销费用便宜的vps,两种便宜的美国vps位于洛杉矶multacom室,访问了1Gbps的带宽,采用了solusvm管理,硬盘是SSDraid10...近两年来,racknerd的声誉不断积累,服务器的稳定性和售后服务。官方网站:https://www.racknerd.com多种加密数字货币、信用卡、PayPal、支付宝、银联、webmoney,可以付...

Linode 18周年庆典活动 不断改进产品结构和体验

今天早上相比很多网友和一样收到来自Linode的庆祝18周年的邮件信息。和往年一样,他们会回顾在过去一年中的成绩,以及在未来准备改进的地方。虽然目前Linode商家没有提供以前JP1优化线路的机房,但是人家一直跟随自己的脚步在走,确实在云服务器市场上有自己的立足之地。我们看看过去一年中Linode的成就:第一、承诺投入 100,000 美元来帮助具有社会意识的非营利组织,促进有价值的革新。第二、发...

basic语言教程为你推荐
淘宝客推广淘宝客推广有哪些途径郭吉军二战中受害最大的国家?如何免费开通黄钻如何免费开通黄钻??百度手写百度输入法切换手写 百度汉王手写输入法怎么点亮qq空间图标怎么点亮QQ空间的图标安装迅雷看看播放器迅雷看看不能播放,说我尚未安装迅雷看看播放器mate8价格华为麦特八多少价格系统分析员如何成为系统分析师?发邮件怎么发发邮件怎么发?如何清理ie缓存怎么清除IE缓存
yaokan永久域名经常更换 哈尔滨服务器租用 budgetvm 免费申请网页 仿牌空间 亚洲小于500m 52测评网 上海域名 服务器干什么用的 789电视剧 网站防护 新疆服务器 湖南铁通 cx域名 winserver2008下载 qq部落18-3 远程主机强迫关闭了一个现有的连接 免费网络电视软件 关闭空间申请 彩虹云点播 更多