1、1 緒論1.1 自動噴水滅火系統簡介1.1.1 自動噴水滅火系統的組成自動噴水滅火系統是指由灑水噴頭、報警閥組、水流報警裝置（水流指示器及壓力開關）等組件，以及管道、供水設施組成，并能在發生火災時噴水的自動滅火系統。自動噴水滅火系統是人們同火災斗爭中出現和發展起來的一種固定式自動滅火系統，是當今世界上公認的最為有效的自救滅火措施，是應用最為廣泛、用量最大的自動滅火系統。它具有自動滅火和自動報警的功能。它用水作滅火劑，平時處于準工作狀態，一旦保護區域內發生火災，火災發生區域的自動噴水滅火系統會發生動作，噴灑水霧或水滴，起到延緩火勢和撲滅火災的作用。自動噴水系統的類型較多，從1806年約翰*凱利發

2、明了利用可燃繩控制閥門啟動鉆孔管道噴水滅火開始發展到現在，它的基本類型包括：濕式、干式、干濕式、雨淋及預作用、噴霧和水幕系統。1.1.2 自動噴水滅火系統的發展和應用在自動噴水一百多年的發展應用史中，一些發達國從研究到應用，從局部到推廣，積累了許多成功的經驗和失敗的教訓，從中制定了本國的自動噴水滅火系統設計安裝規范或標準。現在，自動噴水滅火系統不僅僅應用在高層建筑、公共建筑、工業廠房和倉庫，而且已經推廣到住宅建筑。在建筑行業中推廣自動噴水滅火系統的設計和安裝，取得了巨大的成就，在美國1925-1964年間在安裝了噴淋滅火系統的建筑物中共發生火災75290次，滅控火成功率高達96.2%，其中工業

3、廠房和倉庫占有比例達87.46%。推廣應用自動噴水滅火系統，不僅可從減少火災損失中受益，而且可減少消防總開支。例如，在美國加利福尼亞州的費雷諾斯城，在市區制定的建筑條例中，要求在非居住區安裝自動噴水滅火系統，結果使這個城市的1955年到1975年的20年間，非居住區火災損失從占該城市火災總損失的61.6%降低到43.5%。20世紀30年代我國開始應用自動噴水滅火系統，至今已有70年的歷史。取得了輝煌的成果。50年代，蘇聯援建的一些廠房裝設了自動噴水滅火系統，1956年，我國可自行設計安裝自動噴水滅火系統。1958年建的廈門紡織廠，至80年代曾四次成功撲滅火災，時至今日，該系統以成為國際上公認的

4、最為有效的自動撲救室內火災的消防設施，在我國的應用范圍和使用量也在不斷擴展與增長。1.1.3 自動噴水滅火系統管網計算現狀自動噴水滅火系統管網水力計算是在流體力學和給排水工程基礎上發展起來的，經過不斷改進，現在已具備一套完整的計算方法，主要包括：沿程法和面積法。已經能夠準確計算出管網內各管段的流量、水頭損失等，為最終消防給水設施的選擇提供科學的依據。但是計算方法中存在計算過程復雜、繁瑣和計算費力、耗時、易錯等不足。隨著近年來計算機技術突飛猛進的發展，國內也有幾家單位開始對此方面進行研究，試圖用計算機替代人手工計算，來解決手工計算中的不足以便將設計人員從繁瑣的工作中解放出來。但編制的軟件存在著許

5、多不足，在一定程度上影響在工程中的使用。結合上述現狀，迫切需要一種適用面廣、操作簡單、符合工程實際的管網水力計算軟件，去減輕工程計算負擔和規范自動噴水滅火系統的設計計算。 2 閉式自動噴水滅火系統管網水力設計計算過程及原理2.1 設置原則閉式自動噴水滅火系統用于性質重要且火災危險性大的場所。 高層民用建筑 建筑高度不超過100m的一類高層民用建筑及其裙房的下列部位（除普通住宅和高層建筑中不宜用水撲救的部位外） 舞臺、觀眾廳、展覽廳、多功能廳、門廳等公共活動用房； 走道、辦公室和旅館的客房； 可燃物品庫房； 高級住宅的居住用房； 自動扶梯底部和垃圾道頂部。 二類高層民用建筑中的商業營業廳、展覽廳

