国产亚洲视频在线播放香蕉,亚洲精品国产一区二区精华 ,日韩精品影院

工控人家園 程序樣例 三菱的，結構化編程，看編程思維，不用詳細看動作！

zqszk123

集百家之所長，融百家之所思，揚百家之所名！

級別: 論壇先鋒

發送短信
加為好友
QQ聯系

精華主題: 1 篇
發帖數量: 247 個
工控威望: 1067 點
下載積分: 585 分
在線時間: 123(小時)
注冊時間: 2018-06-19
最后登錄: 2025-09-01
查看zqszk123的主題 / 回貼

樓主發表于: 2018-08-20 10:16

全看 | 小中大

三菱的，結構化編程，看編程思維，不用詳細看動作！
歡迎一起討論�。ǜ杏X還好的話送點積分給我，我要改名字！

）

[ 此帖被18706185276在2018-08-20 16:33重新編輯 ]

附件：

程序.zip (3544 K) 下載次數:11909

本帖最近評分記錄：

下載積分:+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 內建的好用。

復制代碼

(******************************************************************************
* 從自動包裝切換到手動操作
* 如果前面進行過“自動包裝”，切換到“手動操作”時進行一次初始化
*****************************************************************************)
IF HmiKey_ManualOP THEN
IF( bMode_Manual = FALSE ) THEN
bMode_Manual := TRUE;
bMode_Auto := FALSE;
HmiKey_AutoPack := FALSE;
HmiKey_FillPack := FALSE;
HmiKey_EmptyBagTest := FALSE;
HmiKey_FillBagOne := FALSE;
ZRST( TRUE, Y001, Y004 );
ZRST( TRUE, Y006, Y007 );
ZRST( TRUE, Y010, Y011 );
ZRST( TRUE, Y013, Y017 );
ZRST( TRUE, Y020, Y027 );
Tcnt_10[ IDX_DOWN_FILL_DLY ].reset := TRUE;
Tcnt_10[ IDX_DOWN_FILL ].reset := TRUE;
Tcnt_10[ IDX_PULL_FILM_DLY ].reset := TRUE;
Tcnt_10[ IDX_VERT_SEAL_DLY ].reset := TRUE;
Tcnt_10[ IDX_VERT_SEAL ].reset := TRUE;
Tcnt_10[ IDX_KNURL_DLY ].reset := TRUE;
Tcnt_10[ IDX_KNURL ].reset := TRUE;
Tcnt_10[ IDX_VACUUM_BOX_CLOSE_DLY ].reset := TRUE;
Tcnt_10[ IDX_BAG_FOLD_DLY ].reset := TRUE;
Tcnt_10[ IDX_BAG_FOLD ].reset := TRUE;
Tcnt_10[ IDX_BAG_CUT_DLY ].reset := TRUE;
Tcnt_10[ IDX_BAG_CUT ].reset := TRUE;
Tcnt_10[ IDX_VACUUMIZE ].reset := TRUE;
Tcnt_10[ IDX_HEAT_SEAL ].reset := TRUE;
Tcnt_10[ IDX_SEAL_KEEP ].reset := TRUE;
Tcnt_10[ IDX_SEAL_COOL ].reset := TRUE;
END_IF;
ELSE
RST( TRUE, bMode_Manual );
END_IF;
(******************************************************************************
* 從手動操作切換到自動包裝
* 如果前面進行過“手動操作”，切換到“自動包裝”時進行一次初始化
*****************************************************************************)
IF HmiKey_AutoPack THEN
IF( bMode_Auto = FALSE ) THEN (* 初始化 *)
bMode_Auto := TRUE;
bMode_Manual := FALSE;
HmiKey_ManualOP := FALSE;
HmiKey_Knurling := FALSE;
ZRST( TRUE, Y001, Y004 );
ZRST( TRUE, Y006, Y007 );
ZRST( TRUE, Y010, Y011 );
ZRST( TRUE, Y013, Y017 );
ZRST( TRUE, Y020, Y027 );
Tcnt_10[ IDX_DOWN_FILL_DLY ].reset := TRUE;
Tcnt_10[ IDX_DOWN_FILL ].reset := TRUE;
Tcnt_10[ IDX_PULL_FILM_DLY ].reset := TRUE;
Tcnt_10[ IDX_VERT_SEAL_DLY ].reset := TRUE;
Tcnt_10[ IDX_VERT_SEAL ].reset := TRUE;
Tcnt_10[ IDX_KNURL_DLY ].reset := TRUE;
Tcnt_10[ IDX_KNURL ].reset := TRUE;
Tcnt_10[ IDX_VACUUM_BOX_CLOSE_DLY ].reset := TRUE;
Tcnt_10[ IDX_BAG_FOLD_DLY ].reset := TRUE;
Tcnt_10[ IDX_BAG_FOLD ].reset := TRUE;
Tcnt_10[ IDX_BAG_CUT_DLY ].reset := TRUE;
Tcnt_10[ IDX_BAG_CUT ].reset := TRUE;
Tcnt_10[ IDX_VACUUMIZE ].reset := TRUE;
Tcnt_10[ IDX_HEAT_SEAL ].reset := TRUE;
Tcnt_10[ IDX_SEAL_KEEP ].reset := TRUE;
Tcnt_10[ IDX_SEAL_COOL ].reset := TRUE;
END_IF;
ELSE
bMode_Auto := FALSE; (* 如果切換到“手動操作”，這條語句必然被執行 *)
END_IF;
(******************************************************************************
* brief 按鍵掃描與互鎖
* note
*****************************************************************************)
HmiKey_Scan_InterLock();
(******************************************************************************
* brief 自動包裝（填充包裝）按鍵事件處理
* note
*****************************************************************************)
(* 按鍵生效，下降沿 *)
IF( LDP( TRUE, KeyID_FillPack ) AND ( bY0_out_watch = FALSE ) ) THEN
PackingFlow := FLOW_STANDBY;
END_IF;
(* 按鍵生效，下降沿 *)
IF( LDF( TRUE, KeyID_FillPack ) ) THEN
PackingFlow := FLOW_END;
END_IF;
(******************************************************************************
* brief 空袋調試按鍵事件處理
* note
*****************************************************************************)
(* 按鍵生效，上升沿 *)
IF( LDP( TRUE, KeyID_EmptyBagTest ) AND ( bY0_out_watch = FALSE ) ) THEN
PackingFlow := FLOW_STANDBY;
END_IF;
(* 按鍵生效，下降沿 *)
IF( LDF( TRUE, KeyID_EmptyBagTest ) ) THEN
PackingFlow := FLOW_END;
END_IF;
(******************************************************************************
* brief 制袋一個按鍵事件處理
* note
*****************************************************************************)
(* 按鍵生效，下降沿 *)
IF( LDP( TRUE, KeyID_FillBagOne ) AND ( bY0_out_watch = FALSE ) ) THEN
PackingFlow := FLOW_STANDBY;
END_IF;
(* 按鍵生效，下降沿 *)
IF( LDF( TRUE, KeyID_FillBagOne ) ) THEN
PackingFlow := FLOW_END;
END_IF;
(******************************************************************************
* 拉膜皮帶
*
* 伺服電機通過傳動桿驅動拉膜皮帶，拉膜氣缸控制拉膜皮帶：
* 抱緊下料筒的包裝膜
* 松開下料筒的包裝膜
*****************************************************************************)
IF( bMode_Auto ) THEN
IF( HmiKey_BeltFlimPull ) THEN
SET( TRUE, Y_BeltPullFilm_cylinder );
ELSE
RST( TRUE, Y_BeltPullFilm_cylinder );
END_IF;
END_IF;
(******************************************************************************
* 真空泵
*
*****************************************************************************)
IF( bMode_Auto ) THEN
IF( HmiKey_VacuumPump ) THEN
SET( TRUE, Y_VacuumPump_SSR );
ELSE
RST( TRUE,Y_VacuumPump_SSR );
END_IF;
END_IF;
(******************************************************************************
* 跑遍糾正
*
* HmiPB_MoveLeft HMI“自動包裝”界面“跑偏糾正”左移按鈕
* HmiPB_MoveRight HMI“自動包裝”界面“跑偏糾正”右移按鈕
* Limit_Left 左移限位開關
* Limit_Right 右移限位開關
*****************************************************************************)
IF( HmiKey_MoveLeft AND ( NOT ix_PackFilm_Limit_L ) ) THEN
SET( TRUE, Y_MoveLeft_SSR );
ELSE
RST( TRUE, Y_MoveLeft_SSR );
END_IF;
IF( HmiKey_MoveRight AND ( NOT ix_PackFilm_Limit_R ) )THEN
SET( TRUE, Y_MoveRight_SSR );
ELSE
RST( TRUE, Y_MoveRight_SSR );
END_IF;

[ 此帖被nos001在2019-07-19 21:47重新編輯 ]

工控人家園 程序樣例 三菱的，結構化編程，看編程思維，不用詳細看動作！

http://www.cipm.com.cn
訪問內容超出本站范圍，不能確定是否安全
繼續訪問	取消訪問