敖德海05.docVIP

DELPHI模拟交通灯的设计报告 课程名称： ?DELPHI与自动控制系统开发教程 专 业： 计算机控制技术 班 级： 计控051 学 号： 051413108 姓 名： 敖德海 2008年 1 月 3 日 目 录 系统设计要求和解决方案 软件实现 实现的功能 心得体会 附录、参考文献 系统设计要求和解决方案 系统要求 一个十字路口，共有四组红绿灯，每个路口的车辆都遵循“红灯停、绿灯行”的原则，假设将每一台汽车都作为一个进程，请设计良好的机制，展示出合理的“十字路口交通管理”情况。车辆数目：每个路口的车辆数目不超过5辆，程序能够提供参数来设定初始的车辆数目。交通灯设定：初始情况一个路口为红灯、一个路口为绿灯；红灯变为绿灯的间隔为3秒，必须保持十字路口交通灯的设定正确。车辆通行设定：路口宽度不限，对一个路口而言，只有当一辆车通过路口（越过对面路口的交通灯后）后，其后续车辆才能继续通过交通灯，车辆通过路口的时间可以固定、可以自行计算，但是不能为3秒。（即必须体现交通灯对通行的管制）。进程的互斥：交通灯进程实际上是互斥的，即不能同时为红或者同时为绿。进程的消息通信或其他通信方式：对车辆进程而言，每一个车辆在通过路口前，必须确认前面的车辆已经通过了路口。进程的调度：停留在一个路口的车辆，决定其前进或等候的因素是交通灯和前面车辆的状态，需要设计一个良好的进程调度机制来控制所有车辆的通行。 解决方案 设计两个类，分别为TTrafficCross和TVehicle，分别为路口类和车辆类。 用TTime控件持续调用TTafficCross的Refresh函数来保持路口的实时运行。 用TTafficCross的VehicleCreate函数每秒按几率在各个方向生成车辆。 用datCrossOccupied作为路口占用的信号量，用以维护路口指挥同时被南北或东西方向占用。 用datLights储存各个路口交通灯的状态。 每个车辆TVehicle自身维护一个一维坐标系，作为自己在自己方向上的状态。 绘图是根据方向和车辆自身的坐标系坐标，转变为二维坐标绘制在datImage上。 车辆数量、交通灯时间也已经能够在界面设置。 第二章：软件实现 部分代码 窗体文件fromMain.pas var TrafficCross: TTrafficCross; IsCreated: bool; //判定是否已经创建对象 procedure Tfrmmain.FormCreate(Sender: TObject); //初始化Timer及窗体 procedure Tfrmmain.btnStartClick(Sender: TObject); //读入初始化数据，并创建TrafficCross对象 procedure Tfrmmain.btnFinishClick(Sender: TObject); //释放TrafficCross对象 procedure Tfrmmain.timerMainTimer(Sender: TObject); //Timer触发事件，调用TrafficCross. Refresh 路口类classCross.pas TTrafficCross= class public constructor Create(var image: TImage; time_green,time_red,time_yellow: TLightsTime; initialnum: TCrosses; timerinterval: TTime; peed: TCoordinateSD; maxnum: TUInt; createprop: TUInt); //initialnum记录初始交通状况， 车辆列队于道路外边界坐标依次 0, [1].long, [2].head+[2].long, ... //timerinterval记录外部timer的扫描周期 procedure Refresh; private conTimerInterval: TTime; conMaxVehicle: TUInt; //单向最大车辆数 conCreateProp: TUInt;