单片机课程设计 红绿灯的 求解（东西和南北反方向红灯亮30秒，绿灯也亮30秒，黄灯亮3秒。还要有数码管倒计

求问plc中的一道题。 比如设计红绿灯，南北方向红灯先亮30s，东西方向绿灯亮24s，再闪3s之后~

50Hz是指发电机的转子每秒钟转过50圈，则电流每秒钟来回变化50次，方向改变100次。我们现在用的电是交流380伏或者是交流220V，频率都是50Hz的。也就是说电压由正电压变成负电压，再由负电压变成正电压，这个过程经过50次/秒。

如下两条语句你放在了窗体Form1的加载事件Private Sub Form_Load()中，
i = Val(Text1.Text)，
r = Val(Text2.Text)，
这需要在程序启动前，对Text1.Text和Text2.Text赋值，否则变量i和r将均被赋值为零。
另一种解决的办法是将上述两条语句放在命令按钮Command1的单击事件
Private Sub Command1_Click()中。

Dim T As Integer, i As Double, r As Double

Private Sub Command1_Click()
i = Val(Text1.Text)
r = Val(Text2.Text)
Timer1.Interval = 1000
T = 0
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Shape1.BackStyle = 0
Shape2.BackStyle = 0
Shape3.BackStyle = 0
End Sub

Private Sub Timer1_Timer()
Text3.Text = T
T = T + 1
If T >= 0 And T <= i Then
Shape1.BackColor = vbGreen
Shape1.BackStyle = 1
Shape2.BackStyle = 0
Shape3.BackStyle = 0
ElseIf T > i And T <= i + 3 Then
Shape2.BackColor = vbYellow
Shape1.BackStyle = 0
Shape2.BackStyle = 1
ElseIf T > i + 3 And T <= i + 3 + r Then
Shape3.BackColor = vbRed
Shape3.BackStyle = 1
Shape2.BackStyle = 0
ElseIf T > i + 3 + r And T <= i + 6 + r Then
Shape2.BackColor = vbYellow
Shape1.BackStyle = 0
Shape2.BackStyle = 1
Shape3.BackStyle = 0
T = 0
End If
End Sub



爱银色子弹4869：我的解答，你看不明白吗？

　　程序源代码

　　ORG 0000H ;主程序的入口地址
　　LJMP MAIN ;跳转到主程序的开始处
　　ORG 0003H ;外部中断0的中断程序入口地址
　　ORG 000BH ;定时器0的中断程序入口地址
　　LJMP T0_INT ;跳转到中断服务程序处
　　ORG 0013H ;外部中断1的中断程序入口地址
　　MAIN : MOV SP,#50H
　　MOV IE,#8EH ;CPU开中断，允许T0中断，T1中断和外部中断1中断
　　MOV TMOD,#51H ;设置T1为计数方式,T0为定时方式，且都工作于模式1
　　MOV TH1,#00H ;T1计数器清零
　　MOV TL1,#00H
　　SETB TR1 ;启动T1计时器
　　SETB EX1 ;允许INT1中断
　　SETB IT1 ;选择边沿触发方式
　　MOV DPTR ,#0003H
　　MOV A, #80H ;给8255赋初值，8255工作于方式0
　　MOVX @DPTR, A
　　AGAIN: JB P3.1,N0 ;判断是否要设定东西方向红绿灯时间的初值，若P3.1为1 则跳转
　　MOV A,P1
　　JB P1.7,RED ;判断P1.7是否为1，若为1则设定红灯时间，否则设定绿灯时间
　　MOV R0,#00H ;R0清零
　　MOV R0,A ;存入东西方向绿灯初始时间
　　MOV R3,A
　　LCALL DISP1
　　LCALL DELAY
　　AJMP AGAIN
　　RED: MOV A,P1
　　ANL A,#7FH ;P1.7置0
　　MOV R7,#00H ;R7清零
　　MOV R7,A ;存入东西方向红灯初始时间
　　MOV R3,A
　　LCALL DISP1
　　LCALL DELAY
　　AJMP AGAIN
　　;-------------------------------------------
　　N0: SETB TR0 ;启动T0计时器
　　MOV 76H,R7 ;红灯时间存入76H
　　N00: MOV A,76H ;东西方向禁止，南北方向通行
　　MOV R3,A
　　MOV DPTR,#0000H ;置8255A口，东西方向红灯亮，南北方向绿灯亮
　　MOV A,#0DDH
　　MOVX @DPTR, A
　　N01: JB P2.0,B0
　　N02: SETB P3.0
　　CJNE R3,#00H,N01 ;比较R3中的值是否为0，不为0转到当前指令处执行
　　;------黄灯闪烁5秒程序------
　　N1: SETB P3.0
　　MOV R3,#05H
　　MOV DPTR,#0000H ;置8255A口，东西，南北方向黄灯亮
　　MOV A,#0D4H
　　MOVX @DPTR,A
　　N11: MOV R4,#00H
　　N12: CJNE R4,#7DH,$ ;黄灯持续亮0.5秒
　　N13: MOV DPTR,#0000H ; 置8255A口，南北方向黄灯灭
　　MOV A,#0DDH
　　MOVX @DPTR,A
　　N14: MOV R4,#00H
　　CJNE R4,#7DH,$ ;黄灯持续灭0.5秒
　　CJNE R3,#00H,N1 ;闪烁时间达5秒则退出
　　;------------------------------------------------------------
　　N2: MOV R7,#00H
　　MOV A,R0 ;东西通行，南北禁止
　　MOV R3,A
　　MOV DPTR,#0000H ; 置8255A口，东西方向绿灯亮，南北方向红灯亮
　　MOV A,#0EBH
　　MOVX @DPTR,A
　　N21: JB P2.0,T03

