计算机联锁课程设计综合报告

1、课程名称：计算机联锁设计题目： 计算机联锁进路选排设计 院 系： 计算机与通信工程系 年 级： 姓 名： 指导教师： 课 程 设 计 任 务 书专 业 铁道信号 姓 名 学 号 开题日期：年 月 日 完成日期：年 月 日题 目 计算机联锁进路选排设计 一、设计的目的 通过对课程设计任务的完成，进一步理解计算机联锁软件设计的理论内容，并且巩固和深化所学课程的知识，同时培养综合运用所学课程知识，分析和解决实际问题的能力，逐步树立正确的设计思想及严谨认真的科学态度。 二、设计的内容及要求 要求每位同学能够根据对计算机联锁的作业过程的认识，结合课程设计的内容，独立完成该课程设计。 设计内容： 1） 计

2、算机联锁数据库设计； 2） 计算机联锁进路处理程序的设计； 3） 系统软件平台的人机界面的设计。 三、指导教师评语 四、成 绩 指导教师 (签章) 年 月 计算机联锁进路选排设计计算机联锁系统是一种有人参与的系统。由于操作人员难免有操作失误的可能，所以应尽量通过检验或者判断使错误操作不至于形成命令。因此，对应每一个按钮的操作有一个按钮操作的分析程序。它的任务就是对输入的按钮操作有一个按钮操作的分析程序。符合要求的形成操作命令存于操作命令表中，以便进一步处理。不符合要求的给出“操作错误”的语音及文字提示，提醒操作人员改正自己的错误操作。根据联锁要求，即便是合法的操作命令也必须在规定的条件满足之后

3、才执行。当执行一条操作命令时，如果它的执行条件没有满足，则也应向操作人员提供“操作命令无效”的信息，以便操作人员采取相应措施。一、计算机联锁数据库设计进路选排由于要用计算机程序实现，故首先需要定义动态变量，形成数据库。站场计算机联锁中动态变量有以下几种：操作输入变量、状态输入变量、表示输出变量、设备控制变量、中间变量五种，各自作用如下：1、操作输入变量：反映操作人员操作动作的开关量，在联锁系统中，为了防止误动一个操作而形成操作命令，一般需要由两次或两次以上的操作才能形成操作命令，操作输入变量是形成操作命令的原始数据。2、状态输入变量：反映监控对象状态的变量，如轨道电路区段状态、道岔状态、信号机

4、状态、灯丝状态，以及与进路相关的其他设备状态等。状态变量是参与联锁运算的安全数据。3、表示输出变量：指向控制台、表示盘或屏幕显示器提供的变量。4、设备控制变量：设备控制变量是指控制信号机和转辙机的变量。5、中间变量：联锁程序执行过程中产生的一些变量，是实现联锁逻辑而起过度或中间转换作用的。有的存放在动态数据模块中，有的动态产并动态释放。二、计算机联锁进路处理程序的设计 建立好数据库之后，需要设计进路搜索程序，进路搜索程序应完成如下任务：1、根据进路操作命令只能选出一条符合操作要求的进路。2、判明操作命令的合法性。操作命令是否合法本应该在形成“进路操作命令”之前检查，但这种方法需要在存储器中存放

5、标准操作数据，数量大容易出错，因此将合法性检查移到这里。方法是如果能按照进路操作命令选出一条进路，则证明命令是合法的，否则是不合法的。3、判明已搜索出的尽力是否有建立的可能性。即检查所选出的进路的敌对进路有没有建立。若有建立，则选的进路无效，于是应形成“进路操作命令无效”的信息。4、如果能建立进路，则在于该进路有关的所有变量模块中设置一个占用标志，以防其他进路再有占用这些模块的可能，即敌对进路的锁闭。5、指明与进路有关的道岔应在定位还是反位。6、形成一个进路表并存于进路总表中供联锁处理程序使用。建立进路搜索程序步骤如下：1、绘出站场型数据模块链接图（以举例站场下行咽喉为例）。2、说明进路搜索的

6、顺序。例如画出在K（5）处设置导向标志Yd时：实现D3到SIII进路搜索过程；以及在K（21）处设置导向标志Yd时，实现XD到SIII进路搜索过程。3、根据所画出的进路搜索顺序，用VB软件实现进路搜索。按发车方向搜索，根据进路的方向确定搜索的始端和终端，遇到死节点可以回退，变更节点。相关节点分析和定义如下：开始节点K0-按发车方向进行搜索的起始指定节点。在本进路搜索过程中就是K(D1)。中间节点Ki-与变更按钮相对应的指定节点。本进路搜索中没有设置变更按钮，虽然是选的D1-SII的变更进路。目标节点Kg-它是按发车方向进行搜索时所要找到的最后的指定节点。本进路搜索中的目标节点就是调车车进路的终

7、点SII。渡线类型暂存单元L 用它存放“八”字型道岔第一动撇型“/”或“八”字型道岔第二动捺型“”。按照所绘制的站场，在5号道岔处设置有导向标志Yd，根据进路搜索原则：有导向标志的道岔弯股优先。举例站场数据模块链接图，在K（5）处设置导向标志Yd时，D3到SIII进路搜索过程以及在K（21）处设置导向标志Yd时， XD到SIII进路搜索过程如下图：S5举例站场下行咽喉部分数据模块连接图进路搜索过程（D3到SIII进路搜索过程）S5画出进路搜索过程后，根据进路搜索过程编写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