VB編程在管線排水量計算中的應(yīng)用

李兆崔 張為華 席曉 宋章亮

摘 要：大口徑單管供運行過程中，管線一旦被機械損傷漏水，甚至爆管，需要快速動作維修。在關(guān)閥后的維修一般需要抽水這一重要的工序，而這道工序的時間長短決定著搶修成敗的關(guān)鍵。故需要準(zhǔn)確計算排水量的多少，以確定泵的類型，求得排水用時。本文采用計算機自動計算的辦法，算出排水量的多少，為決策排水模式選用，也為預(yù)先設(shè)計排水工程具有重要的參考價值。

關(guān)鍵詞：排水量；VB編程；爆管

中圖分類號：TU832 文獻標(biāo)識碼：A 文章編號：1671-2064（2019）05-0032-04

1 概述

一般對管道進行維修、維護要對管道內(nèi)部水進行排空。在管線設(shè)計中，對此也做了充分的考慮。理論上，對管線內(nèi)部水都能通過預(yù)設(shè)排水閥進行排空。對于管線排水，通常排水需要關(guān)閥最上游的閥門和最下游的閥門。關(guān)閉上游是為了水庫的水不能補入。關(guān)下游閥門是為了不干撓影響下游的用水網(wǎng)絡(luò)。

為了排空所處位置的管內(nèi)水，譬如該處管爆，或該點故障。首先從故障點所在的管線段逆管線流向追蹤，得到上游第一個排水閥門后即停止，然后以得到的閥門為出發(fā)點向管線下游追蹤，得到另一個排水閥門。分別用故障點，對比兩個閥門，選擇合適的一個，然后再分別向外找到最近的兩個閘閥并關(guān)閉。最后是從選定的排水閥進行自流排水或抽排。

而在實際的運行中，需要工程師參考圖紙，憑借經(jīng)驗，統(tǒng)籌考慮，選定方案。而通過該軟件可把整個管線圖放在一張圖中，并通過任意點擊放水點可自動算出排水方量，同時也依次得出相臨兩個閥間的排水量。并畫出放水后管內(nèi)水位線，可直接觀察到管道放水最后的效果。便于直接投放顯示，以供實踐中決策排水的方案。

2 計算排水量VB編程參數(shù)

與排水有關(guān)的管線參數(shù)，一是主管道直徑，排水管直徑。管道的樁號與高程?？紤]閘閥對放水段的區(qū)隔要明確閘閥的樁號。因為排水要開啟排水閥，要明確排水閥的樁號和高程，排水閥不特殊說明，均安裝在管道的最下部?？紤]自流排水要明確排水井的井口高度，如果設(shè)有排水管要明確排水管的管底高程。關(guān)于這個參數(shù)可實地測量以求準(zhǔn)確。同時要參考地面參數(shù)，便是地面的里程與地面高程。以上數(shù)據(jù)在管道設(shè)計資料中均有體現(xiàn)。無論自流排水還是泵抽排水在實踐中要考慮與就近的排水系統(tǒng)相聯(lián)接。要避免發(fā)生對周圍莊稼作物等造成澇災(zāi)。對重要部位，對設(shè)計排水要進行專項設(shè)計和論證。要嚴(yán)格按照排水的結(jié)論成果操作排水。

對于該參數(shù)數(shù)據(jù)由于因管線不同而不同，采用常用辦公表格EXCEL作為軟件輸入的數(shù)據(jù)來源。按照要求的格式輸入，存放在要求的目錄之下。由程序直接讀取。

3 VB程序設(shè)計

程序設(shè)計思路。讀收表格中的管道參數(shù)。進行繪制管線、地面線、水面線。算出水平線以下的管道面積。折算成水量長度。

利用VB開發(fā)的計算程序如下：

第一步，運行VB6.0[1]。

第二步，畫控件。如圖1所示，畫TEXTBOK控件四個，對應(yīng)的橫比、縱比、樁號與橫比的積、高程與縱比的積。（縱橫比默認值是1，兩個積值自動生成，用于觀測和引用）。根據(jù)管線的不同可選用不同的比例。畫LABEL標(biāo)簽控件四個，作為TEXTBOK的說明。畫COMMANDBUTTON控件四個，一是顯示管道圖示，二是清屏。用于對顯示圖的清空。三是對計算成果輸出到文件DOC中。四是對圖示輸出到CAD。由于管道一般都無法在一張圖中顯示，左上角加設(shè)了一個的水平滾動條和一個豎直滾動條可用于對成圖的漫游觀察。

第三步，分別以雙擊COMMANDBUTTON便進入編程界面，主體程序如圖1：

