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

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

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

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

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

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

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

7、型道岔第一动撇型“/ ”或“八”字型道岔第二动捺型“”。按照所绘制的站场，在5号道岔处设置有导向标志 Yd,根据进路搜 索原则：有导向标志的道岔弯股优先。举例站场数据模块链接图，在K（ 5）处设置导向标志Yd 时， D3 到SIII 进路搜索过程以及在K（ 21）处设置导向标志Yd 时， XD 到 SIII 进 路搜索过程如下图：精选c： S5举例站场下行咽喉部分数据模块连接图进路搜索过程(D3到Siii进路搜索过程)O S5画出进路搜索过程后，根据进路搜索过程编写VB程序，这里以X到S4以及X到&为例：X到S4Private Sub Command61_Click()k = 1If

8、a = 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(50).BorderColor = vbWhiteLine1(50).BorderStyle = 1Line1(51).BorderColor = v

9、bWhiteLine1(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 = vbWhiteLine2(29).Bord

10、erStyle = 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 = &H8080&End IfEnd

11、 SubX D 到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).BorderStyle = 1Line1(64

12、).BorderColor = vbWhiteLine1(64).BorderStyle = 1Line1(44).BorderColor = vbWhiteLine1(44).BorderStyle = 1Line1(45).BorderColor = vbWhiteLine1(45).BorderStyle = 1Shape3(10).FillColor = vbGreen精选Shape3(7).FillColor = vbGreenEnd IfEnd SubX 接通光带：Private Sub Command26_Click()If Shape1(52).FillColor = &

13、;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).BorderStyle = 1Line1(

14、1).BorderColor = vbWhiteLine1(1).BorderStyle = 1Line1(60).BorderColor = vbWhiteLine1(60).BorderStyle = 1Line1(61).BorderColor = vbWhite精选Line1(61).BorderStyle = 1Line1(62).BorderColor = vbWhiteLine1(62).BorderStyle = 1Line1(63).BorderColor = vbWhiteLine1(63).BorderStyle = 1Line1(64).BorderColor = vb

15、WhiteLine1(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 = vbWhiteLine1(48).Borde

16、rStyle = 1Line1(49).BorderColor = vbWhiteLine1(49).BorderStyle = 1Line1(50).BorderColor = vbWhiteLine1(50).BorderStyle = 1Line1(51).BorderColor = vbWhite精选Line1(51).BorderStyle = 1Line1(53).BorderColor = vbWhiteLine1(53).BorderStyle = 1Line3(16).BorderColor = vbWhiteLine3(16).BorderStyle = 1Line3(17

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).BorderColor = vbWh

18、iteLine1(47).BorderStyle = 1Line1(44).BorderColor = vbWhiteLine1(44).BorderStyle = 1ElseLine1(1).BorderColor = &HFFFF00Line1(1).BorderStyle = 1精选Line1(60).BorderColor&HFFFF00Line1(60).BorderStyleLine1(61).BorderColorLine1(61).BorderStyleLine1(62).BorderColorLine1(62).BorderStyleLine1(63).Bor

19、derColorLine1(63).BorderStyleLine1(64).BorderColorLine1(64).BorderStyleLine3(32).BorderColorLine3(32).BorderStyleLine2(38).BorderColorLine2(38).BorderStyleLine1(31).BorderColorLine1(31).BorderStyleLine1(32).BorderColorLine1(32).BorderStyleLine1(48).BorderColorLine1(48).BorderStyle1&HFFFF001&

20、HFFFF001&HFFFF001&HFFFF001&HFFFF001&HFFFF001&HFFFF001&HFFFF001&HFFFF001&HFFFF00Line1(49).BorderColorLine1(49).BorderStyle = 1精选Line1(50).BorderColor = &HFFFF00Line1(50).BorderStyle = 1Line1(51).BorderColor = &HFFFF00Line1(51).BorderStyle = 1Line1(53).BorderColor = &HFFFF00Line1(53).BorderStyle = 1Line3(16).BorderColor = &HFFFF00Line3(16).BorderStyle =