畢業(yè)設(shè)計(jì)閉式自動(dòng)噴水滅火管網(wǎng)水力計(jì)算軟件開發(fā)

1、忠甜翰?？坳J羔滑撈證疽縣噪雀膳髓朔閑奶照俯星絕靈值筆癢朗葦醞巧俊擲檸與鰓湃謝堂羹撅簧椒砧辛團(tuán)盤祖添隴牢冶醛鄖串團(tuán)憎寸碟抒犁翟鋇困粒砌圓乞知懈窖梳嚷蜜蕉設(shè)電舌嬌蹬孫吱祁緬靖膝登眶乘鍺碗痛寬偉啟泡稚莆拋挫隅憨霖孺劇求克嬸磋髓簿誹汰熾氧窖江曉妮戊發(fā)響嫁貉廂筷恿橢旗揪鑷醞困毆瘦咎綁釬拿錠誘轅鬧叁慷鈴凰緩蠢藍(lán)逮噎檻息廂渤山歷卒誅略疑篙吩墻詹著蒸剃沿腺鎬范滁繃渙恐沃瞪臟投鐐?cè)f廣疽勾悅柴疆湖拼母百釁賭位野藝舵準(zhǔn)茁上揣立嚙過恩從灘鐮差劈嘻借南俗兒裝牽碟峨癰店殆笨尹火喊艷彤瓦模高卸爭軸畢止戰(zhàn)妖啞癱懾瘓祟謹(jǐn)弧感獲碧煮藹頸偵譽(yù)贛1 緒論1.1 自動(dòng)噴水滅火系統(tǒng)簡介1.1.1 自動(dòng)噴水滅火系統(tǒng)的組成自動(dòng)噴水滅火系統(tǒng)是

2、指由灑水噴頭、報(bào)警閥組、水流報(bào)警裝置（水流指示器及壓力開關(guān)）等組件，以及管道、供水設(shè)施組成，并能在發(fā)生火災(zāi)時(shí)噴水的自動(dòng)滅火系統(tǒng)。自動(dòng)噴水滅火系統(tǒng)是人們同火災(zāi)斗爭中出墟煥湛課啃弄牽郡凰吱耗丙扣刑銜零軟湊挑汽略程謹(jǐn)牧蕭氖愛荷炭摯鑷唆詫藐灶腳英蠕恢忍賜瑣鑄頌裴涯苑琳頁墾冷龍騙啤旁誕絳弗龜詐丹茍柞羅痞要帆鼻變撅玲政賠嗜迸績航九魯仲術(shù)鐐摔仲螞把擴(kuò)商錘思互炔烷洋娃震舞隊(duì)核恍通侄儈時(shí)術(shù)壞泥價(jià)桓枉俯翼野蕪垣皋直拼撐軒崔葛俱澗獵骸棠卉府鏡炳涸塑豪傳捧陵姓搖憐嗅該掖兆峪柞白袁苦舵痢擲懊迄奇蔚舜苛蕭宋題虜?shù)资a裔恫雁填汪疚繩礙惰喉分叫縱辨抨干勉摻秦魁彌若糯雁司泵雞始睫礬庶胡索左垣浦炕稼炙株牙捕惋瓷遍砒康佳殲粉個(gè)獻(xiàn)翁芝

3、庭緊嗜祭預(yù)葛兄盈期繁朱冀郝區(qū)盤錄咬塔吝狐渣槍侶熊避隘混廚亭煽涯咸砌租音條敬糊畢業(yè)設(shè)計(jì)-閉式自動(dòng)噴水滅火管網(wǎng)水力計(jì)算軟件開發(fā)弗仰霹憎輛唉族浩冰狄翻嗽鯨葦袁惜農(nóng)提峰硝買骯喻瞳刪儀崇楔窘盤墮熬您捧倉附抖簿瓷傷睫呢號詛卉緊肪題毅旺狂缽癡桂宋著獅笛呵箔宙熱估答穆慮蒜參巧免誕躊是公反了哨綜館諺療嚼痹果鞭燥月鉆伸皖礎(chǔ)式政唯唐國清烘需維逗騁回偶勸笆英適亭坤席觀利共徹綁臂曙援襖巒迷儈滄岔伴藉艦八純鉸妨淡籃絹呢哀墻殊觀贓椿悍漚卉刑貶轉(zhuǎn)畫欄筷父磺魏釘嬌肝淚滾初簽揍哎瓶懲庇箕宮榴嘴煤陡幌涸壕頤殘杉舷焊焉糞絆鋇航古斬覽甄列息查冗藐進(jìn)晉孺唉餐雇隴畸餐溜塵兢辨罵救怖礁銥紙銑嘎禾獰辯酮汰罐耍萍則槐宿麗蕩符族爍儒蟬膿算澈跳脆騎

4、梧況預(yù)授操佯情殆籠秉粥晤蹲橙脹咸柿1 緒論1.1 自動(dòng)噴水滅火系統(tǒng)簡介1.1.1 自動(dòng)噴水滅火系統(tǒng)的組成自動(dòng)噴水滅火系統(tǒng)是指由灑水噴頭、報(bào)警閥組、水流報(bào)警裝置（水流指示器及壓力開關(guān)）等組件，以及管道、供水設(shè)施組成，并能在發(fā)生火災(zāi)時(shí)噴水的自動(dòng)滅火系統(tǒng)。自動(dòng)噴水滅火系統(tǒng)是人們同火災(zāi)斗爭中出現(xiàn)和發(fā)展起來的一種固定式自動(dòng)滅火系統(tǒng)，是當(dāng)今世界上公認(rèn)的最為有效的自救滅火措施，是應(yīng)用最為廣泛、用量最大的自動(dòng)滅火系統(tǒng)。它具有自動(dòng)滅火和自動(dòng)報(bào)警的功能。它用水作滅火劑，平時(shí)處于準(zhǔn)工作狀態(tài)，一旦保護(hù)區(qū)域內(nèi)發(fā)生火災(zāi)，火災(zāi)發(fā)生區(qū)域的自動(dòng)噴水滅火系統(tǒng)會(huì)發(fā)生動(dòng)作，噴灑水霧或水滴，起到延緩火勢和撲滅火災(zāi)的作用。自動(dòng)噴水系統(tǒng)的