6、等公共活動用房和建筑面積超過200m2的可燃品庫房。 高層民用建筑中經常有人停留或可燃物較多的地下室房間。 建筑高度超過100m的高層民用建筑內。 工業廠房與低層民用建筑 等于或大于50000紗錠的棉紡廠的開包、清花車間；等于或大于5000錠的麻紗廠的分級、梳麻車間；服裝、針織高層廠房；面積超過1500m2的木器廠房；火柴廠的烤梗、篩選部位；泡沫塑料廠的預發、成型、切片、壓花部位。 每座占地面積超過1000m2的棉、毛、絲、麻等及其制品庫房；每座面積超過600m2的香煙、火柴庫房；建筑面積超過500m2可燃品地下庫房；可燃、難燃物品高架庫房和高層庫房（冷庫、高層卷煙成品庫房除外）；省級以上或藏

7、書量超過100萬冊的圖書館書庫。 超過1500個座位的劇院觀眾廳、舞臺上部（屋頂為金屬結構時）；超過2000個座位的會堂或禮堂的觀眾廳；超過3000個座位的體育館的觀眾廳吊頂上部、貴賓室、器材間、運動員休息室。 省級郵政樓的郵袋庫。 每層面積超過3000m2或建筑面積超過9000m2的百貨商場、展覽大廳。 設有空氣調節系統的旅館、綜合辦公樓內的走道、辦公室、餐廳、商店、庫房和無樓層服務臺的客房。 飛機發動機實驗臺的準備部位。 國家級文物保護單位的重點磚木或木結構建筑。 汽車停車庫地下停車庫、多層停車庫和低層停車庫應設自動噴水滅火系統。 人防工程 使用面積超過1000m2的商場、醫院、旅館等公共

8、場所 超過800個座位的電影院、禮堂的觀眾廳，且吊頂下表面至觀眾席地面高度不超過8m時；舞臺面積超過200m2時。2.2 確定建筑物的危險等級根據建筑物、構筑物的火災載荷（由可燃物的性質、數量和分布狀況決定）、室內空間條件（面積、高度）、人員密集程度、采用自動噴水滅火系統撲救初期火災的難易程度，以及疏散及外部增援條件等因素劃分設置場所火災危險等級。建筑物內存在物品的性質、數量，以及其結構的疏密、包裝和分布情況，將決定火災載荷及發生火災時的燃燒速度與放熱量，是劃分自動噴水滅火系統設置場所火災危險等級的重要依據。共計：輕危險級、中危險級（其中又分為級和級）、嚴重危險級（其中又分為級和級）、及倉庫危

9、險級（其中又分為級、級和級）。 嚴重危險級： 火災危險性大、可燃物多、發熱量大、燃燒猛烈和蔓延迅速的建、構筑物； 中危險等級： 火災危險性較大、可燃物較多、發熱量中等、火災初期不會引起迅速蔓延的建、構筑物； 輕危險等級：火災危險性小、可燃物量少、發熱量較小的建、構筑物；在設計閉式自動噴水滅火系統時應本著遵循“實事求是”和“有的放矢”的原則，按各自的實際情況選擇相應設計技術數據。閉式自動噴水滅火系統管網中的管道種類如圖2-1所示，每種管道在系統中的作用是不同的，在計算時，也應作不同處理。2.2.1 設計作用面積的大小設計作用面積是指一次火災中按噴水強度保護的最大面積。設計時作用面積的選取應按建筑

