337p日本大胆噜噜噜噜,人摸人人人澡人人超碰97,日韩激情第一页

工控人家園 程序樣例 三菱的，結(jié)構(gòu)化編程，看編程思維，不用詳細(xì)看動(dòng)作！

zqszk123

集百家之所長(zhǎng)，融百家之所思，揚(yáng)百家之所名！

級(jí)別: 論壇先鋒

發(fā)送短信
加為好友
QQ聯(lián)系

精華主題: 1 篇
發(fā)帖數(shù)量: 247 個(gè)
工控威望: 1067 點(diǎn)
下載積分: 774 分
在線時(shí)間: 123(小時(shí))
注冊(cè)時(shí)間: 2018-06-19
最后登錄: 2025-09-01
查看zqszk123的主題 / 回貼

樓主發(fā)表于: 2018-08-20 10:16

全看 | 小中大

三菱的，結(jié)構(gòu)化編程，看編程思維，不用詳細(xì)看動(dòng)作！
歡迎一起討論！（感覺(jué)還好的話(huà)送點(diǎn)積分給我，我要改名字！

）

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

附件：

程序.zip (3544 K) 下載次數(shù):11918

本帖最近評(píng)分記錄：

下載積分:+5(renjiawonder) 結(jié)構(gòu)編程

下載積分:+1(aaa2073) 感謝分享！

下載積分:+1(一水知寒) 好貼好貼！

下載積分:+1(工控老杜) 好貼好貼！

下載積分:+1(zhao82159217)

下載積分:+1(zhuo610616) 真誠(chéng)感謝！

下載積分:+1(上官文博) 真誠(chéng)感謝！

nos001

級(jí)別: 探索解密

發(fā)送短信
加為好友

精華主題: 0
發(fā)帖數(shù)量: 54 個(gè)
工控威望: 110 點(diǎn)
下載積分: 1002 分
在線時(shí)間: 42(小時(shí))
注冊(cè)時(shí)間: 2018-03-31
最后登錄: 2022-10-06
查看nos001的主題 / 回貼

1樓發(fā)表于: 2019-07-19 21:40

全看 | 小中大

結(jié)構(gòu)化，程序大，有條理，值得借鑒。
就是定義在一頁(yè)的全局變量太多，感覺(jué)應(yīng)該分頁(yè)。
其實(shí)不知道硬件，不知道用途，還是挺難看懂。
還是更喜歡st編程，自定義定時(shí)器感覺(jué)比gx works 內(nèi)建的好用。

復(fù)制代碼

(******************************************************************************
* 從自動(dòng)包裝切換到手動(dòng)操作
* 如果前面進(jìn)行過(guò)“自動(dòng)包裝”，切換到“手動(dòng)操作”時(shí)進(jìn)行一次初始化
*****************************************************************************)
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;
(******************************************************************************
* 從手動(dòng)操作切換到自動(dòng)包裝
* 如果前面進(jìn)行過(guò)“手動(dòng)操作”，切換到“自動(dòng)包裝”時(shí)進(jìn)行一次初始化
*****************************************************************************)
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; (* 如果切換到“手動(dòng)操作”，這條語(yǔ)句必然被執(zhí)行 *)
END_IF;
(******************************************************************************
* brief 按鍵掃描與互鎖
* note
*****************************************************************************)
HmiKey_Scan_InterLock();
(******************************************************************************
* brief 自動(dòng)包裝（填充包裝）按鍵事件處理
* 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 空袋調(diào)試按鍵事件處理
* 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 制袋一個(gè) 按鍵事件處理
* 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;
(******************************************************************************
* 拉膜皮帶
*
* 伺服電機(jī)通過(guò)傳動(dòng)桿驅(qū)動(dòng)拉膜皮帶，拉膜氣缸控制拉膜皮帶：
* 抱緊下料筒的包裝膜
* 松開(kāi)下料筒的包裝膜
*****************************************************************************)
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“自動(dòng)包裝”界面“跑偏糾正”左移按鈕
* HmiPB_MoveRight HMI“自動(dòng)包裝”界面“跑偏糾正”右移按鈕
* Limit_Left 左移限位開(kāi)關(guān)
* Limit_Right 右移限位開(kāi)關(guān)
*****************************************************************************)
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重新編輯 ]

工控人家園 程序樣例 三菱的，結(jié)構(gòu)化編程，看編程思維，不用詳細(xì)看動(dòng)作！

http://m.goldslcd.cn
訪問(wèn)內(nèi)容超出本站范圍，不能確定是否安全
繼續(xù)訪問(wèn)	取消訪問(wèn)