精品資料（2021-2022年收藏）計(jì)算機(jī)聯(lián)鎖課程設(shè)計(jì)綜合報(bào)告DOC

1、課程名稱：計(jì)算機(jī)聯(lián)鎖設(shè)計(jì)題目： 計(jì)算機(jī)聯(lián)鎖進(jìn)路選排設(shè)計(jì) 院 系： 計(jì)算機(jī)與通信工程系 年 級： 姓 名： 指導(dǎo)教師： 課 程 設(shè) 計(jì) 任 務(wù) 書專 業(yè) 鐵道信號 姓 名 學(xué) 號 開題日期：年 月 日 完成日期：年 月 日題 目 計(jì)算機(jī)聯(lián)鎖進(jìn)路選排設(shè)計(jì) 一、設(shè)計(jì)的目的 通過對課程設(shè)計(jì)任務(wù)的完成，進(jìn)一步理解計(jì)算機(jī)聯(lián)鎖軟件設(shè)計(jì)的理論內(nèi)容，并且鞏固和深化所學(xué)課程的知識，同時(shí)培養(yǎng)綜合運(yùn)用所學(xué)課程知識，分析和解決實(shí)際問題的能力，逐步樹立正確的設(shè)計(jì)思想及嚴(yán)謹(jǐn)認(rèn)真的科學(xué)態(tài)度。 二、設(shè)計(jì)的內(nèi)容及要求 要求每位同學(xué)能夠根據(jù)對計(jì)算機(jī)聯(lián)鎖的作業(yè)過程的認(rèn)識，結(jié)合課程設(shè)計(jì)的內(nèi)容，獨(dú)立完成該課程設(shè)計(jì)。 設(shè)計(jì)內(nèi)容： 1） 計(jì)

2、算機(jī)聯(lián)鎖數(shù)據(jù)庫設(shè)計(jì)； 2） 計(jì)算機(jī)聯(lián)鎖進(jìn)路處理程序的設(shè)計(jì)； 3） 系統(tǒng)軟件平臺的人機(jī)界面的設(shè)計(jì)。 三、指導(dǎo)教師評語 四、成 績 指導(dǎo)教師 (簽章) 年 月 計(jì)算機(jī)聯(lián)鎖進(jìn)路選排設(shè)計(jì)計(jì)算機(jī)聯(lián)鎖系統(tǒng)是一種有人參與的系統(tǒng)。由于操作人員難免有操作失誤的可能，所以應(yīng)盡量通過檢驗(yàn)或者判斷使錯(cuò)誤操作不至于形成命令。因此，對應(yīng)每一個(gè)按鈕的操作有一個(gè)按鈕操作的分析程序。它的任務(wù)就是對輸入的按鈕操作有一個(gè)按鈕操作的分析程序。符合要求的形成操作命令存于操作命令表中，以便進(jìn)一步處理。不符合要求的給出“操作錯(cuò)誤”的語音及文字提示，提醒操作人員改正自己的錯(cuò)誤操作。根據(jù)聯(lián)鎖要求，即便是合法的操作命令也必須在規(guī)定的條件滿足之后

3、才執(zhí)行。當(dāng)執(zhí)行一條操作命令時(shí)，如果它的執(zhí)行條件沒有滿足，則也應(yīng)向操作人員提供“操作命令無效”的信息，以便操作人員采取相應(yīng)措施。一、計(jì)算機(jī)聯(lián)鎖數(shù)據(jù)庫設(shè)計(jì)進(jìn)路選排由于要用計(jì)算機(jī)程序?qū)崿F(xiàn)，故首先需要定義動態(tài)變量，形成數(shù)據(jù)庫。站場計(jì)算機(jī)聯(lián)鎖中動態(tài)變量有以下幾種：操作輸入變量、狀態(tài)輸入變量、表示輸出變量、設(shè)備控制變量、中間變量五種，各自作用如下：1、操作輸入變量：反映操作人員操作動作的開關(guān)量，在聯(lián)鎖系統(tǒng)中，為了防止誤動一個(gè)操作而形成操作命令，一般需要由兩次或兩次以上的操作才能形成操作命令，操作輸入變量是形成操作命令的原始數(shù)據(jù)。2、狀態(tài)輸入變量：反映監(jiān)控對象狀態(tài)的變量，如軌道電路區(qū)段狀態(tài)、道岔狀態(tài)、信號機(jī)

