三菱的，结构化编程，看编程思维，不用详细看动作！

kidien

级别: 略有小成

发送短信
加为好友
QQ联系

精华主题: 0
发帖数量: 107 个
工控威望: 209 点
下载积分: 769 分
在线时间: 29(小时)
注册时间: 2010-01-08
最后登录: 2024-12-12
查看kidien的主题 / 回贴

108楼发表于: 2019-07-17 21:11

只看该作者 | 小中大

感谢楼主，最近在学功能块，向结构化转型，多谢分享！

chenyuuuu

Raymond

级别: 探索解密

发送短信
加为好友

精华主题: 0
发帖数量: 37 个
工控威望: 135 点
下载积分: 34646 分
在线时间: 154(小时)
注册时间: 2019-05-06
最后登录: 2024-12-19
查看chenyuuuu的主题 / 回贴

109楼发表于: 2019-07-19 09:09

只看该作者 | 小中大

谢谢楼主，学习学习。

huxiang2030

山本无忧，因雪白头；水本无愁，因风起皱...

级别: 探索解密

发送短信
加为好友

精华主题: 0
发帖数量: 85 个
工控威望: 129 点
下载积分: 1380 分
在线时间: 22(小时)
注册时间: 2019-06-19
最后登录: 2024-03-18
查看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 内建的好用。

复制代码

(******************************************************************************
* 从自动包装切换到手动操作
* 如果前面进行过“自动包装”，切换到“手动操作”时进行一次初始化
*****************************************************************************)
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重新编辑 ]

wangli1268

级别: 正式会员

发送短信
加为好友

精华主题: 0
发帖数量: 34 个
工控威望: 82 点
下载积分: 7479 分
在线时间: 14(小时)
注册时间: 2019-06-14
最后登录: 2022-06-01
查看wangli1268的主题 / 回贴

112楼发表于: 2019-07-19 22:15

只看该作者 | 小中大

感谢您的分享，学习中！

denghong

我是一只草泥马.!

级别: 略有小成

发送短信
加为好友

精华主题: 0
发帖数量: 171 个
工控威望: 349 点
下载积分: 1173 分
在线时间: 185(小时)
注册时间: 2007-10-12
最后登录: 2024-11-22
查看denghong的主题 / 回贴

113楼发表于: 2019-08-08 09:00

只看该作者 | 小中大

楼主，轴的机构体写的不是很好，我有几个简单的。

林李56

级别: 正式会员

发送短信
加为好友

精华主题: 0
发帖数量: 26 个
工控威望: 94 点
下载积分: 5583 分
在线时间: 53(小时)
注册时间: 2019-01-25
最后登录: 2024-10-26
查看林李56的主题 / 回贴

114楼发表于: 2019-08-08 09:58

只看该作者 | 小中大

楼上的高手能分享下吗？

小嘿嘿

级别: 略有小成

发送短信
加为好友

精华主题: 0
发帖数量: 243 个
工控威望: 356 点
下载积分: 15314 分
在线时间: 168(小时)
注册时间: 2012-09-24
最后登录: 2024-11-10
查看小嘿嘿的主题 / 回贴

115楼发表于: 2019-08-08 12:08

只看该作者 | 小中大

感谢楼主

451665150

学海无涯，勤作舟

级别: 探索解密

发送短信
加为好友

精华主题: 0
发帖数量: 59 个
工控威望: 123 点
下载积分: 1877 分
在线时间: 57(小时)
注册时间: 2019-04-27
最后登录: 2022-04-05
查看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
发帖数量: 33 个
工控威望: 528 点
下载积分: 2924 分
在线时间: 52(小时)
注册时间: 2019-03-04
最后登录: 2022-06-07
查看早安你好的主题 / 回贴

118楼发表于: 2019-08-09 15:31

只看该作者 | 小中大

感谢，楼主

752759616

签名个鬼

级别: 略有小成

发送短信
加为好友

精华主题: 0
发帖数量: 217 个
工控威望: 375 点
下载积分: 2412 分
在线时间: 160(小时)
注册时间: 2013-07-08
最后登录: 2024-12-18
查看752759616的主题 / 回贴

119楼发表于: 2019-08-10 09:56

只看该作者 | 小中大

学习下一下

http://www.ymmfa.com
访问内容超出本站范围，不能确定是否安全
继续访问	取消访问