交通信号灯控制程序设计

简单I/O实验（交通灯控制）

一实验要求

以74LS273作为输出口，控制4个双色LED灯（可发红，绿，黄光），模拟交通灯管理。

二实验目的

1学习在单片机系统中扩展简单I/O接口的方法。

2学习数据输出程序的设计方法。

3学习模拟交通灯控制的方法。

4学习双色灯的使用。

三实验电路及连线

四实验说明

1因为本实验是交通灯控制实验，所以要先了解实际交通灯的变化规律。假设一个十字路口为东西南北走向。初始状态0为东西红灯，南北红灯。然后转状态1南北绿灯通车，东西红灯。过一段时间转状态2，南北绿灯闪几次转亮黄灯，延时几秒，东西仍然红灯。再转状态3，东西绿灯通车，南北红灯。过一段时间转状态4，东西绿灯闪几次转亮黄灯，延时几秒，南北仍然红灯。最后循环至状态1。

2双色LED是由一个红色LED管芯和一个绿色LED管芯封装在一起，公用负端。当红色正端加高电平，绿色正端加低电平时，红灯亮；红色正端加低电平，绿色正端加高电平时，绿灯亮；两端都加高电平时，黄灯亮。

五实验程序框图

程序框图：

源代码：

ORG 0000H

LJMP START

ORG 0040H

START:

MOV SP,#60H

LCALL STATUS0 ;初始状态(都是红灯)

CIRCLE: LCALL STATUS1 ;南北绿灯,东西红灯

LCALL STATUS2 ;南北绿灯闪转黄灯,东西红灯

LCALL STATUS3 ;南北红灯,东西绿灯

LCALL STATUS4 ;南北红灯,东西绿灯闪转黄灯

LJMP CIRCLE

STATUS0: ;南北红灯,东西红灯

MOV DPTR,#8300H

MOV A,#0FH

MOVX @DPTR,A

MOV R2,#10 ;延时1秒

LCALL DELAY

RET

STATUS1: ;南北绿灯,东西红灯

MOV DPTR,#08300H

MOV A,#5AH ;南北绿灯,东西红灯

MOVX @DPTR,A

MOV R2,#50 ;延时5秒

LCALL DELAY

RET

STATUS2: ;南北绿灯闪转黄灯,东西红灯

MOV DPTR,#8300H

MOV R3,#03H ;绿灯闪3次

FLASH: MOV A,#5FH

MOVX @DPTR,A

MOV R2,#03H

LCALL DELAY

MOV A,#5AH

MOVX @DPTR,A

MOV R2,#03H

LCALL DELAY

DJNZ R3,FLASH

MOV A,#0AH ;南北黄灯,东西红灯

MOVX @DPTR,A

MOV R2,#10 ;延时1秒

LCALL DELAY

RET

STATUS3: ;南北红灯,东西绿灯

MOV DPTR,#8300H

MOV A,#0A5H

MOVX @DPTR,A

MOV R2,#50 ;延时5秒

LCALL DELAY

RET

STATUS4: ;南北红灯,东西绿灯闪转黄灯

MOV DPTR,#8300H

MOV R3,#03H ;绿灯闪3次

FLASH1: MOV A,#0AFH

MOVX @DPTR,A

MOV R2,#03H

LCALL DELAY

MOV A,#0A5H

MOVX @DPTR,A

MOV R2,#03H

LCALL DELAY

DJNZ R3,FLASH1

MOV A,#05H ;南北红灯,东西黄灯

MOVX @DPTR,A

MOV R2,#10 ;延时1秒

LCALL DELAY

NOP

RET

DELAY: ;延时子程序

PUSH 2

PUSH 1

PUSH 0

DELAY1: MOV 1,#00H

DELAY2: MOV 0,#0B2H

DJNZ 0,$

DJNZ 1,DELAY2 ;延时 100 mS

DJNZ 2,DELAY1

POP 0

POP 1

POP 2

RET

END

你这个程序和你发上来的图，是不符的。

无论是看图，还是看程序，都不能确定LED怎么接。

这是从哪抄来的程序吗，是想仿真呢，还是想做实物呢，还是完成作业呢。

交通灯的题目，在百度里，可以找到无数个，还不如搜索一个呢。

这么个不完整的图不完整的程序，图和程序也不相符的东西就不要再纠结了。

一个按钮控制，在一个灯上显示三种状态，进行切换,供参考：

所以时间你自己得修改

Option

Explicit

Dim

a

As

Byte

Private

Sub

Command1_Click()

a

=

a

+

1

If

a

=

1

Then

Shape1FillColor

=

vbRed

ElseIf

a

=

2

Then

Shape1FillColor

=

vbYellow

ElseIf

a

=

3

Then

Shape1FillColor

=

vbGreen

ElseIf

a

=

4

Then

Shape1FillColor

=

vbYellow

ElseIf

a

>

4

Or

a

=

1

Then

a

=

a

-

4

Shape1FillColor

=

vbRed

End

If

End

Sub

以上就是关于交通信号灯控制程序设计全部的内容，包括:交通信号灯控制程序设计、解释c语言编写的交通灯程序、利用VB编写交通信号灯程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！