蜜桃免费av-一级中文片-久久青青草原av免费观看-香蕉在线观看视频-少妇丰满极品嫩模白嫩-成人妇女免费播放久久久-久久国产精品_国产精品-少妇69xx-国产网站免费在线观看-sese婷婷-最近中文字幕在线中文视频-欧美色xxx-亚洲a∨国产av综合av-免费观看日批视频-午夜福利免费0948视频-亚洲一二三视频-可以免费观看的av毛片下载-日韩综合精品-国产精品福利久久久-亚洲精品综合一区二区

dgl4245123
非標自動化編程設計。。。17798956193
級別: 探索解密
精華主題: 0
發帖數量: 164 個
工控威望: 199 點
下載積分: 9421 分
在線時間: 149(小時)
注冊時間: 2023-04-03
最后登錄: 2025-12-08
查看dgl4245123的 主題 / 回貼
樓主  發表于: 2024-04-09 15:34
圖片：
不要噴我，大部分人都搞不定！！！
非標自動化編程設計。。。17798956193
一朝風月
級別: 略有小成
精華主題: 0
發帖數量: 173 個
工控威望: 204 點
下載積分: 1276 分
在線時間: 96(小時)
注冊時間: 2023-08-07
最后登錄: 2025-12-06
查看一朝風月的 主題 / 回貼
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重新編輯 ]