利用VB编写1:1万地形图新旧图幅号转换 所属栏目:软件开发论文 发布时间:2011-08-27 10:02:01 更新时间:2023-07-11 15:52:28
已签订 领域:化学工程/制药,医学 题目:**作为抗癌剂***催化剂**取代苯丙*** SCI四区 直击了解更多选题
已签订 领域:环境科学-公共卫生 题目:用**电***生物传感器**癌症** SCI二区 直击了解更多选题
已签订 领域:环境科学-公共卫生 题目:**氧化石墨烯纳米***材料的生物传感器***结肠癌生物**癌胚**** SCI二区 直击了解更多选题
已签订 领域:环境科学-公共卫生 题目:聚合物纳米***a-硫辛酸***在神经炎症***应用***临床分析 SCI二区 直击了解更多选题
已签订 领域:计算机视觉/遥感/智能驾驶/汽车 题目:**深度学习***高分辨率遥感***车辆检*** SCI三区 直击了解更多选题
已签订 领域:企业管理 题目:社会交流***领导***倾向***方向 SSCI,SCI三区,二区 直击了解更多选题
已签订 领域:企业管理 题目:**中小企业社交媒体****可持续绩效***因素探析 SSCI,SCI三区,二区 直击了解更多选题
已签订 领域:环境科学,公共卫生 题目:利用硫氨酸***石墨烯纳米***电化学***传感器实现癌胚抗原*** SCI二区 直击了解更多选题
已签订 领域:环境科学,公共卫生 题目:基于抗***纳米复合***高性能***早起癌症诊断*** SCI二区 直击了解更多选题
已签订 领域:经济,能源 题目:***政治冲突****绿色金融、金融**、气***化*** SCI四区 直击了解更多选题
已签订 领域:经济,能源 题目:冲***中能源不安全对***和环境*** SCI四区 直击了解更多选题
已签订 领域:教育 题目:大学生***社交媒体***成绩影响*** SSCI三区 直击了解更多选题
已签订 领域:教育 题目:巴基斯坦***学习实施的***的** SSCI二区 直击了解更多选题
已签订 领域:教育 题目:大学生对****下网络教学**思*** SSCI二区 直击了解更多选题
已签订 领域:教育 题目:**教师和学生对影响***医疗**效果的****看法 SSCI三区 直击了解更多选题
已签订 领域:计量经济学 题目:**货币、黄金、**和美国***的波动***相互依赖性:**数据的分析 SSCI一区 直击了解更多选题
已签订 领域:计量经济学 题目:东南亚***内**趋同***中等收入**:新**的*** SSCI二区 直击了解更多选题
已签订 领域:建筑,历史 题目:历史景点在***旅游发***中的***影响**(**研究:**历史***) SSCI,SCI一区 直击了解更多选题
已签订 领域:领导力,管理 题目:量化**领导对角色绩效***响:**冲突与工作自主性***作用 SCI二区 直击了解更多选题
已签订 领域:信息技术,教育 题目:数字***环境对学生学习成绩***:游戏**和***现实在教育***作用 SSCI四区 直击了解更多选题
已签订 领域:信息技术,教育 题目:信息技术***续决策之间的***:创新***识的**作用 SSCI二区 直击了解更多选题
已签订 领域:信息技术,教育 题目:课程**对大学生***发展的影响:学习习惯和***的***作用 SSCI一区 直击了解更多选题
已签订 领域:信息技术,教育 题目:信息技术***与可持续决策**:高等***学生认知***作用 SSCI二区 直击了解更多选题
已签订 领域:计算机,英语教学 题目:英语****学**与人工智能****学习 SCI三区 直击了解更多选题
已签订 领域:计算机,音乐 题目:评价**和音乐**对学生成绩***的影响 SCI三区 直击了解更多选题
已签订 领域:人体工程,心理学 题目:基于预先处理模型***模式人体工程学***女生肌肉骨骼***预防行为*** 直击了解更多选题
已签订 领域:人体工程,心理学 题目:制定一个***人体工程学**,以识别、优先考虑***职业压力源的*** 直击了解更多选题
已签订 领域:人体工程,心理学 题目:多重工作**压力和工作***:***工效学方法的混合方法*** 直击了解更多选题
已签订 领域:数学,经济 题目:数学模型***结构调整和经济转型****研究 直击了解更多选题
已签订 领域:数学,经济 题目:***时间**数学模型在***媒体营销**中的应用*** 直击了解更多选题
已签订 领域:数学,经济 题目:***时间**模型在***物流运**能力***研究 直击了解更多选题
已签订 领域:数学,经济 题目:碳****经济的数学模型****研究 直击了解更多选题
已签订 领域:农村经济 题目:农****社区**发展***分** SCI四区 直击了解更多选题
已签订 领域:农村经济 题目:创业***对乡村****发展的**** SCI四区 直击了解更多选题
已签订 领域:农村经济 题目:农村创业****的空间*****究 SCI四区 直击了解更多选题
已签订 领域:医学,电化学 题目:纳米颗粒*****及其在癌症****和重金属*****检测中的应用 SCI三区 直击了解更多选题
已签订 领域:医学,电化学 题目:基于*****前列腺癌药物氟****检测方法的*****腺癌治疗 SCI二区 直击了解更多选题
已签订 领域:医学,电化学 题目:气海***********金纳米颗粒的新型****************粘土及其对胃癌********************抗癌 SCI二区 直击了解更多选题
已签订 领域:医学,电化学 题目:基于抗***********GCE纳米***********材料的高性能*******************早期癌症 SCI二区 直击了解更多选题
已签订 领域:医学,电化学 题目:用******电化学生物传感器*****癌症*************** SCI二区 直击了解更多选题
已签订 领域:医学,电化学 题目:基于*****石墨烯纳米****材料的生物传感******用于测定结肠*****生物***** SCI二区 直击了解更多选题
已签订 领域:医学,电化学 题目:聚合***纳米复合电极*****疏辛酸电化学检测********* SCI二区 直击了解更多选题
已签订 领域:医学,电化学 题目:利用****酸/**糖**石墨烯纳米复合修饰的电化学***** SCI二区 直击了解更多选题
已签订 领域:环境能源,绿色投资 题目:环境能源、绿色投资、城市化和环境类方向 SCI三区 直击了解更多选题
已签订 领域:计算机,英语教学 题目:英语教学**人工智能***习 SCI 直击了解更多选题
已签订 领域:计算机,音乐 题目:评价**和音乐形式*学生***影响 SCI三区 直击了解更多选题
已签订 领域:经济,绿色投资 题目:***能源效率***化之间的*** SCI三区 直击了解更多选题
已签订 领域:经济政策 题目:***阐明**印度经济***的关系 SCI三区 直击了解更多选题
已签订 领域:经济,金融 题目:***国家的能源***重*** SCI 直击了解更多选题
已签订 领域:经济,金融投资 题目:***融新之间***直接投资*** SCI三区 直击了解更多选题
已签订 领域:经济,数学,统计学,管理学 题目:非***想重限制下***袭评价*** SSCI四区 直击了解更多选题
已签订 领域:经济,数字,管理学 题目:基干***生产系统*** SSCI四区 直击了解更多选题
已签订 领域:农业,土壤科学 题目:不同***有机覆盖***养分循环 SSCI 直击了解更多选题
已签订 领域:电力与能源系统,管理 题目:pv***氢定价的***随***型稀 SSCI,SCI二区 直击了解更多选题
已签订 领域:建筑规划,计算机 题目:使用***因子分析法***可持续*** SCI三区 直击了解更多选题
已签订 领域:工程技术,纺织工程,材料科学 题目:甘***淀粉酶的提取***退浆中的应用 SCI四区 直击了解更多选题
已签订 领域:渔业,鱼类生理学 题目:饲料***镉毒性的交互***生长***病理学*** SCI二区 直击了解更多选题
已签订 领域:渔业,鱼类生理学 题目:****鱼水源***起的生****** SCI三区 直击了解更多选题
已签订 领域:金融,环境经济 题目:*****预算在能效、绿色***的作用 SCI 直击了解更多选题
已签订 领域:应用数学/计算物理 题目:***非线性库***自相位调制*** SCI三区 直击了解更多选题
已签订 领域:计算机,医学检测 题目:***COVID-19***力***算法***决策 SCI三区 直击了解更多选题
已签订 领域:计算机,物联网,智慧城市 题目:基于***物联网****算法 SCI三区 直击了解更多选题
利用VB编写1:1万地形图新旧图幅号转换
马云飞 刘振东
摘 要: 利用Visual Basic语言编写新旧图幅号转换,方便作业员查找地形图数据资料,省去了新旧图号对应时产生的不便。
关键词: 对应 转换 查询
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、通过程序实现转换(部分代码)
Dim x, y, z, h, w As String
Dim a, b, c, d, e, f, m, n As Integer
On Error GoTo delerr
x = 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)
If a > 144 Then '''''''''''''5万图幅号不能大于144
GoTo delerr1
End If
If b > 64 Then ''''''''''''''''1万图幅号不能大于64
GoTo delerr2
End If
If n = 0 Or n > 13 Then
GoTo delerr3
End If
'''''''''''''''''''''''''''''''''计算横坐标
c = a
c = c 12
d = a Mod 12
If c = 0 Then
f = 0
Else
If d = 0 Then
f = (c - 1) * 8
Else
f = c * 8 (选择界面)
End If
End If
c = b
c = c 8
d = b Mod 8
If d = 0 Then
f = f + c
Else
f = f + c + 1
End If
''''''''''''''''''''计算纵坐标
a = CInt(y)
b = CInt(z)
c = a
c = c 12
d = a Mod 12 (1:1万旧图幅号转换新图幅号界面)
If d = 0 Then
m = 88
Else
m = (d - 1) * 8
End If
c = b
c = c 8
d = b Mod 8
If d = 0 Then
m = m + 8
Else
m = m + d
End If
x = CStr(f)
y = CStr(m)
w = h & "G" & x & y (1:1万新图幅号转换旧图幅号界面)
Text2.Text = w '''写出转换后图号
5、结束语
该程序简单、易掌握,当新旧地形图需要转换时,不必人为手工计算或者查询转换表,提高了工作效率,减少了计算或查找工作量,便于查询。由于篇幅有限,这里只列出了程序的部分代码。
参考文献
1、 孙越,Visual Basic数据库开发教程(M),北京:人民邮电出版社,2002,131-143。
学术指导老师
微信号:Xs74101122
点击复制微信号