10、物的火災危險等級來選取，各危險等級的數據如表2.1所示：表2.1危險等級輕危險級中危險級嚴重危險級級級級級作用面積1601602602.2.2 設計作用面積的形狀在火災發生時，火勢由火源點呈輻射狀向四周蔓延，只有處于著火區域上方的噴頭才能有效地阻止火勢蔓延，撲滅火災。因此在設計面積形狀選擇上，我們通常采用正方形布置、長方形以及菱形等幾種情況。 正方形布置：支管的間距和噴頭的間距均相等。l = 式中：l正方形布置時設計作用面積的邊長，ma設計作用面積，m2圖2-1 管道種類圖圖中：1 供水管，連接供水水源和報警閥的管段；2 總閘閥；3 報警閥；4 配水立管，連接報警閥并向配水干管供水的管段；5

11、配水干管，報警閥后向配水管供水的管段；6 配水管，向配水支管供水的管段7 配水支管，直接或通過短立管向噴頭供水的管段；8 噴頭。 長方形布置：支管的間距和噴頭的間距不相等。 l = 1.2式中：l正方形布置時設計作用面積的邊長，ma設計作用面積，m22.2.3 設計作用面積在管網中的位置由于水力管網末端最不利點處的噴水強度、作用壓力較其他點差，因此在管網計算中，通常由管網系統的最不利點處噴頭開始選取設計作用面積。2.3 設計作用面積大小的確定2.3.1 每個噴頭的噴水量計算q = k 式中：q每個噴頭的噴水量 ，l/min p噴頭處的工作壓力 ，mpa k流量特性系數（見表2.2）表2.2 流

12、量特性系數噴頭公稱直徑（mm）k10571580201152.3.2 每個噴頭的保護面積的計算a14q0/4qu式中：a1每個噴頭的保護面積，m2 q0最不利點噴頭噴水量，l/min qu設計噴水強度，l/(minm2)2.3.3 根據噴頭布置方式確定噴頭布置間距 正方形布置：s=式中：s噴頭呈正方形布置時的邊長，m 長方形布置： s1.2式中：s噴頭呈長方形布置時長邊的邊長，m根據以上數據可得出表2.3同一根配水支管上噴頭的間距及相鄰配水支管的間距：噴水強度（l/minm2）正方形布置的邊長（m）矩形或平行四邊形布置的邊長（m）一只噴頭的最大保護面積（m2）噴頭與端墻的最大距離（m）44.4

13、4.520.02.163.64.012.51.883.43.611.51.712-203.03.69.01.5注：1 僅在走道設置單排噴頭的閉式系統，其噴頭間距應按走道地面不留空白點確定； 2 貨架內噴頭的間距不應小于2.0m，并不應大于3.0m。2.4 管段水力計算2.4.1管徑的估算由于工程實際中所采用的管材質量以及施工單位存在差異，在工程設計中通常要求管道內的水流速度不超過5m/s、配水管的入口壓力不應大于0.40mpa。根據這個標準再結合工程實踐，通常在設計中為簡化計算，在對系統進行計算前，根據經驗按照不同管徑配水管上最多允許安裝的噴頭數（見表2.4），以及不同危險等級對噴頭數量的要求

14、，對管徑進行估算：表2.4 輕危險級、中危險級場所中配水支管、配水管控制的標準噴頭數：公稱直徑（mm）控制的噴頭數（只）輕危險級中危險級25113233405450108651812804832100-642.4.2 對管道水流速度的校核 vpkpq(n-1)n式中： vp管道流速，m/s q(n-1)n管段流量，l/s kp流速系數注：管道內的水流速度，必要時可超過5m/s，但不應大于10m/s。表2.5 流速系數表管材管徑（mm）253240507080100150200流速系數鋼管1.8831.050.80.470.2830.2040.1150.053鑄鐵管0.12730.05660.0

15、3182.4.3 管道水頭損失計算管道的水頭損失主要包括三個部分：沿程水頭損失、局部水頭損失和報警閥水頭損失。 沿程水頭損失 i=0.0000107v2/(dj)1.3 式中： i每米管道的水頭損失，mpa/m v管道內水的平均流速，m/s dj管道的計算內徑（m），取值應按管道的內徑減1mm確定。 局部水頭損失 hj=aldq2(n-1)n式中：hj局部水頭損失，pa a管道比阻值（見表2.7） ld管件閥門當量長度(見表2.6)，m q(n-1)n管段流量，l/s 管道的直徑應經水力計算確定。輕危險級、中危險級場所中各配水管入口處的壓力均不應大于0.40mpa。2.4.4 系統入口處所需壓