第三步，分別以雙擊COMMANDBUTTON便進入編程界面，主體程序如下：

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Dim a（500） As Double

Dim b（500） As Double

Dim a1（500） As Double

Dim b1（500） As Double

Dim a2（500） As Double

Dim b2（500） As Double

Dim c（2000） As Double

Dim d（2000） As Double

Dim e（550） As Double

Dim f（550） As Double

Dim g（550） As Double

Dim h（550） As Double

Dim u（500） As Double

Dim v（500） As Double

Dim u1（150） As Double

Dim v1（150） As Double

Dim u2（150） As Double

Dim v2（150） As Double

Private Sub Command2_Click（）

Picture1.Cls

End Sub

Private Sub Command6_Click（）

If Text1 = flase Then Text1 = 1

If Text2 = flase Then Text2 = 1

Set xlApp = CreateObject（"Excel.Application"） '創(chuàng)建EXCEL對象

Set xlBook = xlApp.Workbooks.Open（"c：＼water.xls"） '打開已經(jīng)存在的EXCEL工件簿文件

xlApp.Visible = True '設(shè)置EXCEL對象可見（或不可見）

Set xlSheet = xlBook.Worksheets（"sheet1"） '設(shè)置活動工作表

w = xlSheet.Cells（1， 8） + xlSheet.Cells（1， 11）

For i = 2 To xlSheet.Cells（1， 8） + 1

a（i - 1） = xlSheet.Cells（i， 1） '.................... ..................

b（i - 1） = xlSheet.Cells（i， 2）

Next

For i = 2 To xlSheet.Cells（1， 9） + 1

c（i - 1） = xlSheet.Cells（i， 3） '..................... .................

d（i - 1） = xlSheet.Cells（i， 4）

Next

For i = 1 To xlSheet.Cells（1， 8） - 1

Picture1.Line （a（i） * Text1， 20000 - （b（i） - xlSheet.Cells（2， 7） / 2） * Text2 * 100）-（a（i + 1） * Text1， 20000 - （b（i + 1） - xlSheet.Cells（2， 7） / 2） * Text2 * 100）

Picture1.Line （a（i） * Text1， 20000 - b（i） * Text2 * 100）-（a（i + 1） * Text1， 20000 - b（i + 1） * Text2 * 100）

Picture1.Line （a（i） * Text1， 20000 - （b（i） + xlSheet.Cells（2， 7） / 2） * Text2 * 100）-（a（i + 1） * Text1， 20000 - （b（i + 1） + xlSheet.Cells（2， 7） / 2） * Text2 * 100）

Next i

For i = 2 To xlSheet.Cells（1， 11） + 1

u1（i - 1） = xlSheet.Cells（i， 5） '................... ...................

Next

For j = 0 To xlSheet.Cells（1， 11）

For k = xlSheet.Cells（1， 8） To 2 Step -1

If u1（j） <= a（k） Then v1（j） = b（k） - （a（k） - u1（j）） * （b（k） - b（k - 1）） / （a（k） - a（k - 1））

Next

Next j

For l = 1 To xlSheet.Cells（1， 11）

Picture1.Circle （（u1（l） * Text1）， （20000 - v1（l） * Text2 * 100））， 50 * Text2

Next l

For i = 1 To xlSheet.Cells（1， 8）

a1（i） = a（i）

b1（i） = b（i）

Next i

For j = 1 To xlSheet.Cells（1， 11）

a1（j + xlSheet.Cells（1， 8）） = u1（j）

b1（j + xlSheet.Cells（1， 8）） = v1（j）

Next j

For i = w To 2 Step -1 '排序

For j = 1 To i - 1

If （a1（j） > a1（j + 1）） Then

t = a1（j）： s = b1（j）

a1（j） = a1（j + 1）： b1（j） = b1（j + 1）

a1（j + 1） = t： b1（j + 1） = s

End If

Next j

Next i

For i = 2 To xlSheet.Cells（1， 12） + 1

g（i - 1） = xlSheet.Cells（i， 6） '.................. ....................

Next

For j = 1 To xlSheet.Cells（1， 12）

For k = xlSheet.Cells（1， 8） To 2 Step -1

If g（j） < a（k） Then h（j） = b（k） - （a（k） - g（j）） * （b（k） - b（k - 1）） / （a（k） - a（k - 1））

Next

Next j

For l = 1 To xlSheet.Cells（1， 12）

Picture1.Circle （（g（l） * Text1）， （20000 - （h（l） - （xlSheet.Cells（2， 7） / 2 + xlSheet.Cells（2， 10） / 2）） * Text2 * 100））， （xlSheet.Cells（2， 10）） * 50 * Text2

