14 LUA MODBUS应用

用户使用Modbus协议时，可以通过LUA交互实现复杂的逻辑，提供丰富的modbus接口函数，如下所示

序号 描述/API 功能码 应用范围
1 获取变量值：get_variant(name) - Fx2n/Xgus/Modbus
2 设置变量值：set_variant(name,value) - Fx2n/Xgus/Modbus
3 读线圈变量：mb_read_coil_01 (slave,addr,quantity) 0x01 Modbus
4 读离散变量：mb_read_input_02(slave,addr,quantity) 0x02 Modbus
5 读保存寄存器：mb_read_reg_03(slave,addr,quantity) 0x03 Modbus
6 读输入寄存器：mb_read_input_reg_04(slave,addr,quantity) 0x04 Modbus
7 写单个线圈：mb_write_coil_05 (slave,addr,status) 0x05 Modbus
8 写单个保存寄存器：mb_write_reg_06 (slave,addr,reg) 0x06 Modbus
9 写多个线圈：mb_write_coil_15 (slave,addr,quantity,coils) 0x0F Modbus
10 写多个保存寄存器：mb_write_reg_16 (slave,addr,regs) 0x10 Modbus

更多组态配置Modbus、变量的创建请参考Modbus教程，本章节不在阐述。本章节屏幕作为modbus 主站，创建线圈、离散输入、保存寄存器、输入寄存器各2个变量，具体属性可查看工程源文件，如下所示

Mb_creatVariable

本章节主要描述以下内容：

  1. 变量名读写值
  2. 线圈读写
  3. 读离散变量
  4. 保存寄存器读写
  5. 读输入寄存器

适用范围：M系列、W系列、X系列、F系列（固件版本 >= V4.2.401.0）

例程下载链接：《LUA - Modbus API 应用》(点击跳转)

特别说明：本例程的演示，由虚拟屏和Modbus Slave联调，第三方工具Modbus Slave、虚拟串口具体的使用、获取等，本章节不在阐述，在我司官网下载或自行网上下载

14.1 变量名读写值

get_variant(name) / set_variant(name, value)函数适用于在【工具】→【协议与变量…】里面创建的变量，不局限与Modbus，同时适用于三菱Fx2n、Xgus等协议，用法一样，参考本章节即可

函数说明

读变量：get_variant(name)

  • name：字符串，变量名，应用变量时候一定要和【工具】→【协议与变量…】里面创建的变量一致

    eg:local data = get_variant(“设置温度”)
写变量：set_variant(name,value)

  • name：字符串，变量名，应用变量时候一定要和【工具】→【协议与变量…】里面创建的变量一致

  • value：数值

    eg:M系列屏幕
feed_dog()--喂狗
set_variant(“设置温度”,25)

    如上所示：实际项目中使用set_variant时，建议加上喂狗，避免从站不在线或其他不应答时候，发送3次写指令，导致看门狗复位。若屏幕型号为物联网，喂狗参考API说明 → 1.30.20使用。

画面配置

变量名读写是通过get_variant(name) / set_variant(name)函数来实现，画面配置如下所示

Mb_variant

线圈的读写：

  • 按钮控件ID1：作为读取“电源/开机”的触发按钮，并将值显示在文本控件ID2中
  • 文本控件ID2：显示get_variant(“电源/开机”)获取后的值
  • 按钮控件ID3：作为写“电源/开机”的触发按钮，将获取文本控件ID4的值在写入
  • 文本控件ID4：键值输入“电源/开机”的目标值

保存寄存器的读写：

  • 按钮控件ID5：作为读取“目标温度”的触发按钮，并将值显示在文本控件ID6中
  • 文本控件ID6：显示get_variant(“设置温度”)获取后的值
  • 按钮控件ID7：作为写“设置温度”的触发按钮，将获取文本控件ID8的值在写入
  • 文本控件ID8：键值输入“设置温度”的目标值

LUA脚本

按钮控件ID1按下时，将“电源/开机”显示在文本控件ID1中，同理其他按钮/文本对应控件联动触发、显示，LUA脚本如下所示：

--用户通过触摸修改控件后，执行此回调函数。
--点击按钮控件，修改文本控件、修改滑动条都会触发此事件。
function on_control_notify(screen,control,value)

    if screen == sc_variant
    then
        if control == 1 and value == 0
        then
            local power = get_variant('电源/开机')
            set_value(sc_variant, 2, power)

        elseif control == 3 and value == 0
        then
            local power = get_value(sc_variant, 4)
            set_variant('电源/开机', power)

        elseif control == 5 and value == 0
        then
            local dstTempe = get_variant('设置温度')
            set_value(sc_variant, 6, dstTempe)

        elseif control == 7 and value == 0
        then
            local dstTempe = get_value(sc_variant, 8)
            set_variant('设置温度', dstTempe)
        end
    ......
    end
end

运行预览

根据画面配置和LUA脚本，运行结果如下所示

Mb_variant

14.2 线圈（0x01,0x05,0x0F）

线圈的读写还可以通过mb函数来实现

函数说明