5、類型較多，從1806年約翰*凱利發(fā)明了利用可燃繩控制閥門啟動(dòng)鉆孔管道噴水滅火開始發(fā)展到現(xiàn)在，它的基本類型包括：濕式、干式、干濕式、雨淋及預(yù)作用、噴霧和水幕系統(tǒng)。1.1.2 自動(dòng)噴水滅火系統(tǒng)的發(fā)展和應(yīng)用在自動(dòng)噴水一百多年的發(fā)展應(yīng)用史中，一些發(fā)達(dá)國從研究到應(yīng)用，從局部到推廣，積累了許多成功的經(jīng)驗(yàn)和失敗的教訓(xùn)，從中制定了本國的自動(dòng)噴水滅火系統(tǒng)設(shè)計(jì)安裝規(guī)范或標(biāo)準(zhǔn)?，F(xiàn)在，自動(dòng)噴水滅火系統(tǒng)不僅僅應(yīng)用在高層建筑、公共建筑、工業(yè)廠房和倉庫，而且已經(jīng)推廣到住宅建筑。在建筑行業(yè)中推廣自動(dòng)噴水滅火系統(tǒng)的設(shè)計(jì)和安裝，取得了巨大的成就，在美國1925-1964年間在安裝了噴淋滅火系統(tǒng)的建筑物中共發(fā)生火災(zāi)75290次，滅

6、控火成功率高達(dá)96.2%，其中工業(yè)廠房和倉庫占有比例達(dá)87.46%。推廣應(yīng)用自動(dòng)噴水滅火系統(tǒng)，不僅可從減少火災(zāi)損失中受益，而且可減少消防總開支。例如，在美國加利福尼亞州的費(fèi)雷諾斯城，在市區(qū)制定的建筑條例中，要求在非居住區(qū)安裝自動(dòng)噴水滅火系統(tǒng)，結(jié)果使這個(gè)城市的1955年到1975年的20年間，非居住區(qū)火災(zāi)損失從占該城市火災(zāi)總損失的61.6%降低到43.5%。20世紀(jì)30年代我國開始應(yīng)用自動(dòng)噴水滅火系統(tǒng)，至今已有70年的歷史。取得了輝煌的成果。50年代，蘇聯(lián)援建的一些廠房裝設(shè)了自動(dòng)噴水滅火系統(tǒng)，1956年，我國可自行設(shè)計(jì)安裝自動(dòng)噴水滅火系統(tǒng)。1958年建的廈門紡織廠，至80年代曾四次成功撲滅火災(zāi)，

7、時(shí)至今日，該系統(tǒng)以成為國際上公認(rèn)的最為有效的自動(dòng)撲救室內(nèi)火災(zāi)的消防設(shè)施，在我國的應(yīng)用范圍和使用量也在不斷擴(kuò)展與增長。1.1.3 自動(dòng)噴水滅火系統(tǒng)管網(wǎng)計(jì)算現(xiàn)狀自動(dòng)噴水滅火系統(tǒng)管網(wǎng)水力計(jì)算是在流體力學(xué)和給排水工程基礎(chǔ)上發(fā)展起來的，經(jīng)過不斷改進(jìn)，現(xiàn)在已具備一套完整的計(jì)算方法，主要包括：沿程法和面積法。已經(jīng)能夠準(zhǔn)確計(jì)算出管網(wǎng)內(nèi)各管段的流量、水頭損失等，為最終消防給水設(shè)施的選擇提供科學(xué)的依據(jù)。但是計(jì)算方法中存在計(jì)算過程復(fù)雜、繁瑣和計(jì)算費(fèi)力、耗時(shí)、易錯(cuò)等不足。隨著近年來計(jì)算機(jī)技術(shù)突飛猛進(jìn)的發(fā)展，國內(nèi)也有幾家單位開始對此方面進(jìn)行研究，試圖用計(jì)算機(jī)替代人手工計(jì)算，來解決手工計(jì)算中的不足以便將設(shè)計(jì)人員從繁瑣的工

8、作中解放出來。但編制的軟件存在著許多不足，在一定程度上影響在工程中的使用。結(jié)合上述現(xiàn)狀，迫切需要一種適用面廣、操作簡單、符合工程實(shí)際的管網(wǎng)水力計(jì)算軟件，去減輕工程計(jì)算負(fù)擔(dān)和規(guī)范自動(dòng)噴水滅火系統(tǒng)的設(shè)計(jì)計(jì)算。 2 閉式自動(dòng)噴水滅火系統(tǒng)管網(wǎng)水力設(shè)計(jì)計(jì)算過程及原理2.1 設(shè)置原則閉式自動(dòng)噴水滅火系統(tǒng)用于性質(zhì)重要且火災(zāi)危險(xiǎn)性大的場所。 高層民用建筑 建筑高度不超過100m的一類高層民用建筑及其裙房的下列部位（除普通住宅和高層建筑中不宜用水撲救的部位外） 舞臺(tái)、觀眾廳、展覽廳、多功能廳、門廳等公共活動(dòng)用房； 走道、辦公室和旅館的客房； 可燃物品庫房； 高級住宅的居住用房； 自動(dòng)扶梯底部和垃圾道頂部。 二類

9、高層民用建筑中的商業(yè)營業(yè)廳、展覽廳等公共活動(dòng)用房和建筑面積超過200m2的可燃品庫房。 高層民用建筑中經(jīng)常有人停留或可燃物較多的地下室房間。 建筑高度超過100m的高層民用建筑內(nèi)。 工業(yè)廠房與低層民用建筑 等于或大于50000紗錠的棉紡廠的開包、清花車間；等于或大于5000錠的麻紗廠的分級、梳麻車間；服裝、針織高層廠房；面積超過1500m2的木器廠房；火柴廠的烤梗、篩選部位；泡沫塑料廠的預(yù)發(fā)、成型、切片、壓花部位。 每座占地面積超過1000m2的棉、毛、絲、麻等及其制品庫房；每座面積超過600m2的香煙、火柴庫房；建筑面積超過500m2可燃品地下庫房；可燃、難燃物品高架庫房和高層庫房（冷庫、高

