91黄动漫 I 欧美 日韩 国产 成人 在线 I a级成人毛片 I 农村黄色片 I 男生捅女生的肌肌 I 精品99一区二区三区 I 妃光莉av I 日日夜夜操操 I 性中国古装videossex I 久久不卡av I 美女高潮动态图 I 极品美女开粉嫩精品 I 牛牛精品一区二区 I 91精品福利视频 I 成人刺激视频 I 91国内精品视频 I 中国一级特黄毛片大片 I 校长狠狠挺进校花体内小说 I 欧美激情黄色片 I 欧美久久久一区 I 爱豆国产剧免费观看大全剧苏畅 I 麻豆国产人妻欲求不满谁演的 I 亚洲一区二区在线免费观看视频 I 国产超碰av人人做人人爽 I 精品国产第一国产综合精品 I 久久免费看av I 欧美一区二区三区白人 I 国产精品夫妻激情 I 校花被肉干高h潮不断 I 欧美最猛黑人xxxx黑人表情 I 国产欧美日韩一区二区搜索 I 极品女神露脸呻吟啪啪 I 人人天天久久 I 亚洲动漫在线 I 日本91福利区 I 五月天 桃色 开心 I av在线免费观看国产 I 男人添女人的免费视频 I 夜夜穞天天穞狠狠穞

