怎么编写关于红绿灯程序代码(红绿灯编程流程图)
编程里有个制作汽车红灯停绿灯行的怎么弄?
交通红绿灯plc编程实例_交通红绿灯控制。
控制要求:
1、确定设计任务书; 本设计主要实现对十字路口的东西向和南北向的红绿灯的有序控制。
2、确定外围I/O设备。
3、选定PLC型号。
I/O地址表
编制PLC的I/O地址表,如表10-1所示。
表10-1 ------------------I/O地址表
编号
地址
说明
功能
6路数字输出
1
Q0.0
绿灯
控制东西方向绿灯
2
Q0.1
黄灯
控制东西方向黄灯
3
Q0.2
红灯
控制东西方向红灯
4
Q0.3
绿灯
控制南北方向绿灯
5
Q0.4
黄灯
控制南北方向黄灯
6
Q0.5
红灯
控制南北方向红灯
1路数字输入
1
10.0
开关
电源开关
红绿灯控制图
1、硬件图 ---硬件图如图10-1
流程图10-3
交通灯的PLC接线图10-2
交通灯的逻辑控制图10-4
交通灯时序图10-5
红绿灯控制plc编程
1、新建工程
单击"New"新建工程,输入工程名:红绿灯控制。
2、编写程序
当按下“启动”键,则系统开始计时,以一时间段的时间为周期,循环。在不同的时间范围内,开启不同的灯,周而复始。
程序如表10-2所示。 表10-2 交通灯控制程序表
Network1
按开启,开始计时,设定基时,即秒的时间。
Network2
基时复位。
Network3
时间周期的设定,电源关则计数器复位。
Network4
周期复位。
Network5
设定开Q0.0的时间段。
Network6
设定开Q0.1 的时间段。
Network7
设定开Q0.2 的时间段。
Network8
设定开Q0.3 的时间段。
Network9
设定开Q0.4 的时间段。
Network10
设定开Q0.5 的时间段。
单片机的红绿灯控制程序如何写啊
//--------------------------------------------------
//名称:LED模拟交通灯
//作者:彭伟《单片机C语言程序设计实训100例-基于8051+PROTEUS仿真》
//--------------------------------------------------
//说明:东西向绿灯亮若干秒后,黄灯闪烁,闪烁5次后亮红灯
// 红灯亮后,南北向由红灯变为绿灯,若干秒后南北向黄灯闪烁
// 闪烁5次后亮红灯,东西向绿灯亮,如此重复
//---------------------------------------------------
#includereg51.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 Flash_count=0;Operation_type=1;//闪烁次数及操作类型变量
//-----------------------------------------------------
//延时
//----------------------------------------------------
void DelayMS(uint x)
{
uchar i;
while(x--)for(i=0;i120;i++)
}
//---------------------------------------------------
//交通灯切换子程序
//---------------------------------------------------
void Traffic_light()
{
switch(Operation_type)
{
case 1://东西向绿灯南北向红灯亮
RED_A=1;YELLOW_A=1;GREEN_A=0;
RED_B=0;YELLOW_B=1;GREEN_B=1;
DelayMS(2000);
Operation_type=2;
break;
case 2://东西向黄灯闪烁,绿灯关闭
DelayMS(300);
GREEN_A=1;
YELLOW_A=~YELLOW_A;
//闪烁5次
if (++Flash_count!=10) return;
Flash_count=0;
Operation_type=3;
break;
case 3://南北向绿灯东西向红灯亮
RED_A=0;YELLOW_A=1;GREEN_A=1;
RED_B=1;YELLOW_B=1;GREEN_B=0;
DelayMS(2000);
Operation_type=4;
break;
case 4://南北向黄灯闪烁,绿灯关闭
DelayMS(300);
GREEN_B=1;
YELLOW_B=~YELLOW_B;
//闪烁5次
if (++Flash_count!=10) return;
Flash_count=0;
Operation_type=1;
}
}
void main()
{
while(1) Traffic_light();
}
c51单片机c语言交通灯的程序
Proteus仿真原理图:
程序如下:
#include reg51.h
#define uchar unsigned char
#define uint? unsigned int
uchar data buf[4];
uchar data sec_dx=20;//东西数默认
uchar data sec_nb=30;//南北默认值
uchar data set_timedx=20;
uchar data set_timenb=30;
int n;
uchar data b;//定时器中断次数
sbit? k1=P1^6;//定义5组开关
sbit? k2=P1^7;
sbit? k3=P2^7;
sbit? k4=P3^0;
sbit? k5=P3^1;
sbit Yellow_nb=P2^5;?????? //南北黄灯标志
sbit Yellow_dx=P2^2;?????? //东西黄灯标志
sbit Green_nb=P2^4;
sbit Green_dx=P2^1;
sbit Buzz=P3^7;
bit Buzzer_Indicate;
bit time=0;//灯状态循环标志
bit?? set=1;//调时方向切换键标志
uchar code table[11]={???? ? //共阴极字型码
0x3f,? //--0
0x06,? //--1
0x5b,? //--2
0x4f,? //--3
0x66,? //--4
0x6d,? //--5
0x7d,? //--6
0x07,? //--7
0x7f,? //--8
0x6f,? //--9
0x00?? //--NULL
};
//函数的声明部分
void delay(int ms);//延时子程序
void key();//按键扫描子程序
void key_to1();//键处理子程序
void key_to2();
void key_to3();
void display();//显示子程序
void logo();?? //开机LOGO
void Buzzer();
//主程序
void main()
{
TMOD=0X01;
TH0=0XD8;
TL0=0XF0;
EA=1;
ET0=1;
TR0=1;
EX0=1;
EX1=1;
logo();
P2=0Xc3;// 开始默认状态,东西绿灯,南北黄灯
sec_nb=sec_dx+5;
while(1)
{?????
key(); //调用按键扫描程序
display(); //调用显示程序
Buzzer();
}? ?
}
//函数的定义部分
void key()??? //按键扫描子程序
{
if(k1!=1)
{
delay(10);
if(k1!=1)
{
while(k1!=1)
{
key_to1();
for(n=0;n40;n++)
{ display();}
}
}
}
if(k2!=1)
{
delay(10);
if(k2!=1)
{
while(k2!=1)
{
key_to2();
for(n=0;n40;n++)
{ display();}
}
}
}
if(k3!=1)
{
TR0=1;?? //启动定时器
Buzzer_Indicate=0;
sec_nb=set_timenb;? //从中断回复,仍显示设置过的数值
sec_dx=set_timedx;
if(time==0)
{ P2=0X99;sec_nb=sec_dx+5; }
else { P2=0xC3;sec_dx=sec_nb+5; }
}?????
if(k4!=1)
{
delay(5);
if(k4!=1)
{
while(k4!=1);
set=!set;
}
}
if(k5!=1)
{
delay(5);
if(k5!=1)
{
while(k5!=1)
key_to3();
}
}
}
void display() //显示子程序
{
buf[1]=sec_dx/10; //第1位 东西秒十位
buf[2]=sec_dx%10; //第2位 东西秒个位
buf[3]=sec_nb/10; //第3位 南北秒十位
buf[0]=sec_nb%10; //第4位 南北秒个位
P1=0xff;????????? ??????????????????? ??// 初始灯为灭的
P0=0x00;
P1=0xfe;?????????? ???????????????? ??//片选LCD1
P0=table[buf[1]];
delay(1);
P1=0xff;
P0=0x00;
P1=0xfd;???????????? ???????????? ?//片选LCD2
P0=table[buf[2]];
delay(1);
P1=0xff;
P0=0x00;
P1=0Xfb;??????????? ? //片选LCD3
P0=table[buf[3]];
delay(1);
P1=0xff;
P0=0x00;
P1=0Xf7;
P0=table[buf[0]];???????????? ? //片选LCD4
delay(1);
}
void time0(void) interrupt 1 using 1? //定时中断子程序
{
b++;
if(b==19)????? ????????????????? // 定时器中断次数
{????? b=0;
sec_dx--;
sec_nb--;
if(sec_nb=5time==0)? //东西黄灯闪
{? Green_dx=0;Yellow_dx=!Yellow_dx;}???????????? ??
if(sec_dx=5time==1)? //南北黄灯闪
{? Green_nb=0;Yellow_nb=!Yellow_nb;}????????????
if(sec_dx==0sec_nb==5)
sec_dx=5;
if(sec_nb==0sec_dx==5)
sec_nb=5;
if(time==0sec_nb==0)
{ P2=0x99;time=!time;sec_nb=set_timenb;sec_dx=set_timenb+5;}
if(time==1sec_dx==0)
{P2=0Xc3;time=!time;sec_dx=set_timedx;sec_nb=set_timedx+5;}
}
}
void key_to1()??? //键盘处理子程序之+
{
TR0=0;?? ?????? //关定时器
if(set==0)
set_timenb++;??? //南北加1S
else
set_timedx++;??? //东西加1S
if(set_timenb==100)
set_timenb=1;
if(??? set_timedx==100)
set_timedx=1;?? //加到100置1
sec_nb=set_timenb ;?? ?//设置的数值赋给东西南北
sec_dx=set_timedx;
}
void key_to2()??? ?? //键盘处理子程序之-
{
TR0=0;???????? //关定时器
if(set==0)
set_timenb--;? //南北减1S
else
set_timedx--;? //东西减1S
if(set_timenb==0)
set_timenb=99;
if(??? set_timedx==0 )
set_timedx=99;?? //减到1重置99
sec_nb=set_timenb ;?? ?//设置的数值赋给东西南北
sec_dx=set_timedx;
}
void key_to3()?? //键盘处理之紧急车通行
{
TR0=0;
P2=0Xc9;
sec_dx=00;
sec_nb=00;
Buzzer_Indicate=1;
}
void int0(void) interrupt 0 using 1 ?//只允许东西通行
{
TR0=0;
P2=0Xc3;
Buzzer_Indicate=0;
sec_dx=00;
sec_nb=00;
}
void int1(void) interrupt 2 using 1 ? ?? ?//只允许南北通行
{
TR0=0;
P2=0X99;
Buzzer_Indicate=0;
sec_nb=00;
sec_dx=00;
}
void logo()//开机的Logo? "- - - -"
{ for(n=0;n50;n++)
{
P0=0x40;
P1=0xfe;
delay(1);
P1=0xfd;
delay(1);
P1=0Xfb;
delay(1);
P1=0Xf7;
delay(1);
P1 = 0xff;
}
}
void Buzzer()
{
if(Buzzer_Indicate==1)
Buzz=!Buzz;
else Buzz=0;
}
void delay(int ms)??????????? //延时子程序
{
uint j,k;
for(j=0;jms;j++)
for(k=0;k124;k++);
}
C语言程序设计编写一个交通红绿灯的控制,各位高手帮帮忙急!
unsigned char counter;
sbit red_nb=P2^0;
......
void main()
{
TMOD=
TH0
TL0
ET0
TR0
while(1) //根据楼主所给,有4种状态
{
state1;
state2;
state3;
state4;
}
}
void timer0() interrupt 1 //定时器0
{
TH0=0x3c;
TL0=0xb0;
counter++;
}
void state1() //控制南北红灯亮,东西绿灯亮,30s
{
unsigned char temp = 30;
red_nb=1;
.....
green_dx=1;
while(1)
{
if( counter19){counter=0;temp--} //每次counter=20,即1s,temp自减
if(temp) break; //当temp为0时,即30秒,退出状态1,进入状态2
}
}
没经过测试,完全是5分诱惑不大。。
vb写一个简单红绿灯程序代码,希望能注释和思路写清楚一点,我菜鸟!谢谢
'ZT是当前状态记录,Qzt是前状态记录,SJ是时间记录
Dim ZT As Integer, Qzt As Integer, Sj As Integer
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Command1.Caption = "20停止"
Timer1.Enabled = True
Shape3.FillColor = HFF
ZT = 3
Qzt = 3
Else
Command1.Caption = "开始"
Timer1.Enabled = False
Shape1.FillColor = H4000
Shape2.FillColor = H8080
Shape3.FillColor = H40
ZT = 0
End If
End Sub
Private Sub Form_Load()
Shape1.FillStyle = 0 '绿灯
Shape2.FillStyle = 0 '黄灯
Shape3.FillStyle = 0 '红灯
Shape1.FillColor = H4000 '暗绿
Shape2.FillColor = H8080 '暗黄
Shape3.FillColor = H40 '暗红
Shape1.Shape = 3 '圆形
Shape2.Shape = 3
Shape3.Shape = 3
Command1.Caption = "开始"
Timer1.Interval = 1000 '一秒一次加入倒计时
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Sj = Sj + 1
If ZT = 1 Or ZT = 3 Then Command1.Caption = (20 - Sj) "停止"
If ZT = 2 Then Command1.Caption = (5 - Sj) "停止"
If Sj = 20 And (ZT = 1 Or ZT = 3) Then
Shape1.FillColor = H4000
Shape2.FillColor = H8080
Shape3.FillColor = H40
Select Case ZT
Case 1
Shape2.FillColor = HFFFF
ZT = 2
Qzt = 1
Case 3
Shape2.FillColor = HFFFF
ZT = 2
Qzt = 3
End Select
Sj = 0
End If
If Sj = 5 And ZT = 2 Then
Shape1.FillColor = H4000
Shape2.FillColor = H8080
Shape3.FillColor = H40
If Qzt = 3 Then
Shape1.FillColor = HFF00
ZT = 1
Else
Shape3.FillColor = HFF
ZT = 3
End If
Sj = 0
End If
End Sub
用VB编写“红绿灯”程序
Dim s As Integer
Dim n As Integer
'单击“红灯”按钮
Private Sub Command1_Click()
Shape6.Visible = True : Shape7.Visible = False : Shape8.Visible = False
End Sub
'单击“黄灯”按钮
Private Sub Command2_Click()
Shape6.Visible = False : Shape7.Visible = True : Shape8.Visible = False
End Sub
'单击“绿灯”按钮
Private Sub Command3_Click()
Shape6.Visible = False : Shape7.Visible = False : Shape8.Visible = True
End Sub
'单击“自动”按钮
Private Sub Command4_Click()
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
n = 0 : s = 0
End Sub
'单击“手动”按钮
Private Sub Command5_Click()
Timer1.Enabled = False
Label1.Caption = ""
Shape6.Visible = False
Shape7.Visible = False
Shape8.Visible = False
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
End Sub
'时钟控件启动
Private Sub Timer1_Timer()
Select Case n
Case 0
Shape6.Visible = True
Shape7.Visible = False
Shape8.Visible = False
Label1.Caption = 3 - s
s = s + 1
If s 3 Then
n = 1
s = 0
End If
Case 1
Shape6.Visible = False
Shape7.Visible = True
Shape8.Visible = False
n = 2
Case 2
Shape6.Visible = False
Shape7.Visible = False
Shape8.Visible = True
Label1.Caption = 3 - s
s = s + 1
If s 3 Then
n = 0 : s = 0
End If
End Select
End Sub