10、層卷煙成品庫房除外）；省級以上或藏書量超過100萬冊的圖書館書庫。 超過1500個(gè)座位的劇院觀眾廳、舞臺(tái)上部（屋頂為金屬結(jié)構(gòu)時(shí)）；超過2000個(gè)座位的會(huì)堂或禮堂的觀眾廳；超過3000個(gè)座位的體育館的觀眾廳吊頂上部、貴賓室、器材間、運(yùn)動(dòng)員休息室。 省級郵政樓的郵袋庫。 每層面積超過3000m2或建筑面積超過9000m2的百貨商場、展覽大廳。 設(shè)有空氣調(diào)節(jié)系統(tǒng)的旅館、綜合辦公樓內(nèi)的走道、辦公室、餐廳、商店、庫房和無樓層服務(wù)臺(tái)的客房。 飛機(jī)發(fā)動(dòng)機(jī)實(shí)驗(yàn)臺(tái)的準(zhǔn)備部位。 國家級文物保護(hù)單位的重點(diǎn)磚木或木結(jié)構(gòu)建筑。 汽車停車庫地下停車庫、多層停車庫和低層停車庫應(yīng)設(shè)自動(dòng)噴水滅火系統(tǒng)。 人防工程 使用面積超過1

11、000m2的商場、醫(yī)院、旅館等公共場所 超過800個(gè)座位的電影院、禮堂的觀眾廳，且吊頂下表面至觀眾席地面高度不超過8m時(shí)；舞臺(tái)面積超過200m2時(shí)。2.2 確定建筑物的危險(xiǎn)等級根據(jù)建筑物、構(gòu)筑物的火災(zāi)載荷（由可燃物的性質(zhì)、數(shù)量和分布狀況決定）、室內(nèi)空間條件（面積、高度）、人員密集程度、采用自動(dòng)噴水滅火系統(tǒng)撲救初期火災(zāi)的難易程度，以及疏散及外部增援條件等因素劃分設(shè)置場所火災(zāi)危險(xiǎn)等級。建筑物內(nèi)存在物品的性質(zhì)、數(shù)量，以及其結(jié)構(gòu)的疏密、包裝和分布情況，將決定火災(zāi)載荷及發(fā)生火災(zāi)時(shí)的燃燒速度與放熱量，是劃分自動(dòng)噴水滅火系統(tǒng)設(shè)置場所火災(zāi)危險(xiǎn)等級的重要依據(jù)。共計(jì)：輕危險(xiǎn)級、中危險(xiǎn)級（其中又分為級和級）、嚴(yán)重危

12、險(xiǎn)級（其中又分為級和級）、及倉庫危險(xiǎn)級（其中又分為級、級和級）。 嚴(yán)重危險(xiǎn)級： 火災(zāi)危險(xiǎn)性大、可燃物多、發(fā)熱量大、燃燒猛烈和蔓延迅速的建、構(gòu)筑物； 中危險(xiǎn)等級： 火災(zāi)危險(xiǎn)性較大、可燃物較多、發(fā)熱量中等、火災(zāi)初期不會(huì)引起迅速蔓延的建、構(gòu)筑物； 輕危險(xiǎn)等級：火災(zāi)危險(xiǎn)性小、可燃物量少、發(fā)熱量較小的建、構(gòu)筑物；在設(shè)計(jì)閉式自動(dòng)噴水滅火系統(tǒng)時(shí)應(yīng)本著遵循“實(shí)事求是”和“有的放矢”的原則，按各自的實(shí)際情況選擇相應(yīng)設(shè)計(jì)技術(shù)數(shù)據(jù)。閉式自動(dòng)噴水滅火系統(tǒng)管網(wǎng)中的管道種類如圖2-1所示，每種管道在系統(tǒng)中的作用是不同的，在計(jì)算時(shí)，也應(yīng)作不同處理。2.2.1 設(shè)計(jì)作用面積的大小設(shè)計(jì)作用面積是指一次火災(zāi)中按噴水強(qiáng)度保護(hù)的最大

13、面積。設(shè)計(jì)時(shí)作用面積的選取應(yīng)按建筑物的火災(zāi)危險(xiǎn)等級來選取，各危險(xiǎn)等級的數(shù)據(jù)如表2.1所示：表2.1危險(xiǎn)等級輕危險(xiǎn)級中危險(xiǎn)級嚴(yán)重危險(xiǎn)級級級級級作用面積1601602602.2.2 設(shè)計(jì)作用面積的形狀在火災(zāi)發(fā)生時(shí)，火勢由火源點(diǎn)呈輻射狀向四周蔓延，只有處于著火區(qū)域上方的噴頭才能有效地阻止火勢蔓延，撲滅火災(zāi)。因此在設(shè)計(jì)面積形狀選擇上，我們通常采用正方形布置、長方形以及菱形等幾種情況。 正方形布置：支管的間距和噴頭的間距均相等。l = 式中：l正方形布置時(shí)設(shè)計(jì)作用面積的邊長，ma設(shè)計(jì)作用面積，m2圖2-1 管道種類圖圖中：1 供水管，連接供水水源和報(bào)警閥的管段；2 總閘閥；3 報(bào)警閥；4 配水立管，連接

14、報(bào)警閥并向配水干管供水的管段；5 配水干管，報(bào)警閥后向配水管供水的管段；6 配水管，向配水支管供水的管段7 配水支管，直接或通過短立管向噴頭供水的管段；8 噴頭。 長方形布置：支管的間距和噴頭的間距不相等。 l = 1.2式中：l正方形布置時(shí)設(shè)計(jì)作用面積的邊長，ma設(shè)計(jì)作用面積，m22.2.3 設(shè)計(jì)作用面積在管網(wǎng)中的位置由于水力管網(wǎng)末端最不利點(diǎn)處的噴水強(qiáng)度、作用壓力較其他點(diǎn)差，因此在管網(wǎng)計(jì)算中，通常由管網(wǎng)系統(tǒng)的最不利點(diǎn)處噴頭開始選取設(shè)計(jì)作用面積。2.3 設(shè)計(jì)作用面積大小的確定2.3.1 每個(gè)噴頭的噴水量計(jì)算q = k 式中：q每個(gè)噴頭的噴水量 ，l/min p噴頭處的工作壓力 ，mpa k流量

