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

华为云年中聚惠618活动,新用户专区,云服务器低至88元/年,3年仅580.98元,热销抢购中,最后2天!

华为云怎么样?华为云用在线的方式将华为30多年在ICT基础设施领域的技术积累和产品解决方案开放给客户,致力于提供稳定可靠、安全可信、可持续创新的云服务,做智能世界的“黑土地”,推进实现“用得起、用得好、用得放心”的普惠AI。华为云作为底座,为华为全栈全场景AI战略提供强大的算力平台和更易用的开发平台。本次年终聚惠618活动相当给力,1核2G内存1m云耀云服务器仅88元/年起,送主机安全基础版套餐,...

傲游主机38.4元起,韩国CN2/荷兰VPS全场8折vps香港高防

傲游主机怎么样?傲游主机是一家成立于2010年的老牌国外VPS服务商,在澳大利亚及美国均注册公司,是由在澳洲留学的害羞哥、主机论坛知名版主组长等大佬创建,拥有多家海外直连线路机房资源,提供基于VPS主机和独立服务器租用等,其中VPS基于KVM或者XEN架构,可选机房包括中国香港、美国洛杉矶、韩国、日本、德国、荷兰等,均为CN2或者国内直连优秀线路。傲游主机提供8折优惠码:haixiuge,适用于全...

wordpress通用企业主题 wordpress高级企业自适应主题

wordpress高级企业自适应主题,通用型企业展示平台 + 流行宽屏设计,自适应PC+移动端屏幕设备,完美企业站功能体验+高效的自定义设置平台。一套完美自适应多终端移动屏幕设备的WordPress高级企业自适应主题, 主题设置模块包括:基本设置、首页设置、社会化网络设置、底部设置、SEO设置; 可以自定义设置网站通用功能模块、相关栏目、在线客服及更多网站功能。点击进入:wordpress高级企业...

basic语言教程为你推荐
易pc华硕易PC这款本本值不值的买勒?邮箱怎么写邮箱地址怎么写湖南商标注册湖南商标注册最好的公司中国电信互联星空怎么在中国电信网上营业厅自行开通互联星空消费权限天天酷跑刷金币天天酷跑如何刷分刷金币?雅虎天盾我装了360安全卫士,原来的雅虎天盾需不需要卸载qq空间打扮QQ空间打扮安装迅雷看看播放器怎样安装迅雷看看播放器商标注册查询官网商标注册网的官网是哪个?iphone6上市时间苹果6是什么时候出的 ?
域名大全 中国万网域名 ddos kvmla 分销主机 国外bt 谷歌香港 60g硬盘 服务器cpu性能排行 512m内存 php免费空间 租空间 jsp空间 t云 smtp服务器地址 万网主机 江苏徐州移动 cdn服务 国外代理服务器 石家庄服务器 更多