4、狀態(tài)、燈絲狀態(tài)，以及與進(jìn)路相關(guān)的其他設(shè)備狀態(tài)等。狀態(tài)變量是參與聯(lián)鎖運(yùn)算的安全數(shù)據(jù)。3、表示輸出變量：指向控制臺、表示盤或屏幕顯示器提供的變量。4、設(shè)備控制變量：設(shè)備控制變量是指控制信號機(jī)和轉(zhuǎn)轍機(jī)的變量。5、中間變量：聯(lián)鎖程序執(zhí)行過程中產(chǎn)生的一些變量，是實(shí)現(xiàn)聯(lián)鎖邏輯而起過度或中間轉(zhuǎn)換作用的。有的存放在動態(tài)數(shù)據(jù)模塊中，有的動態(tài)產(chǎn)并動態(tài)釋放。二、計(jì)算機(jī)聯(lián)鎖進(jìn)路處理程序的設(shè)計(jì) 建立好數(shù)據(jù)庫之后，需要設(shè)計(jì)進(jìn)路搜索程序，進(jìn)路搜索程序應(yīng)完成如下任務(wù)：1、根據(jù)進(jìn)路操作命令只能選出一條符合操作要求的進(jìn)路。2、判明操作命令的合法性。操作命令是否合法本應(yīng)該在形成“進(jìn)路操作命令”之前檢查，但這種方法需要在存儲器中存放

5、標(biāo)準(zhǔn)操作數(shù)據(jù)，數(shù)量大容易出錯(cuò)，因此將合法性檢查移到這里。方法是如果能按照進(jìn)路操作命令選出一條進(jìn)路，則證明命令是合法的，否則是不合法的。3、判明已搜索出的盡力是否有建立的可能性。即檢查所選出的進(jìn)路的敵對進(jìn)路有沒有建立。若有建立，則選的進(jìn)路無效，于是應(yīng)形成“進(jìn)路操作命令無效”的信息。4、如果能建立進(jìn)路，則在于該進(jìn)路有關(guān)的所有變量模塊中設(shè)置一個(gè)占用標(biāo)志，以防其他進(jìn)路再有占用這些模塊的可能，即敵對進(jìn)路的鎖閉。5、指明與進(jìn)路有關(guān)的道岔應(yīng)在定位還是反位。6、形成一個(gè)進(jìn)路表并存于進(jìn)路總表中供聯(lián)鎖處理程序使用。建立進(jìn)路搜索程序步驟如下：1、繪出站場型數(shù)據(jù)模塊鏈接圖（以舉例站場下行咽喉為例）。2、說明進(jìn)路搜索的

6、順序。例如畫出在K（5）處設(shè)置導(dǎo)向標(biāo)志Yd時(shí)：實(shí)現(xiàn)D3到SIII進(jìn)路搜索過程；以及在K（21）處設(shè)置導(dǎo)向標(biāo)志Yd時(shí)，實(shí)現(xiàn)XD到SIII進(jìn)路搜索過程。3、根據(jù)所畫出的進(jìn)路搜索順序，用VB軟件實(shí)現(xiàn)進(jìn)路搜索。按發(fā)車方向搜索，根據(jù)進(jìn)路的方向確定搜索的始端和終端，遇到死節(jié)點(diǎn)可以回退，變更節(jié)點(diǎn)。相關(guān)節(jié)點(diǎn)分析和定義如下：開始節(jié)點(diǎn)K0-按發(fā)車方向進(jìn)行搜索的起始指定節(jié)點(diǎn)。在本進(jìn)路搜索過程中就是K(D1)。中間節(jié)點(diǎn)Ki-與變更按鈕相對應(yīng)的指定節(jié)點(diǎn)。本進(jìn)路搜索中沒有設(shè)置變更按鈕，雖然是選的D1-SII的變更進(jìn)路。目標(biāo)節(jié)點(diǎn)Kg-它是按發(fā)車方向進(jìn)行搜索時(shí)所要找到的最后的指定節(jié)點(diǎn)。本進(jìn)路搜索中的目標(biāo)節(jié)點(diǎn)就是調(diào)車車進(jìn)路的終

