1261-编制直线曲线及转角表.pptx
《1261-编制直线曲线及转角表.pptx》由会员分享,可在线阅读,更多相关《1261-编制直线曲线及转角表.pptx(27页珍藏版)》请在咨信网上搜索。
1、第6章 编制直线、曲线及转角表程序设计方法 6.1.1 6.1.1 程序功能程序功能 根根据据平平面面设设计计的的结结果果自自动动编编制制直直线线、曲曲线线及及转转角角表表,并并以以Excel文件形式保存。文件形式保存。6.1.2 6.1.2 设计资料设计资料 本程序需要两个数据文件资料:本程序需要两个数据文件资料:(1)设计参数资料)设计参数资料Sjcszl.dat:路段名称:路段名称 (2)平面设计结果数据)平面设计结果数据Zqzbsj.dat6.1 6.1 概概概概 述述述述VB自动制表自动制表可用方法可用方法 使用汉字库中的制表符使用汉字库中的制表符 制表制表利用利用VB报表设计器(报
2、表设计器(DataReport)功能)功能VB调用调用Excel电子表格电子表格 利用利用AutoCAD以图形格式绘出设计表格以图形格式绘出设计表格6.1.3 6.1.3 自动制表程序设计常用方法自动制表程序设计常用方法ActiveX部件部件Microsoft Excel 9.0 Object Library Microsoft Office 2000Microsoft Excel 11.0 Object Library Microsoft Office 20036.2 VB调用调用Excel自动制表的基本原理与技术支持自动制表的基本原理与技术支持6.2.1 添加对部件的引用添加对部件的引用
3、基本原理:基本原理:使使用用VB的的ActiveX部部件件,获获取取对对Excel进进行行操操作作的的控控制制句句柄柄,直直接接控控制制Excel的一系列操作。的一系列操作。Activex部部件件简简称称为为部部件件,是是一一段段可可重重复复使使用用的的编编程程代代码码和和数数据据,它它是是由由Activex技技术术所所创创建建的的由由一一个个或或多多个个对对象象组组成成的的。使使用用Activex部部件,可以使件,可以使VB应用程序具有应用程序具有Excel一样的分析和计算功能。一样的分析和计算功能。6.2.2 6.2.2 用用用用VBVB创建外部创建外部创建外部创建外部EXCELEXCEL
4、对象对象对象对象 1.声明对象变量声明对象变量 在在添添加加了了对对部部件件的的引引用用后后,必必须须先先声声明明对对象象变变量量,然然后后才才能能被被引引用用。例如,在应用程序中要调用例如,在应用程序中要调用Excel,就应声明类,就应声明类Excel Application:代码为:代码为:Dim xlApp As Excel.Application 2.将对象引用赋予变量将对象引用赋予变量(引用引用)对对象象的的引引用用可可用用Set语语句句实实现现,使使用用关关键键字字New或或CreatObject将将对对象象引引用赋予变量。用赋予变量。启启动动Microsoft Excel,并并创
5、创建建变变量量xlApp来来引引用用一一个个Application类类的的对对象象,代码如下:代码如下:Dim xlApp As Excel.Application Set xlApp=New Excel.Application3.打开工作簿打开工作簿Workbooks:即打开:即打开Excel文件文件打开一个新建的工作簿打开一个新建的工作簿 xlApp.WorkBooks.Add 未命名未命名两种情况两种情况打开已存在的工作簿:打开已存在的工作簿:如如test.xls xlApp.Workbooks.Open(c:test.xls)4.4.工作簿及工作表操作工作簿及工作表操作操操作作方法方法
6、属性属性层次层次命令命令功能功能命令命令功能功能命令命令功能功能1Open打开打开Visible可见可见Application应用应用2Add新建新建Value单元格值单元格值Workbooks工作簿工作簿3Select选定选定Font.Name字型名字型名Worksheets工作表工作表4Copy复制复制Size字型尺寸字型尺寸Range范围范围5Paste粘贴粘贴Bold加粗加粗Cells单元格单元格6Delete 删除删除LineStyle线型线型Rows行行7Close关闭关闭RowHeight行高行高 Colums列列8Quit退出退出ColumnWidth列宽列宽9Save保存保存
7、10SaveAs另存另存11Formula公式公式12Cut剪切剪切6.36.3 编制直线、曲线及转角表程序编制直线、曲线及转角表程序编制直线、曲线及转角表程序编制直线、曲线及转角表程序设计方法与步骤设计方法与步骤设计方法与步骤设计方法与步骤 6.3.1 6.3.1 控制窗体设计控制窗体设计6.3.2 6.3.2 程序设计流程框图程序设计流程框图6.36.3 编制直线、曲线及转角表程序编制直线、曲线及转角表程序编制直线、曲线及转角表程序编制直线、曲线及转角表程序设计方法与步骤设计方法与步骤设计方法与步骤设计方法与步骤 6.3.1 6.3.1 控制窗体设计控制窗体设计点击运点击运行行6.36.3
8、 编制直线、曲线及转角表程序编制直线、曲线及转角表程序编制直线、曲线及转角表程序编制直线、曲线及转角表程序设计方法与步骤设计方法与步骤设计方法与步骤设计方法与步骤 6.3.1 6.3.1 控制窗体设计控制窗体设计6.3.2 6.3.2 程序设计流程框图程序设计流程框图 在母表下面复制一张空表,供填入数据在母表下面复制一张空表,供填入数据 如果本页已满,在其下面再复制一张空表如果本页已满,在其下面再复制一张空表 声明对象变量及一般变量,读入基础数据声明对象变量及一般变量,读入基础数据从平面设计结果文件从平面设计结果文件Zqzbsj.dat获取计算数据获取计算数据 逐行填入数据(对指定单元格赋值)
9、逐行填入数据(对指定单元格赋值)删除空表,保存并关闭删除空表,保存并关闭Excel表格文件表格文件zjb.xls 关闭数据文件,结束计算关闭数据文件,结束计算非文件尾非文件尾文件尾文件尾编制直曲线表计算程序流程框图打开打开Excel表格文件,并复制整页表格到粘贴板表格文件,并复制整页表格到粘贴板 按照设计要求编制按照设计要求编制Excel表格文件表格文件(空表空表)复制预先编制的复制预先编制的Excel文件文件作为编辑文件作为编辑文件(zjb.xls)在母表下面复制一张空表,供填入数据在母表下面复制一张空表,供填入数据 如果本页已满,在其下面再复制一张空表如果本页已满,在其下面再复制一张空表
10、声明对象变量及一般变量,读入基础数据声明对象变量及一般变量,读入基础数据从平面设计结果文件从平面设计结果文件Zqzbsj.dat获取计算数据获取计算数据 逐行填入数据(对指定单元格赋值)逐行填入数据(对指定单元格赋值)删除空表,保存并关闭删除空表,保存并关闭Excel表格文件表格文件zjb.xls 关闭数据文件,结束计算关闭数据文件,结束计算非文件尾非文件尾文件尾文件尾编制直曲线表计算程序流程框图打开打开Excel表格文件,并复制整页表格到粘贴板表格文件,并复制整页表格到粘贴板 按照设计要求编制按照设计要求编制Excel表格文件表格文件(空表空表)复制预先编制的复制预先编制的Excel文件文件
11、作为编辑文件作为编辑文件(zjb.xls)Dim xlApp As Excel.ApplicationPrivate Sub Command1_Click()Dim path As String path=Text1.text Open path+sjcszl.dat For Input As#1 Input#1,ldmc Close FileCopy App.path+直线、曲线及转角表直线、曲线及转角表.xls,path+zjb.xls“Open path+zqzbsj.dat For Input As#3 在母表下面复制一张空表,供填入数据在母表下面复制一张空表,供填入数据 如果本页已满
12、,在其下面再复制一张空表如果本页已满,在其下面再复制一张空表 声明对象变量及一般变量,读入基础数据声明对象变量及一般变量,读入基础数据从平面设计结果文件从平面设计结果文件Zqzbsj.dat获取计算数据获取计算数据 逐行填入数据(对指定单元格赋值)逐行填入数据(对指定单元格赋值)删除空表,保存并关闭删除空表,保存并关闭Excel表格文件表格文件zjb.xls 关闭数据文件,结束计算关闭数据文件,结束计算非文件尾非文件尾文件尾文件尾编制直曲线表计算程序流程框图打开打开Excel表格文件,并复制整页表格到粘贴板表格文件,并复制整页表格到粘贴板 按照设计要求编制按照设计要求编制Excel表格文件表格
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 1261 编制 直线 曲线 转角
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【a199****6536】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【a199****6536】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。