S7-1200 PLC SCL语言程序编写简单的交通灯

TIA16_交通灯程序.zip (611.46 KB, 售价: 5 E币)

2020-12-2 12:35 上传

点击文件名下载附件

控制要求：

       首先，南北方向红灯亮25秒，与此同时，东西方向绿灯先亮20秒，然后闪3秒，接着东西方向黄灯闪2秒；接下来，东西方向红灯亮30秒，南北方向绿灯先亮25秒，然后，南北绿灯闪3秒，南北黄灯闪2秒。

程序设计思路：

       程序分为单定时器和双定时器两个版本，但思路是一样的，都是根据在不同的时间点，控制不同的灯亮。因为总的时长为55秒，然后东西方向通行时间为25秒，南北方向通行时间为30秒，整个程序流程如下：

       然后简单说一下单定时器和双定时器的区别，他们的功能是一样的，只不过双定时器可以任意修改闪烁频率，而单定时器版本的只能使用系统设定好的几个频率。因为单定时器版本用的是PLC自带的系统时钟，使用方法是打开”设备组态”，在“常规”里面找到“系统和时钟存储器”，勾选“时钟存储器位”就行了，然后就可以在PLC变量表里面看到相应的变量了。图片如下：

程序如下：

单定时器版本：

1. //交通灯：单定时器版本
   
2. IF "启动" AND "停止" = 0 THEN
   
3.     "数据块_1".启动值 := 1;
   
4.     "数据块_1".停止值 := 0;
   
5. ELSIF "停止" THEN
   
6.     "数据块_1".启动值 := 0;
   
7.     "数据块_1".停止值 := 1;
   
8.     "东西红" := 0;
   
9.     "东西黄" := 0;
   
10.     "东西绿" := 0;
    
11.     "南北红" := 0;
    
12.     "南北黄" := 0;
    
13.     "南北绿" := 0;
    
14. END_IF;
    
15. IF "数据块_1".启动值 THEN
    
16.     "数据块_1".定时器.IN := 1;
    
17.     "数据块_1".定时器.PT := T#55s;
    
18.     "IEC_Timer_0_DB_2".TON(IN := "数据块_1".定时器.IN,
    
19.                            PT := "数据块_1".定时器.PT,
    
20.                            ET => "数据块_1".定时器输出时间);
    
21.     IF "数据块_1".定时器输出时间>=T#0s AND "数据块_1".定时器输出时间<=T#20s THEN
    
22.         "东西绿" := 1;
    
23.         "南北红" := 1;
    
24.         ELSIF "数据块_1".定时器输出时间>T#20s AND  "数据块_1".定时器输出时间<=T#23s THEN
    
25.             "东西绿" :="Clock_2Hz" ;
    
26.         ELSIF "数据块_1".定时器输出时间>T#23s AND  "数据块_1".定时器输出时间<=T#25s THEN
    
27.             "东西绿" := 0;
    
28.             "东西黄" := "Clock_2Hz";
    
29.     ELSIF "数据块_1".定时器输出时间>T#25s AND "数据块_1".定时器输出时间<=T#50s THEN
    
30.         "东西红" := 1;
    
31.         "南北绿" := 1;
    
32.         "东西黄" := 0;
    
33.         "南北红" := 0;
    
34.     ELSIF "数据块_1".定时器输出时间>T#50s AND "数据块_1".定时器输出时间<=T#53s THEN
    
35.         "南北绿" := "Clock_2Hz";
    
36.     ELSIF "数据块_1".定时器输出时间>T#53s AND "数据块_1".定时器输出时间<=T#55s THEN
    
37.         "南北黄" :="Clock_2Hz" ;
    
38.         "南北绿" := 0;
    
39.     END_IF;
    
40.     IF "数据块_1".定时器输出时间 =T#55s THEN
    
41.         RESET_TIMER("IEC_Timer_0_DB_2");
    
42.         "东西红" := 0;
    
43.         "东西黄" := 0;
    
44.         "东西绿" := 0;
    
45.         "南北红" := 0;
    
46.         "南北黄" := 0;
    
47.         "南北绿" := 0;
    
48.     END_IF;
    
49. END_IF;

复制代码

双定时器版本：

1. //交通灯：两个定时器版本
   
2. IF "启动" AND "停止" = 0 THEN
   
3.     "数据块_1".启动值 := 1;
   
4.     "数据块_1".停止值 := 0;
   
5. ELSIF "停止" THEN
   
6.     "数据块_1".启动值 := 0;
   
7.     "数据块_1".停止值 := 1;
   
8.     "东西红" := 0;
   
9.     "东西黄" := 0;
   
10.     "东西绿" := 0;
    
11.     "南北红" := 0;
    
12.     "南北黄" := 0;
    
13.     "南北绿" := 0;
    
14. END_IF;
    
15. IF "数据块_1".启动值 THEN
    
16.     "数据块_1".定时器.IN := 1;
    
17.     "数据块_1".定时器.PT := T#55s;
    
18.     "数据块_1".定时器1.PT := T#0.5s;
    
19.     //总定时;55s
    
20.     "IEC_Timer_0_DB_2".TON(IN := "数据块_1".定时器.IN,
    
21.                            PT := "数据块_1".定时器.PT,
    
22.                            ET => "数据块_1".定时器输出时间);
    
