利用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、结束语该程序简单、易掌握,当新旧地形图需要转换时,不必人为手工计算或者查询转换表,提高了工作效率,减少了计算或查找工作量,便于查询.
由于篇幅有限,这里只列出了程序的部分代码.

EtherNetservers年付仅10美元,美国洛杉矶VPS/1核512M内存10GB硬盘1Gpbs端口月流量500GB/2个IP

EtherNetservers是一家成立于2013年的英国主机商,提供基于OpenVZ和KVM架构的VPS,数据中心包括美国洛杉矶、新泽西和杰克逊维尔,商家支持使用PayPal、支付宝等付款方式,提供 60 天退款保证,这在IDC行业来说很少见,也可见商家对自家产品很有信心。有需要便宜VPS、多IP VPS的朋友可以关注一下。优惠码SUMMER-VPS-15 (终身 15% 的折扣)SUMMER-...

PhotonVPS:$4/月,KVM-2GB/30GB/2TB/洛杉矶&达拉斯&芝加哥等

很久没有分享PhotonVPS的消息,最近看到商家VPS主机套餐有一些更新所以分享下。这是一家成立于2008年的国外VPS服务商,Psychz机房旗下的站点,主要提供VPS和独立服务器等,数据中心包括美国洛杉矶、达拉斯、芝加哥、阿什本等。目前,商家针对Cloud VPS提供8折优惠码,优惠后最低2G内存套餐每月4美元起。下面列出几款主机配置信息。CPU:1core内存:2GB硬盘:30GB NVm...

spinservers春节优惠:$149/月10Gbps圣何塞服务器-2*E5-2630Lv3 CPU,256G内存,2*1.6T SSD硬盘

spinservers是Majestic Hosting Solutions LLC旗下站点,商家提供国外服务器租用和Hybrid Dedicated等产品,数据中心包括美国达拉斯和圣何塞机房,机器默认10Gbps端口带宽,高配置硬件,支持使用PayPal、信用卡、支付宝或者微信等付款方式。农历春节之际,商家推出了几款特别促销配置,最低双路E5-2630Lv3机器每月149美元起,下面列出几款机器...

basic语言教程为你推荐
google地球打不开手机谷歌地球怎么打不开?有趣的广告有趣的广告96155北京公积金96155客户服务电话,怎么一步一步进到修改还款额度的地方?金山杀毒怎么样金山杀毒好吗bluestacks安卓模拟器BlueStacks如何安装使用?pwlosera,pw是什么,是不认识的人发的短信。请解释::百度手写百度手写怎么不见了百度手写百度如何手写:arm开发板单片机开发板与ARM开发板有什么不同?神雕侠侣礼包大全神雕侠侣手游版四重大礼包怎么得到啊?
jsp虚拟主机 二级域名 哈尔滨域名注册 二级域名查询 美国仿牌空间 免费ddos防火墙 北京主机 java虚拟主机 云全民 上海域名 炎黄盛世 股票老左 南通服务器 酷番云 免费dns解析 免费网页空间 什么是web服务器 服务器防火墙 如何登陆阿里云邮箱 国外代理服务器 更多