线路中边桩任意里程坐标正反算改编程序CASIO485025
上亿文档资料，等你来发现
线路中边桩任意里程坐标正反算改编程序CASIO485025
线路中边桩任意里程坐标正反算改编程序CASIO4；含数据库、测站放样计算（第五次修改-正式版）；1.加编数据库及计算总调度程序,计算中不必逐项输；避免现场忙中出错；2.可加入多条线路的数据库,内业输入数据,外业一；3.计算直观,人性化；4.正算直接输入里程和边距,反算输入近似里程便可；5.增加了“计算点与测站点”的距离和方位角计算语；6.愿收获与大家共享,同
线路中边桩任意里程坐标正反算改编程序CASIO4850 |
23:45:00含数据库、测站放样计算（第五次修改-正式版）1.加编数据库及计算总调度程序,计算中不必逐项输入&线元要素&,提高运算速度，避免现场忙中出错2.可加入多条线路的数据库,内业输入数据,外业一目了然3.计算直观,人性化4.正算直接输入里程和边距,反算输入近似里程便可5.增加了“计算点与测站点”的距离和方位角计算语句，方便直接放样6.愿收获与大家共享,同时也希望大家提出心得和宝贵建议7.核心计算程序摘自“yshf” 一.改动后的程序清单，增设数据库程序,可输入n条线路的数据库1.(QXZDJS
计算总调度程序)M=1=&Prog &SJK1&:Prog &SUBSJK&△←┘...........M=n=&Prog &SJKn&:Prog &SUBSJK&△←┘2.(SJK1
数据库程序)&1.SZ =& XY&：&2.XY =& SZ&：｛N,S｝：N：S&DKI&←┘S≤本线元终点里程＝＞U=本线元起点X坐标：V=本线元起点Y坐标：G=本线元起点正切线方位角：P=本线元起点曲率半径：R=本线元终点曲率半径：O=本线元起点里程：H=本线元终点里程：Q=本线元左直右偏向(0或1、-1):Goto0Δ←┘S≤下一线元终点里程=＞O=。。。。。。。。。。。。。。。。： Goto0Δ←┘LB1 03.(SUBSJK
运算主程序){UVGPROHQ}：U&XA&：V&YA&：G&FA&：P&RA&：R&RB&：O&DKA&：H&DKB&：Q←┘Deg:S&H=&Goto AΔD=(P-R)÷2PR(H-O)：N=1=&Goto 1：≠&Goto 2Δ←┘Lbl 1：{Z}：Z：W=Abs(S-O)：Prog &SUB1&：&XS=&：X&YS=&：Y&QX-FWJ=&：F=F-90←DMSI=0：J=0：Pol（X-C&XC&，Y-E&YC&）：J&0＝＞J=J+360：Δ“FWJ=”:J←DMS“I=”：IGoto A←┘Lbl 2：{XY}：I=X：J=Y：Prog &SUB2&：&S=&:S=O+W&Z=&:ZLbl
正算子程序)A=0.：B=0.：K=0.：L=0.：X=U+W(Acos(G+180QKW(1÷P+KWD)÷π)+Bcos(G+180QLW(1÷P+LWD)÷π)+Bcos(G+180(1-L)QW(1÷P+(1-L)WD)÷π)+Acos(G+180(1-K)QW(1÷P+(1-K)WD)÷π))：Y=V+W(Asin(G+180QKW(1÷P+KWD)÷π)+Bsin(G+180QLW(1÷P+LWD)÷π)+Bsin(G+180(1-L)QW(1÷P+(1-L)WD)÷π)+Asin(G+180(1-K)QW(1÷P+(1-K)WD)÷π))：F=G+180QW(1÷P+WD)÷π+90：X=X+ZcosF：Y=Y+ZsinF5.(SUB2
反算子程序)T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog &SUB1&：L=T+180QW(1÷P+WD)÷π：Z=(J-Y)cosL-(I-X)sinL：AbsZ&1÷10^6=&Goto1：≠&W=W+Z：Goto 0Δ←┘Lbl 1：Z=0：Prog &SUB1&：Z=(J-Y)÷sinF二. 使用说明：1.把所有相关的”线元要素“依次输入”SJK“，如果有多条线路，可把“SJK”分成SJK1...SJKn等n条线路数据库，然后对应“计算总调度程序”中的M1...Mn备用2.运算时直接调用“SJK”运行，程序提示输入里程“S”？时，正算直接输入待求点里程，反算输入所求点“近似“里程3.如果在正算中途想进行反算，重新给”N“？赋值&2&便可4.程序中“XC、YC”为测站坐标，“I＝”、“FWJ＝”为放样距离和方位角5.程序中“QX-FWJ=”为计算点在中线上的正切线方位角，此方位角在新线路输入数据库时非常重要，我们在每输入完一段曲线元要素后，立即退出返回到“计算总调度程序(SUBSJK)”中，然后输入该段曲线元的终点里程，其计算出来的X，Y中桩坐标应该与设计图纸(当然是经过复查无误的图纸)上的该点中桩坐标一致，否则一定是哪个地方数据输入或者程序有误，这时候我们一定要把该计算点在中线上的正切线方位角“QX-FWJ=”记录下来为下一段曲线元要素数据输入服务，因为它就是下一段曲线元的起点正切线方位角，嘿嘿！6.其它输入与&yshf&原程序一致-----------------------------------------------------------------------附件:(原yshf程序)曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序一、程序功能本程序由一个主程序(TYQXJS)和两个子程――正算子程序(SUB1)、反算子程序(SUB2)序构成，可以根据曲线段――直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲线任意里程中边桩坐标进行正反算。本程序也可以在CASIO fx-4500P计算器及 CASIO fx-4850P计算器上运行。特别申明：(1). 适用于弧长小于2倍半径的各种线元坐标正反算，精度优于1mm；(2). 在引用该核心计算部分时，请注明来源。二、源程序1.主程序(TYQXJS)&1.SZ =& XY&：&2.XY =& SZ&：N：U&X0&：V&Y0&：O&S0&：G&F0&：H&LS&：P&R0&：R&RN&：Q：C=1÷P：D=(P-R)÷(2HPR)：E=180÷π：N=1=&Goto 1：≠&Goto 2Δ←┘Lbl 1：{SZ}：SZ：W=Abs(S-O)：Prog &SUB1&：X&XS&=XY&YS&=YF&FS&=F-90Goto 1←┘Lbl 2：{XY}：XY：I=X：J=Y：Prog &SUB2&：S&S&=O+WZ&Z&=ZGoto 22. 正算子程序(SUB1)A=0.：B=0.：K=0.：L=0.：F=1-L：M=1-K：X=U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))：Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))：F=G+QEW(C+WD)+90：X=X+ZcosF：Y=Y+ZsinF3. 反算子程序(SUB2)T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog &SUB1&：L=T+QEW(C+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ&1E-6=&Goto1：≠&W=W+Z：Goto 0Δ←┘Lbl 1：Z=0：Prog &SUB1&：Z=(J-Y)÷sinF三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。(2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。2、输入与显示说明输入部分：1. SZ =& XY2. XY = & SZN ?
选择计算方式，输入1表示进行由里程、边距计算坐标 ；输入2表示由坐标反算里程和边距。X0 ？线元起点的X坐标Y0 ？线元起点的Y坐标S0 ？线元起点里程F0 ？线元起点切线方位角LS ？线元长度R0 ？线元起点曲率半径RN ？线元止点曲率半径LS、起点曲率半径R0、止点曲左右偏标志Q）如下：S0
125 16 31.00
125 16 31.00
-1 806.748
120 25 54.07
221.75 221.75
-1 919.527
91 17 30.63
-1 999.812
80 40 50.00
01、正算S=700
YS= 2、 反算X=
S=699.9999974
S=699.9996493
S=699.9999985
S=780.0000035
S=780.0000025
S=780.0000016
S=870.0001137
S=870.0003175
S=870.0002748
S=939.9999786
S=939.9999862
S=940.0000238
Z= 3. 作者:忘不了の糊涂 | 阅读全文(1020) | 回复(5) | 举报不良信息 | 引用通告(0) | 编辑? 上一篇：? 下一篇：三角函数公式表 包含各类专业文献、各类资格考试、生活休闲娱乐、应用写作文书、高等教育、专业论文、线路中边桩任意里程坐标正反算改编程序CASIO485025等内容。
　坐标的计算坐标的计算隐藏&& 线路中边桩任意里程坐标正反算改编程序 CASIO4850 含数据库、测站放样计算(第五次修改-正式版) 1.加编数据库及计算总调度程序,计算... 　线路中边桩任意里程坐标正反算改编程序CASIO4850线路中边桩任意里程坐标正反算改编程序CASIO4850隐藏&& 线路中边桩任意里程坐标正反算改编程序 CASIO4850 含数据 数据... 　线路中边桩任意里程坐标正反算改编程序 CASIO-21 10:44:49) 标签: 线路中边桩任意里程坐标正反算改 编程序一.改动后的程序清单,增设数据库程序,可... 　线任意里程中边桩坐标正反... 4页 免费 4850程序(点线坐标正反算) 10页 免费...线路中边桩任意里程坐标正、反算改编程序 (CASIO fx-4800)含数据库、测站放样... 　曲线任意里程中边桩坐标正反算(CASIO-4850 计算器)专用程序一、程序功能及原理 1.功能说明: 本程序由一个主程序(TYQXjs)和四个子程――正算子程序(SUB1)、 反... 　曲线任意里程中边桩坐标正反算(4850P 计算器)程序(第四次修改版) 曲线任意里程中边桩坐标正反算(CASIO fx-4850P 计算器)程序 ( 第四次修改版 )一、程序功能... 　85 楼:WY0208 回回 我已经找到我想要的了,就是:线路中边桩任意里程坐标正、反算改编程序(CASIO fx-4800),不过还是要谢谢你, 李师傅 86 楼:mikel88_66 先... 　曲线任意里程中边桩坐标正反算(4850P 计算 器)程序(第四次修改版)曲线任意里程中边桩坐标正反算(CASIO fx-4850P 计算器)程序 ( 第四次修改版 ) 一、程序... 　曲线任意里程中边桩坐标正反算及放样fx-4850程序(第五次修改) 隐藏&& 本程序是在 yshf 及 hangniu1973 两位师傅的成果上作的一次改动,修 改内容主要有一下几...求卡西欧fx 5800p坐标正反算， 曲线程序 有的请发到我邮箱_百度知道
求卡西欧fx 5800p坐标正反算， 曲线程序 有的请发到我邮箱
卡西欧5800程序发你邮箱，请查收！《CASIO fx-5800P编程计算器-公路与铁路施工测量程序》最新程序书上市啦！亦文轩文具网现在免费赠送程序书多媒体光盘。
其他类似问题
为您推荐：
您可能关注的推广
卡西欧的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁教你如何通过Excel VBA编写测量坐标计算程序
摘&&要：认识VBA、理解VBA，并利用Office&Excel&VBA编写测量坐标计算程序。
关键词：Excel&VBA&程序&坐标&编写
了解：VBA是什么？简单的说就是一种自动化语言，它可以使常用的程序自动化,可以创建自定义的解决方案。可以用Excel的宏语言来使Excel自动化运行等&&Microsoft让它开发出来的应用程序共享一种通用的自动化语言&&Visual&Basic&For&Application(VBA)，可以认为VBA是非常流行的应用程序开发语言Visual&Basic的子集，事实上VBA是VB应用程序的版本，尽管存在有些不同VBA和VB在结构上仍然十分相似。如果你已经了解VB会发现学习VBA非常快。相应的学完VBA会给学习VB打下坚实的基础。
理由：选择Excel&VBA编程的理由是因为它的计算功能非常强大，是现今任何编程计算器无法逾越的。它运用范围广，计算速度快，计算精度高，合理化显示等。或许很多测量人员对Excel&VBA还有些陌生，主要是大家寄托于计算器、电脑、手机PDA等系列软件使用。Excel&VBA对于大多数测量人员而没有系统学过计算机语言程序设计的人群来讲有一定含糊，不过只要有基本数学知识、测量常识和逻辑理解的人，都能通过Excel&VBA编写设计出称心如意的测量程序。
目标：基于Excel&VBA的测量坐标计算程序的设计目标是将繁琐计算过程转入到计算机中，利用程序语言的重复性原理，在计算机中可将坐标计算得出更精确的结果，使坐标计算更加可靠。最终目标是让用户可以通过Excel&VBA自行完成坐标计算程序设计。
认识：学习VBA到底需要什么基础和了解些什么？
学习VBA需要认识英文字母、一般的单词（如：函数所用的过程）、数学基础知识、测量常识、逻辑性思维即可。
在VBA中需要了解VBA的过程、变量、属性、方法、事件、语句等。
Excel&VBA程序可以分为&录制宏、自定义函数&，由于录制宏编写计算类程序它限制了计算涵式过程，而无法达到自定义数据直接运算的目的，所以大家可以通过按钮式点击进行自定义函数过程（还可以通过窗体定义过程）。
基本常识：
& &1、类型：常用类型分为Integer（整型）、Single&(单精度型)、Double&(双精度型)、String（字符串型）、Variant(数字)、Variant(字符)。
& &2、变量：Dim&变量名&As&数据类型。例：Dim&A&As&Double
定义变量除了可以使用Dim语句外，比较常的还有：static语句，Private语句，Public语句。
& &3、常量：Const&常量名&As&数据类型&＝&常量的值。例：Const&PI&=3.8
常量声明后不可对它再进行赋值。
& &4、If语句：
If&&逻辑表达式&Then&&&&&&┆&&&&&If&Q&0&Then&
&&&&&&&&&&&&&语句块1&&&&&┆&&&&&&&&&&&&Q=-1
　　　　Else&&&&&&&&&&&&&┆&&&&&&&&Else
&&&&&&&&&&&&&语句块2&&&&&┆&&&&&&&&&&&&Q=1
&&&&&&&&End&If&&&&&&&&&&&┆&&&&&&&&End&If
& &5、Do循环语句：
Do&Wihle&循环条件&&&&&&&&┆&Do&While&Cells(j,&1)&&&&Empty
&&&&&&&&&&语句块1&&&&&&&&┆&&&&X&=&N&+&(Cells(j,&1)&-&D)&*&Cos(F)
&&&&&[Exit&Do]&&&&&&&&&&&┆&&&&Y&=&E&+&(Cells(j,&1)&-&D)&*&Sin(F)
&&&&&&&&&&语句块2&&&&&&&&┆&&&&&&&&j&=&j&+&1
&&&&&&Loop&&&&&&&&&&&&&&&┆&&&&Loop
& &6、调用单元格数值：
With&Sheets(&单元格名称&)┆&&With&Sheets(&坐标计算&)
&&&&&&&N&=&.Cells(行,&列)┆&&&&&&&&&N&=&.Cells(3,&2)
&&&&&&&E&=&.Cells(行,&列)┆&&&&&&&&&E&=&.Cells(4,&2)&
&&&&&&&D&=&.Cells(行,&列)┆&&&&&&&&&D&=&.Cells(5,&2)
&&&&&&&F&=&.Cells(行,&列)┆&&&&&&&&&F&=&.Cells(6,&2)&
&&&&End&With&&&&&&&&&&&&&┆&&&&&&End&With
说明：这里的.Cells(行,&列)表示调用Sheets(&坐标计算&)单元格中指定数值。
& &7、MsgBox事件语句：
Private&Sub&Workbook_Open()┆&Private&Sub&Workbook_Open()
&&&&MsgBox&&提示语句&&&&&&&┆&&&&&MsgBox&&欢迎使用直线坐标计算程序！&
End&Sub&&&&&&&&&&&&&&&&&&&&┆&End&Sub
& &主题：通过以上认识相信大家对VBA编程稍有认识与了解，现在将进行测量坐标计算程序设计。给大家讲解的是&直线坐标中桩计算&的程序如何编写与运算。
& &思路：根据单元格输入的已知数据并由With过程调用，建立Do循环计算模式自动填充待求点单元格坐标。
& &准备：本表需将安全级别设置为&低&，否则运行时点击计算按钮没有反映。
&&& &Office Excel 设置方法如下：
&&& &Excel 2003版：工具&&&宏&&&安全性&&&选择较低的安全级别&&&重新打开文件即可运行。
&&& &Excel 2007版：Office按钮&&&Excel选项&&&信任中心&&&信任中心设置&&&宏设置&&&启用所有宏。
& &版本：程序测试演示版本 &Microsoft Office Excel 2003
直线坐标计算原理：
如下图所示，已知直线的起点坐标&、起点切线方位角ao、直线长度L。
直线的止点坐标、止点方位角az计算如下：
已知计算数据：
输入直线要素
起点坐标xo
起点坐标yo
计算方位角ao
程序操作步骤：
1、设置表格框架（可以根据自己的要求设计），图示如下：
2、在菜单栏上面点击右键弹出下拉式对话框选中&Visual&Basic&。
3、调用后的Visual&Basic菜单栏显示如下。
4、插入命令按钮（按钮主要用于鼠标点击时触发函数运行）。
5、插入命令按钮后样式，在上面点击右键&命令按钮&对象&编辑&输入&坐标计算&名称（可以根据自己要求输入）。同样方法添加&数据清除&按钮。
6、在&坐标计算&按钮上面点击右键&查看代码，即可进入代码编辑区域。同样方法编辑&数据清除&按钮代码。
7、代码输入区域，在蓝色线条位置粘贴&VBA主要源码&代码然后点击左上角Excel图标即可返回Excel电子表格界面。（这里还可以在VBAProject上面点击右键&插入模块&将代码粘贴到模块中通过路径指引，但是在这里就直接将代码粘贴在按钮内部减少了添加模块的繁琐）。
VBA主要源码：
& & Option&Explicit&'显式声明模块中的所有变量&
& & &Private&Sub&CommandButton1_Click()'按钮下粘贴以下代码：
Dim&j&As&Integer&'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&═╮
Dim&Ai,&Bi,&Ci,&Di,&Ei,&Fi,&Gi,&Hi&As&Double&'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&║
Dim&N,&E,&D,&X,&Y,&F&As&Double&'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&║定义变量
Const&Pi&=&3.79&'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&═╯
&&With&Sheets(&坐标计算&)
&&&&If&Trim(.Cells(3,&2))&=&&&&Then&MsgBox&&请输入&起点坐标X&！&,&vbInformation,&&提示&:&Exit&Sub&'&&&&&═╮
&&&&If&Trim(.Cells(4,&2))&=&&&&Then&MsgBox&&请输入&起点坐标Y&！&,&vbInformation,&&提示&:&Exit&Sub&'&&&&&&&║
&&&&If&Trim(.Cells(5,&2))&=&&&&Then&MsgBox&&请输入&起点桩号K&！&,&vbInformation,&&提示&:&Exit&Sub&'&&&&&&&║检测数据
&&&&If&Trim(.Cells(6,&2))&=&&&&Then&MsgBox&&请输入&起点方位角F&！&,&vbInformation,&&提示&:&Exit&Sub&'&&&═╯
&&&&&&&&N&=&.Cells(3,&2)&'&&&&&&&&&&&&&&&&&&&&&&&═╮
&&&&&&&&E&=&.Cells(4,&2)&'&&&&&&&&&&&&&&&&&&&&&&&&&&║
&&&&&&&&D&=&.Cells(5,&2)&'&&&&&&&&&&&&&&&&&&&&&&&&&&║调用已知数据
&&&&&&&&F&=&.Cells(6,&2)&'&&&&&&&&&&&&&&&&&&&&&&&═&╯
&&&&&&&&Gi&=&Int((.Cells(5,&2)&+&10)&/&10)&*&10&'&═╮
&&&&&&&&Hi&=&.Cells(5,&2)&+&.Cells(7,&2)&'&&&&&&&&&&║
&&&&&&&&Fi&=&Abs(F)&'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&║
&&&&&&&&Ai&=&Int(Fi)&'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&║
&&&&&&&&Bi&=&(Fi&-&Ai)&*&100&'&&&&&&&&&&&&&&&&&&&&&&║
&&&&&&&&Bi&=&Int(Bi)&'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&║
&&&&&&&&Ci&=&(Fi&-&Ai)&*&10000&-&100&*&Bi&'&&&&&&&&&║六十进制转换为十进制
&&&&&&&&Di&=&Bi&+&Ci&/&60&'&&&&&&&&&&&&&&&&&&&&&&&&&║
&&&&&&&&Ei&=&Ai&+&Di&/&60&'&&&&&&&&&&&&&&&&&&&&&&&&&║
&&&&&&&&If&F&&&0&Then&'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&║
&&&&&&&&&&F&=&-Ei&'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&║
&&&&&&&&Else&'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&║
&&&&&&&&&&F&=&Ei&'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&║
&&&&&&&&End&If&'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&═╯
&&&&&&&&F&=&F&/&180&*&Pi
&&&&End&With
&&Do&While&Cells(j,&1)&&&&Empty&'&&&&&&&&&&&&&&&&═╮
&&&&&&&&X&=&N&+&(Cells(j,&1)&-&D)&*&Cos(F)&'&&&&&&&&║
&&&&&&&&Y&=&E&+&(Cells(j,&1)&-&D)&*&Sin(F)&'&&&&&&&&║坐标计算核心
&&&&&&&&Cells(j,&2)&=&Round(X,&3)&'&&&&&&&&&&&&&&&&&║
&&&&&&&&Cells(j,&3)&=&Round(Y,&3)&'&&&&&&&&&&&&&&&&&║
&&&&&j&=&j&+&1&'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&║
&&&&&Loop&'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&║
End&Sub&'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&═╯
Private&Sub&CommandButton2_Click()'按钮下粘贴以下代码：&
& & & & Range(&B9:C65536&).ClearContents
& &End&Sub&
VBA源码说明：
Option&Explicit'显式声明模块中的所有变量；
Private Sub CommandButton1_Click()&'Private外部，可供类或是模块自身调用；Sub过程(不返回值)和函数(返回值)可将其视为类的方法；CommandButton1_Click()&计算按钮名称。
Dim&j&As&Integer'定义整型变量；
Dim&Ai,Bi,Ci,Di,Ei,Fi,Gi,Hi&As&Double'定义双精度变量；
Const&Pi=3.79'定义常量；
With&Sheets(&坐标计算&)'介词；
If&Trim(.Cells(3,2))=&&Then&MsgBox&请输入&起点坐标X&！&,vbInformation,&提示&:Exit&Sub'Trim删除字符中空格；.Cells(3,2)调用表中的第三行第二列数值；MsgBox弹出窗口提示框；vbInformation弹出窗口类型；Exit&Sub退出程序；
Gi=Int((.Cells(5,2)+10)/10)*10'Int将数字舍入到最接近的整数；
Fi=Abs(F)'Abs绝对值；
If&F&0&Then
End&If'当F小于0则F等于-Ei否则F等于Ei结束判断；
End&With'结束介词语句；
j=9'循环定义，表示从第九行开始执行；
Do&While&Cells(j,1)&&Empty'Do&While循环控制语句，用于首先执行一次循环体语句，然后开始测试循环条件，当条件为&真&时继续循环的处理过程；
X=N+(Cells(j,1)-D)*Cos(F)
Y=E+(Cells(j,1)-D)*Sin(F)
Cells(j,2)=Round(X,3)
Cells(j,3)=Round(Y,3)
j=j+1'逐句循环，每成功运行一次即为循环一次，然后继续执行下一行。
Loop'当条件不满足时结束循环语句。
End&Sub'退出Sub程序过程。
PrivateSubCommandButton2_Click()
Range(&B9:C65536&).ClearContents'清除区域B9:C65536中的内容。
粘贴后的代码区域显示：
8、返回Excel表格后点击顶部按钮&退出设计模式&即可正常点击按钮。
9、在单元格中输入已知数据。
10、点击&坐标计算&按钮即可计算出以下坐标。
注：新建空白表格时需将单元名称&Sheet1&改为&坐标计算&。
程序源码文件下载地址：&&
通过实践证明，在工作中知道已知测量数学模型并结合编程技术写一些程序对常用的数据处理能够高效的解决实际工作中出现的问题，从而使工作效率得以提高。
在这里或许有朋友要问为什么不编写和演示复杂的曲线坐标计算程序？其实编写简单的和复杂的都一样，因为教你的只是一种方法，一种思路，而不是里面的公式运算，所以如果你只要用心去学就算告诉你一个简单的过程你就会理解里面的意思。当然功夫还得靠大家自己多加练习才能迈入编程的正常轨道。
提醒大家一句话：人人都是天才,只是你能否把空闲时间利用到有价值的基础之上?线路中边桩任意里程坐标正反算改编程序CASIO4850_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
线路中边桩任意里程坐标正反算改编程序CASIO4850
阅读已结束，如果下载本文需要使用
想免费下载本文？
你可能喜欢00正反算程序_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
00正反算程序
45 50​ 80​正​反​算​程​序
阅读已结束，如果下载本文需要使用
想免费下载本文？
你可能喜欢