16、力或水泵揚程 h=h+p0+z式中：h水泵揚程或系統入口處所需壓力，mpa h管道沿程和局部的水頭損失的累計值（mpa），濕式報警閥、水流指示器取值0.02mpa，雨淋閥取值0.07mpa； p0最不利點處噴頭的工作壓力，mpa； z最不利點處噴頭與消防水池的最低水位或系統入口管水平中線之間的高程差，當系統入口管或消防水池最低水位高于最不利點處噴頭時，z應取負值，mpa。表2.6 當量長度表管件名稱管件直徑（mm）253240507080100125150450彎頭0.30.30.60.60.90.91.21.52.1900彎頭0.60.91.21.51.82.13.13.74.3三通或四通1

17、.51.82.43.13.74.66.17.69.2蝶閥1.82.13.13.72.73.1閘閥0.30.30.30.60.60.9止回閥1.52.12.73.44.96.78.39.8異徑接頭32/2540/3250/4070/5080/70100/80125/100150/125500/1500.20.30.30.50.60.81.11.31.6注：1 過濾器的當量長度，由生產廠提供；2 當異徑接頭的出口直徑不變而入口直徑提高一級時，其當量長度應增大0.5倍，提高2級或2級以上時，其當量長度應增1.0倍。表2.7 管道比阻值：鋼管鑄鐵管管徑（mm）a（q以l/s計算）管徑（mm）a（q以l

18、/s計算）254367.07517.0932938.61003.65340445.31500.418550110.82000.090297028.932500.027528011.683000.010251002.6741250.86231500.33952.5 閉式自動噴水滅火系統計算在上面的內容中，基本上包括了系統設計計算各個方面的數據，在設計各種危險等級的建、構筑物的閉式自動噴水滅火系統時，其設計噴水強度，設計作用面積和噴頭工作壓力應符合表2.8所示：表2.8 系統設計基本參數：火災危險等級噴水強度（l/minm2）作用面積（m2）噴頭工作壓力（mpa）輕危險級41600.10中危險級級

19、6級8嚴重危險級級12260級16注：系統最不利點處噴頭的工作壓力，不應低于0.05mpa。2.5.1計算方法分類 面積計算法、沿程計算法2.5.2兩種計算法的應用領域及特征簡介 面積計算法：該計算方法計算較為簡便，主要應用于中輕危險等級的自動噴水滅火系統的計算中，計算中只有在設計作用面積內的噴頭，才計算噴水量，且假定每個動作的噴頭的流量都相同。系統設計秒流量按下式計算： qs=（1.151.30）qj qj=qua/60式中： qs系統設計秒流量，l/s1.151.30安全系數qj系統計算秒流量，l/squ設計噴水強度，l/minm2a設計作用面積，m2由于面積計算法的計算雖然簡單，但結果不

20、太精確，只在設計作用面積內發生火災時，系統能保證供給設計噴水強度的水量，撲滅火災。因此，面積計算法已不再使用。 沿程計算法從系統設計最不利點處的噴頭開始計算，到表2.8規定的設計作用面積所包括的最后一個噴頭為止，采用特性系數法，依次沿途計算各噴頭處的壓力、流量和管段累計流量、沿程、局部水頭損失值。設計計算時，假設每個支管最末端的噴頭為系統的最不利點，再用修正系數進行修正。其系統設計秒流量按下式計算：qs =式中：qs系統設計秒流量，l/s qi最不利點處作用面積內各噴頭節點的流量,l/s 應按噴頭的實際工作壓力計算 n 設計作用面積內所有動作噴頭數注： 系統設計流量的計算，應保證任意作用面積內