　　N22: CJNE R3,#00H,N21
　　;------黄灯闪烁5秒程序------
　　N3: MOV R3,#05H
　　MOV DPTR,#0000H ;置8255A口，东西，南北方向黄灯亮
　　MOV A,#0E2H
　　MOVX @DPTR,A
　　N31: MOV R4,#00H
　　CJNE R4,#7DH,$ ;黄灯持续亮0.5秒
　　N32: MOV DPTR,#0000H ; 置8255A口，南北方向黄灯灭
　　MOV A,#0EBH
　　MOVX @DPTR,A
　　N33: MOV R4,#00H
　　CJNE R4,#7DH,$ ;黄灯持续灭0.5秒
　　CJNE R3,#00H,N3 ;闪烁时间达5秒则退出
　　SJMP N00
　　;------闯红灯报警程序------
　　B0: MOV R2,#03H ;报警持续时间3秒
　　B01: MOV A,R3
　　JZ N1 ;若倒计时完毕，不再报警
　　CLR P3.0 ;报警
　　CJNE R2,#00H,B01 ;判断3秒是否结束
　　SJMP N02
　　;------1秒延时子程序-------
　　N7: RETI
　　T0_INT:MOV TL0,#9AH ;给定时器T0送定时10ms的初值
　　MOV TH0,#0F1H
　　INC R4
　　INC R5
　　CJNE R5,#0FAH,T01 ;判断延时是否够一秒，不够则调用显示子程序
　　MOV R5,#00H ;R5清零
　　DEC R3 ;倒计时初值减一
　　DEC R2 ;报警初值减一
　　T01: ACALL DISP ;调用显示子程序
　　RETI ;中断返回
　　;------显示子程序------
　　DISP: JNB P2.4,T02
　　DISP1: MOV B,#0AH
　　MOV A,R3 ;R3中值二转十显示转换
　　DIV AB
　　MOV 79H,A
　　MOV 7AH,B
　　DIS: MOV A,79H ;显示十位
　　MOV DPTR,#TAB
　　MOVC A,@A+DPTR
　　MOV DPTR,#0002H
　　MOVX @DPTR,A
　　MOV DPTR,#0001H
　　MOV A,#0F7H
　　MOVX @DPTR,A
　　LCALL DELAY
　　DS2: MOV A,7AH ;显示个位
　　MOV DPTR,#TAB
　　MOVC A,@A+DPTR
　　MOV DPTR,#0002H
　　MOVX @DPTR,A
　　MOV DPTR,#0001H
　　MOV A,#0FBH
　　MOVX @DPTR,A
　　RET
　　;------东西方向车流量检测程序------
　　T03: MOV A,R3
　　SUBB A,#00H ;若绿灯倒计时完毕，不再检测车流量
　　JZ N3
　　JB P2.0,T03
　　INC R7
　　CJNE R7,#64H,E1
　　MOV R7,#00H ;中断到100次则清零
　　E1: SJMP N22
　　;------东西方向车流量显示程序------
　　T02: MOV B,#0AH
　　MOV A,R7 ;R7中值二转十显示转换
　　DIV AB
　　MOV 79H,A
　　MOV 7AH,B
　　DIS3: MOV A,79H ;显示十位
　　MOV DPTR,#TAB
　　MOVC A,@A+DPTR
　　MOV DPTR,#0002H
　　MOVX @DPTR,A
　　MOV DPTR,#0001H
　　MOV A,#0F7H
　　MOVX @DPTR,A
　　LCALL DELAY
　　DS4: MOV A,7AH ;显示个位
　　MOV DPTR,#TAB
　　MOVC A,@A+DPTR
　　MOV DPTR,#0002H
　　MOVX @DPTR,A
　　MOV DPTR,#0001H
　　MOV A,#0FBH
　　MOVX @DPTR,A
　　LJMP N7
　　;------延时4MS子程序----------
　　DELAY: MOV R1,#0AH
　　LOOP: MOV R6,#64H
　　NOP
　　LOOP1: DJNZ R6,LOOP1
　　DJNZ R1,LOOP
　　RET
　　;------字符表------
　　TAB: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
　　END