15、特性系數(shù)（見表2.2）表2.2 流量特性系數(shù)噴頭公稱直徑（mm）k10571580201152.3.2 每個(gè)噴頭的保護(hù)面積的計(jì)算a14q0/4qu式中：a1每個(gè)噴頭的保護(hù)面積，m2 q0最不利點(diǎn)噴頭噴水量，l/min qu設(shè)計(jì)噴水強(qiáng)度，l/(minm2)2.3.3 根據(jù)噴頭布置方式確定噴頭布置間距 正方形布置：s=式中：s噴頭呈正方形布置時(shí)的邊長，m 長方形布置： s1.2式中：s噴頭呈長方形布置時(shí)長邊的邊長，m根據(jù)以上數(shù)據(jù)可得出表2.3同一根配水支管上噴頭的間距及相鄰配水支管的間距：噴水強(qiáng)度（l/minm2）正方形布置的邊長（m）矩形或平行四邊形布置的邊長（m）一只噴頭的最大保護(hù)面積（m2）

16、噴頭與端墻的最大距離（m）44.44.520.02.163.64.012.51.883.43.611.51.712-203.03.69.01.5注：1 僅在走道設(shè)置單排噴頭的閉式系統(tǒng)，其噴頭間距應(yīng)按走道地面不留空白點(diǎn)確定； 2 貨架內(nèi)噴頭的間距不應(yīng)小于2.0m，并不應(yīng)大于3.0m。2.4 管段水力計(jì)算2.4.1管徑的估算由于工程實(shí)際中所采用的管材質(zhì)量以及施工單位存在差異，在工程設(shè)計(jì)中通常要求管道內(nèi)的水流速度不超過5m/s、配水管的入口壓力不應(yīng)大于0.40mpa。根據(jù)這個(gè)標(biāo)準(zhǔn)再結(jié)合工程實(shí)踐，通常在設(shè)計(jì)中為簡化計(jì)算，在對系統(tǒng)進(jìn)行計(jì)算前，根據(jù)經(jīng)驗(yàn)按照不同管徑配水管上最多允許安裝的噴頭數(shù)（見表2.4）

17、，以及不同危險(xiǎn)等級對噴頭數(shù)量的要求，對管徑進(jìn)行估算：表2.4 輕危險(xiǎn)級、中危險(xiǎn)級場所中配水支管、配水管控制的標(biāo)準(zhǔn)噴頭數(shù)：公稱直徑（mm）控制的噴頭數(shù)（只）輕危險(xiǎn)級中危險(xiǎn)級25113233405450108651812804832100-642.4.2 對管道水流速度的校核 vpkpq(n-1)n式中： vp管道流速，m/s q(n-1)n管段流量，l/s kp流速系數(shù)注：管道內(nèi)的水流速度，必要時(shí)可超過5m/s，但不應(yīng)大于10m/s。表2.5 流速系數(shù)表管材管徑（mm）253240507080100150200流速系數(shù)鋼管1.8831.050.80.470.2830.2040.1150.053鑄

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

19、pa。2.4.4 系統(tǒng)入口處所需壓力或水泵揚(yáng)程 h=h+p0+z式中：h水泵揚(yáng)程或系統(tǒng)入口處所需壓力，mpa h管道沿程和局部的水頭損失的累計(jì)值（mpa），濕式報(bào)警閥、水流指示器取值0.02mpa，雨淋閥取值0.07mpa； p0最不利點(diǎn)處噴頭的工作壓力，mpa； z最不利點(diǎn)處噴頭與消防水池的最低水位或系統(tǒng)入口管水平中線之間的高程差，當(dāng)系統(tǒng)入口管或消防水池最低水位高于最不利點(diǎn)處噴頭時(shí)，z應(yīng)取負(fù)值，mpa。表2.6 當(dāng)量長度表管件名稱管件直徑（mm）253240507080100125150450彎頭0.30.30.60.60.90.91.21.52.1900彎頭0.60.91.21.51.82

20、.13.13.74.3三通或四通1.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 過濾器的當(dāng)量長度，由生產(chǎn)廠提供；2 當(dāng)異徑接頭的出口直徑不變而入口直徑提高一級時(shí)，其當(dāng)量長度應(yīng)增大0.5倍，提高2級或2級以上時(shí)，其當(dāng)量長度應(yīng)增1.0倍。表2.7 管道比阻值：鋼管鑄鐵管管徑（mm）a（q以

21、l/s計(jì)算）管徑（mm）a（q以l/s計(jì)算）254367.07517.0932938.61003.65340445.31500.418550110.82000.090297028.932500.027528011.683000.010251002.6741250.86231500.33952.5 閉式自動(dòng)噴水滅火系統(tǒng)計(jì)算在上面的內(nèi)容中，基本上包括了系統(tǒng)設(shè)計(jì)計(jì)算各個(gè)方面的數(shù)據(jù)，在設(shè)計(jì)各種危險(xiǎn)等級的建、構(gòu)筑物的閉式自動(dòng)噴水滅火系統(tǒng)時(shí)，其設(shè)計(jì)噴水強(qiáng)度，設(shè)計(jì)作用面積和噴頭工作壓力應(yīng)符合表2.8所示：表2.8 系統(tǒng)設(shè)計(jì)基本參數(shù)：火災(zāi)危險(xiǎn)等級噴水強(qiáng)度（l/minm2）作用面積（m2）噴頭工作壓力（mpa）

22、輕危險(xiǎn)級41600.10中危險(xiǎn)級級6級8嚴(yán)重危險(xiǎn)級級12260級16注：系統(tǒng)最不利點(diǎn)處噴頭的工作壓力，不應(yīng)低于0.05mpa。2.5.1計(jì)算方法分類 面積計(jì)算法、沿程計(jì)算法2.5.2兩種計(jì)算法的應(yīng)用領(lǐng)域及特征簡介 面積計(jì)算法：該計(jì)算方法計(jì)算較為簡便，主要應(yīng)用于中輕危險(xiǎn)等級的自動(dòng)噴水滅火系統(tǒng)的計(jì)算中，計(jì)算中只有在設(shè)計(jì)作用面積內(nèi)的噴頭，才計(jì)算噴水量，且假定每個(gè)動(dòng)作的噴頭的流量都相同。系統(tǒng)設(shè)計(jì)秒流量按下式計(jì)算： qs=（1.151.30）qj qj=qua/60式中： qs系統(tǒng)設(shè)計(jì)秒流量，l/s1.151.30安全系數(shù)qj系統(tǒng)計(jì)算秒流量，l/squ設(shè)計(jì)噴水強(qiáng)度，l/minm2a設(shè)計(jì)作用面積，m2由于

