提到红绿信号灯,想必都了解它的基本皤材装肢工作过程,一个方向直行和左转都是红灯时,另一个方向则显示直行绿灯,左转红灯,接着直行红灯,左转绿灯,然后两个方向互换。假如更复杂些,还有右茌慊瑞谷转红绿灯的设置规则问题了。在此,详细叙述下,在Excel中,利用VBA编程,设计双向红绿信号灯模拟运行一个周期的流程步骤。
工具/原料
Excel中VBAdoubletrafficlights红绿信号灯模拟设计流程
DimmosquitAsBoolean
DoWhilemosquit=False
mosstart=Timer
DoWhileTimer DoEvents WithSelection.Font .Color=? .TintAndShade=0 方法/步骤 1、以下是Excel中,双向红绿信号灯的模拟显示图,当前初始状态,南北向红灯等待瀵鸦铙邮66秒,东西向绿灯直行放行30秒;
2、红绿信号灯运行模拟效果如下,一个周期依鸱远忡绑次是东西向直行绿灯,左转红灯,东西向直行黄灯,左转红灯,东西向直行红灯,左转绿灯,东西向直行红灯,左转黄灯,东西向直行红灯,左转红灯,南北向与之对应;
3、如下VBA代码1st;
4、如下VBA代码2nd;
5、如下VBA代码3rd;
6、如下VBA代码4th;
7、如下VBA代码5th;
8、如下VBA代码6th;
9、如下VBA代码7th;
10、如下VBA代码8th;
11、如下VBA代码9th;