kidien
編程就是鞭打自己
級別: 略有小成
精華主題: 0
發帖數量: 107 個
工控威望: 218 點
下載積分: 788 分
在線時間: 33(小時)
注冊時間: 2010-01-08
最后登錄: 2025-12-20
查看kidien的 主題 / 回貼
108樓  發表于: 2019-07-17 21:11
感謝樓主,最近在學功能塊,向結構化轉型,多謝分享!
chenyuuuu
Raymond
級別: 探索解密
精華主題: 0
發帖數量: 36 個
工控威望: 135 點
下載積分: 36156 分
在線時間: 155(小時)
注冊時間: 2019-05-06
最后登錄: 2025-12-18
查看chenyuuuu的 主題 / 回貼
109樓  發表于: 2019-07-19 09:09
謝謝樓主,學習學習。
huxiang2030
山本無憂,因雪白頭;水本無愁,因風起皺...
級別: 探索解密
精華主題: 0
發帖數量: 81 個
工控威望: 129 點
下載積分: 1380 分
在線時間: 22(小時)
注冊時間: 2019-06-19
最后登錄: 2025-01-10
查看huxiang2030的 主題 / 回貼
110樓  發表于: 2019-07-19 09:45
。。怎么打不開
山本無憂,因雪白頭;水本無愁,因風起皺...
nos001
級別: 探索解密
精華主題: 0
發帖數量: 54 個
工控威望: 110 點
下載積分: 814 分
在線時間: 42(小時)
注冊時間: 2018-03-31
最后登錄: 2022-10-06
查看nos001的 主題 / 回貼
111樓  發表于: 2019-07-19 21:40
結構化,程序大,有條理,值得借鑒。
就是定義在一頁的全局變量太多,感覺應該分頁。
其實不知道硬件,不知道用途,還是挺難看懂。
還是更喜歡st編程,自定義定時器感覺比gx works 內建的好用。
復制代碼
  1. (******************************************************************************
  2. * 從自動包裝切換到手動操作
  3. * 如果前面進行過“自動包裝”,切換到“手動操作”時進行一次初始化
  4. *****************************************************************************)
  5. IF HmiKey_ManualOP THEN
  6.     
  7.     IF( bMode_Manual = FALSE ) THEN
  8.         
  9.         bMode_Manual := TRUE;
  10.         bMode_Auto   := FALSE;
  11.         HmiKey_AutoPack := FALSE;
  12.         HmiKey_FillPack := FALSE;
  13.         HmiKey_EmptyBagTest := FALSE;
  14.         HmiKey_FillBagOne := FALSE;
  15.         
  16.         ZRST( TRUE, Y001, Y004 );
  17.         ZRST( TRUE, Y006, Y007 );
  18.         ZRST( TRUE, Y010, Y011 );
  19.         ZRST( TRUE, Y013, Y017 );        
  20.         ZRST( TRUE, Y020, Y027 );
  21.         
  22.         Tcnt_10[ IDX_DOWN_FILL_DLY ].reset := TRUE;    
  23.         Tcnt_10[ IDX_DOWN_FILL ].reset := TRUE;    
  24.         Tcnt_10[ IDX_PULL_FILM_DLY ].reset := TRUE;    
  25.         Tcnt_10[ IDX_VERT_SEAL_DLY ].reset := TRUE;    
  26.         Tcnt_10[ IDX_VERT_SEAL ].reset := TRUE;
  27.             
  28.         Tcnt_10[ IDX_KNURL_DLY ].reset := TRUE;    
  29.         Tcnt_10[ IDX_KNURL ].reset := TRUE;    
  30.         Tcnt_10[ IDX_VACUUM_BOX_CLOSE_DLY ].reset := TRUE;    
  31.         Tcnt_10[ IDX_BAG_FOLD_DLY ].reset := TRUE;    
  32.         Tcnt_10[ IDX_BAG_FOLD ].reset := TRUE;
  33.                                     
  34.         Tcnt_10[ IDX_BAG_CUT_DLY ].reset := TRUE;                    
  35.         Tcnt_10[ IDX_BAG_CUT ].reset := TRUE;                        
  36.         Tcnt_10[ IDX_VACUUMIZE ].reset := TRUE;                    
  37.         Tcnt_10[ IDX_HEAT_SEAL ].reset := TRUE;                
  38.         Tcnt_10[ IDX_SEAL_KEEP ].reset := TRUE;                    
  39.         Tcnt_10[ IDX_SEAL_COOL ].reset := TRUE;            
  40.             
  41.     END_IF;
  42.     
  43. ELSE
  44.     RST( TRUE, bMode_Manual );
  45.     
  46. END_IF;
  47. (******************************************************************************
  48. * 從手動操作切換到自動包裝
  49. * 如果前面進行過“手動操作”,切換到“自動包裝”時進行一次初始化
  50. *****************************************************************************)
  51. IF HmiKey_AutoPack THEN
  52.     
  53.     IF( bMode_Auto = FALSE ) THEN      (* 初始化 *)
  54.         
  55.         bMode_Auto   := TRUE;
  56.         bMode_Manual := FALSE;    
  57.         HmiKey_ManualOP := FALSE;
  58.         HmiKey_Knurling := FALSE;
  59.         
  60.         ZRST( TRUE, Y001, Y004 );
  61.         ZRST( TRUE, Y006, Y007 );
  62.         ZRST( TRUE, Y010, Y011 );
  63.         ZRST( TRUE, Y013, Y017 );        
  64.         ZRST( TRUE, Y020, Y027 );    
  65.             
  66.         Tcnt_10[ IDX_DOWN_FILL_DLY ].reset := TRUE;    
  67.         Tcnt_10[ IDX_DOWN_FILL ].reset := TRUE;    
  68.         Tcnt_10[ IDX_PULL_FILM_DLY ].reset := TRUE;    
  69.         Tcnt_10[ IDX_VERT_SEAL_DLY ].reset := TRUE;    
  70.         Tcnt_10[ IDX_VERT_SEAL ].reset := TRUE;
  71.             
  72.         Tcnt_10[ IDX_KNURL_DLY ].reset := TRUE;    
  73.         Tcnt_10[ IDX_KNURL ].reset := TRUE;    
  74.         Tcnt_10[ IDX_VACUUM_BOX_CLOSE_DLY ].reset := TRUE;    
  75.         Tcnt_10[ IDX_BAG_FOLD_DLY ].reset := TRUE;    
  76.         Tcnt_10[ IDX_BAG_FOLD ].reset := TRUE;
  77.                                     
  78.         Tcnt_10[ IDX_BAG_CUT_DLY ].reset := TRUE;                    
  79.         Tcnt_10[ IDX_BAG_CUT ].reset := TRUE;                        
  80.         Tcnt_10[ IDX_VACUUMIZE ].reset := TRUE;                    
  81.         Tcnt_10[ IDX_HEAT_SEAL ].reset := TRUE;                
  82.         Tcnt_10[ IDX_SEAL_KEEP ].reset := TRUE;                    
  83.         Tcnt_10[ IDX_SEAL_COOL ].reset := TRUE;
  84.         
  85.     END_IF;
  86.     
  87. ELSE
  88.     bMode_Auto := FALSE;               (* 如果切換到“手動操作”,這條語句必然被執行 *)
  89.     
  90. END_IF;
  91. (******************************************************************************
  92. * brief  按鍵掃描與互鎖
  93. * note  
  94. *****************************************************************************)
  95. HmiKey_Scan_InterLock();    
  96. (******************************************************************************
  97. * brief  自動包裝(填充包裝)按鍵事件處理
  98. * note
  99. *****************************************************************************)
  100. (* 按鍵生效,下降沿 *)
  101. IF( LDP( TRUE, KeyID_FillPack ) AND ( bY0_out_watch = FALSE ) ) THEN            
  102.      PackingFlow := FLOW_STANDBY;          
  103. END_IF;
  104. (* 按鍵生效,下降沿 *)    
  105. IF( LDF( TRUE, KeyID_FillPack ) ) THEN            
  106.      PackingFlow := FLOW_END;                          
  107. END_IF;
  108. (******************************************************************************
  109. * brief  空袋調試 按鍵事件處理
  110. * note
  111. *****************************************************************************)
  112. (* 按鍵生效,上升沿 *)
  113. IF( LDP( TRUE, KeyID_EmptyBagTest ) AND ( bY0_out_watch = FALSE ) ) THEN            
  114.      PackingFlow := FLOW_STANDBY;          
  115. END_IF;
  116. (* 按鍵生效,下降沿 *)    
  117. IF( LDF( TRUE, KeyID_EmptyBagTest ) ) THEN            
  118.      PackingFlow := FLOW_END;                          
  119. END_IF;
  120. (******************************************************************************
  121. * brief 制袋一個 按鍵事件處理
  122. * note
  123. *****************************************************************************)
  124.         
  125. (* 按鍵生效,下降沿 *)
  126. IF( LDP( TRUE, KeyID_FillBagOne ) AND ( bY0_out_watch = FALSE ) ) THEN            
  127.      PackingFlow := FLOW_STANDBY;          
  128. END_IF;
  129. (* 按鍵生效,下降沿 *)    
  130. IF( LDF( TRUE, KeyID_FillBagOne ) ) THEN            
  131.      PackingFlow := FLOW_END;                          
  132. END_IF;
  133. (******************************************************************************
  134. * 拉膜皮帶
  135. *
  136. * 伺服電機通過傳動桿驅動拉膜皮帶,拉膜氣缸控制拉膜皮帶:
  137. * 抱緊下料筒的包裝膜
  138. * 松開下料筒的包裝膜
  139. *****************************************************************************)
  140. IF( bMode_Auto )  THEN
  141.     
  142.      IF( HmiKey_BeltFlimPull ) THEN
  143.                   
  144.          SET( TRUE, Y_BeltPullFilm_cylinder );        
  145.      ELSE        
  146.          RST( TRUE, Y_BeltPullFilm_cylinder );        
  147.      END_IF;
  148.     
  149. END_IF;
  150. (******************************************************************************
  151. * 真空泵
  152. *
  153. *****************************************************************************)
  154. IF( bMode_Auto ) THEN
  155.     
  156.     IF( HmiKey_VacuumPump ) THEN
  157.         
  158.         SET( TRUE, Y_VacuumPump_SSR );        
  159.     ELSE        
  160.         RST( TRUE,Y_VacuumPump_SSR );        
  161.     END_IF;
  162.     
  163. END_IF;  
  164. (******************************************************************************
  165. * 跑遍糾正
  166. *
  167. * HmiPB_MoveLeft     HMI“自動包裝”界面“跑偏糾正”左移按鈕
  168. * HmiPB_MoveRight    HMI“自動包裝”界面“跑偏糾正”右移按鈕
  169. * Limit_Left         左移限位開關
  170. * Limit_Right        右移限位開關
  171. *****************************************************************************)
  172. IF( HmiKey_MoveLeft AND ( NOT ix_PackFilm_Limit_L ) ) THEN
  173.     
  174.     SET( TRUE, Y_MoveLeft_SSR );    
  175. ELSE    
  176.     RST( TRUE, Y_MoveLeft_SSR );    
  177. END_IF;
  178. IF( HmiKey_MoveRight  AND ( NOT ix_PackFilm_Limit_R ) )THEN
  179.     
  180.     SET( TRUE, Y_MoveRight_SSR );    
  181. ELSE    
  182.     RST( TRUE, Y_MoveRight_SSR );    
  183. END_IF;