21、的平均噴水強度不低于表2.8 的規定值。最不利點處作用面積內任意4只噴頭圍和范圍內的平均噴水強度，輕危險等級、中危險等級不應低于表2.8 規定值的85%；嚴重危險等級和倉庫危險等級不應低于表2.8 的規定值。計算方法較為復雜，但計算結果精確，能為最終消防給水設施的選擇提供科學的依據，因此，沿途計算法被廣泛應用。特別是在計算嚴重危險等級或被保護對象較貴重時的自動噴水滅火系統時，只能采取沿程計算法。 另外，當原有系統延伸管道、擴展保護范圍時，應對增設噴頭后的系統重新進行水力計算。2.6 計算原理介紹 面積計算法： 因面積計算法已不再使用，在此不再介紹。 沿程計算法：圖2-1 計算原理圖 用噴頭流量

22、系數（k）法求支管上各噴頭的流量，噴頭的k值由表2.2確定后，便可由噴頭處壓力確定其流量。現在以圖2-1為例說明計算過程。 支管盡端的噴頭1為整個系統的最不利點，在規定的最小工作壓力h1的作用下，噴頭1的流量為： q1=k 噴頭2的流量為： q2=k10（h1+h12）1/2=k 噴頭3、4的流量，同理為： q3=k10（h2+h23）1/2=k；q4=k10（h3+h34）1/2=k式中h12、h23、h34為各自管段的水頭損失。 節點5處的流量和水壓為： q5=q45=q4 + q3 + q2 + q1 h5=h4+h45式中h4-5為水流通過4-5管段的水頭損失。 同樣，若以支管上的噴頭

23、a為系統最不利點，ha為規定的噴頭最小工作壓力，可以對支管進行計算，得到假設值h6和qd-6。 用管系特性系數（kg）法求各支管的流量，管系特性系數可根據總輸出的節點流量和該節點的壓力按下式計算： kg=q（n-1）n/ 式中:kg管系流量系數，反應管系的輸水性能； q（n-1）n管系總輸出節點處的流量，l/s hn管系總輸出節點處的壓力，mpa仍以圖2-1為例，說明管系特性系數法的應用。 支管的管系特性系數：由圖可只，節點5處的流量即為支管的管系流量q45，則支管的管系特性系數為： kg=q45/ 支管的管系特性系數：kg=qd6/ 計算節點6處的總輸出流量：由于節點6處接出支管，所以在水壓

24、h6的作用下，通過該節點的輸出流量為： q6=q56+qd6=q56+ kg當支管在另一壓力h6的作用下，支管的管系流量為qd-6,應用管性系數法，在所有以知值的情況下，計算節點6處的總輸出量得：q6=q56+ qd-6此式表明，通過節點6所供給的流量由兩股組成，其中供給支管的實際壓力是h6而不是h6，所以支管的流量qd-6必需進行修正，修正系數為 在圖2-1的例子中，由于支管、支管的水力情況完全相同（噴頭構造、數量、管段長度、管徑、標高等），因此其管系特性系數也相同，即kg= kg，此式也可改寫成： q4-5/=qd-6/化簡得： qd-6=q4-5將此式代入計算節點6的流量公式，即得： q

25、6=q5-6+q4-5=q5-61+按照上式的基本類型，依次計算各管段（節點）的傳輸流量值，直到設計作用面積（表2.8所示）所包括的最后的一個噴頭為止。2.7 系統設計計算步驟 閉式自動噴水滅火系統的設計計算步驟大致如下：，確定所設計的建、構筑物的火災危險等級；，確定設計所需的基本參數（見表2.8）；，根據設計參數選擇系統類型；，選擇和布置噴頭，進行管網布置并繪制管網平面圖；，根據管網平面圖進行管網水力計算，并核算管網設計參數；，根據計算結果繪制管網平面圖和系統圖；，根據計算結果選擇消防器材，確定給水設施。在設計閉式自動噴水滅火系統時，應本著遵循“實事求是”和“有的放矢”的原則，按各自的實際情