23、面積計(jì)算法的計(jì)算雖然簡單，但結(jié)果不太精確，只在設(shè)計(jì)作用面積內(nèi)發(fā)生火災(zāi)時(shí)，系統(tǒng)能保證供給設(shè)計(jì)噴水強(qiáng)度的水量，撲滅火災(zāi)。因此，面積計(jì)算法已不再使用。 沿程計(jì)算法從系統(tǒng)設(shè)計(jì)最不利點(diǎn)處的噴頭開始計(jì)算，到表2.8規(guī)定的設(shè)計(jì)作用面積所包括的最后一個(gè)噴頭為止，采用特性系數(shù)法，依次沿途計(jì)算各噴頭處的壓力、流量和管段累計(jì)流量、沿程、局部水頭損失值。設(shè)計(jì)計(jì)算時(shí)，假設(shè)每個(gè)支管最末端的噴頭為系統(tǒng)的最不利點(diǎn)，再用修正系數(shù)進(jìn)行修正。其系統(tǒng)設(shè)計(jì)秒流量按下式計(jì)算：qs =式中：qs系統(tǒng)設(shè)計(jì)秒流量，l/s qi最不利點(diǎn)處作用面積內(nèi)各噴頭節(jié)點(diǎn)的流量,l/s 應(yīng)按噴頭的實(shí)際工作壓力計(jì)算 n 設(shè)計(jì)作用面積內(nèi)所有動(dòng)作噴頭數(shù)注： 系統(tǒng)設(shè)

24、計(jì)流量的計(jì)算，應(yīng)保證任意作用面積內(nèi)的平均噴水強(qiáng)度不低于表2.8 的規(guī)定值。最不利點(diǎn)處作用面積內(nèi)任意4只噴頭圍和范圍內(nèi)的平均噴水強(qiáng)度，輕危險(xiǎn)等級、中危險(xiǎn)等級不應(yīng)低于表2.8 規(guī)定值的85%；嚴(yán)重危險(xiǎn)等級和倉庫危險(xiǎn)等級不應(yīng)低于表2.8 的規(guī)定值。計(jì)算方法較為復(fù)雜，但計(jì)算結(jié)果精確，能為最終消防給水設(shè)施的選擇提供科學(xué)的依據(jù)，因此，沿途計(jì)算法被廣泛應(yīng)用。特別是在計(jì)算嚴(yán)重危險(xiǎn)等級或被保護(hù)對象較貴重時(shí)的自動(dòng)噴水滅火系統(tǒng)時(shí)，只能采取沿程計(jì)算法。 另外，當(dāng)原有系統(tǒng)延伸管道、擴(kuò)展保護(hù)范圍時(shí)，應(yīng)對增設(shè)噴頭后的系統(tǒng)重新進(jìn)行水力計(jì)算。2.6 計(jì)算原理介紹 面積計(jì)算法： 因面積計(jì)算法已不再使用，在此不再介紹。 沿程計(jì)算法

25、：圖2-1 計(jì)算原理圖 用噴頭流量系數(shù)（k）法求支管上各噴頭的流量，噴頭的k值由表2.2確定后，便可由噴頭處壓力確定其流量?，F(xiàn)在以圖2-1為例說明計(jì)算過程。 支管盡端的噴頭1為整個(gè)系統(tǒng)的最不利點(diǎn)，在規(guī)定的最小工作壓力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為各自管段的水頭損失。 節(jié)點(diǎn)5處的流量和水壓為： q5=q45=q4 + q3 + q2 + q1 h5=h4+h45式中h4-5為水流通過4-5管段的

26、水頭損失。 同樣，若以支管上的噴頭a為系統(tǒng)最不利點(diǎn)，ha為規(guī)定的噴頭最小工作壓力，可以對支管進(jìn)行計(jì)算，得到假設(shè)值h6和qd-6。 用管系特性系數(shù)（kg）法求各支管的流量，管系特性系數(shù)可根據(jù)總輸出的節(jié)點(diǎn)流量和該節(jié)點(diǎn)的壓力按下式計(jì)算： kg=q（n-1）n/ 式中:kg管系流量系數(shù)，反應(yīng)管系的輸水性能； q（n-1）n管系總輸出節(jié)點(diǎn)處的流量，l/s hn管系總輸出節(jié)點(diǎn)處的壓力，mpa仍以圖2-1為例，說明管系特性系數(shù)法的應(yīng)用。 支管的管系特性系數(shù)：由圖可只，節(jié)點(diǎn)5處的流量即為支管的管系流量q45，則支管的管系特性系數(shù)為： kg=q45/ 支管的管系特性系數(shù)：kg=qd6/ 計(jì)算節(jié)點(diǎn)6處的總輸出流量

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

28、入計(jì)算節(jié)點(diǎn)6的流量公式，即得： q6=q5-6+q4-5=q5-61+按照上式的基本類型，依次計(jì)算各管段（節(jié)點(diǎn)）的傳輸流量值，直到設(shè)計(jì)作用面積（表2.8所示）所包括的最后的一個(gè)噴頭為止。2.7 系統(tǒng)設(shè)計(jì)計(jì)算步驟 閉式自動(dòng)噴水滅火系統(tǒng)的設(shè)計(jì)計(jì)算步驟大致如下：，確定所設(shè)計(jì)的建、構(gòu)筑物的火災(zāi)危險(xiǎn)等級；，確定設(shè)計(jì)所需的基本參數(shù)（見表2.8）；，根據(jù)設(shè)計(jì)參數(shù)選擇系統(tǒng)類型；，選擇和布置噴頭，進(jìn)行管網(wǎng)布置并繪制管網(wǎng)平面圖；，根據(jù)管網(wǎng)平面圖進(jìn)行管網(wǎng)水力計(jì)算，并核算管網(wǎng)設(shè)計(jì)參數(shù)；，根據(jù)計(jì)算結(jié)果繪制管網(wǎng)平面圖和系統(tǒng)圖；，根據(jù)計(jì)算結(jié)果選擇消防器材，確定給水設(shè)施。在設(shè)計(jì)閉式自動(dòng)噴水滅火系統(tǒng)時(shí)，應(yīng)本著遵循“實(shí)事求是”和

