本文主要为广大网友提供“ VB语言在道路中桩坐标计算中的运用 ”，希望对需要 VB语言在道路中桩坐标计算中的运用 网友有所帮助，学习一下!
随着测绘技术的不断发展,计算机在现代测绘科学中的应用也越来越广泛,已深入到从理论研究到实际生产的方方面面,如坐标解算、数据处理、施工放样计算、地理信息数据加工和管理等。而VB的简单易用,方便快速,功能强大,以及可视化的界面设计,使得编程成为一种享受。把程序设计人员从繁琐的界面设计中解脱出来。应用VB语言优点简单易学Visual Basic具有简单易学、程序运行调试方便的特点。Visual basic在继承了BASIC语言简单易用的基础上,改造了BASIC语言复杂冗长且极易出错的“面条式”结构,使其更加流畅、自然。面向对象的可视化程序设计Visual Basic在Windows中的控件身影无处不在,比如按钮、文本框等,VB把这些控件模式化,并且每个控件都有若干属性,用来响应用户操作。这样我们就可以像在画板上一样,随意点几下鼠标,一个按钮就完成了,而这些在以前的编程语言下要经过相当复杂的工作才能完成。VB的这种可视化的用户界面设计功能,把程序设计人员从繁琐的界面设计中解脱出来。事件驱动的编程机制VB没有明显的主程序概念,程序员要做的就是面向不同对象分别编写他们的事件过程。
整个VB程序就是由相互独立的事件过程构成,事件过程的执行与否以及执行的顺序取决于操作时用户所引发的事件:若用户未发出任何事件,则系统处于等待状态。这一点对于C语言或者Fortran语言出身的程序员来说非常难于理解,但却最符合客观世界和Windows运行机制的实际。高度的可扩充性API是Windows环境中可供任何Win-dows应用程序调用和访问的一组函数集合,VB通过访问和调用这些API函数可大大增强VB的编程能力,实现VB语言本身不能实现的特殊功能,或简化编程。算法举例简单介绍对称缓和曲线的圆曲线的逐桩坐标计算。缓和曲线的计算目前在我国公路和铁路系统中,均采用回旋线作为缓和曲线。缓和曲线公式。缓和曲线全长(1)缓和曲线角(2)内移值(3)切线增值(4)缓和曲线参数方程(5)缓和曲线终点坐标(6)带缓和曲线的对称圆曲线主点测设。
先确定圆曲线半径R和缓和曲线长ls后,可以按(2)~(4)式计算缓和曲线角、内移值和切线增值,然后计算曲线测设元素,公式如下:切线长(7)曲线长(8)其中圆曲线长(9)外距(10)切曲差(11)最后,根据交点的里程和曲线测设元素,按下式进行计算:(12)(13)(14)(15)(16)带缓和曲线的圆曲线的详细测设(切线支距法)。缓和曲线上的各坐标按照式(6)计算,圆曲线上各点坐标计算按式(17):(17)圆曲线段统一坐标算式:(18)其中,此时的li为该点至HY或YH的曲线长,仅为曲线部分长度。界面设计及程序分析程序要输入的数据包括圆曲线起算数据(半径、交点里程及交点坐标)、缓和曲线起算数据(设计车速),输出数据为中桩桩号、转角、坐标及统一坐标等。在窗体上绘制4个框架Frame,分别组织圆曲线起算数据、缓和曲线起算数据和道路中桩,起点至JD1的坐标方位角及JD1至JD2的坐标方位角。程序使用三个命令来执行计算,退出以及清零。具体属性设置见表1。在圆曲线及缓和曲线起算数据中用4个标签和4个文本框,分别输入半径,交点里程,设计车速。在输入交点坐标后,程序自动计算起点至JD1,JD1至JD2的方位角和距离,以及转角,并显示在文本框。如图1所示。在道路中桩框架中添加1个伸缩网格控件MSFlexGrid,显示程序计算结果,如图2。