读取线圈：mb_read_coil_01 (slave,addr,quantity)
  • salve：从机站号
  • addr：线圈起始地址
  • quantity：读取的个数

读取成功：返回字节数组，8个线圈为一个字节；读取失败，返回nil

如：从0开始，读取32个线圈，local coilsTb = mb_read_coil_01 (1, 0, 32)

假设读取成功，返回的字节内容依次为 coilsTb[0]=0x12,coilsTb[1]=0x24,coilsTb[1]=0x0C,coilsTb[1]=0x08线圈和字节数组的每一位的对应关系，如下所示

Mb_coilsBit

写单个线圈：mb_write_coil_05(slave,addr,state)
  • salve：从机站号
  • addr：线圈地址
  • state：线圈状态，0或1

写成功，返回ture；写失败，返回false；

写多个线圈：mb_write_coil_15 (slave,addr,quantity,coils)
  • salve：从机站号
  • addr：线圈地址
  • quantity：读取的个数
  • coils：字节数组，设置的值，关系可参考上表

写成功，返回ture；写失败，返回false；

画面配置

通过mb函数来实现，画面配置如下所示

Mb_coils

读线圈：

  • 按钮控件ID1：作为读取“线圈”的触发按钮，并将值显示在文本控件ID2、ID4中
  • 文本控件ID2：显示mb_read_coil_01(，，，)获取变量“电源”的值（coil1~coil16）
  • 按钮控件ID4：显示mb_read_coil_01(，，，)获取变量“模式”的值（coil17~coil32）

设置单个线圈 “电源/开机”：

  • 按钮控件ID5：设置线圈“电源/开机” = 1的触发按钮

设置多个线圈 “电源/开机”、“指示灯开关”：

  • 按钮控件ID7：设置线圈“电源/开机” = 1、“指示灯开关” = 1的触发按钮

LUA脚本

按钮控件ID1按下时，将“电源”、“模式”显示在文本控件ID2、文本控件ID4中，同理其他按钮/文本对应控件联动触发、显示，LUA脚本如下所示：

--设置位函数
--data:源数据
--bitmask:第几位位置
--state:数值，0或1
function set_bits(data, bitmask, state)
    bitmask  = (1 << bitmask) & 0xFF
    if state == 0
    then

        data = data & (~bitmask)
    elseif state == 1
    then
        data = data | bitmask
    end
    print(data)
    return data
end
--用户通过触摸修改控件后，执行此回调函数。
--点击按钮控件，修改文本控件、修改滑动条都会触发此事件。
function on_control_notify(screen,control,value)

    ......

    elseif screen == sc_coils
    then
        if control == 1 and value == 1
        then
            local power, mode = 0, 0
            --modbus coils: 请求从站号1，从地址0开始的32个线圈
            local coilsTb = mb_read_coil_01(1, 0, 32)

            if coilsTb ~= nil
            then
                power = (coilsTb[1] << 8) | coilsTb[0]
                mode  = (coilsTb[3] << 8) | coilsTb[2]

                print('power = '..power)
                print('mode = '..mode)
                set_text(sc_coils, 2, power)
                set_text(sc_coils, 4, mode)
            end

        elseif control == 5
        then
            mb_write_coil_05(1, 0, value)

        elseif control == 7 and value == 0
        then
            local power = 0
            local mode  = 0

            --modbus read coils: 读从站号1，从地址0开始的32个线圈
            local coilsTb = mb_read_coil_01(1, 0, 32)

            if coilsTb ~= nil
            then

                coilsTb[0] = set_bits(coilsTb[0], 0, 1)  --设置“开机-电源”= 1
                coilsTb[2] = set_bits(coilsTb[2], 6, 1)  --设置“状态-打开指示灯” = 1

                --modbus write coils: 
                mb_write_coil_15 (1, 0, 32, coilsTb)
            end
        end
        ......
    end
end

运行预览

根据画面配置和LUA脚本，运行结果如下所示

mb_coils

14.3 离散输入(0x02)

函数说明

读取离散输入：mb_read_input_02(slave,addr,quantity)
  • salve：从机站号
  • addr：离散输入寄存器的起始地址
  • quantity：读取的个数

读取成功：字节数组，8个离散输入为一个字节；读取失败，返回nil

如：从0开始，读取32个离散输入，local discreteTb = mb_read_input_02 (1, 0, 32)

离散变量和字节数组的每一位的对应关系可参考线圈说明

画面配置

通过mb函数来实现【离散输入】寄存器的读取，画面配置如下所示

Mb_discrete

读离散输入寄存器：

  • 按钮控件ID1：作为读取离散输入寄存器“状态”、“告警”的触发按钮，并将值显示在文本控件ID2、ID4中
  • 文本控件ID2：显示mb_read_input_02(，，，)获取变量“状态”的值（discrete1~discrete16）
  • 文本控件ID4：显示mb_read_input_02(，，，)获取变量“告警”的值（discrete17~discrete32）

LUA脚本

按钮控件ID1按下时，将“状态”、“告警”显示在文本控件ID2、文本控件ID4中，LUA脚本如下所示

