一区二区三区成人-一区二区三区www-一区二区三区 日韩-一区二区日韩欧美-一区二区日韩精品中文字幕-一区二区日韩

zqszk123
集百家之所長，融百家之所思，揚(yáng)百家之所名！
級(jí)別: 論壇先鋒
精華主題: 1 篇
發(fā)帖數(shù)量: 246 個(gè)
工控威望: 1067 點(diǎn)
下載積分: 585 分
在線時(shí)間: 123(小時(shí))
注冊(cè)時(shí)間: 2018-06-19
最后登錄: 2023-04-03
查看zqszk123的 主題 / 回貼
樓主  發(fā)表于: 2018-08-20 10:16
三菱的，結(jié)構(gòu)化編程，看編程思維，不用詳細(xì)看動(dòng)作 ！
歡迎一起討論�。ǜ杏X還好的話送點(diǎn)積分給我，我要改名字！）
[ 此帖被18706185276在2018-08-20 16:33重新編輯 ]
附件： 程序.zip (3544 K) 下載次數(shù):11884
網(wǎng)站提示: 請(qǐng)不要用迅雷下載附件，容易出錯(cuò)
本帖最近評(píng)分記錄：
  • 下載積分:+5(renjiawonder) 結(jié)構(gòu)編程
  • 下載積分:+1(aaa2073) 感謝分享！
  • 下載積分:+1(一水知寒) 好貼好貼！
  • 下載積分:+1(工控老杜) 好貼好貼！
  • 下載積分:+1(zhao82159217)
  • 下載積分:+1(zhuo610616) 真誠感謝！
  • 下載積分:+1(上官文博) 真誠感謝！
    nos001
    級(jí)別: 探索解密
    精華主題: 0
    發(fā)帖數(shù)量: 54 個(gè)
    工控威望: 110 點(diǎn)
    下載積分: 814 分
    在線時(shí)間: 42(小時(shí))
    注冊(cè)時(shí)間: 2018-03-31
    最后登錄: 2022-10-06
    查看nos001的 主題 / 回貼
    1樓  發(fā)表于: 2019-07-19 21:40
    結(jié)構(gòu)化，程序大，有條理，值得借鑒。
    就是定義在一頁的全局變量太多，感覺應(yīng)該分頁。
    其實(shí)不知道硬件，不知道用途，還是挺難看懂。
    還是更喜歡st編程，自定義定時(shí)器感覺比gx works 內(nèi)建的好用。
    復(fù)制代碼
    1. (******************************************************************************
    2. * 從自動(dòng)包裝切換到手動(dòng)操作
    3. * 如果前面進(jìn)行過“自動(dòng)包裝”，切換到“手動(dòng)操作”時(shí)進(jìn)行一次初始化
    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;
    16.         
    17.         ZRST( TRUE, Y001, Y004 );
    18.         ZRST( TRUE, Y006, Y007 );
    19.         ZRST( TRUE, Y010, Y011 );
    20.         ZRST( TRUE, Y013, Y017 );        
    21.         ZRST( TRUE, Y020, Y027 );
    22.         
    23.         Tcnt_10[ IDX_DOWN_FILL_DLY ].reset := TRUE;    
    24.         Tcnt_10[ IDX_DOWN_FILL ].reset := TRUE;    
    25.         Tcnt_10[ IDX_PULL_FILM_DLY ].reset := TRUE;    
    26.         Tcnt_10[ IDX_VERT_SEAL_DLY ].reset := TRUE;    
    27.         Tcnt_10[ IDX_VERT_SEAL ].reset := TRUE;
    28.             
    29.         Tcnt_10[ IDX_KNURL_DLY ].reset := TRUE;    
    30.         Tcnt_10[ IDX_KNURL ].reset := TRUE;    
    31.         Tcnt_10[ IDX_VACUUM_BOX_CLOSE_DLY ].reset := TRUE;    
    32.         Tcnt_10[ IDX_BAG_FOLD_DLY ].reset := TRUE;    
    33.         Tcnt_10[ IDX_BAG_FOLD ].reset := TRUE;
    34.                                     
    35.         Tcnt_10[ IDX_BAG_CUT_DLY ].reset := TRUE;                    
    36.         Tcnt_10[ IDX_BAG_CUT ].reset := TRUE;                        
    37.         Tcnt_10[ IDX_VACUUMIZE ].reset := TRUE;                    
    38.         Tcnt_10[ IDX_HEAT_SEAL ].reset := TRUE;                
    39.         Tcnt_10[ IDX_SEAL_KEEP ].reset := TRUE;                    
    40.         Tcnt_10[ IDX_SEAL_COOL ].reset := TRUE;            
    41.             
    42.     END_IF;
    43.     
    44. ELSE
    46.     RST( TRUE, bMode_Manual );
    47.     
    48. END_IF;
    49. (******************************************************************************
    50. * 從手動(dòng)操作切換到自動(dòng)包裝
    51. * 如果前面進(jìn)行過“手動(dòng)操作”，切換到“自動(dòng)包裝”時(shí)進(jìn)行一次初始化
    52. *****************************************************************************)
    53. IF HmiKey_AutoPack THEN
    54.     
    55.     IF( bMode_Auto = FALSE ) THEN      (* 初始化 *)
    56.         
    57.         bMode_Auto   := TRUE;
    58.         bMode_Manual := FALSE;    
    59.         HmiKey_ManualOP := FALSE;
    60.         HmiKey_Knurling := FALSE;
    61.         
    62.         ZRST( TRUE, Y001, Y004 );
    63.         ZRST( TRUE, Y006, Y007 );
    64.         ZRST( TRUE, Y010, Y011 );
    65.         ZRST( TRUE, Y013, Y017 );        
    66.         ZRST( TRUE, Y020, Y027 );    
    67.             
    68.         Tcnt_10[ IDX_DOWN_FILL_DLY ].reset := TRUE;    
    69.         Tcnt_10[ IDX_DOWN_FILL ].reset := TRUE;    
    70.         Tcnt_10[ IDX_PULL_FILM_DLY ].reset := TRUE;    
    71.         Tcnt_10[ IDX_VERT_SEAL_DLY ].reset := TRUE;    
    72.         Tcnt_10[ IDX_VERT_SEAL ].reset := TRUE;
    73.             
    74.         Tcnt_10[ IDX_KNURL_DLY ].reset := TRUE;    
    75.         Tcnt_10[ IDX_KNURL ].reset := TRUE;    
    76.         Tcnt_10[ IDX_VACUUM_BOX_CLOSE_DLY ].reset := TRUE;    
    77.         Tcnt_10[ IDX_BAG_FOLD_DLY ].reset := TRUE;    
    78.         Tcnt_10[ IDX_BAG_FOLD ].reset := TRUE;
    79.                                     
    80.         Tcnt_10[ IDX_BAG_CUT_DLY ].reset := TRUE;                    
    81.         Tcnt_10[ IDX_BAG_CUT ].reset := TRUE;                        
    82.         Tcnt_10[ IDX_VACUUMIZE ].reset := TRUE;                    
    83.         Tcnt_10[ IDX_HEAT_SEAL ].reset := TRUE;                
    84.         Tcnt_10[ IDX_SEAL_KEEP ].reset := TRUE;                    
    85.         Tcnt_10[ IDX_SEAL_COOL ].reset := TRUE;
    86.         
    87.     END_IF;
    88.     
    89. ELSE
    91.     bMode_Auto := FALSE;               (* 如果切換到“手動(dòng)操作”，這條語句必然被執(zhí)行 *)
    92.     
    93. END_IF;
    95. (******************************************************************************
    96. * brief  按鍵掃描與互鎖
    97. * note  
    98. *****************************************************************************)
    99. HmiKey_Scan_InterLock();    
    102. (******************************************************************************
    103. * brief  自動(dòng)包裝（填充包裝）按鍵事件處理
    104. * note
    105. *****************************************************************************)
    107. (* 按鍵生效，下降沿 *)
    108. IF( LDP( TRUE, KeyID_FillPack ) AND ( bY0_out_watch = FALSE ) ) THEN            
    109.      PackingFlow := FLOW_STANDBY;          
    110. END_IF;
    112. (* 按鍵生效，下降沿 *)    
    113. IF( LDF( TRUE, KeyID_FillPack ) ) THEN            
    114.      PackingFlow := FLOW_END;                          
    115. END_IF;
    117. (******************************************************************************
    118. * brief  空袋調(diào)試 按鍵事件處理
    119. * note
    120. *****************************************************************************)
    122. (* 按鍵生效，上升沿 *)
    123. IF( LDP( TRUE, KeyID_EmptyBagTest ) AND ( bY0_out_watch = FALSE ) ) THEN            
    124.      PackingFlow := FLOW_STANDBY;          
    125. END_IF;
    127. (* 按鍵生效，下降沿 *)    
    128. IF( LDF( TRUE, KeyID_EmptyBagTest ) ) THEN            
    129.      PackingFlow := FLOW_END;                          
    130. END_IF;
    132. (******************************************************************************
    133. * brief 制袋一個(gè) 按鍵事件處理
    134. * note
    135. *****************************************************************************)
    136.         
    137. (* 按鍵生效，下降沿 *)
    138. IF( LDP( TRUE, KeyID_FillBagOne ) AND ( bY0_out_watch = FALSE ) ) THEN            
    139.      PackingFlow := FLOW_STANDBY;          
    140. END_IF;
    142. (* 按鍵生效，下降沿 *)    
    143. IF( LDF( TRUE, KeyID_FillBagOne ) ) THEN            
    144.      PackingFlow := FLOW_END;                          
    145. END_IF;
    147. (******************************************************************************
    148. * 拉膜皮帶
    149. *
    150. * 伺服電機(jī)通過傳動(dòng)桿驅(qū)動(dòng)拉膜皮帶，拉膜氣缸控制拉膜皮帶：
    151. * 抱緊下料筒的包裝膜
    152. * 松開下料筒的包裝膜
    153. *****************************************************************************)
    154. IF( bMode_Auto )  THEN
    155.     
    156.      IF( HmiKey_BeltFlimPull ) THEN
    157.                   
    158.          SET( TRUE, Y_BeltPullFilm_cylinder );        
    159.      ELSE        
    160.          RST( TRUE, Y_BeltPullFilm_cylinder );        
    161.      END_IF;
    162.     
    163. END_IF;
    164. (******************************************************************************
    165. * 真空泵
    166. *
    167. *****************************************************************************)
    168. IF( bMode_Auto ) THEN
    169.     
    170.     IF( HmiKey_VacuumPump ) THEN
    171.         
    172.         SET( TRUE, Y_VacuumPump_SSR );        
    173.     ELSE        
    174.         RST( TRUE,Y_VacuumPump_SSR );        
    175.     END_IF;
    176.     
    177. END_IF;  
    179. (******************************************************************************
    180. * 跑遍糾正
    181. *
    182. * HmiPB_MoveLeft     HMI“自動(dòng)包裝”界面“跑偏糾正”左移按鈕
    183. * HmiPB_MoveRight    HMI“自動(dòng)包裝”界面“跑偏糾正”右移按鈕
    184. * Limit_Left         左移限位開關(guān)
    185. * Limit_Right        右移限位開關(guān)
    186. *****************************************************************************)
    187. IF( HmiKey_MoveLeft AND ( NOT ix_PackFilm_Limit_L ) ) THEN
    188.     
    189.     SET( TRUE, Y_MoveLeft_SSR );    
    190. ELSE    
    191.     RST( TRUE, Y_MoveLeft_SSR );    
    192. END_IF;
    194. IF( HmiKey_MoveRight  AND ( NOT ix_PackFilm_Limit_R ) )THEN
    195.     
    196.     SET( TRUE, Y_MoveRight_SSR );    
    197. ELSE    
    198.     RST( TRUE, Y_MoveRight_SSR );    
    199. END_IF;
    [ 此帖被nos001在2019-07-19 21:47重新編輯 ]

    主站蜘蛛池模板： 99九九精品视频| 国产全部理论片线观看| 日韩不卡一区二区三区| 91真人毛片一级在线播放| 青青青青青国产免费手机看视频 | 男人午夜剧场| 国产美女亚洲精品久久久综合| 小嫩videos| 亚洲另类第一页| 午夜片神马影院福利| 好涨好爽好大视频免费| 亚洲国产成人综合| 舔比小说| 女人是男人的未来1分49分| 和老外3p爽粗大免费视频| 深夜影院深a久久| 秀婷程仪公欲息肉婷在线观看 | 果冻传媒九一制片厂| 日本爽p大片免费观看| 日老逼| 国产成人亚洲综合网站不卡 | 国产精品亚欧美一区二区三区| 男人女人插| 午夜宅男影院| 女张腿男人桶羞羞漫画| 韩国一区二区三区| 国产精品视频一区二区三区w| 搡60一70岁的老女人小说| 欧美激情影音先锋| 亚洲免费国产| 美女和男人差差| 护士让我吃奶我扒她奶| 国产高清亚洲| 久久艹综合| xxnx日本免费护士| 欧洲另类一二三四区| 无码中文字幕热热久久| 男女男精品网站免费观看| 欧美一区二区免费| 黄在线观看www免费看| 久久精品99国产精品日本|