- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
测量程序设计教案(总)
教 案
2010 ~2011 学年第一学期
主 讲 教 师 宋 雷 课 程 名 称 测量程序设计 课程类别 专业选修课 学时及学分 40学时; 3.0学分 授 课 班 级 测绘071-3班 使 用 教 材 《VB语言与测量程序设计课 时 授 课 计 划
课次序号:1
一、课 题:测量程序设计和VB语言佟彪主编VB语言与测量程序设计中国出版社程序设计出版社
2 简述程序设计的步骤与规范?
八、授课记录:
授课日期 2010-08-30 2010-8-30 班 次 测绘07-1、2 测绘07-3 九、授课效果分析:
十、教学进程(教学内容、教学环节及时间分配等)
1、导入课题 2分钟
2、教学内容 80分钟
一、课程概述
1 课程性质;2 课程任务;3 本课程考核方法与要求
二、测量程序设计意义
计算机在现代测绘科学中的广泛应用
测绘相关软件丰富:数据计算、制图、遥感影像处理、数字摄影测量、地理信息系统(GIS)、 GPS平差计算.
实际工作遇到的问题千差万别,特定应用需要掌握一门编程语言,设计相应的程序解决实际问题.
编写相关专业程序,深化测量知识的过程.
三、程序设计步骤和规范
1、程序设计基本步骤
1) 问题描述
2) 算法设计
3) 程序编码
4) 程序测试
5) 程序应用与维护
2、程序设计规范
1) 结构清晰、代码精简
2) 尽量使用标准函数、尽量使用局部变量.
3) 进行适当注释.
4) 利用缩进键显示程序逻辑结构
5) 循环和分支层次不要过多.慎GOTO语句.
6) 界面设计尽量美观统一
四、测量程序设计语言选择
为什么选择VB语言(VB语言特点) :Visual Basic之所以受到广大编程爱好者及专业编程人员的青睐,是因为它具有以下一些特点:
1).面向对象 2).事件驱动 3).软件的集成式开发 4).结构化的程序设计语言。5).强大的数据库访问功能 6).支持对象的链接与嵌入技术 7).网络功能 8).多个应用程序向导
五、关于Visual Basic语言
1 VB语言发展
2 VB6.0的三个版本
六、课程主要内容
1、课程主要教学内容
2、基本要求
3、重点内容
4 、难点内容
3、课堂总结 2分钟
4、布置作业 1分钟
课 时 授 课 计 划
课次序号:2
一、课 题:简单程序设计佟彪主编VB语言与测量程序设计中国出版社程序设计出版社
2 坐标方位角计算程序
3 导线测量近似坐标计算程序
4 全站仪放样元素计算程序
八、授课记录:
授课日期 2010-09-02 2010-9-06 班 次 测绘07-1、2 测绘07-3 九、授课效果分析:
十、教学进程(教学内容、教学环节及时间分配等)
1、导入课题 2分钟
2、教学内容 80分钟
一、VB程序编制基础
1、预定义对象---窗体和控件
2、数据类型
3、字符串运算符与操作函数
4、过程
5、文件操作
二、角度换算
1、问题描述
VB语言没有角度换算的内部函数可以应用,需要进行角度的度分秒和度制并且弧度之间的换算.
2 、度分秒与度制换算
度分秒 117°45′12″
小数形式 117.7533
1°=60′ 1′=60 ″ 1°=3600 ″
1′=1/60° 1″=1/60 ′ 1″=1/3600 °
1) 度分秒换算度
Public Function Deg( jd) [公有过程 子函数 名称(形参) ]
jd1=fix(jd)
jd2=(jd-jd1)*100
jd3=fix(jd2)
jd4=(jd2-jd3)*100
jd=jd1+jd3/60+jd4/3600
End function
2) 度换算度分秒
Public Function Dms( jd) [公有过程 子函数 名称(形参) ]
jd1=fix(jd)
jd2=(jd-jd1)*60
jd3=fix(jd2)
jd4=(jd2-jd3)*60
jd=jd1+jd3/100+jd4/10000
End function
三、坐标方位角计算
公式:a=180-Sgn(dy)*90-Atn(dx/dy)* 57.29577951308°
Public sub()
文档评论(0)