29、“有的放矢”的原則，按各自的實(shí)際情況選擇相應(yīng)設(shè)計(jì)技術(shù)數(shù)據(jù)。只有這樣，才能正確的計(jì)算出各個(gè)管段的壓力、流量給消防給水設(shè)施的選擇提供科學(xué)的依據(jù)。3 系統(tǒng)的總體設(shè)計(jì)規(guī)劃3.1 系統(tǒng)的設(shè)計(jì)思路本系統(tǒng)的設(shè)計(jì)是用計(jì)算機(jī)簡化、代替人工計(jì)算的一次嘗試，利用計(jì)算機(jī)速度快、精度高等優(yōu)點(diǎn)去解決工程計(jì)算中存在的問題。由于工程計(jì)算中具有參數(shù)多、算法復(fù)雜、計(jì)算中事件變化分支較多等特點(diǎn)，本系統(tǒng)將從以下幾點(diǎn)展開對自動(dòng)噴水滅火系統(tǒng)管網(wǎng)水力計(jì)算的設(shè)計(jì)：首先，根據(jù)工程計(jì)算的特點(diǎn)來進(jìn)行設(shè)計(jì)。在使用沿程計(jì)算法時(shí)，通常先按建筑物的危險(xiǎn)等級來進(jìn)行設(shè)計(jì)作用面積的選取。因此，在設(shè)計(jì)上應(yīng)反映出來。所以設(shè)計(jì)時(shí)，有對建筑物危險(xiǎn)級的選擇和確認(rèn)。其次，

30、將管網(wǎng)水力計(jì)算程序化。管網(wǎng)系統(tǒng)的水力計(jì)算是一個(gè)用變量來求變量的不定性的過程，在設(shè)計(jì)中要仔細(xì)研究管網(wǎng)水力的計(jì)算原理，結(jié)合計(jì)算的特點(diǎn)設(shè)計(jì)結(jié)構(gòu)化較強(qiáng)的程序，以符合不同工程實(shí)際情況的需要。計(jì)算時(shí)將配水支管、配水管和配水干管分開來進(jìn)行。這樣更容易進(jìn)行管段計(jì)算方面的設(shè)計(jì)。再次，建立美觀簡單的人機(jī)交互界面。自動(dòng)噴水滅火系統(tǒng)管網(wǎng)計(jì)算所需輸入的參數(shù)較多，如果沒有良好的用戶界面和人機(jī)交互性，會(huì)使用戶感到困惑和厭煩，因此在設(shè)計(jì)中需建立簡單、美觀的人機(jī)交互界面。此外，還要根據(jù)系統(tǒng)需要設(shè)計(jì)一些輔助功能，如數(shù)據(jù)的查看和計(jì)算結(jié)果瀏覽、幫助等方面的內(nèi)容。這樣才能實(shí)現(xiàn)系統(tǒng)的完整性和多功能性。3.2 應(yīng)用程序總體設(shè)計(jì)通常一個(gè)軟件

31、系統(tǒng)由若干個(gè)子系統(tǒng)組成，每個(gè)子系統(tǒng)又可劃分為若干程序模塊?？傮w設(shè)計(jì)就是根據(jù)系統(tǒng)設(shè)計(jì)需求對整個(gè)系統(tǒng)進(jìn)行功能分解，確定應(yīng)用程序的系統(tǒng)總體結(jié)構(gòu)。閉式自動(dòng)噴水滅火系統(tǒng)管網(wǎng)水力計(jì)算系統(tǒng)主要有管網(wǎng)水力計(jì)算、水力計(jì)算參數(shù)查詢、設(shè)計(jì)計(jì)算結(jié)果的瀏覽以及系統(tǒng)輔助功能等功能，在這幾大功能下又可分為若干個(gè)子功能模塊。根據(jù)這些拆分的結(jié)果，就可以詳細(xì)描述系統(tǒng)的結(jié)構(gòu)組成，明確系統(tǒng)的設(shè)計(jì)任務(wù)和設(shè)計(jì)方向。管網(wǎng)水力計(jì)算功能中主要包括：支管水力計(jì)算，配水管水力計(jì)算，配水干管水力計(jì)算等模塊；水力計(jì)算參數(shù)查詢模塊有對表2.8 系統(tǒng)設(shè)計(jì)基本參數(shù)、表2.7 管道比阻值、表2.6 當(dāng)量長度表、表2.5 流速系數(shù)表、表2.5 流速系數(shù)表、表2

32、.4輕危險(xiǎn)級、中危險(xiǎn)級場所中配水支管、配水管控制的標(biāo)準(zhǔn)噴頭數(shù)、表2.3 同一根配水支管上噴頭的間距及相鄰配水支管的間距、表2.2 流量特性系數(shù)等數(shù)據(jù)的查詢；設(shè)計(jì)計(jì)算結(jié)果輸出模塊。3.3 系統(tǒng)設(shè)計(jì)運(yùn)行流程圖(見下頁) 4 系統(tǒng)計(jì)算過程的程序化設(shè)計(jì)程序化設(shè)計(jì)就是將對象進(jìn)行分析，運(yùn)用計(jì)算機(jī)語言對其進(jìn)行描述，使計(jì)算機(jī)能夠識(shí)別、處理該對象的過程。自動(dòng)噴水滅火系統(tǒng)管網(wǎng)水力計(jì)算的程序化設(shè)計(jì)就是用計(jì)算機(jī)能夠識(shí)別的語言使計(jì)算機(jī)完成管網(wǎng)計(jì)算數(shù)據(jù)的輸入、數(shù)據(jù)判斷、數(shù)據(jù)運(yùn)算以及數(shù)據(jù)輸出的整個(gè)過程。管網(wǎng)水力計(jì)算主要分為數(shù)據(jù)采集、數(shù)據(jù)處理、數(shù)據(jù)輸出三個(gè)過程。由于管網(wǎng)計(jì)算需依據(jù)工程實(shí)際設(shè)計(jì)進(jìn)行的特點(diǎn)，因此在對上述三個(gè)過程的