[ 此帖被nos001在2019-07-19 21:47重新編輯 ]
wangli1268
級別: 正式會員
精華主題: 0
發帖數量: 32 個
工控威望: 82 點
下載積分: 7479 分
在線時間: 14(小時)
注冊時間: 2019-06-14
最后登錄: 2022-06-01
查看wangli1268的 主題 / 回貼
112樓  發表于: 2019-07-19 22:15
感謝您的分享,學習中!
denghong
我是一只草泥馬.!
級別: 略有小成
精華主題: 0
發帖數量: 161 個
工控威望: 350 點
下載積分: 1175 分
在線時間: 189(小時)
注冊時間: 2007-10-12
最后登錄: 2025-11-22
查看denghong的 主題 / 回貼
113樓  發表于: 2019-08-08 09:00
樓主,軸的機構體寫的不是很好,我有幾個簡單的。
林李56
級別: 正式會員
精華主題: 0
發帖數量: 26 個
工控威望: 94 點
下載積分: 5593 分
在線時間: 53(小時)
注冊時間: 2019-01-25
最后登錄: 2025-09-07
查看林李56的 主題 / 回貼
114樓  發表于: 2019-08-08 09:58
樓上的高手能分享下嗎?
小嘿嘿
級別: 略有小成
精華主題: 0
發帖數量: 230 個
工控威望: 356 點
下載積分: 15344 分
在線時間: 169(小時)
注冊時間: 2012-09-24
最后登錄: 2025-07-25
查看小嘿嘿的 主題 / 回貼
115樓  發表于: 2019-08-08 12:08
         感謝樓主