7、點(diǎn)SII。渡線類型暫存單元L 用它存放“八”字型道岔第一動撇型“/”或“八”字型道岔第二動捺型“”。按照所繪制的站場，在5號道岔處設(shè)置有導(dǎo)向標(biāo)志Yd，根據(jù)進(jìn)路搜索原則：有導(dǎo)向標(biāo)志的道岔彎股優(yōu)先。舉例站場數(shù)據(jù)模塊鏈接圖，在K（5）處設(shè)置導(dǎo)向標(biāo)志Yd時(shí)，D3到SIII進(jìn)路搜索過程以及在K（21）處設(shè)置導(dǎo)向標(biāo)志Yd時(shí)， XD到SIII進(jìn)路搜索過程如下圖：S5舉例站場下行咽喉部分?jǐn)?shù)據(jù)模塊連接圖進(jìn)路搜索過程（D3到SIII進(jìn)路搜索過程）S5畫出進(jìn)路搜索過程后，根據(jù)進(jìn)路搜索過程編寫VB程序，這里以X到S4以及X到S4為例：X到S4Private Sub Command61_Click()k = 1If a

8、 = 1 And k = 1 ThenLine1(31).BorderColor = vbWhiteLine1(31).BorderStyle = 1Line1(32).BorderColor = vbWhiteLine1(32).BorderStyle = 1Line1(48).BorderColor = vbWhiteLine1(48).BorderStyle = 1Line1(49).BorderColor = vbWhiteLine1(49).BorderStyle = 1Line1(50).BorderColor = vbWhiteLine1(50).BorderStyle = 1L

9、ine1(51).BorderColor = vbWhiteLine1(51).BorderStyle = 1Line1(53).BorderColor = vbWhiteLine1(53).BorderStyle = 1Line3(16).BorderColor = vbWhiteLine3(16).BorderStyle = 1Line3(17).BorderColor = vbWhiteLine3(17).BorderStyle = 1Line3(25).BorderColor = vbWhiteLine3(25).BorderStyle = 1Line2(29).BorderColor

10、 = vbWhiteLine2(29).BorderStyle = 1Line2(30).BorderColor = vbWhiteLine2(30).BorderStyle = 1Shape3(4).FillColor = vbGreenShape3(9).FillColor = vbGreenShape2(12).FillColor = vbGreenShape1(42).FillColor = vbGreenShape2(10).FillColor = vbGreenShape1(6).FillColor = &H8080&Shape1(8).FillColor = &a

11、mp;H8080&End IfEnd SubXD到S3Private Sub Command63_Click()g = 1If e = 1 And g = 1 ThenLine1(60).BorderColor = vbWhiteLine1(60).BorderStyle = 1Line1(61).BorderColor = vbWhiteLine1(61).BorderStyle = 1Line1(62).BorderColor = vbWhiteLine1(62).BorderStyle = 1Line1(63).BorderColor = vbWhiteLine1(63).Bor

12、derStyle = 1Line1(64).BorderColor = vbWhiteLine1(64).BorderStyle = 1Line1(44).BorderColor = vbWhiteLine1(44).BorderStyle = 1Line1(45).BorderColor = vbWhiteLine1(45).BorderStyle = 1Shape3(10).FillColor = vbGreenShape3(7).FillColor = vbGreenEnd IfEnd SubX接通光帶：Private Sub Command26_Click()If Shape1(52)

