女人叫床声_动漫美女被艹视频_国产精品短篇二区_理发店女人一级毛片

zqszk123
集百家之所長，融百家之所思，揚百家之所名！
級別: 論壇先鋒
精華主題: 1 篇
發帖數量: 246 個
工控威望: 1067 點
下載積分: 585 分
在線時間: 123(小時)
注冊時間: 2018-06-19
最后登錄: 2023-04-03
查看zqszk123的 主題 / 回貼
樓主  發表于: 2018-08-20 10:16
三菱的，結構化編程，看編程思維，不用詳細看動作 ！
歡迎一起討論！（感覺還好的話送點積分給我，我要改名字！）
[ 此帖被18706185276在2018-08-20 16:33重新編輯 ]
附件： 程序.zip (3544 K) 下載次數:11884
網站提示: 請不要用迅雷下載附件，容易出錯
本帖最近評分記錄：
  • 下載積分:+5(renjiawonder) 結構編程
  • 下載積分:+1(aaa2073) 感謝分享！
  • 下載積分:+1(一水知寒) 好貼好貼！
  • 下載積分:+1(工控老杜) 好貼好貼！
  • 下載積分:+1(zhao82159217)
  • 下載積分:+1(zhuo610616) 真誠感謝！
  • 下載積分:+1(上官文博) 真誠感謝！
    nos001
    級別: 探索解密
    精華主題: 0
    發帖數量: 54 個
    工控威望: 110 點
    下載積分: 814 分
    在線時間: 42(小時)
    注冊時間: 2018-03-31
    最后登錄: 2022-10-06
    查看nos001的 主題 / 回貼
    1樓  發表于: 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;
    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. * 從手動操作切換到自動包裝
    51. * 如果前面進行過“手動操作”，切換到“自動包裝”時進行一次初始化
    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;               (* 如果切換到“手動操作”，這條語句必然被執行 *)
    92.     
    93. END_IF;
    95. (******************************************************************************
    96. * brief  按鍵掃描與互鎖
    97. * note  
    98. *****************************************************************************)
    99. HmiKey_Scan_InterLock();    
    102. (******************************************************************************
    103. * brief  自動包裝（填充包裝）按鍵事件處理
    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  空袋調試 按鍵事件處理
    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 制袋一個 按鍵事件處理
    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. * 伺服電機通過傳動桿驅動拉膜皮帶，拉膜氣缸控制拉膜皮帶：
    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“自動包裝”界面“跑偏糾正”左移按鈕
    183. * HmiPB_MoveRight    HMI“自動包裝”界面“跑偏糾正”右移按鈕
    184. * Limit_Left         左移限位開關
    185. * Limit_Right        右移限位開關
    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重新編輯 ]