2018新年教程--易语言工业控制（三菱PLC通讯控件）

a张志鹏

支持楼主，支持精益论坛。

afengzaixian

没什么人气啊！论坛人都去哪了

alleysmile

很想学，谢谢

afengzaixian

今天继续开更，希望大家能支持！不然我会坚持不下去的哦
先给大家来段PLC程式，别问我PLC怎么学的，买本专业书自己看就好了。。。。。

PLC程式说明：X0为输入启动，X1为输入停止，M10中继，Y0输出
动作说明：X0接通（也可以说是置为1）时M10接通（M10也可以说是被X0赋值为1的）同时M10完成自锁和让Y0有输出（M10一旦值为1后图中所有标有M10的点都会改变当前状态）
不过现在问题来了，这和易语言又有半毛钱关系呢
其实在工业控制中很多都是拿上位机程式去控制PLC做响应的输出的，之前也说过本贴是教大家用易语言编写上位机程式，哈哈总算是找到这半毛钱关系了
接下来就给来段易语言控制这段程式的代码

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
检测线程	整数型
a	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

ActUtlType1.ActLogicalStationNumber ＝ 2  ' 选择当前通讯站号
a ＝ ActUtlType1.Open ()  ' 连接当前通讯站号，成功返回0,失败返回负数
判断 (a ≥ 0)
标题 ＝ “连接PLC成功”
标题 ＝ “连接PLC失败”
启动线程 (&输出检测, , 检测线程)  ' 用线程做持续检测动作

子程序名	返回值类型	公开	备 注
输出检测

变量名	类 型	静态	数组	备 注
YO状态	短整数型

判断循环首 (a ≥ 0)
ActUtlType1.GetDevice2 (“Y0”, YO状态)  ' 获取Y0状态
判断 (YO状态 ＝ 1)
标签2.标题 ＝ “YO有输出信号”
标签2.标题 ＝ “YO输出断开”
延时 (50)  ' 为了避免PLC模拟器出现卡死现象
判断循环尾 ()

子程序名	返回值类型	公开	备 注
输入到PLC	整数型
参数名	类 型	参考	可空	数组	备 注
PLC元件	文本型
输入值	整数型

变量名	类 型	静态	数组	备 注
返回值	整数型

返回值 ＝ ActUtlType1.SetDevice (PLC元件, 输入值)
返回 (返回值)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

强制结束线程 (检测线程)

子程序名	返回值类型	公开	备 注
_按钮1_鼠标左键被按下	逻辑型		向X0赋值1
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

输入到PLC (“X0”, 1)

子程序名	返回值类型	公开	备 注
_按钮1_鼠标左键被放开	逻辑型		向X0赋值0
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

输入到PLC (“X0”, 0)

子程序名	返回值类型	公开	备 注
_按钮2_鼠标左键被按下	逻辑型		向X1赋值1
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

输入到PLC (“X1”, 1)

子程序名	返回值类型	公开	备 注
_按钮2_鼠标左键被放开	逻辑型		向X1赋值0
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

输入到PLC (“X1”, 0)

i支持库列表	支持库注释
ActUtlType	(未知支持库)
EThread	多线程支持库

.版本 2<br /> .支持库 ActUtlType<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 检测线程, 整数型<br /> .程序集变量 a, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ActUtlType1.ActLogicalStationNumber ＝ 2  ' 选择当前通讯站号<br /> a ＝ ActUtlType1.Open ()  ' 连接当前通讯站号，成功返回0,失败返回负数<br /> .判断开始 (a ≥ 0)<br />     标题 ＝ “连接PLC成功”<br /> .默认<br />     标题 ＝ “连接PLC失败”<br /> .判断结束<br /> 启动线程 (&输出检测, , 检测线程)  ' 用线程做持续检测动作<br /> <br /> .子程序 输出检测<br /> .局部变量 YO状态, 短整数型<br /> <br /> .判断循环首 (a ≥ 0)<br />     ActUtlType1.GetDevice2 (“Y0”, YO状态)  ' 获取Y0状态<br />     .判断开始 (YO状态 ＝ 1)<br />         标签2.标题 ＝ “YO有输出信号”<br />     .默认<br />         标签2.标题 ＝ “YO输出断开”<br />     .判断结束<br />     延时 (50)  ' 为了避免PLC模拟器出现卡死现象<br /> .判断循环尾 ()<br /> <br /> <br /> .子程序 输入到PLC, 整数型<br /> .参数 PLC元件, 文本型<br /> .参数 输入值, 整数型<br /> .局部变量 返回值, 整数型<br /> <br /> 返回值 ＝ ActUtlType1.SetDevice (PLC元件, 输入值)<br /> 返回 (返回值)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 强制结束线程 (检测线程)<br /> <br /> <br /> .子程序 _按钮1_鼠标左键被按下, 逻辑型, , 向X0赋值1<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 输入到PLC (“X0”, 1)<br /> <br /> .子程序 _按钮1_鼠标左键被放开, 逻辑型, , 向X0赋值0<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 输入到PLC (“X0”, 0)<br /> <br /> .子程序 _按钮2_鼠标左键被按下, 逻辑型, , 向X1赋值1<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 输入到PLC (“X1”, 1)<br /> <br /> .子程序 _按钮2_鼠标左键被放开, 逻辑型, , 向X1赋值0<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 输入到PLC (“X1”, 0)

最后来段运行效果动图

今天教程就到这里，有硬件的朋友可以把PLC程式刷入硬件后再看控制效果更好哦！
人气在哪里！哪里！哪里。。。。。。

hrb011011

不错，支持了！！

afengzaixian

aliku0 发表于 2018-1-22 20:24

明天开始此贴开始周更希望大家多多顶贴

aliku0

afengzaixian

下面来说明下易语言环境里的配置
------------呵呵其实说不上配置，也就是新加个支持库而已，大神们可以略过

选取 ActUtlType Control 这个控件，点击下一步就好

直接点击下一步直到完成就好，至于翻译这块暂时不做介绍，等写代码时再给大家做具体说明

afengzaixian

安装环境这里就不做介绍了，自己问度娘能找到很多答案！
直接开始环境的配置
MX Component 4.08  配置简介
打开通讯控件后如下

翻译不一定对，但大概就是这个意思，如果你有硬件的化就如上图一样配置，如果没有硬件也没关系，下面给大家介绍没硬件的。（可直接用PC模拟PLC硬件，省了好多钱呀有没有！）




到此配置已完成，是不是很简单。
接下来要测试下连接是否成功
先打开GX Works2 编辑环境，新建一个工程如下

选取环境菜单的模拟如下

等待模拟器运行起来后，回到连接设置上选取刚刚配置的连接点击测试

如果已经显示PLC型号说明连接成功，到此环境搭建好了，后续将讲解易语言代码和PLC梯形图的控制。
管理求放行！！！