451665150
學海無涯,勤作舟
級別: 探索解密
精華主題: 0
發帖數量: 59 個
工控威望: 123 點
下載積分: 1877 分
在線時間: 57(小時)
注冊時間: 2019-04-27
最后登錄: 2025-09-11
查看451665150的 主題 / 回貼
116樓  發表于: 2019-08-08 20:37
下載了,感謝樓主分享
工控老毛
未來發展趨勢,自動機械化。
級別: 家園常客
精華主題: 0
發帖數量: 39 個
工控威望: 833 點
下載積分: 4558 分
在線時間: 71(小時)
注冊時間: 2017-12-14
最后登錄: 2021-01-22
查看工控老毛的 主題 / 回貼
117樓  發表于: 2019-08-09 08:05
學習學習,謝謝分享
早安你好
級別: 家園常客
精華主題: 0
發帖數量: 31 個
工控威望: 528 點
下載積分: 2924 分
在線時間: 52(小時)
注冊時間: 2019-03-04
最后登錄: 2022-06-07
查看早安你好的 主題 / 回貼
118樓  發表于: 2019-08-09 15:31
感謝,樓主
752759616
簽名個鬼
級別: 家園常客
精華主題: 0
發帖數量: 224 個
工控威望: 589 點
下載積分: 902 分
在線時間: 200(小時)
注冊時間: 2013-07-08
最后登錄: 2025-12-19
查看752759616的 主題 / 回貼
119樓  發表于: 2019-08-10 09:56
學習下一下