26、況選擇相應設計技術數據。只有這樣，才能正確的計算出各個管段的壓力、流量給消防給水設施的選擇提供科學的依據。3 系統的總體設計規劃3.1 系統的設計思路本系統的設計是用計算機簡化、代替人工計算的一次嘗試，利用計算機速度快、精度高等優點去解決工程計算中存在的問題。由于工程計算中具有參數多、算法復雜、計算中事件變化分支較多等特點，本系統將從以下幾點展開對自動噴水滅火系統管網水力計算的設計：首先，根據工程計算的特點來進行設計。在使用沿程計算法時，通常先按建筑物的危險等級來進行設計作用面積的選取。因此，在設計上應反映出來。所以設計時，有對建筑物危險級的選擇和確認。其次，將管網水力計算程序化。管網系統的水

27、力計算是一個用變量來求變量的不定性的過程，在設計中要仔細研究管網水力的計算原理，結合計算的特點設計結構化較強的程序，以符合不同工程實際情況的需要。計算時將配水支管、配水管和配水干管分開來進行。這樣更容易進行管段計算方面的設計。再次，建立美觀簡單的人機交互界面。自動噴水滅火系統管網計算所需輸入的參數較多，如果沒有良好的用戶界面和人機交互性，會使用戶感到困惑和厭煩，因此在設計中需建立簡單、美觀的人機交互界面。此外，還要根據系統需要設計一些輔助功能，如數據的查看和計算結果瀏覽、幫助等方面的內容。這樣才能實現系統的完整性和多功能性。3.2 應用程序總體設計通常一個軟件系統由若干個子系統組成，每個子系統

28、又可劃分為若干程序模塊。總體設計就是根據系統設計需求對整個系統進行功能分解，確定應用程序的系統總體結構。閉式自動噴水滅火系統管網水力計算系統主要有管網水力計算、水力計算參數查詢、設計計算結果的瀏覽以及系統輔助功能等功能，在這幾大功能下又可分為若干個子功能模塊。根據這些拆分的結果，就可以詳細描述系統的結構組成，明確系統的設計任務和設計方向。管網水力計算功能中主要包括：支管水力計算，配水管水力計算，配水干管水力計算等模塊；水力計算參數查詢模塊有對表2.8 系統設計基本參數、表2.7 管道比阻值、表2.6 當量長度表、表2.5 流速系數表、表2.5 流速系數表、表2.4輕危險級、中危險級場所中配水支

29、管、配水管控制的標準噴頭數、表2.3 同一根配水支管上噴頭的間距及相鄰配水支管的間距、表2.2 流量特性系數等數據的查詢；設計計算結果輸出模塊。3.3 系統設計運行流程圖(見下頁) 4 系統計算過程的程序化設計程序化設計就是將對象進行分析，運用計算機語言對其進行描述，使計算機能夠識別、處理該對象的過程。自動噴水滅火系統管網水力計算的程序化設計就是用計算機能夠識別的語言使計算機完成管網計算數據的輸入、數據判斷、數據運算以及數據輸出的整個過程。管網水力計算主要分為數據采集、數據處理、數據輸出三個過程。由于管網計算需依據工程實際設計進行的特點，因此在對上述三個過程的描述將是靜態描述和動態描述相結合的

30、過程，在本系統程序化設計中充分利用visual basic 6.0 面向對象編程語言的特點，實現對自動噴水滅火系統管網水力計算的程序化設計。閉式自動噴水滅火系統管網水力計算的計算機語言描述過程主要有以下三個部分組成: 根據面向對象編程設計的特點，設計良好的人機交互界面，指導、幫助用戶實現管網設計數據的輸入過程。 結合結構化語言結構嚴謹的特色，對計算過程進行設計，使計算機能夠根據程序實現管網水力計算的過程。 對數據輸出過程進行程序化設計。由于篇幅有限，以下將重點介紹數據輸入和數據運算過程的程序化設計過程。 4.1計算用數據輸入過程的程序設計管網水力計算所需的數據通常數量大、內容多，而且數據類型也