Next l

For i = 1 To xlSheet.Cells（1， 9） - 1

Picture1.Line （c（i） * Text1， 20000 - d（i） * Text2 * 100）-（c（i + 1） * Text1， 20000 - d（i + 1） * Text2 * 100）

Next i

End Sub

Private Sub Form_Load（）

Picture1.Move 0， 0

HScroll1.ZOrder 0

VScroll1.ZOrder 0

End Sub

Private Sub HScroll1_Change（）

Picture1.Left = -（HScroll1.Value / HScroll1.Max） * Picture1.Width

End Sub

Private Sub HScroll1_Scroll（）

Picture1.Left = -（HScroll1.Value / HScroll1.Max） * Picture1.Width

End Sub

Private Sub Picture1_MouseDown（Button As Integer， Shift As Integer， X As Single， Y As Single）

e（0） = Text3 / Text1

f（0） = Text4 / Text2

u（0） = Text3 / Text1

v（0） = Text4 / Text2

Call zz

End Sub

Private Sub VScroll1_Change（）

Picture1.Top = -（VScroll1.Value / VScroll1.Max） * Picture1.Height

End Sub

Private Sub VScroll1_Scroll（）

Picture1.Top = -（VScroll1.Value / VScroll1.Max） * Picture1.Height

End Sub

Private Sub Picture1_MouseMove（Button As Integer， Shift As Integer， X As Single， Y As Single）

Cls

Text3 = X

Text4 = （20000 - Y） / 100

End Sub

Sub zz（）

w = xlSheet.Cells（1， 8） + xlSheet.Cells（1， 11）

j = 1

For i = w To 1 Step -1 '賦值到數(shù)組

If a1（i） <= e（0） Then e（j） = a1（i）： f（j） = b1（i）： j = j + 1 '把A（i）小于指定點的數(shù)組內(nèi)容賦到E（J）

Next i

k = 1

For i = 1 To w '賦值到數(shù)組

If a1（i） > u（0） Then u（k） = a1（i）： v（k） = b1（i）： k = k + 1 '把A（i）大于指定點的數(shù)組內(nèi)容賦到U（K），如果

Next i

Picture1.ForeColor = RGB（255， 0， 0） '紅色

X = 0

For i = 0 To j - 2 '操作E數(shù)組

If f（i + 1） < f（i） Then f（i + 1） = f（i）

If f（i + 1） >= f（i） And f（i + 2） >= f（i + 1） Then f（i + 1） = f（i）

If f（i + 1） >= f（i） And f（i + 2） >= f（i + 1） And f（i + 3） >= f（i + 2） Then f（i + 1） = f（i）

Picture1.Line （e（i + 1） * Text1， 20000 - （f（i + 1） - xlSheet.Cells（2， 7） / 2） * Text2 * 100）-（e（i） * Text1， 20000 - （f（i） - xlSheet.Cells（2， 7） / 2） * Text2 * 100）

Next i

For i = 0 To k - 2 '操作U數(shù)組

If v（i + 1） < v（i） Then v（i + 1） = v（i）

If v（i + 1） >= v（i） And v（i + 2） >= v（i + 1） Then v（i + 1） = v（i）

If v（i + 1） >= v（i） And v（i + 2） >= v（i + 1） And v（i + 3） >= v（i + 2） Then v（i + 1） = v（i）

Picture1.Line （u（i + 1） * Text1， 20000 - （v（i + 1） - xlSheet.Cells（2， 7） / 2） * Text2 * 100）-（u（i） * Text1， 20000 - （v（i） - xlSheet.Cells（2， 7） / 2） * Text2 * 100）

Next i

For i = j + k - 1 To j + 1 Step -1

k1 = a1（i - 1）

q1 = b1（i - 1）

a1（i） = k1

b1（i） = q1

Next i

a1（j） = e（0）

If a1（j + 1） = a1（j - 1） Then b1（j） = b1（j - 1）

If a1（j + 1） <> a1（j - 1） Then b1（j） = b1（j - 1） + （a1（j） - a1（j - 1）） * （b1（j + 1） - b1（j - 1）） / （a1（j + 1） - a1（j - 1））

i = 1

a2（j） = e（0）

b2（j） = f（0）

For m = j - 1 To 1 Step -1

a2（i） = e（m）

b2（i） = f（m）

i = i + 1

Next m

i = i + 1

For n = 1 To k

a2（i） = u（n）

b2（i） = v（n）

i = i + 1

Next n

For i = 1 To j + k - 1

Picture1.Print a1（i）； b1（i）； a2（i）； b2（i）

Next i

Y1 = 0

Y2 = 0

For i = 2 To j + k - 1