--用户通过触摸修改控件后，执行此回调函数。
--点击按钮控件，修改文本控件、修改滑动条都会触发此事件。
function on_control_notify(screen,control,value)
    ......
    elseif screen == sc_discrete
    then
        if control == 1 and value == 1
        then
            local status, alert  = 0, 0
            --modbus coils: 请求从站号1，从地址0开始的32个线圈
            local discreteTb = mb_read_input_02(1, 0, 32)

            if discreteTb ~= nil
            then
                status = (discreteTb[1] << 8) | discreteTb[0]
                alert  = (discreteTb[3] << 8) | discreteTb[2]

                print('status  = '..status)
                print('alert = '..alert)
                set_text(sc_discrete, 2, status)
                set_text(sc_discrete, 4, alert)
            end
        end
    ......
end

运行预览

根据画面配置和LUA脚本，运行结果如下所示

mb_discrete

14.4 保存寄存器(0x03、0x06、0x10)

函数说明

读取保持寄存器：mb_read_reg_03(slave,addr,quantity)
  • salve：从机站号
  • addr：保存寄存器的起始地址
  • quantity：读取的个数

读取成功，返回字数组；读取失败，返回nil

写单个保存寄存器：mb_write_reg_06 (slave,addr,reg)
  • salve：从机站号
  • addr：保存寄存器地址
  • reg：寄存器值

写成功，返回ture；写失败，返回false；

写多个保存寄存器：mb_write_reg_16 (slave,addr,regs)
  • salve：从机站号
  • addr：写的起始地址
  • regs：数组，word字数组

写成功，返回ture；写失败，返回false；

画面配置

通过mb函数来实现【保持寄存器】的读写，画面配置如下所示

Mb_holding

读保存寄存器：

  • 按钮控件ID1：作为读取“设置温度”、“设置湿度”的触发按钮，并将值显示在文本控件ID2、ID4中
  • 文本控件ID2：显示mb_read_reg_03(，，，)获取变量“设置温度”的值
  • 文本控件ID4：显示mb_read_reg_03(，，，)获取变量“设置湿度”的值

设置单个保存寄存器 “设置温度”：

  • 按钮控件ID5：设置保存寄存器“设置温度” = 25 的触发按钮

设置多个线圈 “设置温度”、“设置湿度”：

  • 按钮控件ID7：设置保存寄存器“设置温度” = 28、“设置湿度” = 60 的触发按钮

LUA脚本

按钮控件ID1按下时，将“设置温度”、“设置湿度”显示在文本控件ID2、文本控件ID4中，同理其他按钮/文本对应控件联动触发、显示，LUA脚本如下所示：

--用户通过触摸修改控件后，执行此回调函数。
--点击按钮控件，修改文本控件、修改滑动条都会触发此事件。
function on_control_notify(screen,control,value)
    ......
    elseif screen == sc_holding
    then
        if control == 1 and value == 1
        then
            local holdTb = mb_read_reg_03(1, 0, 2)
            if holdTb ~= nil
            then
                set_text(sc_holding, 2, holdTb[0])
                set_text(sc_holding, 4, holdTb[1])
            end

        elseif control == 5 and value == 0
        then
            mb_write_reg_06(1, 0, 25)

        elseif control == 7 and value == 0
        then
            local holdTb = {}
            holdTb[0] = 28
            holdTb[1] = 60

            mb_write_reg_16(1, 0, holdTb)
        end
    ......
    end
end

运行效果

根据画面配置和LUA脚本，运行结果如下所示

mb_holding

14.5 输入寄存器（0x04）

函数说明

读输入寄存器：mb_read_input_reg_04(slave,addr,quantity)
  • salve：从机站号
  • addr：输入寄存器的起始地址
  • quantity：读取的个数

读取成功，返回字数组；读取失败，返回nil

画面配置

通过mb函数来实现【输入寄存器】的读取，画面配置如下所示

Mb_input

读输入寄存器：

  • 按钮控件ID1：作为读取输入寄存器“回风变量”、“回风湿度”的触发按钮，并将值显示在文本控件ID2、ID4中
  • 文本控件ID2：显示mb_read_input_reg_04(，，，)获取变量“回风温度”的值
  • 文本控件ID4：显示mb_read_input_reg_04(，，，)获取变量“回风湿度”的值

LUA脚本

按钮控件ID1按下时，将“回风温度”、“回风湿度”显示在文本控件ID2、文本控件ID4中，LUA脚本如下所示：

--用户通过触摸修改控件后，执行此回调函数。
--点击按钮控件，修改文本控件、修改滑动条都会触发此事件。
function on_control_notify(screen,control,value)
    ......
    elseif screen == sc_input
    then
        if control == 1 and value == 1
        then

            local inputTb =  mb_read_input_reg_04(1, 0, 2)

           if inputTb ~= nil
            then
                set_text(sc_input, 2, inputTb[0])
                set_text(sc_input, 4, inputTb[1])
            end
        end
    ......
end

运行预览

根据画面配置和LUA脚本，运行结果如下所示

mb_input

Copyright ©Dacai all right reserved，powered by Gitbook该文件修订时间： 2023-03-30 11:46:21

results matching ""

    No results matching ""