31、較為復雜。在這種情況下，良好的人機交互界面就顯得相當重要，因此在這個過程的設計中，大量采用了可視化控件，利用visual basic 6.0 “所見即所得”的編程方式去建立一個良好的人機交互界面。以下為具體的實現過程輸入方式的選擇在設計中根據數據的特點，采用文本框進行隨機性較強的數據輸入，利用組合框進行固定值數據輸入。同時利用控件的不同屬性可在對輸入數據進行判斷后，在給變量進行賦值或者發出警告。 輸入過程實現在自動噴水滅火管網水力計算中，數據的輸入過程大約分為：危險級選擇危險級確認. 等過程。為了有效地銜接這些過程，有效指引用戶一步步進行數據輸入，在設計中使用面向對象語言，對各過程的控件分別進

32、行控制，實現輸入過程有序進行。 人機交互的實現人機交互指人根據機器的提示進行操作，機器對人的操作進行判斷，并做出相關反應的過程。在本系統設計中引入了人機交互，即在用戶操作前有提示，用戶可按照提示進行操作；機器在讀取操作信息后，對操作信息進行判斷，認為符合要求發出一個輸入正確的信號，如不符合要求則給予警告，并指引用戶重新操作。正是由于合理有效地利用可視化控件和面向對象編程的諸多優點，有效的解決了人機交互輸入的問題，為下面進行的數據處理做好了準備。4.2 管網水力計算過程的結構化程序設計在對數據進行有效地采集后，就可以依據現有公式、算法對數據進行運算處理，但為了保證程序具有結構完整、通用性強的要求

33、，在這里需結合結構化語言，使用條件判斷、循環、分支等語句實現管網水力計算的全過程。以下文字中將詳細介紹結構化語言實現管網水力計算的過程。 建立結構化程序運行框架根據前面建立的模型，在計算過程的設計中應構建結構化的運行框架，實現對模型中每一點的計算和處理。在設計中，我們可利用雙重循環語句完成對各點的選取；在實現對各點選取后，利用條件判斷語句對各點進行分析，如果滿足計算條件要求，將此點中的數據送入計算程序中進行計算，得到結果。反之，則要求用戶重新輸入。 建立獨立的結構化計算程序由于管網各點水力計算項目幾乎相同，算法大多數相同，因此我們可以根據數學模型建立獨立、通用的計算程序，在對每一點進行計算時，

34、直接調用此通用計算程序實現對各點的計算。可分為，支管算法和配水管算法兩種。由于，配水管和配水干管計算時，都用到管系特性系數法，需要進行壓力修正。而支管則不用，在確定支管的實際流量時，可利用配水管上的數據進行，同理，確定配水管的實際流量時，也可利用干管數據。5 系統的模塊化設計5.1 計算模塊的設計由于此模塊已經在前面有了詳細的介紹，在此就不再敘述。5.2 查詢、瀏覽模塊的設計在系統設計中，考慮到用戶有對原始參數及有關設計規范數據查詢的需求，在系統設計中加入了原始數據瀏覽、參數查詢等模塊，方便了用戶的使用。6 程序編碼6.1 概述程序主要分為數據采集、數據處理、數據輸出三個部分。6.2 數據采集

35、 配水管個數輸入private sub form load ()dim d ,s 定義變量rem 參數輸入s = inputbox(輸入在設計作用面積內的配水管的數目：, 配水管的確定)rem 參數判斷if s = or s = 0 then 判斷條件d = msgbox(沒有輸入數據，要重新輸入嗎？, vbyesno + vbexclamation, 支管數的確定) if d = vbyes then unload form1 form1.show else end end ifelserem 裝載按鈕位置for i = 1 to sh = i mod 2select case hcase

36、1rem 設置控件屬性label1(0).visible = falseload label1(i)label1(i).top = label1(i - 1).top + label1(0).height + 180label1(i).caption = 第 & i & 個配水管label1 (i).visible = truecommand2 (0).visible = falseload command2 (i)command2(i).top = command2(i - 1).top + command2(0).height + 180command2(i).visible = true