13、.FillColor = &H808080 ThenShape1(52).FillColor = vbGreenElseShape1(52).FillColor = &H808080End IfIf Shape1(52).FillColor = vbGreen ThenLine2(34).BorderColor = vbWhiteLine2(34).BorderStyle = 1Line3(33).BorderColor = vbWhiteLine3(33).BorderStyle = 1Line3(27).BorderColor = vbWhiteLine3(27).Bord

14、erStyle = 1Line1(1).BorderColor = vbWhiteLine1(1).BorderStyle = 1Line1(60).BorderColor = vbWhiteLine1(60).BorderStyle = 1Line1(61).BorderColor = vbWhiteLine1(61).BorderStyle = 1Line1(62).BorderColor = vbWhiteLine1(62).BorderStyle = 1Line1(63).BorderColor = vbWhiteLine1(63).BorderStyle = 1Line1(64).B

15、orderColor = vbWhiteLine1(64).BorderStyle = 1Line3(32).BorderColor = vbWhiteLine3(32).BorderStyle = 1Line2(38).BorderColor = vbWhiteLine2(38).BorderStyle = 1Line1(31).BorderColor = vbWhiteLine1(31).BorderStyle = 1Line1(32).BorderColor = vbWhiteLine1(32).BorderStyle = 1Line1(48).BorderColor = vbWhite

16、Line1(48).BorderStyle = 1Line1(49).BorderColor = vbWhiteLine1(49).BorderStyle = 1Line1(50).BorderColor = vbWhiteLine1(50).BorderStyle = 1Line1(51).BorderColor = vbWhiteLine1(51).BorderStyle = 1Line1(53).BorderColor = vbWhiteLine1(53).BorderStyle = 1Line3(16).BorderColor = vbWhiteLine3(16).BorderStyl

17、e = 1Line3(17).BorderColor = vbWhiteLine3(17).BorderStyle = 1Line3(25).BorderColor = vbWhiteLine3(25).BorderStyle = 1Line2(29).BorderColor = vbWhiteLine2(29).BorderStyle = 1Line2(30).BorderColor = vbWhiteLine2(30).BorderStyle = 1Line1(45).BorderColor = vbWhiteLine1(45).BorderStyle = 1Line1(47).Borde

18、rColor = vbWhiteLine1(47).BorderStyle = 1Line1(44).BorderColor = vbWhiteLine1(44).BorderStyle = 1ElseLine1(1).BorderColor = &HFFFF00Line1(1).BorderStyle = 1Line1(60).BorderColor = &HFFFF00Line1(60).BorderStyle = 1Line1(61).BorderColor = &HFFFF00Line1(61).BorderStyle = 1Line1(62).BorderCo

19、lor = &HFFFF00Line1(62).BorderStyle = 1Line1(63).BorderColor = &HFFFF00Line1(63).BorderStyle = 1Line1(64).BorderColor = &HFFFF00Line1(64).BorderStyle = 1Line3(32).BorderColor = &HFFFF00Line3(32).BorderStyle = 1Line2(38).BorderColor = &HFFFF00Line2(38).BorderStyle = 1Line1(31).Bor

20、derColor = &HFFFF00Line1(31).BorderStyle = 1Line1(32).BorderColor = &HFFFF00Line1(32).BorderStyle = 1Line1(48).BorderColor = &HFFFF00Line1(48).BorderStyle = 1Line1(49).BorderColor = &HFFFF00Line1(49).BorderStyle = 1Line1(50).BorderColor = &HFFFF00Line1(50).BorderStyle = 1Line1(51).BorderColor = &HFFFF00Line1(51).BorderStyle = 1Line1(53).BorderColor = &HFFFF00Line1(53).BorderStyle = 1Line3(16).BorderColor = &HFFFF00Line3(16).Bord