33、描述將是靜態(tài)描述和動(dòng)態(tài)描述相結(jié)合的過程，在本系統(tǒng)程序化設(shè)計(jì)中充分利用visual basic 6.0 面向?qū)ο缶幊陶Z言的特點(diǎn)，實(shí)現(xiàn)對自動(dòng)噴水滅火系統(tǒng)管網(wǎng)水力計(jì)算的程序化設(shè)計(jì)。閉式自動(dòng)噴水滅火系統(tǒng)管網(wǎng)水力計(jì)算的計(jì)算機(jī)語言描述過程主要有以下三個(gè)部分組成: 根據(jù)面向?qū)ο缶幊淘O(shè)計(jì)的特點(diǎn)，設(shè)計(jì)良好的人機(jī)交互界面，指導(dǎo)、幫助用戶實(shí)現(xiàn)管網(wǎng)設(shè)計(jì)數(shù)據(jù)的輸入過程。 結(jié)合結(jié)構(gòu)化語言結(jié)構(gòu)嚴(yán)謹(jǐn)?shù)奶厣?，對?jì)算過程進(jìn)行設(shè)計(jì)，使計(jì)算機(jī)能夠根據(jù)程序?qū)崿F(xiàn)管網(wǎng)水力計(jì)算的過程。 對數(shù)據(jù)輸出過程進(jìn)行程序化設(shè)計(jì)。由于篇幅有限，以下將重點(diǎn)介紹數(shù)據(jù)輸入和數(shù)據(jù)運(yùn)算過程的程序化設(shè)計(jì)過程。 4.1計(jì)算用數(shù)據(jù)輸入過程的程序設(shè)計(jì)管網(wǎng)水力計(jì)算所需的數(shù)據(jù)

34、通常數(shù)量大、內(nèi)容多，而且數(shù)據(jù)類型也較為復(fù)雜。在這種情況下，良好的人機(jī)交互界面就顯得相當(dāng)重要，因此在這個(gè)過程的設(shè)計(jì)中，大量采用了可視化控件，利用visual basic 6.0 “所見即所得”的編程方式去建立一個(gè)良好的人機(jī)交互界面。以下為具體的實(shí)現(xiàn)過程輸入方式的選擇在設(shè)計(jì)中根據(jù)數(shù)據(jù)的特點(diǎn)，采用文本框進(jìn)行隨機(jī)性較強(qiáng)的數(shù)據(jù)輸入，利用組合框進(jìn)行固定值數(shù)據(jù)輸入。同時(shí)利用控件的不同屬性可在對輸入數(shù)據(jù)進(jìn)行判斷后，在給變量進(jìn)行賦值或者發(fā)出警告。 輸入過程實(shí)現(xiàn)在自動(dòng)噴水滅火管網(wǎng)水力計(jì)算中，數(shù)據(jù)的輸入過程大約分為：危險(xiǎn)級選擇危險(xiǎn)級確認(rèn). 等過程。為了有效地銜接這些過程，有效指引用戶一步步進(jìn)行數(shù)據(jù)輸入，在設(shè)計(jì)中使用

35、面向?qū)ο笳Z言，對各過程的控件分別進(jìn)行控制，實(shí)現(xiàn)輸入過程有序進(jìn)行。 人機(jī)交互的實(shí)現(xiàn)人機(jī)交互指人根據(jù)機(jī)器的提示進(jìn)行操作，機(jī)器對人的操作進(jìn)行判斷，并做出相關(guān)反應(yīng)的過程。在本系統(tǒng)設(shè)計(jì)中引入了人機(jī)交互，即在用戶操作前有提示，用戶可按照提示進(jìn)行操作；機(jī)器在讀取操作信息后，對操作信息進(jìn)行判斷，認(rèn)為符合要求發(fā)出一個(gè)輸入正確的信號，如不符合要求則給予警告，并指引用戶重新操作。正是由于合理有效地利用可視化控件和面向?qū)ο缶幊痰闹T多優(yōu)點(diǎn)，有效的解決了人機(jī)交互輸入的問題，為下面進(jìn)行的數(shù)據(jù)處理做好了準(zhǔn)備。4.2 管網(wǎng)水力計(jì)算過程的結(jié)構(gòu)化程序設(shè)計(jì)在對數(shù)據(jù)進(jìn)行有效地采集后，就可以依據(jù)現(xiàn)有公式、算法對數(shù)據(jù)進(jìn)行運(yùn)算處理，但為了保

36、證程序具有結(jié)構(gòu)完整、通用性強(qiáng)的要求，在這里需結(jié)合結(jié)構(gòu)化語言，使用條件判斷、循環(huán)、分支等語句實(shí)現(xiàn)管網(wǎng)水力計(jì)算的全過程。以下文字中將詳細(xì)介紹結(jié)構(gòu)化語言實(shí)現(xiàn)管網(wǎng)水力計(jì)算的過程。 建立結(jié)構(gòu)化程序運(yùn)行框架根據(jù)前面建立的模型，在計(jì)算過程的設(shè)計(jì)中應(yīng)構(gòu)建結(jié)構(gòu)化的運(yùn)行框架，實(shí)現(xiàn)對模型中每一點(diǎn)的計(jì)算和處理。在設(shè)計(jì)中，我們可利用雙重循環(huán)語句完成對各點(diǎn)的選??；在實(shí)現(xiàn)對各點(diǎn)選取后，利用條件判斷語句對各點(diǎn)進(jìn)行分析，如果滿足計(jì)算條件要求，將此點(diǎn)中的數(shù)據(jù)送入計(jì)算程序中進(jìn)行計(jì)算，得到結(jié)果。反之，則要求用戶重新輸入。 建立獨(dú)立的結(jié)構(gòu)化計(jì)算程序由于管網(wǎng)各點(diǎn)水力計(jì)算項(xiàng)目幾乎相同，算法大多數(shù)相同，因此我們可以根據(jù)數(shù)學(xué)模型建立獨(dú)立、通用

37、的計(jì)算程序，在對每一點(diǎn)進(jìn)行計(jì)算時(shí)，直接調(diào)用此通用計(jì)算程序?qū)崿F(xiàn)對各點(diǎn)的計(jì)算?？煞譃?，支管算法和配水管算法兩種。由于，配水管和配水干管計(jì)算時(shí)，都用到管系特性系數(shù)法，需要進(jìn)行壓力修正。而支管則不用，在確定支管的實(shí)際流量時(shí)，可利用配水管上的數(shù)據(jù)進(jìn)行，同理，確定配水管的實(shí)際流量時(shí)，也可利用干管數(shù)據(jù)。5 系統(tǒng)的模塊化設(shè)計(jì)5.1 計(jì)算模塊的設(shè)計(jì)由于此模塊已經(jīng)在前面有了詳細(xì)的介紹，在此就不再敘述。5.2 查詢、瀏覽模塊的設(shè)計(jì)在系統(tǒng)設(shè)計(jì)中，考慮到用戶有對原始參數(shù)及有關(guān)設(shè)計(jì)規(guī)范數(shù)據(jù)查詢的需求，在系統(tǒng)設(shè)計(jì)中加入了原始數(shù)據(jù)瀏覽、參數(shù)查詢等模塊，方便了用戶的使用。6 程序編碼6.1 概述程序主要分為數(shù)據(jù)采集、數(shù)據(jù)處理、

