发表利用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、结束语该程序简单、易掌握,当新旧地形图需要转换时,不必人为手工计算或者查询转换表,提高了工作效率,减少了计算或查找工作量,便于查询.
由于篇幅有限,这里只列出了程序的部分代码.
我们先普及一下常识吧,每年9月的第一个星期一是美国劳工节。于是,有一些服务商会基于这些节日推出吸引用户的促销活动,比如RackNerd有推出四款洛杉矶和犹他州独立服务器,1G带宽、5个独立IP地址,可以配置Windows和Linux系统,如果有需要独立服务器的可以看看。第一、劳工节促销套餐这里有提供2个套餐。两个方案是选择犹他州的,有2个方案是可以选择洛杉矶机房的。CPU内存SSD硬盘配置流量价格...
RAKsmart 商家从原本只有专注于独立服务器后看到产品线比较单薄,后来陆续有增加站群服务器、高防服务器、VPS主机,以及现在也有在新增云服务器、裸机云服务器等等。机房也有增加到拥有洛杉矶、圣何塞、日本、韩国、中国香港等多个机房。在年前也有介绍到RAKsmart商家有提供年付129元的云服务器套餐,年后我们看到居然再次刷新年付云服务器低价格。我们看到云服务器低至年79元,如果有需要便宜云服务器的...
天上云怎么样?天上云隶属于成都天上云网络科技有限公司,是一家提供云服务器及物理服务器的国人商家,目前商家针对香港物理机在做优惠促销,香港沙田机房采用三网直连,其中电信走CN2,带宽为50Mbps,不限制流量,商家提供IPMI,可以自行管理,随意安装系统,目前E3-1225/16G的套餐低至572元每月,有做大规模业务的朋友可以看看。点击进入:天上云官方网站天上云香港物理机服务器套餐:香港沙田数据中...