主站蜘蛛池模板: 狠狠操网站 | 大地资源中文在线观看官网第二页 | 色丁香色婷婷 | 91在线精品视频 | 欧美高清成人 | 成人国产片视频在线观看 | 国产乱人视频 | 浓毛欧美老妇乱子伦视频 | 亚洲精品白浆高清久久久久久 | 欧美日韩一区二区三区在线观看视频 | 好了av第四综合无码久久 | 91popn国产在线 | 亚洲熟妇av一区二区三区漫画 | 无码中文av有码中文av | 国产乱子伦视频大全 | 人与动人物av片 | 日本大尺度吃奶做爰久久久绯色 | 2019最新中文字幕在线观看 | 一区二区三区久久含羞草 | 免费特黄夫妻生活片 | 久久久久99精品成人片三人毛片 | 成人免费视频xbxb入口 | 成人免费一级片 | 伦理天堂eeuss | 国产欧美熟妇另类久久久 | 3d动漫精品一区二区三区 | 国产日韩未满十八禁止观看 | 午夜理论片yy8860y影院 | 日韩欧美国产一区二区在线观看 | 欧美极品少妇感bbbbbb | 免费无码黄真人影片在线 | 精品国产日韩亚洲一区 | 国产91成人欧美精品另类动态 | 久久婷婷综合色丁香五月 | 男人进女人下部全黄大色视频 | 亚洲天堂男人 | 中文字幕人妻丝袜二区 | av潮喷大喷水系列无码 | 日b视频在线观看 | 搞黄网站在线观看 | 欧美婷婷丁香五月社区 | 久久久亚洲欧洲日产国码aⅴ | 久久女人天堂 | 成人精品一区二区三区电影免费 | 99久久免费精品高清特色大片 | 美女黄网站免费福利视频 | 日本高清免费的不卡视频 | 国产高清一区二区三区视频 | 欧美日韩综合精品一区二区 | 天天躁日日躁狠狠躁超碰97 | 亚洲一区欧美精品 | 欧洲极品女同videoso | 欧美一区二区日韩国产 | 国产一区视频在线播放 | 精品免费看 | 无码人妻久久一区二区三区蜜桃 | 宅宅午夜无码一区二区三区 | 色老久久精品偷偷鲁 | 在线免费激情视频 | 在线成人小视频 | 一本久道久久综合婷婷五月 | 欧美孕妇变态重口另类 | 国产无遮挡色视频免费观看性色 | 最近2019中文字幕在线 | 日韩中文字幕a | 激情欧美成人 | 久久久久伊人 | 国产乡下妇女做爰毛片 | 无码刺激a片一区二区三区 youjizzhd | 国产成人午夜在线视频a站 尤物毛片 | 久久久久久中文字幕 | 日韩综合一区 | 日本在线a一区视频高清视频 | 国产成人精品无缓存在线播放 | 欧美久久免费 | 欧美一区在线观看视频 | 狠狠色噜噜狠狠狠狠五月婷 | 欧美日韩亚洲国产综合 | 国产精品女主播在线视频 | 丰满少妇猛烈进入三区视频 | av无码av在线a∨天堂app | 亚洲人成网7777777国产 | 亚洲天堂网站 | 最新的国产成人精品2022 | 国产欧美日本亚洲精品一5区 | 新影音先锋男人色资源网 | 久久人人爽人人爽av片 | 无码国产精成人午夜视频不卡 | 在线视频 亚太 国产 欧美 一区二区 | 日韩精品一卡2卡3卡4卡新区视频 | 日本久久综合久久鬼色 | av成人毛片 | 中文字幕与公奈奈美 | www.五月天激情 | 久久精品午夜一区二区福利 | 中文字幕日韩高清 | 深夜视频在线免费 | 国产午夜精品免费一区二区三区视频 | 国产va精品午夜福利视频 |