Excel中VBA doub traffic lights信号灯模拟设计

 时间:2024-09-25 12:20:49

提到红绿信号灯,想必都了解它的基本皤材装肢工作过程,一个方向直行和左转都是红灯时,另一个方向则显示直行绿灯,左转红灯,接着直行红灯,左转绿灯,然后两个方向互换。假如更复杂些,还有右茌慊瑞谷转红绿灯的设置规则问题了。在此,详细叙述下,在Excel中,利用VBA编程,设计双向红绿信号灯模拟运行一个周期的流程步骤。

工具/原料

Excel中VBAdoubletrafficlights红绿信号灯模拟设计流程

DimmosquitAsBoolean

DoWhilemosquit=False

mosstart=Timer

DoWhileTimer

DoEvents

WithSelection.Font

.Color=?

.TintAndShade=0

方法/步骤

1、以下是Excel中,双向红绿信号灯的模拟显示图,当前初始状态,南北向红灯等待瀵鸦铙邮66秒,东西向绿灯直行放行30秒;

Excel中VBA doub traffic lights信号灯模拟设计

2、红绿信号灯运行模拟效果如下,一个周期依鸱远忡绑次是东西向直行绿灯,左转红灯,东西向直行黄灯,左转红灯,东西向直行红灯,左转绿灯,东西向直行红灯,左转黄灯,东西向直行红灯,左转红灯,南北向与之对应;

Excel中VBA doub traffic lights信号灯模拟设计

3、如下VBA代码1st;

Excel中VBA doub traffic lights信号灯模拟设计

4、如下VBA代码2nd;

Excel中VBA doub traffic lights信号灯模拟设计

5、如下VBA代码3rd;

Excel中VBA doub traffic lights信号灯模拟设计

6、如下VBA代码4th;

Excel中VBA doub traffic lights信号灯模拟设计

7、如下VBA代码5th;

Excel中VBA doub traffic lights信号灯模拟设计

8、如下VBA代码6th;

Excel中VBA doub traffic lights信号灯模拟设计

9、如下VBA代码7th;

Excel中VBA doub traffic lights信号灯模拟设计

10、如下VBA代码8th;

Excel中VBA doub traffic lights信号灯模拟设计

11、如下VBA代码9th;

Excel中VBA doub traffic lights信号灯模拟设计

Word常用工具栏不见了 如何显示和移动工具栏 如何将表格转化成图片? PDF文件如何在线删除水印痕迹 Excel如何快速去掉0值 WPS表格怎么使用IMLOG2函数?
热门搜索
金卤灯图片 元旦快乐图片 lovelive图片 宠物狗品种图片大全 喷绘图片