导线平差课程设计Word文件下载.docx

导线平差课程设计Word文件下载.docx

《导线平差课程设计Word文件下载.docx》由会员分享，可在线阅读，更多相关《导线平差课程设计Word文件下载.docx（12页珍藏版）》请在冰豆网上搜索。

实现了在一个界面同时输出报表，图形等。

2.1.VB与EXCEL的无缝结合

VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一旦报表格式发生变化，就得相应修改程序，给应用软件的再利用带来极大的不方便。

由于VB的自动化功能可以读写EXCEL,这就实现了VB与EXCEL的有机结合。

2.2.网形结构的平差

在这部分由于要加入逻辑运算，在对网状结构的判断及其行列式的运行都很困难，还有函数式的自动化还无法实现，所以在此就只好我们先手工给出判断，以列出法方程来进行计算，其实这部分也就是一个计算程序。

3.程序设计（4号黑体）

3.1×

×

（小4号黑体）

要求：

系统（或顶层文件）结构描述，各个模块（或子程序）的功能描述；

1）用原理图实现的，报告需包含以下内容：

（1）系统原理图

（2）主要模块或符号说明；

1）数据录入：

可以用TXT文本编好过后直接进行数据传输，也可一在EXCEL中直接编写进行计算

2）数据处理：

这一模块住要在EXCEL中做出，对所有的公式进行编写一达到我们所要的计算目的。

3）成图：

是在VB图形控件中显示，即与CAD结合

2）用VB语言实现，报告包含以下内容：

（1）源代码；

DimxlappAsExcel.Application

DimxlbookAsExcel.Workbook

DimxlsheetAsExcel.Worksheet

DimaAsInteger

DimbAsInteger

DimdAsInteger

DimeAsInteger

DimfAsInteger

a=Val（Text1.Text）

b=Val（Text5.Text）

c=Val（Text6.Text）

d=Val（Text7.Text）

e=Val（Text8.Text）

f=Val（Text9.Text）

PrivateSubCommand3_Click（）

IfDir（"

d:

\temp\excel.bz"

）="

"

Then

Setxlapp=CreateObject（"

excel.application"

）

xlapp.Visible=True

Setxlbook=xlapp.Workbooks.open（"

\temp\bb.xls"

Setxlsheet=xlbook.Worksheets

（1）

xlsheet.Activate

xlsheet.Cells（2,3）="

abc"

xlbook.RunAutoMacros（xlAutoOpen）

Else

MsgBox（"

excel已经打开!

EndIf

EndSub

PrivateSubCommand2_Click（）

d;

）<

>

"

xlbook.RunAutoMacros（xlAutoClose）

xlbook.Close（True）

xlapp.Quit

Setxlapp=Nothing

PrivateSubCommand4_Click（）

Setxlsheet=xlbook.Worksheets

（2）

xlsheet.Cells（1,1）="

程序代码:

OptionBase1

PrivateSubForm_Click（）

DimmAsInteger,nAsInteger

DimiAsInteger,jAsInteger

ReDimb（3,3）AsInteger

ReDimc（3,3）AsInteger

Fori=1To3

Forj=1To3

b（i,j）=CInt（Rnd*3）+2

Nextj

Nexti

Print"

矩阵b:

Print

PrintTab（4*j）;

b（i,j）;

Nextj

c（i,j）=b（j,i）

b矩阵的转置:

;

‘显示转置后的数组以确认代码的正确性

c（i,j）;

b）矩阵乘法模块

模块代码:

DimmAsInteger

DimnAsInteger

DimiAsInteger

Dima（3,3）AsInteger

Dimb（3,3）AsInteger

Dimc（3,3）AsInteger

Form=1To3

Forn=1To3

a（m,n）=Rnd*20+8

b（m,n）=Rnd*12+7

Nextn

Nextm

矩阵a:

PrintTab（5*n）;

a（m,n）;

b（m,n）;

c（m,n）=0

c（m,n）=c（m,n）+a（m,i）*b（i,n）

矩阵c:

c（m,n）;

c）矩阵求逆模块

程序采用了求矩阵的行列式和矩阵伴随矩阵,最后求商得到矩阵的逆的方法,由于采用了大量的循环语句和递归调用的方式,程序在执行大数据量的时候显得有些慢,例如在解算校内导线的时候,是一个8×

8矩阵,并且数据量较大,因而在解算时花了好几秒的时间。

因此该方法还有待改进。

'

建立一个函数求下一个矩阵

Functionnext_a（ByRefa（）AsInteger,ByValnAsInteger,ByVali

AsInteger）AsInteger

Dimk,jAsInteger

DimcountAsInteger

count=0

Fork=2Ton+1

Forj=1Ton+1

Ifj<

iThen

a（Fix（count/n）+1,（countModn）+1）=a（k,j）

count=count+1

Nextk

EndFunction

建立一个函数求取矩阵的行列式值

