中小河道库容量计算程序及说明.docVIP

自由断面下河道水面积、库容量与水位的关系的计算程序 崇明县农村水利所 赖海珍 程序使用计算机高级语言：Microsoft Visual Basic 6.0 中文专业版。 程序已知条件 自由断面河道实测断面数据——准坐标（起点距~河底高程）。 程序功能 通过计算机高级语言程序，构造适合的计算方法，计算不同水位下（0~4.0或以下）河道水面积、库容量。 程序计算方法 程序开始 程序说明 ——定义变量，读写文件的定义，其它说明 输入水深 ——程序计算范围，要求输入测量数据河底高程的最小及最大值 程序循环 ——给定步长0.1，分别计算hL~hH之间不同水位的库容量 数据处理 ——找出给定水位下与实测河底曲线的两个交点（编制子程序1） 数据积分 ——利用等距节点求积公式计算河道库容量（编制子程序2） 水面积计算 ——两交点差与河道计算长度的乘积 结果输出 循环结束 程序结束 5.程序源代码 Private Sub Command1_Click() Dim hl, hh, sum, sumq, h, f0, f1, length As Single msg1$ = 请输入操作者姓名： handlers$ = InputBox$(msg1$) Text5.Text = handlers$ Kill e:\slgh\sl44.dat Open e:\slgh\sl11.dat For Input As #1 Open e:\slgh\sl22.dat For Output As #2 hl = 10 Input #1, length Do Input #1, x0, y0 If y0 = hl Then hl = y0 End If hh = y0 Loop Until EOF(1) = True Print #2, length Print #2, hl, hh Text1.Text = 最高水深 + Str$(hh) + 米， + 最低水深 + Str$(hl) + 米 Text2.Text = 河道长度为 + Str$(length) + 米 Close #1 Close #2 For jh = hl + 0.05 To hh Step 0.05 Open e:\slgh\sl33.dat For Output As #3 Open e:\slgh\sl99.dat For Append As #9 Print #9, jh Close #9 Print #3, length Print #3, hl, hh Close #3 Call sortion(jh) Open e:\slgh\sl33.dat For Input As #3 n = 1 Input #3, length, hl1, hh1 Input #3, lev, plu begx = lev Do Input #3, lev, plu endx = lev n = n + 1 Loop Until EOF(3) = True Close #3 Open e:\slgh\sl33.dat For Input As #4 Open e:\slgh\sl44.dat For Append As #5 sum = 0# Input #4, length wdth = endx - begx area = wdth * length Print #5, Print #5, 计算条件：水深 h = , jh Print #5, 初始值：X-Begin = , begx, 终了值 X-End = , endx Print #5, 河道长度 Length = , length Print #5, 河道水面积 Area = , area Text3.Text = 河道水面积为 + Str$(area) + 平方米 Var = n Mod 2 Select Case Var Case 1 Input #4, hl, hh Input #4, xa, ya x0 = xa y0 = ya Do Input #4, xb, yb X1 = xb Y1 = yb Input #4, Xc, yc X2 = Xc Y2 = yc h =