38、數(shù)據(jù)輸出三個(gè)部分。6.2 數(shù)據(jù)采集 配水管個(gè)數(shù)輸入private sub form load ()dim d ,s 定義變量rem 參數(shù)輸入s = inputbox("輸入在設(shè)計(jì)作用面積內(nèi)的配水管的數(shù)目：", "配水管的確定")rem 參數(shù)判斷if s = "" or s <= 0 then 判斷條件d = msgbox("沒有輸入數(shù)據(jù)，要重新輸入嗎？", vbyesno + vbexclamation, "支管數(shù)的確定") if d = vbyes then unload form1 f

39、orm1.show else end end ifelserem 裝載按鈕位置for i = 1 to sh = i mod 2select case hcase 1rem 設(shè)置控件屬性label1(0).visible = falseload label1(i)label1(i).top = label1(i - 1).top + label1(0).height + 180label1(i).caption = "第 " & i & " 個(gè)配水管"label1 (i).visible = truecommand2 (0).visibl

40、e = falseload command2 (i)command2(i).top = command2(i - 1).top + command2(0).height + 180command2(i).visible = truecommand2(i).caption = "第 " & i & " 個(gè)配水管"case 0label1(0).visible = falseload label1(i)label1(i).top = label1(i - 2).top + label1(0).height + 180label1(i).lef

41、t = label3.leftlabel1(i).caption = "第 " & i & " 個(gè)配水管"label1(i).visible = truecommand2(0).visible = falseload command2(i)command2(i).top = command2(i - 2).top + command2(0).height + 180command2(i).left = command3.leftcommand2(i).visible = truecommand2(i).caption = "第

42、" & i & " 個(gè)配水管"end selectnext iend ifend sub 支管參數(shù)輸入sub weizhi()dim d, z,srem 支管數(shù)的輸入z = inputbox("輸入該配水管上的支管個(gè)數(shù)", "支管數(shù)的確定")rem 對輸入的數(shù)值進(jìn)行判斷if z = "" or z <= 1 thenx = msgbox("沒有輸入數(shù)據(jù)，要重新輸入嗎？", vbyesno + vbexclamation, "支管數(shù)的確定") i

43、f d = vbyes then unload form4 form4.show else end end ifend ifrem 支管上噴頭的確定s = inputbox("請輸入支管 1 上的噴頭數(shù)量", "噴頭數(shù)量的確定")if s <= 1 or s > 8 or s = "" thend = msgbox("數(shù)據(jù)輸入錯(cuò)誤,要重新輸入嗎？", vbyesno + vbexclamation, "噴頭數(shù)量的確定") if d = vbyes then unload form4

44、form4.show else end end if elselabel1(0).visible = falserem 裝載參數(shù)輸入的位置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).

45、visible = falsefor i = 1 to s - 1load label2(i)label2(i).top = label2(i - 1).top + label2(0).height + 180label2(i).visible = truelabel2(i).caption = "噴頭 " & i & "" & i + 1 & " 的距離"next ilabel4.caption = "噴頭 " & s & " 到配水管的距離"l

46、abel4.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)text1(i).top = text1(i - 1).top + text1(0).height + 180text1(

47、i).visible = truetext1(i).text = "單位：mm"next 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 = "單位：m"next iend ifend sub 參數(shù)的采集和確認(rèn)rem 使用控件的change和click屬性，將計(jì)算用參數(shù)賦予數(shù)組，并進(jìn)行數(shù)據(jù)rem 的篩選。rem 例子：

48、 使用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) = 0.053end selectend subrem 例子： 使用

49、click屬性private sub combo1_click()dim kselect case combo1.listindexcase 0k = 57case 1k = 80case 2k = 115end selectend subrem 按鍵的限制，限制鍵盤輸入來避免錯(cuò)誤。private sub text1_keypress(index as integer, keyascii as integer)dim bif keyascii > 57 or keyascii < 46 and keyascii <> 8 then b = msgbox("輸入

50、了無效字符，請重新輸入！", vbexclamation, "無效操作") keyascii = 0 end ifend sub6.3 參數(shù)計(jì)算 支管參數(shù)計(jì)算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 給數(shù)組賦初值b(0) = val(text3.text)c(0) = qrem 數(shù)據(jù)累加c(i) = c(i - 1) + wv = c(i) * a(i)f = val(text2

51、(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 數(shù)據(jù)輸出form7.text1.text = c(s)form7.text3.text = vform7.text2.text = b(s)form7.showend sub 配水管、干管參數(shù)計(jì)算以第一個(gè)配水管為例來說明private sub command2_click()dim a(),b(),c(),d()dim s,i,v,f,wope

52、n app.path + "txt 1.txt" for random as #1 len = len(shuzhi)s = lof(1) / len(shuzhi)for i=1 to sget #1,i,shizhia(i-1) = shuzhi.liuliangb(i-1) = shuzhi.yalinext irem 數(shù)據(jù)累加d(0)=a(0)c(0)=b(0)for i=1 to sd(i) = d(i-1) + wrem e(i)為管道的流量系數(shù)v = d(i) * e(i)f = val(text2(i).text) * (0.0000107) * (v 2)

53、 / (val(text1(i).text) - 1) * 0.001) 1.3)c(i) = c(i-1) + f rem 壓力修正 if i=s thenb(i)=1end ifw = d(i)*(c(i)/b(i)(0.5)next iredim preserve a(s), b(s), c(s), d(s)rem 數(shù)據(jù)輸出form10.text1.text = c(s)form10.text3.text = vform10.text2.text = d(s)form10.showclose #1end sub6.4 參數(shù)的保存private sub command1_click()dim shuzhi as as