37、command2(i).caption = 第 & i & 個配水管case 0label1(0).visible = falseload label1(i)label1(i).top = label1(i - 2).top + label1(0).height + 180label1(i).left = label3.leftlabel1(i).caption = 第 & i & 個配水管label1(i).visible = truecommand2(0).visible = falseload command2(i)command2(i).top = command2(i - 2).to

38、p + command2(0).height + 180command2(i).left = command3.leftcommand2(i).visible = truecommand2(i).caption = 第 & i & 個配水管end selectnext iend ifend sub 支管參數輸入sub weizhi()dim d, z,srem 支管數的輸入z = inputbox(輸入該配水管上的支管個數, 支管數的確定)rem 對輸入的數值進行判斷if z = or z = 1 thenx = msgbox(沒有輸入數據，要重新輸入嗎？, vbyesno + vbexcla

39、mation, 支管數的確定) if d = vbyes then unload form4 form4.show else end end ifend ifrem 支管上噴頭的確定s = inputbox(請輸入支管 1 上的噴頭數量, 噴頭數量的確定)if s 8 or s = thend = msgbox(數據輸入錯誤,要重新輸入嗎？, vbyesno + vbexclamation, 噴頭數量的確定) if d = vbyes then unload form4 form4.show else end end if elselabel1(0).visible = falserem 裝載

40、參數輸入的位置for i = 1 to s - 1load label1(i)label1(i).top = label1(i - 1).top + label1(0).height + 180label1(i).caption = 噴頭 & i & & i + 1 & 之間的管段直徑label1(i).visible = truenext ilabel2(0).visible = falsefor i = 1 to s - 1load label2(i)label2(i).top = label2(i - 1).top + label2(0).height + 180label2(i).vi

41、sible = truelabel2(i).caption = 噴頭 & i & & i + 1 & 的距離next ilabel4.caption = 噴頭 & s & 到配水管的距離label4.top = label2(s - 1).top + label2(s - 1).height + 180label5.caption = 噴頭 & s & 到配水管之間的管段直徑label5.top = label1(s - 1).top + label1(s - 1).height + 180text1(0).visible = falsefor i = 1 to sload text1(i)t

42、ext1(i).top = text1(i - 1).top + text1(0).height + 180text1(i).visible = truetext1(i).text = 單位：mmnext itext2(0).visible = falsefor i = 1 to sload text2(i)text2(i).top = text2(i - 1).top + text2(0).height + 180text2(i).visible = truetext2(i).text = 單位：mnext iend ifend sub 參數的采集和確認rem 使用控件的change和cli

43、ck屬性，將計算用參數賦予數組，并進行數據rem 的篩選。rem 例子： 使用change屬性private sub text1_change(index as integer)dim a(10)select case text1(index).textcase 25a(index) = 1.883case 32a(index) = 1.05case 40a(index) = 0.8case 50a(index) = 0.47case 70a(index) = 0.283case 80a(index) = 0.204case 100a(index) = 0.115case 150a(index

44、) = 0.053end selectend subrem 例子： 使用click屬性private sub combo1_click()dim kselect case combo1.listindexcase 0k = 57case 1k = 80case 2k = 115end selectend subrem 按鍵的限制，限制鍵盤輸入來避免錯誤。private sub text1_keypress(index as integer, keyascii as integer)dim bif keyascii 57 or keyascii 46 and keyascii 8 then b

45、= msgbox(輸入了無效字符，請重新輸入！, vbexclamation, 無效操作) keyascii = 0 end ifend sub6.3 參數計算 支管參數計算private sub command2_click()dim b(10)dim c(10)dim f, q, v, wq = k * sqr(10 * val(text3.text) / 60for i = 1 to srem 給數組賦初值b(0) = val(text3.text)c(0) = qrem 數據累加c(i) = c(i - 1) + wv = c(i) * a(i)f = val(text2(i).text) * (0.0000107) * (v 2) / (val(text1(i).text) - 1) * 0.001) 1.3)b(i) = b(i - 1) + fw = k * sqr(10 * b(i) / 60next irem 數據輸出form7.text1.text = c(s)form7.text3.text = vform7.text2.text = b(s)fo