VB实践报告.docVIP

VB测量程序设计结业报告 承担任务说明： 测绘应用软件系统十班第二小组共同开发，我承担的任务是设计程序主界面，编写程序常用基本模块，编写常用的函数计算，承担水准及导线测量，承担帮助系统的开发。 功能模块数学模型： 矩阵计算， 采用多维数组和可变数组结合构建矩阵模型。m*n阶矩阵可以用二维数组arr(m,n)表示，也可以用可变数组arr(m)(n)表示。程序中结合两者的优点。使用二维数组可以方便的进行矩阵整体的计算，使用可变数组可以方便的提取矩阵中某一行的所有元素。 角度计算， 采用一维数组模型，数组元素分别代表角度的度，分，秒。针对此种表示方式 编写角度的加减运算函数。 水准测量，导线测量， 将测量数据存进相应的数组，水准测量的观测数据对应一个存储高差的数组和一个存储距离的数组。导线测量数据对应一个存储角度的数组、一个存储距离的数组、一个存储方位角的数组，一个存储坐标的数组。将观测数据录入后，对观测数据进行运算，并将结果输出。 流程图： 程序部分核心代码： 矩阵求逆源码： Public Function MatrixInv(ByVal a) As Variant Dim row%, col%, res row = UBound(a) ‘获得矩阵的行数 col = UBound(a(0)) ‘获得矩阵的列数 If row col Then ‘如果行列数不相等，直接退出 MatrixInv = False Else res = MatrixTran(a) ‘将矩阵从可变数组转化为二维数组 res = getNJ(res) ‘求逆核心函数 MatrixInv = res ‘返回结果 End If End Function Public Function getNJ(ByVal a As Variant) As Variant Dim b#() 表示计算得到的逆矩阵 Dim p%, q% 获得参数a数组各维的长度 Dim m# 获得行列式的值 Dim sig% sig = 1 m = getHLS(a) p = UBound(a, 1) ‘获取行数 q = UBound(a, 2) ‘获取列数 ReDim b(p, q) For i% = 0 To p For j% = 0 To q Dim t As Variant t = getDSY(a, i, j) ‘得到第i行第j列处的代数余子式。求代数余子式函数此处省略。 b(i, j) = getHLS(t) ‘得到代数余子式的行列式值。 b(i, j) = sig * b(i, j) / m sig = -sig Next j Next i getNJ = getZZ(MatrixTranArray(b)) ‘将结果转化为可变数组便于输出 End Function 求行列式核心代码 Public Function getHLS(ByVal a As Variant) As Double Dim p%, q% 获得参数a数组各维的长度 Dim sig%, result# 表示正负号 sig = 1 p = UBound(a, 1) q = UBound(a, 2) If p = 0 And q = 0 Then result = a(0, 0) 如果矩阵只有一个元素，行列式的值就是这个元素的值 Else For i% = 0 To p Dim t As Variant t = getDSY(a, 0, i) result = result + sig * a(0, i) * getHLS(t) 调用递归函数 sig = -sig 正负号变换 Next i End If getHLS = result End Function 读取音乐信息核心源码： Public Function GetMp3Tag(FName As String) As mp3Tag Dim Album As String ‘歌曲专辑名 Dim Artist As String ‘歌手 Dim Title As String ‘歌曲名 Dim Year As String ‘歌曲年代 Dim Comments As String ‘歌曲备注 Dim Gen