H7-TOOL的LUA小程序教程第4期：I2C总线开发（2022-01-13）

-------------I2C从机地址 -------------------------------------------

BH1750_SLAVE_ADDRESS = 0x46        

--向芯片发送1字节长度的操作码
--_ucOpecode 寄存器地址
function BH1750_WriteCmd(_ucOpecode)
    i2c_bus("start")
    i2c_bus("send", BH1750_SLAVE_ADDRESS) 
    i2c_bus("send", _ucOpecode) 
    i2c_bus("stop")
end

--修改BH1750测量模式，决定测量分辨率 
--__ucMode : 测量模式 值域(1，2，3)
function BH1750_ChageMode(_ucMode)
    -- 连续高分测量模式1
    if(_ucMode == 1)then
        BH1750_WriteCmd(BHOP_CON_H_RES)        
                s_Mode = 1                 -- 测量模式1，分辨率 1 lux
    end

    -- 连续高分测量模式2
    if(_ucMode == 2)then
        BH1750_WriteCmd(BHOP_CON_H_RES2)
                s_Mode = 2                -- 测量模式2, 分辨率 0.5 lux
    end

    -- 连续高分测量模式3
    if(_ucMode == 3)then
        BH1750_WriteCmd(BHOP_CON_L_RES);        
                s_Mode = 3                -- 测量模式3，低分辨率 4 lux
    end
end

-- 读取BH1750测量结果.  主程序需要在 bsp_InitBH1750() 执行之后 180ms 才能读到正确数据
-- 连续测量模式下，之后主程序可以定时调用本函数读取光强度数据，间隔时间需要大于180ms
-- 返 回 值: 原始的测量数据 ,结果未转换
function BH1750_ReadData()

    local str
    local byte0, byte1
    local w

    i2c_bus("start")
    i2c_bus("send", BH1750_SLAVE_ADDRESS + 1) -- 读操作

    str = i2c_bus("recive", 2)

    byte0 = tonumber(string.byte(str,1,1))
    byte1 = tonumber(string.byte(str,2,2))

    w = byte0 * 256 + byte1
    i2c_bus("stop")

    return w
end