Functiondvalue（ByRefa（）AsInteger,ByValnAsInteger）As

Integer

Dimb（）AsInteger

Dimo,pAsInteger

Dimi,k,jAsInteger

DimsignAsInteger:

sign=1

DimsumAsInteger:

sum=0

ReDimb（n,n）AsInteger

Ifn=1Then

sum=a（1,1）

Else:

Fori=1Ton

Forj=1Ton

Fork=1Ton

b（j,k）=a（j,k）

next_ab（）,n-1,i'

调用nexta函数

sum=sum+sign*a（1,i）*dvalue（b（）,n-1）'

递归调用

dvalue函数

sign=（-1）*sign

dvalue=sum

建立一个函数求取矩阵的伴随矩阵

Functionaccom_a（ByRefa（）AsInteger,ByValnAsInteger,ByVali

AsInteger,ByValjAsInteger）AsInteger

Dimt（）AsInteger

Dime,bAsInteger

DimcountAsInteger:

DimsAsInteger:

s=0

ReDimt（n,n）AsInteger

Fore=1Ton

Forb=1Ton

Ife<

iAndb<

jThen

t（Fix（count/（n-1））+1,（countMod（n-1））+1）=a（e,b）

Nextb

Nexte

s=dvalue（t（）,n-1）

If（（i+j）Mod2）<

0Then

s=（-1）*s

s=s

accom_a=s

abc

闭合导线平差

度

分

秒

X坐标

Y坐标

距离

所测角度

方位角

已知方位角

第1点

第2点

第3点

第4点

第5点

第6点

第7点

第8点

第9点

第10点

第11点

第12点

第13点

第14点

x

y

S=

相对精度=

4.课程设计过程中遇到的问题以及解决方法

在vb中实现导线的平差太难了，而且编制过成也太长，我们在接到通知要交的时候还六下3天时间，所以我们主要编制导线网的平差，在导线那一部分我们使用vb与EXCEL连接计算，本来我们还要把acd连接进入直接进行成图，但是还没找到相关资料，不过我们知道以后会在这一方面努力的

首先在页面设计是我要考虑到我们要的起誓数据是什么，一开始我们并没有在意，可是后来我们在编制程序的时候发现了问题。

所以又耽误了我们好长时间重新来过，包括EXCEL的编制，主要使用起内部函数。

第二在实现编程的时候我们对于vb的好多命令有点生疏了，使得进度更加慢了我们知道在学习编程的时候我们不可以停下脚步，我们要不段的饿学习，不断的更新自己的知识

在最后编制过车工中出现了错误，晕人的挖，不知道是哪里错了，可是用的vb是下载的没有msdn不好查找，只好出现一个在网上搜一个，只怪自己技术不到家。

其实我想如果我们在做课程设计的时候有个老师在边上指导我想，那效果会更好的

5.总结

经过一个星期的上机实践学习，使我对vb语言有了更进一步的认识和了解，要想学好它要重在实践，要通过不断的上机操作才能更好地学习它，通过实践，我也发现我的好多不足之处，首先是自己在指法上还不行，经常按错字母，通过学习也有所改进；

再有对vb语言的一些标准库函数不太了解，还有对函数调用的正确使用不够熟悉，还有对vb语言中经常出现的错误也不了解，通过实践，使我在这几个方面的认识有所提高。

通过实践的学习，我认到学好计算机要重视实践操作，不仅仅是学习vb语言，还是其它的语言，以及其它的计算机方面的知识都要重在实践，所以后在学习过程中，我会更加注视实践操作，使自己便好地学好计算机。

6.心得体会

通过该课程设计，对该课程的一些基本概念、词法分析、语法分析、属性文法和语法制导翻译有了深刻的了解并比较掌握了什么是平差，平差工作的基本过程及其各阶段的基本任务，熟悉了编译程序总流程框图，了解了编译程序的生成过程、构造工具及其相关的技术对课本上的知识有了更深的理解，课本上的知识机械的，表面的。

通过把该算法的内容，算法的执行顺序在计算机上实现，把书本知识更好的融入自己的头脑，对实验原理有更深的理解。

通过该课程设计，全面系统的理解了编译原理程序构造的一般原理和基本实现方法。

把学过的计算机平差原理以及相关课程的知识强化，能够把课堂上学的知识通过自己设计的程序表示出来，加深了对理论知识的理解和对自己动手能力的提高。

以前对与计算机平差系统概念上的认识是模糊的，现在通过自己动手做实验，从实践上认识了操作系统是如何处理命令的，如何协调计算机内部各个部件运行记忆是怎么运行的，对计算机平差原理的认识更加深刻。

在这次课程设计中，通过自己动手，加深理解文件系统的内部功能及内部实现，培养实践动手能力和程序开发能力的目的。

把死板的课本知识变得生动有趣，激发了学习的积极性。

参考文献：

互联网