• Luatos Air700 改变BL0942串口波特率

     LuatOs 改变模块串口波特率思路参照

    luatos 改变AIR530串口波特率

    BL0942默认串口波特率可以通过SCLK_BPS引脚接3.3V电源设置到9600bps

     但如果调整到38400bps需要修改0x19寄存器

     bl0942 v1.06版的特殊寄存器说明，注意早期版本特殊寄存器说明存在错误

     

     完整代码

    main.lua

    1.  
    2. -- LuaTools需要PROJECT和VERSION这两个信息
    3. PROJECT = "EMQX_Plug"
    4. VERSION = "1.0.1"
    5.  
    6. --[[
    7. 本demo需要mqtt库, 大部分能联网的设备都具有这个库
    8. mqtt也是内置库, 无需require
    9. ]]
    10.  
    11. -- sys库是标配
    12. _G.sys = require("sys")
    13. --[[特别注意, 使用mqtt库需要下列语句]]
    14. _G.sysplus = require("sysplus")
    15.  
    16. -- 自动低功耗, 轻休眠模式
    17. -- Air780E支持uart唤醒和网络数据下发唤醒, 但需要断开USB,或者pm.power(pm.USB, false) 但这样也看不到日志了
    18. -- pm.request(pm.LIGHT)
    19.  
    20. -- 串口ID,串口读缓冲区
    21. local bl0942 = require "bl0942"
    22. local UART_ID1, UART1receQueue = 1, {}
    23. local uartimeout, UART1recvReady = 25,"UART_RECV_ID1"
    24.  
    25.  
    26. local RD_SPECIAL_REGISTER_FLAG=0
    27. local RD_DATA_REGISTER_FLAG=0 
    28. local BAUD_CHANGED_FLAG=0                                                                                                                   
    29. local LED   = gpio.setup(31, 1, gpio.PULLUP)
    30. local RELAY = gpio.setup(9, 1, gpio.PULLUP)
    31. LED(1)
    32.  
    33.  
    34. if wdt then
    35.     --添加硬狗防止程序卡死，在支持的设备上启用这个功能
    36.     wdt.init(9000)--初始化watchdog设置为9s
    37.     sys.timerLoopStart(wdt.feed, 3000)--3s喂一次狗
    38. end
    39.  
    40.  
    41.  
    42. -- 最常用115200 8N1
    43. local result1 = uart.setup(
    44.     UART_ID1,--串口id
    45.     9600,--波特率
    46.     8,--数据位
    47.     1--停止位
    48. )
    49. print(_VERSION)
    50.  
    51. sys.taskInit(function()
    52.         log.info("初始化","bl0942软件复位")
    53.         BL0942_Write(UART_ID1,bl0942.SOFT_RESET,0x5A,0x5A,0x5A)
    54.         sys.wait(100) 
    55.         -- 以下代码设置防潜动阈值寄存器，保证电度数据不会累计噪声形成负值
    56.         BL0942_Write(UART_ID1,bl0942.USR_WRPROT,0x55,0x00,0x00)
    57.         BL0942_Write(UART_ID1,bl0942.WA_CREEP,0x33,0x00,0x00)
    58.                 
    59.        --以下改变串口波特率
    60.         BL0942_Write(UART_ID1,bl0942.MODE,0x87,0x03,0x00)
    61.         BSP_FLAG=1
    62.         uart.write(UART_ID1,"     ")--触发uart.on的sent事件--触发uart.on的sent事件
    63.         print("已改变GPS串口波特率")
    64. end)
    65.  
    66.  
    67.   uart.on(UART_ID1, "sent", function(uid)
    68.       if BSP_FLAG==1 then 
    69.           -- uart.close(UART_ID1)--此代码注释掉也能实现波特率更改
    70.           result1 = uart.setup(
    71.                    UART_ID1,--串口id
    72.                    38400,--波特率
    73.                    8,--数据位
    74.                    1--停止位
    75.             )
    76.          print("已改变Air700 UART1串口波特率")    
    77.          BL0942_Write(UART_ID1,bl0942.USR_WRPROT,0xff,0x00,0x00)
    78.         sys.publish("38400")
    79.         BSP_FLAG=0
    80.         BAUD_CHANGED_FLAG=1
    81.     end  
    82. end)    
    83.  
    84. sys.subscribe("38400",function()
    85.      uart.on(UART_ID1, "receive", function(uid, length)
    86.        local s
    87.        while true do--保证读完不能丢包
    88.          s = uart.read(uid, length)
    89.          if #s == 0 then break end
    90.            table.insert(UART1receQueue, s)
    91.          end
    92.       sys.timerStart(sys.publish, uartimeout, UART1recvReady)
    93.     end)
    94. end) 
    95.  
    96. sys.subscribe(UART1recvReady, function()
    97.        
    98.     if (RD_SPECIAL_REGISTER_FLAG==1) then 
    99.         local m={}
    100.         local strRe = table.concat(UART1receQueue)
    101.         if (#strRe)>4 then --可能会有全电参数数据包的23个字节混入，必须剔除
    102.             return         --读单个寄存器一般返回3个字节
    103.         end 
    104.         -- log.info("特殊寄存器",#strRe)
    105.         UART1receQueue = {}
    106.         RD_SPECIAL_REGISTER_FLAG=0
    107.         m[1]=string.byte(strRe,1)
    108.         m[2]=string.byte(strRe,2)
    109.         m[3]=string.byte(strRe,3)
    110.         -- print(m[1],m[2],m[3])
    111.         local m_temp  =  string.char(m[1],m[2],m[3])
    112.         local mode=string.unpack("i3", m_temp)
    113.         print(string.format("MODE=%d",mode))
    114.   end
    115.  
    116.   if (RD_DATA_REGISTER_FLAG==1) then
    117.     local v,c,e={},{},{}
    118.     local vol,cur,engerywat
    119.     -- local w,f={},{}
    120.     -- local freq,engery
    121.     local strDA = table.concat(UART1receQueue)
    122.     if (#strDA)<23 then --避免解析读寄存器数据
    123.         return 
    124.     end 
    125.     UART1receQueue = {}
    126.     RD_DATA_REGISTER_FLAG=0
    127.     
    128.     c[1]=string.byte(strDA,2)
    129.     c[2]=string.byte(strDA,3)
    130.     c[3]=string.byte(strDA,4)
    131.  
    132.     v[1]=string.byte(strDA,5)
    133.     v[2]=string.byte(strDA,6)
    134.     v[3]=string.byte(strDA,7)
    135.  
    136.     e[1]=string.byte(strDA,14)
    137.     e[2]=string.byte(strDA,15)
    138.     e[3]=string.byte(strDA,16)
    139.     
    140.     local cur_temp  =  string.char(c[1],c[2],c[3])
    141.     local vol_temp  =  string.char(v[1],v[2],v[3])  
    142.     local ene_temp  =  string.char(e[1],e[2],e[3])
    143.     -- local wat_temp  =  string.char(w[1],w[2],w[3]) 
    144.     -- local freq_temp =  string.char(f[1],f[2],f[3]) 
    145.     
    146.     local cur   = string.unpack("i3", cur_temp)
    147.     local vol   = string.unpack("i3", vol_temp)
    148.     local energy= string.unpack("i3", ene_temp)
    149.     -- print(string.format("energy=%d",energy))
    150.     -- local wat   = string.unpack("i3", wat_temp)
    151.     -- local freq  = string.unpack("i3",freq_temp)
    152.  
    153.      pub_vol=(vol*V_CONSTANT)/V_DENO
    154.      pub_cur=(cur*VREF/I_DENO)*1000  
    155.      pub_energy=(energy*E_PER_PLUSE)
    156.         
    157.      print(string.format("电流=%.1fmA 电压=%.1fV 电度=%0.2f度 ",pub_cur,pub_vol,pub_energy))
    158.     -- print(string.format("电流=%0.2fA 电压=%.1fV 功率=%0.1fW 电度=%0.2f度 频率=%0.1fHz",Current,Voltage,Energy,Wat,Freq))
    159.    end      
    160. end)
    161. local cnt = 0
    162.  
    163. sys.timerLoopStart(function()
    164.       if BAUD_CHANGED_FLAG==1 then
    165.         uartimeout=25
    166.         BL0942_Read(UART_ID1,0xAA)--V_RMS  0xAA bl0942.V_RMS 读取全电参数数据包
    167.         RD_DATA_REGISTER_FLAG=1 
    168.         RD_SPECIAL_REGISTER_FLAG=0
    169.     end 
    170. end, 1000)
    171.  
    172. sys.timerLoopStart(function()
    173.     if BAUD_CHANGED_FLAG==1 then
    174.       uartimeout=5
    175.       BL0942_Read(UART_ID1,bl0942.MODE) --读0x19用户模式选择寄存器
    176.       RD_SPECIAL_REGISTER_FLAG=1
    177.       RD_DATA_REGISTER_FLAG=0
    178.     end 
    179. end, 2400)
    180.  
    181. -- 用户代码已结束---------------------------------------------
    182. -- 结尾总是这一句
    183. sys.run()
    184. -- sys.run()之后后面不要加任何语句!!!!!

     bl0942.lua

    1. local sys = require "sys"
    2.  
    3.  VREF      = 1.218
    4.  V_DENO    =1842052.2
    5.  V_CONSTANT=121.8
    6.  I_DENO    =504863.7      --305978*(3.3*1000)/2000
    7.  DOUBLE_FS  =1000000.0
    8.  POWER_COEFF=148.3524     --1.218*1.218*20*5
    9.  P_DENO     =145317.645   --3537*(3.3*1000/2000)*0.0249*1000
    10.  E_PER_PLUSE=0.000118942
    11.  
    12.  bl0942= setmetatable({}, {
    13.     __index = {
    14.         WRITE_HEAD   =      0xA8,  
    15.         READ_HEAD    =      0x58,
    16.         I_WAVE       =      0x01,    --电流波形寄存器，有符号
    17.         V_WAVE       =      0x02,    --电压波形寄存器，有符号
    18.         I_RMS        =      0x03,    --电流有效值寄存器，无符号
    19.         V_RMS        =      0x04,    --电压有效值寄存器，无符号
    20.         I_FAST_RMS   =      0x05,    --电流快速有效值寄存器，无符号
    21.         WATT         =      0x06,    --有功功率寄存器，有符号
    22.         CF_CNT       =      0x07,    --有功电能脉冲计数寄存器，无符号
    23.         FREQ         =      0x08,    --线电压频率寄存器
    24.         STATUS       =      0x09,    --状态寄存器
    25.  
    26.         ---------用户操作寄存器（读写）--------------------
    27.         I_RMSOS       =      0x12,    --电流有效值小信号校正寄存器
    28.         WA_CREEP      =      0x14,    --有功功率防潜寄存器
    29.         I_FAST_RMS_TH =      0x15,    --电流快速有效值阈值寄存器
    30.         I_FAST_RMS_CYC=      0x16,    --电流快速有效值刷新周期寄存器
    31.         FREQ_CYC      =      0x17,    --线电压频率刷新周期寄存器
    32.         OT_FUNX       =      0x18,   --输出配置寄存器
    33.         MODE          =      0x19,    --用户模式选择寄存器
    34.         GAIN_CR       =      0x1A,    --电流通道增益控制寄存器
    35.         SOFT_RESET    =      0x1C,    --写入 0x5A5A5A 时，用户区寄存器复位
    36.         USR_WRPROT    =      0x1D    --用户写保护设置寄存器。
    37.                                      --写入0x55后，用户操作寄存器可以写入；
    38.                                      --写入其他值，用户操作寄存器区域不可写入
    39.     },
    40.     __newindex = function() end
    41. })
    42.  
    43.  
    44. local function Check_ConStat(HEAD,address,data0_7,data8_15,data16_23)
    45.      local sum=HEAD+address+data0_7+data8_15+data16_23
    46.      local sumAnd=bit.band(sum,0xff)
    47.      local checksum=bit.bnot(sumAnd)--这个输出位数大于2个字节,其十进制数位-207 十六进制:FFFF FFFF FFFF FF31
    48.      local result=bit.band(checksum,0xff)--保证校验位1个字节,去除前面的14个FF
    49.     return result;
    50. end
    51.  
    52.  
    53. function BL0942_Read(ID,address)
    54.      uart.write(ID,string.char(bl0942.READ_HEAD,address))
    55. end
    56. --
    57.  function BL0942_Write(ID,address,data0_7,data8_15,data16_23)
    58.      local checksum=Check_ConStat(bl0942.WRITE_HEAD,address,data0_7,data8_15,data16_23) 
    59.      uart.write(ID,string.char(bl0942.WRITE_HEAD,address,data0_7,data8_15,data16_23,checksum))
    60. end
    61.  
    62. return bl0942

        在修改特殊寄存器前，必须0X1D寄存器写入0x55。

            代码实现了读取全电数据包和0x19寄存器的功能，特别注意在分别解析串口返回的数据时，对数据的长度进行了判断，对不符合解析长度的数据包进行了丢弃，保证了数据的准确性。

        另外2个读取循环在延时时间上相互错开，避免遇到同时读取。

    MODE=903 即0011 1000 0111，也就是[9:8]=11，波特率调整到了38400bps。

    注意：交替循环读会出现电流显示600多ma的数据，目前我还没有解决，如果单独读取全电数据包能正常准确解析数据。读特殊寄存器一般用于调试阶段。

  • 相关阅读:
    Windows Powershell命令一条命令安装Python
    Redis篇---第四篇
    Angular: 为Angular SPA程序添加Authorization支持
    超好用的画图工具推荐
    C++ 哈希
    ＞Web 3.0顶级干货教学：浅析区块链与货币关系
    工作汇报
    URP渲染管线实战教程系列 之URP渲染管线实战解密(一)
    【ML】 第四章 训练模型
    js对象：
  • 原文地址：https://blog.csdn.net/armcsdn/article/details/134269519