If b1（i - 1） >= b2（i - 1） And b1（i） >= b2（i） Then Y1 = Int（（b1（i - 1） - b2（i - 1） + （b1（i） - b2（i））） * （a2（i） - a2（i - 1）） / 2） + Y1

If b1（i - 1） < b2（i - 1） And b1（i） < b2（i） Then Y1 = Y1

If b1（i - 1） > b2（i - 1） And b1（i） < b2（i） Then Y1 = Int（（a2（i） - a2（i - 1）） * （b1（i - 1） - b2（i - 1）） / （b1（i - 1） - b2（i - 1） + b2（i） - b1（i））） + Y1

If b1（i - 1） < b2（i - 1） And b1（i） > b2（i） Then Y1 = Int（（a2（i） - a2（i - 1）） * （b1（i） - b2（i）） / （b2（i - 1） - b1（i - 1） - b2（i） + b1（i））） + Y1

For i1 = 1 To xlSheet.Cells（1， 11）

If a1（i） = u1（i1） Then u2（X1） = Y1： X1 = X1 + 1

Next i1

Next i

Picture1.Print ""

For i = 2 To j + k - 1

If b1（i - 1） + xlSheet.Cells（2， 7） / 2 * 2 >= b2（i - 1） And b1（i） + 2 * xlSheet.Cells（2， 7） / 2 >= b2（i） Then Y2 = Int（（b1（i - 1） + 2 * xlSheet.Cells（2， 7） / 2 - b2（i - 1） + b1（i） + 2 * xlSheet.Cells（2， 7） / 2 - b2（i）） * （a2（i） - a2（i - 1）） / 2） + Y2 If b1（i - 1） + xlSheet.Cells（2， 7） / 2 * 2 < b2（i - 1） And b1（i） + 2 * xlSheet.Cells（2， 7） / 2 < b2（i） Then Y2 = Y2

If b1（i - 1） + xlSheet.Cells（2， 7） / 2 * 2 > b2（i - 1） And b1（i） + 2 * xlSheet.Cells（2， 7） / 2 < b2（i） Then Y2 = Int（（a2（i） - a2（i - 1）） * （b1（i - 1） + 2 * xlSheet.Cells（2， 7） / 2 - b2（i - 1）） / （b1（i - 1） - b2（i - 1） + b2（i） - b1（i））） + Y2

If b1（i - 1） + xlSheet.Cells（2， 7） / 2 * 2 < b2（i - 1） And b1（i） + 2 * xlSheet.Cells（2， 7） / 2 > b2（i） Then Y2 = Int（（a2（i） - a2（i - 1）） * （b1（i） + 2 * xlSheet.Cells（2， 7） / 2 - b2（i）） / （b1（i） - b2（i） + b2（i - 1） - b1（i - 1））） + Y2

For i1 = 1 To xlSheet.Cells（1， 11）

If a1（i） = u1（i1） Then v2（X2） = Y2： X2 = X2 + 1

Next i1

Next i

For i = 1 To xlSheet.Cells（1， 11）

Picture1.Print （v2（i） - u2（i）） - （v2（i - 1） - u2（i - 1））

Next i

Picture1.Print Y2 - Y1

End Sub

程序編制完成后可進行編譯生成可執(zhí)行文件保存。該可執(zhí)行文可以運行演示，程序中TEXT1-TEXT2可以輸入相應(yīng)比例。點擊COMMANDBUTTON后便可進行相應(yīng)的程序計算。

本程序調(diào)試通過，程序運行結(jié)果見圖2、3。

4 結(jié)語

排水計算軟件經(jīng)過我公司一年多的試用完善，已基本滿足工作需要。該程序有如下優(yōu)點：

（1）工作效率極大提高。很方便快捷得到所需要的排水?dāng)?shù)據(jù)。

（2）提高了準(zhǔn)確性。較手工計算，準(zhǔn)確性提高，避免了不必要的誤差。

（3）程序的通用性強。只需要修改表格便可以得到對應(yīng)的相應(yīng)計算結(jié)果。

參考文獻

[1] 張晉西.Visual Basic與AutoCAD二次開發(fā)[M].北京：清華大學(xué)出版社，2000.

[2] 龔沛曾，陸慰民，楊志強.Visual Basic程序設(shè)計簡明教程[M].北京：高等教育出版社，2003.

[3] 程建華.小區(qū)排水總圖計算機輔助設(shè)計計算的方法及程序[J]給水排水，1997，23（5）：39-44.

[4] 李兆崔，劉福臣.VB編程在鋼管彎頭制作中的應(yīng)用[J]華東公路，2013，203（6）：90-93.