23.     //0~20s；南北红灯，东西绿灯
    
24.     IF "数据块_1".定时器输出时间>=T#0s AND "数据块_1".定时器输出时间<=T#20s THEN
    
25.         "东西绿" := 1;
    
26.         "南北红" := 1;
    
27.    //东西绿灯闪3s
    
28.     ELSIF "数据块_1".定时器输出时间>T#20s AND "数据块_1".定时器输出时间<=T#23s THEN
    
29.         "数据块_1".定时器1.IN := 1;
    
30.         "数据块_1".定时器1.PT := T#500ms;
    
31.         "IEC_Timer_0_DB".TON(IN := "数据块_1".定时器1.IN,
    
32.                              PT := "数据块_1".定时器1.PT,
    
33.                              Q => "数据块_1".定时器输出2);
    
34.         IF "数据块_1".定时器输出2 THEN
    
35.             "东西绿" := NOT "东西绿";
    
36.             RESET_TIMER("IEC_Timer_0_DB");
    
37.         END_IF;
    
38.         //东西黄灯闪2s
    
39.         ELSIF "数据块_1".定时器输出时间>T#23s AND"数据块_1".定时器输出时间<=T#25s THEN
    
40.             "东西绿" := 0;
    
41.             "数据块_1".定时器1.IN := 1;
    
42.             "数据块_1".定时器1.PT := T#500ms;
    
43.             "IEC_Timer_0_DB".TON(IN := "数据块_1".定时器1.IN,
    
44.                                  PT := "数据块_1".定时器1.PT,
    
45.                                  Q => "数据块_1".定时器输出2);
    
46.             IF "数据块_1".定时器输出2 THEN
    
47.                 "东西黄" := NOT "东西黄";
    
48.                 RESET_TIMER("IEC_Timer_0_DB");
    
49.             END_IF;
    
50. //东西红灯，南北绿灯亮25S
    
51.     ELSIF "数据块_1".定时器输出时间>T#25s AND "数据块_1".定时器输出时间<=T#50s THEN
    
52.         "东西红" := 1;
    
53.         "南北绿" := 1;
    
54.         "东西黄" := 0;
    
55.         "南北红" := 0;
    
56.      //南北绿灯闪3s   
    
57.     ELSIF "数据块_1".定时器输出时间>T#50s AND "数据块_1".定时器输出时间<=T#53s THEN
    
58.         "数据块_1".定时器1.IN := 1;
    
59.         "数据块_1".定时器1.PT := T#500ms;
    
60.         "IEC_Timer_0_DB".TON(IN := "数据块_1".定时器1.IN,
    
61.                              PT := "数据块_1".定时器1.PT,
    
62.                              Q => "数据块_1".定时器输出2);
    
63.         IF "数据块_1".定时器输出2 THEN
    
64.             "南北绿" := NOT "南北绿";
    
65.             RESET_TIMER("IEC_Timer_0_DB");
    
66.         END_IF;;
    
67.      //南北黄闪2s   
    
68.     ELSIF "数据块_1".定时器输出时间>T#53s AND  "数据块_1".定时器输出时间<=T#55s THEN
    
69.         "南北绿" := 0;
    
70.         "数据块_1".定时器1.IN := 1;
    
71.         "数据块_1".定时器1.PT := T#500ms;
    
72.         "IEC_Timer_0_DB".TON(IN := "数据块_1".定时器1.IN,
    
73.                              PT := "数据块_1".定时器1.PT,
    
74.                              Q => "数据块_1".定时器输出2);
    
75.         IF "数据块_1".定时器输出2 THEN
    
76.             "南北黄" := NOT "南北黄";
    
77.             RESET_TIMER("IEC_Timer_0_DB");
    
78.         END_IF;
    
79.     END_IF;
    
80.     //全部初始化
    
81.     IF "数据块_1".定时器输出时间 >=T#55s THEN
    
82.         RESET_TIMER("IEC_Timer_0_DB_2");
    
83.         "东西红" := 0;
    
84.         "东西黄" := 0;
    
85.         "东西绿" := 0;
    
86.         "南北红" := 0;
    
87.         "南北黄" := 0;
    
88.         "南北绿" := 0;
    
89.     END_IF;
    
90. END_IF;

复制代码

【必读】版权免责声明

1、本主题所有言论和内容纯属会员个人意见，与本论坛立场无关。2、本站对所发内容真实性、客观性、可用性不做任何保证也不负任何责任，网友之间仅出于学习目的进行交流。3、对提供的数字内容不拥有任何权利，其版权归原著者拥有。请勿将该数字内容进行商业交易、转载等行为，该内容只为学习所提供，使用后发生的一切问题与本站无关。 4、本网站不保证本站提供的下载资源的准确性、安全性和完整性;同时本网站也不承担用户因使用这些下载资源对自己和他人造成任何形式的损失或伤害。 5、本网站所有软件和资料均为网友推荐收集整理而来，仅供学习用途使用，请务必下载后两小时内删除，禁止商用。6、如有侵犯你版权的，请及时联系我们（电子邮箱1370723259@qq.com）指出，本站将立即改正。

好资料。。。。。。。。。。。。。。。