　　先给你个源程序，加点分，我把我的毕业设计发给你，WORD 文档，QQ263400235

这么简单的课程设计，还需要别人给你写代码啊？
自己好好看看书写写吧，大学几年不能一点东西都不学啊，以后怎么找工作呢

---

泰兴市18914329170： 单片机课程设计 红绿灯的 求解(东西和南北反方向红灯亮30秒,绿灯也亮30秒,黄灯亮3秒.还要有数码管倒计 - ？
别食喹泰： 程序源代码ORG 0000H ;主程序的入口地址 LJMP MAIN ;跳转到主程序的开始处 ORG 0003H ;外部中断0的中断程序入口地址 ORG 000BH ;定时器0的中断程序入口地址 LJMP T0_INT ;跳转到中断服务程序处 ORG 0013H ;外部中...

泰兴市18914329170： 单片机课程设计的要求 交通灯系统设计 - ？
别食喹泰： :利用单片机的定时器功能,令十字路口的红绿灯交替点亮和熄灭(用实验箱上的8只发光二极管分成南北、东西两组各4只表示),并且用LED数码管显示时间(实验箱上的8只数码管中,用两端的各2只表示南北、东西两组的计时) 我可以帮你做,提供电路图和源程序

泰兴市18914329170： 求单片机课程红绿灯设计的程序~ - ？
别食喹泰： ORG 0000H ;主程序的入口地址 LJMP MAIN ;跳转到主程序的开始处 ORG 0003H ;外部中断0的中断程序入口地址 ORG 000BH ;定时器0的中断程序入口地址 LJMP T0_INT ;跳转到中断服务程序处 ORG 0013H ;外部中断1的中断程序入口...

泰兴市18914329170： 单片机交通灯课程设计 - ？
别食喹泰： 靠的就是交通信号灯的自动指挥系统.交通信号灯控制方式很多.本系统采用MSC-51系列单片机ATSC51和可编程并行I/O接口芯片8255A为中心器件来设计交通灯控制器...

泰兴市18914329170： 单片机的交通灯课程设计,希望大神能帮我! - ？
别食喹泰： #include#define uint unsigned int#define uchar unsigned char#define red (~0x01)#define yellow (~0x02)#define green (~0x04)#define left (~0x08)#define nbred (~0x10)#define nbyellow (~0x20)#define nbgreen (~0x40)#define nbleft ...

泰兴市18914329170： 单片机 十字路口交通灯控制 课程设计 - ？
别食喹泰： 你的程序写完了,要编译的,编译成HEX代码文件,再把HEX文件加载到单片机中.这给单片机加载HEX文件,你没有做呀,那单片机没有执行程序的.你的程序没有问题,可以运行的.只是四个路口的数码管显示的是同一个时间哪.应该是南北路口显示的时间是一样,两个数码管并联的.而东西路口显示的时间是一样,这两个数码管是并联的.位控端要用4条线的.

泰兴市18914329170： 单片机红绿灯课程设计 帮帮忙？
别食喹泰： #include<reg51.h> #define uchar unsigned char #define uint unsigned int sbit RED_A=P0^0;//东西向指示灯 sbit YELLOW_A=P0^1; sbit GREEN_A=P0^2; sbit RED_B=P0^3;//南北向指示灯 sbit YELLOW_B=P0^4; sbit GREEN_B=P0^5; uchar ...

泰兴市18914329170： 求单片机课程设计 交通灯？
别食喹泰： ORG 0000H MAIN:MOV DPTR,#0FF20HMOV A,#03HMOVX @DPTR,AMOV 2AH,#1FHMOV P1,#0CHMOV R7,#19H PRG1: LCALL DELAY1DJNZ R7,PRG1MOV P1,#0AHMOV R7,#05H PRG2: LCALL DELAY1DJNZ R7, PRG2MOV...

泰兴市18914329170： 有关'单片机控制的交通灯控制系统 '的课程设计 - ？
别食喹泰： ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;E_W_LEFT_R BIT P0.0 ;;东西方向定义E_W_LEFT_G BIT P0.1E_W_R BIT P0.2E_W_G BIT P0.3E_W_P_R BIT P0.4E_W_P_G BIT P0.5;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;S_N_LEFT_R BIT P0.6 ;;南北方向...

泰兴市18914329170： (跪求)单片机课程设计 模拟交通灯控制？
别食喹泰： ORG 0000H AJMP MAIN ORG 0003H LJMP INT ORG 0040H MAIN:MOV SP,#60HSETB EASETB EX0SETB PX0SETB IT0MOV P1,#09HACALL DELAY1S ABC:MOV R0,#3MOV R1,#3MOV P1,#0CHACALL DELAY1S DEF: CLR P...