测量平差程序设计
- 格式：doc
- 大小：245.00 KB
- 文档页数：6
学 号
天津城市建设学院
测绘程序设计结业考核报告
单一附合水准路线近似平差
学生姓名
班级 测绘二班
成绩
指导教师(签字)
测绘工程系
2012年 12 月 13 日 一、 目的和意义
1.掌握常用控件的属性和方法。
2.熟练使用窗体、控件进行程序设计。
3.熟练应用结构化程序设计语言思想编写程序代码。
4.掌握利用菜单编辑器设计VB菜单并编写相关程序代码。
5.了解较复杂的编程过程。
6.掌握在窗体上添加控件的各种方法。
二、原理和过程
《误差理论与测量平差基础》 、《VB测绘程序设计》
三、程序代码
Option Explicit
Private Sub Command1_Click()
Dim n As Integer
n = txtcz.Text
If n > 1 Then
Form2.Show
Form1.Hide
Else
MsgBox "测站数应该大于1",
vbOKOnly + vbInformation + vbApplicationModal, "提示信息"
End If
Option Explicit
Private Sub Command1_Click()
Dim qg As Double
Dim zg As Double
Dim i As Integer
Dim n As Integer
n = Form1.txtcz.Text
Dim gc() As Double
Dim sum As Double
Dim pcg1() As Double
ReDim gc(0 To n - 1)
ReDim pcg1(0 To n - 1)
Dim a As Double
sum = 0
For i = 0 To n - 1
sum = sum + gc(i)
Next i
qg = Val(txtqg.Text)
zg = Val(txtzg.Text)
a = (sum + qg - zg) / n
pcg1(0) = qg + gc(0) - a
For i = 1 To n - 1
pcg1(i) = gc(i) + pcg1(i - 1) - a
pcg(0).Text = pcg1(0) pcg(i) = pcg1(i)
Next i
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
txtqg.Text = ""
txtzg.Text = ""
Dim i As Integer
Dim n As Integer
n = Form1.txtcz.Text
For i = 0 To n
dm(i).Text = ""
Next i
For i = 0 To n - 1
gc(i).Text = ""
Next i
For i = 0 To n - 1
pcg(i).Text = ""
Next i
End Sub
Private Sub Form_Load()
Dim i As Integer
Dim n As Integer
n = Val(Form1.txtcz.Text)
For i = 1 To n
Load dm(i)
dm(i).Top = dm(0).Top + 360 * i
dm(i).Left = 840
dm(i).Visible = True
dm(i).Enabled = True
dm(i).Text = ""
Next i
For i = 1 To n - 1 Load gc(i)
gc(i).Top = gc(0).Top + 360 * i
gc(i).Left = 2140
gc(i).Visible = True
gc(i).Enabled = True
gc(i).Text = ""
Next i
For i = 1 To n - 1
Load pcg(i)
pcg(i).Top = pcg(0).Top + 360 * i
pcg(i).Left = 3440
pcg(i).Visible = True
pcg(i).Enabled = True
pcg(i).Text = ""
Next i
End Sub
四、小结
收获、体会及存在的问题或建议
