测绘程序设计VB

东华理工大学高职学院测绘程序设计（VB）2012第1共41页测绘程序设计（VB）课间实习报告姓名学号班级年月东华理工大学高职学院测绘程序设计（VB）2012第2共41页目录1实习目的32实习仪器与软件321VISUALBASIC6033实习要求44实习内容45实习步骤451坐标正反算452水准测量553导线计算554集成化设计56实习总结561实习问题总结562程序调试总结57实习体会5东华理工大学高职学院测绘程序设计（VB）2012第3共41页测绘程序设计实习报告1实习目的掌握VISUALBASICVB程序设计的基本理论、方法和应用，掌握VB程序应用于测绘专业的程序开发，理解程序设计在测绘数据处理中的作用和地位，学会利用模块化程序设计的基本技术，掌握面向对象程序设计方法，应用测绘专业的基本技能，测绘专业模块程序包开发的基本方法，为学习后续课程和专业技术工作打下基础。使用计算机程序，处理测量数据，不但方便、快捷；而且准确、具有可重复性。以简单的导线计算为例，一个简单的附合导线，采用手工计算不仅费时费力，而且常常出现数据抄录、计算等方面的错误。而若采用相应的解算程序计算，仅需将原始数据输入，程序便可以自动进行一定的错误检查，并且迅速计算出准确结果。例如，一个有12个点的附合导线的计算，采用手工计算，算”按钮的一秒。又如，一个有几百个点的三角网的平差计算，用手工几乎无法完成，而利用计算机程序计算，仅仅是增加了数据导入的时间，解算的时间最多也不超过一分钟，并且计算结果可靠。2实习仪器与软件实习期间主要用到的器材软件电脑一台VISUALBASICVB60企业版，数据库软件ACCESS、OFFICE软件WORD等。东华理工大学高职学院测绘程序设计（VB）2012第4共41页21VISUALBASIC60VB就是VISUALBASIC的意思，是一种常用的编程开发工具。它的基础是编程语言BASIC，VISUALBASIC简单点来说就是微软为了更好的让人们学习编程，应用上BASIC开发语言的一套工具，简称就是VB。VB的面世使原本极其复杂困难的编程、软件开发的工作变得简单。最初的编程工作都是依靠全套的代码去进行的，工程量极大。MICROSOFT就是看准了这个人们渴求快速发展软件开发行业的商机，利用自己的技术实力研发出VB这么一套完善的编程工具。VB把过往的纯代码编程过度到可视化编程，将一些经常要使用到的功能以一个个的控件的形式出现，例如LABEL（标签）、TEXTBOX（文本框）等等的。他们在以前的编程工作中需要在使用时重复多次的输入同样的代码去实现这个功能，而这些代码去不是小工程，耗费了很大的人力物力和很多的时间。所以有了VB之后，编程的工作也就可以普及啦，可以免去了机械的重复的代码的输入，又可以一面编辑核心功能一面进行界面优化美化，一劳多得啊。VB是BASIC语言软件开发者的首选编译器，是学习BASIC语言编程必须要接触而且是经常接触的一款整合型技术编译器。VB的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的程序。VB的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组建的属性和方法。因为默认的属性和方法已经东华理工大学高职学院测绘程序设计（VB）2012第5共41页有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面VB程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮）。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。VB的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。VB的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。VB使用引用计数的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组建的出现，程序员可以选用自己需要的扩展库。和有些语言不一样，VB对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。东华理工大学高职学院测绘程序设计（VB）2012第6共41页VB使得大量的外界控件有了自己的生存空间。大量的第三方控件针对VB提供。VB也提供了建立、使用和重用这些控件的方法，但是由于语言问题，从一个应用程序创建另外一个并不简单。编辑本段术语在讨论VISUALBASIC（不包含NET）时，经常可以听到以下这些术语，因此掌握这些术语的基本理解对初学者十分有帮助。控件简单的说，控件就是构成或者说建造VISUALBASIC应用程序的图形化工具，包括窗体、按钮、复选框、列表框、数据控件、表格控件和图片控件等等事件由用户或操作系统引发的动作，例如击键、单击鼠标（CLICK）、双击鼠标（DBLCLICK）、一段时间的限制，或从端口接收数据。方法嵌入在对象定义中的程序代码，它定义对象怎样处理信息并响应某事件。例如，数据库对象有打开纪录集并从一个记录移动到另一个记录的方法程序的基本元素，它含有定义其特征的属性，定义其任务和识别它可以响应的事件的方法。控件和窗体是VISUALBASIC中所有对象的示例。物件一个控件、窗体等都可被看作一个物件。过程为完成某些特定的任务而编写的代码段，过程通常用于响应特定的事件，也可以当作应用程序的用户自定义函数来使用。属性属性是组成用户界面的各对象的性质的具体描述。例如上述“物件”中所提到的尺寸、位置、颜色、宽度、高度等等都称为控件的属性。属性决定物件的外观，有时也决定物件的行为。物件的属性绝大部分是VB中已经事先定义好的，但也有的属性是需要在应用过程中才去定东华理工大学高职学院测绘程序设计（VB）2012第7共41页义的。属性即可为物件提供数据，也能从物件取回信息。窗体的常用属性现在，我列举出了一些窗体的常用属性，请你对它们先进行一下感性认识。VB使用了可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的程序。VB的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面VB程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。VB使得大量的外界控件有了自己的生存空间。大量的第三方控件针对VB提供。VB也提供了建立、使用和重用这些控件的方法，但是由于语言问题，从一个应用程序创建另外一个并不简单。3实习要求1较为熟练地掌握VB程序设计与开发CAPTION设置窗体标题栏上的文字。CONTROLBOX设置窗体标题栏上是否具有控制菜单栏及按钮。ENABLED决定运行时窗体是否响应用户事件。在程序运行时可以看到改变ENABLED属性的效果。此时ENABLED已设为FALSE，所以点击按钮不会有反应。HEIGHT设置窗体的高度。WIDTH设置窗体的宽度。LEFT设置程序运行时窗体的水平位置东华理工大学高职学院测绘程序设计（VB）2012第8共41页TOP设置程序运行时窗体的垂直位置VISIBLE设置程序运行时窗体是否可见。当VISIBLE为FALSE时，窗体是不可见的。将值改为为TRUE。运行时窗体就是可见的了。WINDOWSSTATE设置程序运行中窗体的最小化、最大化和原形这三种状态。程序运行时的最小化状态。ICON设置窗体标题栏上的图标。PICTURE给窗体配上漂亮的位图。最后要说明的是窗体的NAME和CAPTION属性，虽然缺省值相同，都是FORM1，但实际意义却不一样。CAPTION指的窗体标题栏上的文字，NAME指这个窗体的对象名,千万不能混淆。2掌握测绘外业工作需要的一些基本理论与方法作为一个多半时间蹦波在野外的测量工作者来说，能够很好的认识到测量就是一切基础建设的基础，它是工程的眼睛，因此我们必须本着踏实的心态做好实事求是，一切都要以数据说话的原则从事好这项野外即辛苦又脏又累的工作，酸甜苦辣、严寒酷暑何所惧在地形图测量中，外野时能够很好的记住地物地貌的特征及相应的关联关系，是对画草图有着快速成效，当然绘制草图必须清新，合理更具具体情况绘制，以便内业成图是方便阅读，花草图不仅自己要能够看懂，别人也得懂。测量工作时一定得要定向准确，多次检核，以免出现过程中的错误。内业处理问题主要是图根控制点的平常处理，现在EXCEL很实用计算一些数据，可以很好的利用相关公式计算，且计算很方便的。绘图软件只要我们多练，掌握一些快捷命令，成图速度会大大的提高，当然能够灵活的对图层进行用运和管理也是很好的，可以整体对各个图层进行快速修改。东华理工大学高职学院测绘程序设计（VB）2012第9共41页很多时候外野所采集的数据回来几个组会出现差错的，部分与实际相对位置不一致，多半是要进行旋转才能套合的，最初解释还以为是盘左盘右的问题，其实问题不是这样的，是后视定向的问题，我们在观测是一定将测量模式改成坐标测量模式，不要在角度测量模式下进行。有一个间接检核后视定向的方法，开始测量之前，找一个固定的目标，越小越好，记住水平角读数，分若干时间进行角度检核，如果相差太远就说明有问题，应当记录下来，必要时从测，之后需要重新定向就可以了。3掌握测绘内业数据处理的流程1数据导出2将数据检查，校正3将数据导入到南方CASS4把数据的X与Y轴对调，利用数据批量处理（因为全站仪的数据坐标顺序不同）5根据草图和点号成图4掌握常用测绘专业软件的交换格式。4实习内容充分学习VB可视化编程以后，熟悉各种常用控件的使用。再结合测量专业数据处理，编写全部或部分专业程序。要求进行循序渐进的方式，先采用基本结构编写，在随后的课程学习当中，采用数组，函数，再生成数据文件格式，东华理工大学高职学院测绘程序设计（VB）2012第10共41页从低级到高级应用，最后通过窗体应用与函数的方法进行集成，将所有的实习最后集成到一个程序当中，使之进一步完善与改进等。坐标正反算简易水准平差简易导线计算交会测量程序集成化界面设计（根据实际实习内容写）5实习步骤实习主要在北区机房内进行，主要按实习内容进行51坐标正反算坐标反算是根据已知点坐标，计算两点间距离和角度，正算公式为SINCO0SYXA为坐标方位角，S为两点的距离公式分析从式上可以知道公式需要知道初始始坐标，距离和角度，即需要四个输入，若需要在一个函数中实现，返回值有二个，可以有二种方法1单个函数实现FUNCTIONDIS2XYBYVALDISASDOUBLE,BYVALANGASDOUBLEASDOUBLE利用数据返回ENDFUNCTION2两个函数实现FUNCTIONDIS2XYBYVALDISASDOUBLE,BYVALANGASDOUBLE,BYVALFLAGASINTEGERASDOUBLE东华理工大学高职学院测绘程序设计（VB）2012第11共41页增加参数控制ENDFUNCTION52水准测量四等水准测量记录表下丝下丝后尺上丝前尺上丝标尺读数后视距前视距测点视距差D方向及尺编号黑面红面黑K红高差中数（M）（1）（5）后（3）（8）（10）（2）（6）前（4）（7）（9）（12）（13）后前（16）（17）（11）1（14）（15）四等水准测量记录表计算公式高差部分（9）（4）K7（10）（3）K8（11）（4）9（16）（3）4（17）（8）7（11）（16）加减1009（12）（1）2（13）（5）6（14）（12）13（15）本站的（14）前站的15东华理工大学高职学院测绘程序设计（VB）2012第12共41页（3）（4）（16）H黑（3）K）（8）（10）（8）（7）（17）H红（4）K）（7）（9）H中1/2H黑H红5号尺K4787，6号尺K4687闭合水准路线。FHH测附合水准路线FHH测（H终H始）支水准路线FH往返闭合差限度FH容正负40LMMFH容正负12NMML水准路线长度N测站数公式分析从式上可以知道此题计算简单只是有点繁琐，需要耐心分析。2利用主要函数有东华理工大学高职学院测绘程序设计（VB）2012第13共41页MSGBOS根据已知的数据，计算后距视距差，前距，高差中数利用FUNCTION（BYVALAASINTEGER,BYVALAASINTEGER,BYVALAASINTEGER,BYVALAASINTEGER,BYVALAASINTEGER,BYVALAASINTEGER,BYVALAASINTEGER）ASDOUBLE计算出来水准测量是用水准仪和水准尺测定地面上两点间高差的方法。在地面两点间安置水准仪，观测竖立在两点上的水准标尺，按尺上读数推算两点间的高差。通常由水准原点或任一已知高程点出发，沿选定的水准路线逐站测定各点的高程。由于不同高程的水准面不平行，沿不同路线测得的两点间高差将有差异，所以在整理国家水准测量成果时，须按所采用的正常高系统加以必要的改正，以求得正确的高程。53导线计算地面上选定一系列点连成折线，在点上设置测站，然后采用测边、测角方式来测定这些点的水平位置的方法。导线测量是建立国家大地控制网的一种方法，也是工程测量中建立控制点的常用方法。设站点连成的折线称为导线，设站点称为导线点。测量每相邻两点间距离和每一导线点上相邻边间的夹角，从一起始点坐标和方位角出发，用测得的距离和角度依次推算各导线点的水平位置。导线测量布设灵活，推进迅速，受地形限制小，边长精度分布东华理工大学高职学院测绘程序设计（VB）2012第14共41页均匀闭合导线测量的计算步骤1角度闭合差的计算与调整理（N2）180由于观测角度不可避免的好友误差，因此会产生角度闭合差F测理角度闭合差的容许值根据倒显得等级确定，图根导线规定为F40SQR（N）2有改正后的导线左叫或右角推算各边的坐标方位角I1I左180（适用于左角）I1I左180（适用于右角）推算过程注意A如果算出的I1360度，则应减去360度B如果算出的I1360度，则应加上360度C闭合导线各边坐标的方位角的推算，最后推算出起始边坐标方位角，他应该与原有的已知坐标方位角相等，否则应重新检查计算。3坐标增量的计算及闭合差的调整。A坐标增量的计算。IDICOSIYIDISINB坐标增量闭合差的计算与调整。东华理工大学高职学院测绘程序设计（VB）2012第15共41页导线全长闭合差为FXXIFYYIFDSQRFXFXFYFYFY导线全长相对误差为KF/D/FD不同等级的导线对K值得要求也不尽相同，其中图根导线要求K值不大于1/2000若K值超限，则需要检查观测数据或重新观测坐标增量改正的计算VXI1XIXXIVXIYI1YIYIVYI4用改正后的坐标增量计算各个导线点的坐标XI1XIXIVXIYI1YIYIVYI5符合导线的坐标计算步骤与闭合导线相同，知识角度闭合差与坐标增量闭合差的计算稍有区别，具体公式如下FA始左N180A终FXXI（X终X始）FYYI（Y终Y始）54集成化设计集成化设计是基于并行工程思想的设计，它利用现代信息技术把传统产品设计强调产品设计及其过程同时交叉进行，减少设计过程的多次反复，力求使产品开发人员在设计一开始就考虑到产品整个生命周期中从概念形成到产品报废处理的所有因素，从而最大限度地提高设计效率、东华理工大学高职学院测绘程序设计（VB）2012第16共41页降低生产成本的设计方法。54集成化设计集成化设计就是把我们设计过的小程序全部都编辑到一个更全面的测量程序界面，把需要用的程序都编辑到一个菜单栏里，什么实习过的程序都有，比如有角度转换弧度，弧度转角度，三角高程测量的计算，任意三角形求面积等一些程序。6实习总结61实习问题总结1、如何用VB启动其他程序或开启各类文件要在VB中启动其他程序或开启各类文件，最简单的方法就是使用SHELL函数，例如要开启CTESTTXT这个文字文件，则要启动记事本来开启这个文件案，程序如下DIMRETVALASLONGRETVALSHELL“CWINDOWSNOTEPADEXECTESTTXT“,33代表视窗会最大化，并具有驻点，细节请查HELP以上的语法虽然很简单，但有一个风险，若是我们不知道开启文件的执行文件位置，则程序便会有错误产生，尤其一般软件在安装的时候都可以让使用者自行选择安装目录，所以执行文件的路径不能写死在程序中，要解决这个问题，就是在注册文件中找到该副文件名之启动程序位置，再放入SHELL中。但是以上的作法必须熟悉注册文件，而且必须使用WINDOWSAPI来CALL注册文件的存取以后会有专文来说明，如果您对注册文件的存取及API的使用都很纯熟的话，当然没问题，但是有些人对于注册文件会有畏惧，这时候，您可以使用下面的东华理工大学高职学院测绘程序设计（VB）2012第17共41页方法SHELL“STARTCTESTTXT“2如何得到文件路径的文件名DIMSFILEPATHASSTRINGSFILEPATH“CWINDOWSSYSTEMSYTEMDLL“DIMLGETLENASLONG,LNUMASLONGDIMSGETFILEASSTRING,STEMPASSTRINGLGETLENLENSFILEPATH得到文件路径长度STEMPLGETLENFORLNUM1TOLGETLENIFLEFTSGETFILE,1“THENEXITFORSGETFILEMIDSFILEPATH,STEMP,LNUMSTEMPSTEMP1NEXTLNUMSGETFILEMIDSGETFILE,2得到文件名MSGBOXSGETFILE3在TEXTBOX中如何限制只能输入数字PRIVATESUBTEXT1_KEYPRESSKEYASCIIASINTEGERSELECTCASEKEYASCIICASE48TO57CASEELSEKEYASCII0ENDSELECTENDSUB3我们在VB的程序中要如何判断，目前文件资源管理器中的设定是否显示扩展文件名呢PRIVATEDECLAREFUNCTIONGETFILETITLELIB“COMDLG32DLL“ALIAS“GETFILETITLEA“BYVALLPSZFILEASSTRING,BYVALLPSZTITLEASSTRING,BYVALCBBUFASINTEGERASINTEGER东华理工大学高职学院测绘程序设计（VB）2012第18共41页PRIVATEFUNCTIONHASEXTENSIONSFILENAMEASSTRINGASLONGDIMSTEMPASSTRINGDIMLTEMPASLONGSTEMPSTRING1,0LTEMPGETFILETITLESFILENAME,STEMP,LENSTEMPIFLTEMP5THENTEXT14TEXTAABBENDIFTEXT11TEXTVALTEXT3TEXTVALTEXT8TEXTTEXT12TEXTVALTEXT4TEXTVALTEXT9TEXTIFCCDDTHENTEXT13TEXTCCDD100/2ELSETEXT13TEXTCCDD100/2PRINTTEXT13TEXTENDIFENDFUNCTIONPRIVATESUBCOMMAND2_CLICKTEXT1TEXT“东华理工大学高职学院测绘程序设计（VB）2012第23共41页TEXT2TEXT“TEXT3TEXT“TEXT4TEXT“TEXT5TEXT“TEXT6TEXT“TEXT7TEXT“TEXT8TEXT“TEXT9TEXT“TEXT10TEXT“TEXT11TEXT“TEXT12TEXT“TEXT13TEXT“TEXT14TEXT“ENDSUBPRIVATESUBCOMMAND3_CLICKUNLOADMEENDSUBPRIVATESUBTEXT1_KEYPRESSKEYASCIIASINTEGERSELECTCASEKEYASCIICASE48TO57CASEELSEKEYASCII0ENDSELECTENDSUBPRIVATESUBTEXT2_KEYPRESSKEYASCIIASINTEGERSELECTCASEKEYASCIICASE48TO57CASEELSEKEYASCII0ENDSELECTENDSUBPRIVATESUBTEXT3_KEYPRESSKEYASCIIASINTEGERSELECTCASEKEYASCII东华理工大学高职学院测绘程序设计（VB）2012第24共41页CASE48TO57CASEELSEKEYASCII0ENDSELECTENDSUBPRIVATESUBTEXT4_KEYPRESSKEYASCIIASINTEGERSELECTCASEKEYASCIICASE48TO57CASEELSEKEYASCII0ENDSELECTENDSUBPRIVATESUBTEXT6_KEYPRESSKEYASCIIASINTEGERSELECTCASEKEYASCIICASE48TO57CASEELSEKEYASCII0ENDSELECTENDSUBPRIVATESUBTEXT7_KEYPRESSKEYASCIIASINTEGERSELECTCASEKEYASCIICASE48TO57CASEELSEKEYASCII0ENDSELECTENDSUBPRIVATESUBTEXT8_KEYPRESSKEYASCIIASINTEGERSELECTCASEKEYASCIICASE48TO57CASEELSEKEYASCII0ENDSELECT东华理工大学高职学院测绘程序设计（VB）2012第25共41页ENDSUBPRIVATESUBTEXT9_KEYPRESSKEYASCIIASINTEGERSELECTCASEKEYASCIICASE48TO57CASEELSEKEYASCII0ENDSELECTENDSUB坐标转换正算DIMK1,E1,DX1DIMX1,XX1,Y1,DYY1PRIVATESUBCMDCALC1CLICKK1TEXT2E1TEXT2DX1TEXT3DY1TEXT4X1TEXT5Y1TEXT6ENDSUBFUNCTIONXX1BYVALK1ASDOUBLE,BYVALX1ASDOUBLE,BYVALY1ASDOUBLEASDOUBLEDIMYYASDOUBLEXX1K11X1COSE1Y1SINE1DX1东华理工大学高职学院测绘程序设计（VB）2012第26共41页YY1K11Y1COSE1X1SINE1DY1PRINTXX1,YY1ENDFUNCTION坐标反算DIMK2,E2,DX2,DIMX2,XX2,Y2,DYY2PRIVATESUBCMDCALC1CLICKK2TEXT2E2TEXT2DX2TEXT3DY2TEXT4X2TEXT5Y2TEXT6FUNCTIONXX1BYVALK2ASDOUBLE,BYVALX2ASDOUBLE,