dgl4245123
非标自动化编程设计。。。17798956193
级别: 探索解密
精华主题: 0
发帖数量: 148 个
工控威望: 183 点
下载积分: 4979 分
在线时间: 104(小时)
注册时间: 2023-04-03
最后登录: 2024-12-12
查看dgl4245123的 主题 / 回贴
楼主  发表于: 2024-04-09 15:34
全看 | 小 中 大
图片：
不要喷我，大部分人都搞不定！！！
非标自动化编程设计。。。17798956193
es_ice
级别: 探索解密
精华主题: 0
发帖数量: 96 个
工控威望: 124 点
下载积分: 1210 分
在线时间: 59(小时)
注册时间: 2023-08-07
最后登录: 2024-12-22
查看es_ice的 主题 / 回贴
1楼  发表于: 2024-07-23 08:52
全看 | 小 中 大
效果：
  

源码：
复制代码
  1. PROGRAM PLC_PRG
  2. VAR_INPUT
  3. 取料顺序IN: INT:=1230;//每位数字小于等于3;
  4. 光栅: ARRAY[1..3] OF BOOL;
  5. 复位按钮:BOOL;
  6. END_VAR
  7. VAR_OUTPUT
  8. 指示灯: ARRAY[1..3] OF BOOL;
  9. 报警:BOOL;
  10. END_VAR
  11. VAR
  12. 顺序: ARRAY[1..4] OF INT;
  13. 顺序tmp:INT:=0;
  14. 位置tmp:INT:=0;
  15. ii:INT:=0;
  16. 复位RT,光栅1RT,光栅2RT,光栅3RT: R_TRIG;
  18. END_VAR


复制代码
  2. 顺序[1] := 取料顺序IN/1000;
  3. 顺序[2] := (取料顺序IN/100)MOD 10;
  4. 顺序[3] := (取料顺序IN/10)MOD 10;
  5. 顺序[4] := 取料顺序IN MOD10;
  6. 复位RT(CLK:=复位按钮,Q=>);
  7. 光栅1RT(CLK:=光栅[1],Q=>);
  8. 光栅2RT(CLK:=光栅[2],Q=>);
  9. 光栅3RT(CLK:=光栅[3],Q=>);
  11. IF复位RT.Q THEN
  12. ii:=0;
  13. 顺序tmp:=0;
  14. 报警:=0;
  15. 指示灯[1]:=0;
  16. 指示灯[2]:=0;
  17. 指示灯[3]:=0;
  18. END_IF
  20. FOR ii:=1 TO 4 DO //顺序循环
  21. IF报警 THEN
  22. EXIT;
  23. END_IF
  25. IF顺序tmp>4 THEN
  26. 顺序tmp:=0;
  27. END_IF
  28. IF顺序tmp=0 THEN
  29. 顺序tmp:=ii;
  30. END_IF
  31. 位置tmp:=顺序[ii];
  32. IF位置tmp=0 THEN
  33. 顺序tmp:=ii+1;
  34. EXIT;
  35. END_IF
  36. IFNOT 指示灯[1] AND NOT 指示灯[2] ANDNOT 指示灯[3] THEN
  37. IF顺序tmp=ii THEN
  38. 指示灯[位置tmp]:=1;
  39. 顺序tmp:=ii+1;
  40. END_IF
  41. ELSE
  42. EXIT;
  43. END_IF
  44. END_FOR
  46. IF 指示灯[1] THEN
  47. IF光栅1RT.Q THEN
  48. 指示灯[1]:=0;
  49. END_IF
  50. IF光栅2RT.Q OR 光栅3RT.Q THEN
  51. 报警:=1;
  52. END_IF
  53. END_IF
  54. IF 指示灯[2] THEN
  55. IF光栅2RT.Q THEN
  56. 指示灯[2]:=0;
  57. END_IF
  58. IF光栅1RT.Q OR 光栅3RT.Q THEN
  59. 报警:=1;
  60. END_IF
  61. END_IF
  62. IF 指示灯[3] THEN
  63. IF光栅3RT.Q THEN
  64. 指示灯[3]:=0;
  65. END_IF
  66. IF光栅1RT.Q OR 光栅2RT.Q THEN
  67. 报警:=1;
  68. END_IF
  69. END_IF
[ 此帖被es_ice在2024-07-23 09:03重新编辑 ]