Traffic开发过程.ppt

Project 6交通灯管制程序的开发步骤;Traffic2.vbp开发步骤;1、制作红绿灯组件： 1）添加Shape（形状）控件→设FillColor为兰色→设FillStyle为 0-Solid 2）添加Shape（形状）控件→设FillColor为红色→设FillStyle为 0-Solid→设Shape为3-Circle→设BorderCorlor为白色(显示白环) 3）添加Shape（形状）控件→(设FillColor为黑色)→设FillStyle为 0-Solid→设Shape为3-Circle→设BorderCorlor为白色(显示白环) 4）添加Shape（形状）控件→(设FillColor为黑色)→设FillStyle为 0-Solid→设Shape为3-Circle→设BorderCorlor为白色(显示白环) 2、添加一个时间控件Timer1, 设 Interval为1000（1秒） 3、设置1个全局变量：Dim x As Integer ‘x为(连续记数和)状态控制参数 0，1，2，3 4、为时间控件Timer1添加程序：实现按变量x的4个数值变换依次调用子程序 ChangeLights x = x + 1 if x3 then x=0 Call ChangeLights;6、独立开发子程序ChangeLights（工具→添加过程） ‘根据参数x的数值，依次变换4种显示状态：红、红黄、绿、黄。 If x = 0 Then shpRed.FillColor = vbRed shpAmber.FillColor = vbBlack shpGreen.FillColor = vbBlack End If If x = 1 Then shpRed.FillColor = vbRed shpAmber.FillColor = vbYellow shpGreen.FillColor = vbBlack End If If x = 2 Then shpRed.FillColor = vbBlack shpAmber.FillColor = vbBlack shpGreen.FillColor = vbGreen End If If x = 3 Then shpRed.FillColor = vbBlack shpAmber.FillColor = vbYellow shpGreen.FillColor = vbBlack End If;Traffic3.vbp开发步骤;在Traffic2.vbp的基础上，改变原来的时间控件Timer1程序代码，实现红灯和绿灯状态的各延时4秒。;2、这是时间控件Timer1新的程序：实现红灯和绿灯状态的各延时4秒。 Private Sub Timer1_Timer() 通过控制Wait的数值，使得c的值当c=0或c=2时每4轮才发生改变， ‘这样实际上c=0和c=2的这两个状态就分别被连续显示了四遍。 ‘造成了这两个显示状态的4秒延时。 If Wait = 0 Then 只有 Wait=0才发生状态参数c的改变 x = x + 1 if x3 then x=0 If x = 0 Or x = 2 Then Wait = 4 红、绿灯亮时，分别延时4轮（这里即4秒）。 Else Wait = Wait - 1 If Wait 0 Then Wait = 0 End If Call ChangeLights 注意：这里调用子程的效果取决于c的值，c值不变，调用效果也不变！ ‘就是说，由于Wait的控制，造成c=0和c=2的值每4轮才变化一次， ‘使得红灯和绿灯都各显示4轮（4秒）。 Label1.Caption = Format(Time, frmTrafficLights.Tag) 额外加标签控件，显示时间以供观察！ End Sub;以上是书上推荐的程序。另外一个思路：将总共10秒的四种亮灯状态改用x的10个数字来控制：（ Traffic3-Modify.vbp）;●相应的时间控件Timer1改为每一秒按变量x的10个不同数值（0～9）调用子程序 ChangeLights，