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

HostKvm(4.25美)香港和俄罗斯高防机房云服务器

HostKvm 商家我们算是比较熟悉的国内商家,商家主要还是提供以亚洲数据中心,以及直连海外线路的服务商。这次商家有新增香港和俄罗斯两个机房的高防服务器方案。默认提供30GB防御,且目前半价优惠至4.25美元起步,其他方案的VPS主机还是正常的八折优惠。我们看看优惠活动。香港和俄罗斯半价优惠:2021fall,限购100台。通用优惠码:2021 ,八折优惠全部VPS。我们看看具体的套餐。1、香港高...

PacificRack 下架旧款方案 续费涨价 谨慎自动续费

前几天看到网友反馈到PacificRack商家关于处理问题的工单速度慢,于是也有后台提交个工单问问,没有得到答复导致工单自动停止,不清楚商家最近在调整什么。而且看到有网友反馈到,PacificRack 商家的之前年付低价套餐全部下架,而且如果到期续费的话账单中的产品价格会涨价不少。所以,如果我们有需要续费产品的话,谨慎选择。1、特价产品下架我们看到他们的所有原来发布的特价方案均已下架。如果我们已有...

vpsdime:VPS内存/2核/VPS,4G内存/2核/50gSSD/2T流量/达拉斯机房达拉斯机房,新产品系列-Windows VPS

vpsdime上了新产品系列-Windows VPS,配置依旧很高但是价格依旧是走低端线路。或许vpsdime的母公司Nodisto IT想把核心产品集中到vpsdime上吧,当然这只是站长个人的猜测,毕竟winity.io也是专业卖Windows vps的,而且也是他们自己的品牌。vpsdime是一家新上来不久的奇葩VPS提供商,实际是和backupspy以及crowncloud等都是同一家公司...

basic语言教程为你推荐
fontfamilyfont-family:ms shell dlg是什么意思?cornerradiusUG后处理可以输出自定义刀具描述吗?邮箱怎么写工作邮箱怎么填天府热线天府热线怎么老是进不去?51自学网站谁能给我免费学习的网站吧 谢谢了微信如何建群微信怎么建立群ios7固件下载ios 7及以上固件请在设备上点“信任”在哪点?怎么点亮qq空间图标QQ空间的图标怎么点亮创维云电视功能很喜欢创维云电视,它到底有哪些独特功能?安装迅雷看看播放器迅雷看看不能播放,说我尚未安装迅雷看看播放器
谷歌域名邮箱 美国主机排名 vir 赵容 荷兰服务器 fastdomain raksmart 美国主机推荐 namecheap BWH 紫田 directadmin tightvnc 免费静态空间 丹弗 合肥鹏博士 京东商城双十一活动 帽子云 中国电信测速网 移动服务器托管 更多