蓝牙

local function poweron()
    log.info("bt", "poweron")
    btcore.open(0) --打开蓝牙从模式
    _, result = sys.waitUntil("BT_OPEN", 5000) --等待蓝牙打开成功,时间为 5s
end

btcore.setbeacondata("AB8190D5D11E4941ACC442F30510B408",10107,50179) --beacon设置  (uuid,major,minor)，默认公司为 Microsof

btcore.setadvdata(string.fromHex("0201061AFF06000215AB8190D5D11E4941ACC442F30510B408277BC403C5")) --通过设置广播包接口设置 beacon， Microsof 公司
btcore.setadvdata(string.fromHex("0201061AFF4C000215AB8190D5D11E4941ACC442F30510B408277BC403C5")) -- 通过设置广播包接口设置 beacon,公司修改为 apple

local function advertising()

    log.info("bt", "advertising")
    --btcore.setadvparam(0x80,0xa0,0,0,0x07,0,0,"11:22:33:44:55:66") --广播参数设置 (最小广播间隔,最大广播间隔,广播类型,广播本地地址类型,广播channel map,广播过滤策略,定向地址类型,定向地址)
    btcore.setbeacondata("AB8190D5D11E4941ACC442F30510B408",10107,50179) --beacon设置  (uuid,major,minor)，默认公司为 Microsof
    -- btcore.setadvdata(string.fromHex("0201061AFF06000215AB8190D5D11E4941ACC442F30510B408277BC403C5")) --通过设置广播包接口设置 beacon， Microsof 公司
    -- btcore.setadvdata(string.fromHex("0201061AFF4C000215AB8190D5D11E4941ACC442F30510B408277BC403C5")) -- 通过设置广播包接口设置 beacon,公司修改为 apple
    btcore.advertising(1)-- 打开广播
end

btcore.addservice(0xfee0) -- 添加 16 bit UUID 服务
btcore.addservice("9ecadc240ee5a9e093f3a3b50100406e") -- 添加 128 bit UUID 服务

btcore.addcharacteristic(0xfee1, 0x08, 0x0002) -- 16 bit UUID
btcore.addcharacteristic("9ecadc240ee5a9e093f3a3b50200406e",0x10,0x0001) -- 128 bit UUID

btcore.adddescriptor(0x2902,0x0001)
btcore.adddescriptor(0x2901,"123456")

local recvuuid, recvdata, recvlen = btcore.recv(3) -- 每次最大读取 3 字节蓝牙数据
if recvlen == 0 then -- 如果没有读取到数据，直接返回
    break
end
log.info("bt.recv_data recvlen", recvlen)
log.info("bt.recv_data recvdata", recvdata)
uuid = recvuuid -- 数据来源的 UUID
len = len + recvlen -- 实际读到的数据内容长度递增
data = data .. recvdata -- 将实际读到的数据内容进行拼接

btcore.disconnect()
btcore.disconnect(bt_connect.handle)

btcore.send(data, 0xfee2, bt_connect.handle)-- 将数据发送到 0xfee2 特征中
btcore.send(data, "9ecadc240ee5a9e093f3a3b50200406e", bt_connect.handle)--发送数据(数据 对应特征uuid 连接句柄)

--自定义服务
local function service(uuid,struct)
    btcore.addservice(uuid) --添加服务
    for i = 1, #struct do
        btcore.addcharacteristic(struct[i][1],struct[i][2],struct[i][3]) --添加特征
        if(type(struct[i][4]) == "table") then
            for j = 1,#struct[i][4] do
                btcore.adddescriptor(struct[i][4][j][1],struct[i][4][j][2])  --添加描述
            end
        end
    end
end

local function advertising()
    local struct1 = {{0xfee1, 0x08, 0x0002},
       {0xfee2, 0x10,0x0001, {{0x2902,0x0001},{0x2901,"123456"}}}}--{特征uuid,特征属性,特征权限,{特征描述uuid,描述属性}}
    local struct2 = {{"9ecadc240ee5a9e093f3a3b50200406e",0x10,0x0001,{{0x2902,0x0001}}},
                 {"9ecadc240ee5a9e093f3a3b50300406e",0x0c, 0x0002}}

    log.info("bt", "advertising")
    btcore.setname("Luat_Air724UG")-- 设置广播名称
    btcore.setadvdata(string.fromHex("02010604ff000203")) -- 设置 BLE 广播包数
    --btcore.setscanrspdata(string.fromHex("04ff000203")) -- 设置 BLE 扫描响应包数据
    service(0xfee0, struct1) -- 添加 16bit 自定义服务 uuid,该服务服务默认存在
    service("9ecadc240ee5a9e093f3a3b50100406e",struct2) -- 添加服务128bit uuid 自定义服务
    --btcore.addwhitelist("11:22:33:44:55:66",0) -- 增加白名单
    --btcore.setadvparam(0x80,0xa0,0,0,0x07,2,0,"11:22:33:44:55:66") -- 广播参数设置 (最小广播间隔,最大广播间隔,广播类型,广播本地地址类型,广播channel map,广播过滤策略,定向地址类型,定向地址)
    btcore.advertising(1) -- 打开广播
end

local function data_trans()

    advertising() -- 启动广播功能
    _, bt_connect = sys.waitUntil("BT_CONNECT_IND") -- 等待连接成功
    if bt_connect.result ~= 0 then
        return false    
    end
    -- 连接成功
    log.info("bt.connect_handle",bt_connect.handle) -- 连接句柄
    log.info("bt.send", "Hello I'm Luat BLE")
    while true do
        _, bt_recv = sys.waitUntil("BT_DATA_IND") -- 等待接收到数据
        local data = ""
        local len = 0
        local uuid = ""
        while true do
            local recvuuid, recvdata, recvlen = btcore.recv(3) -- 每次最大读取 3 字节蓝牙数据
            if recvlen == 0 then -- 如果没有读取到数据，直接返回
                break
            end
            uuid = recvuuid -- 数据来源的 UUID
            len = len + recvlen -- 实际读到的数据内容长度递增
            data = data .. recvdata -- 将实际读到的数据内容进行拼接
        end
        if len ~= 0 then -- 如果实际读到的数据内容长度不为 0，则打印出数据内容、数据长度和来源 UUID
            log.info("bt.recv_data", data) -- 将读取到的数据打印出来
            log.info("bt.recv_data len", len) -- 将读取到的数据长度打印出来
            log.info("bt.recv_uuid", string.toHex(uuid)) -- 将读取到的数据来源 UUID 以 16 进制形式打印出来
            if data == "close" then -- 如果收到的数据为 "close"，则断开连接
                btcore.disconnect() -- 主动断开连接
            end
            btcore.send(data, 0xfee2, bt_connect.handle)-- 将数据发送到 0xfee2 特征中
            --btcore.send(data, "9ecadc240ee5a9e093f3a3b50200406e", bt_connect.handle)--发送数据(数据 对应特征uuid 连接句柄)
        end
    end
end

-- 主动扫描
-- 扫描间隔 ： 48 * 0.625ms = 30ms
-- 扫描窗口 ： 6 * 0.625ms = 3.75
-- 接收所有广播和扫描响应 PDU，除了未定向给本设备的定向广播 PDU
-- 公共设备地址
btcore.setscanparam(1,48,6,0,0)

-- 开启扫描
btcore.scan(1)
-- 关闭扫描
btcore.scan(0)

_, bt_device = sys.waitUntil("BT_SCAN_IND") -- 等待扫描回复数据
btcore.connect(bt_device.addr,bt_device.addr_type) -- 建立连接

_, bt_connect = sys.waitUntil("BT_CONNECT_IND") --等待连接成功
btcore.findservice() -- 发现所有服务，也可以不传入值，如果是单连接
btcore.findservice(bt_connect.handle) -- 发现所有服务

_, bt_connect = sys.waitUntil("BT_CONNECT_IND") --等待连接成功
btcore.findcharacteristic(0xfee0,bt_connect.handle) -- 查找 uuid 0xfee0 的服务内所有特征
btcore.findcharacteristic(0xfee0) -- 查找 uuid 0xfee0 的服务内所有特征
btcore.findcharacteristic("9ecadc240ee5a9e093f3a3b50100406e",bt_connect.handle)--服务uuid
btcore.findcharacteristic("9ecadc240ee5a9e093f3a3b50100406e")--服务uuid

_, bt_connect = sys.waitUntil("BT_CONNECT_IND") --等待连接成功
btcore.opennotification(0xfee2,bt_connect.handle); -- 打开对应特征 uuid 的 notify 功能
btcore.opennotification(0xfee2); -- 打开对应特征 uuid 的 notify 功能
btcore.opennotification("9ecadc240ee5a9e093f3a3b50200406e",bt_connect.handle); --打开通知，对应特征uuid 
btcore.opennotification("9ecadc240ee5a9e093f3a3b50200406e"); --打开通知，对应特征uuid

local function scan()
    log.info("bt", "scan")
    -- 主动扫描，扫描间隔 48*0.625ms=30ms，扫描窗口 6*0.625ms=3.75ms，接收所有广播包和扫描回应包（除定向广播），公共地址
    btcore.setscanparam(1,48,6,0,0)-- 扫描参数设置（扫描类型,扫描间隔,扫描窗口,扫描过滤策略,本地地址类型）
    btcore.scan(1) -- 开启扫描
    _, result = sys.waitUntil("BT_SCAN_OPEN_CNF", 50000) -- 等待扫描打开成功
    if result ~= 0 then
        return false
    end
    sys.timerStart(
        function()
            sys.publish("BT_SCAN_IND", nil)
        end,
        10000)  
    while true do
        _, bt_device = sys.waitUntil("BT_SCAN_IND") -- 等待扫描回复数据
        if not bt_device then
            -- 超时结束
            btcore.scan(0) --停止扫描
            return false
        else
            log.info("bt", "scan result")
            log.info("bt.scan_name", bt_device.name)  -- 对端蓝牙设备名称
            log.info("bt.rssi", bt_device.rssi)  -- 对端蓝牙设备信号强度
            log.info("bt.addr_type", bt_device.addr_type) -- 对端蓝牙设备地址类型
            log.info("bt.scan_addr", bt_device.addr) -- 对端蓝牙设备地址
            if bt_device.manu_data ~= nil then
                log.info("bt.manu_data", string.toHex(bt_device.manu_data)) -- 如果有厂商数据，那么打印厂商数据
            end
            log.info("bt.raw_len", bt_device.raw_len) -- 扫描到的原始广播包数据长度
            if bt_device.raw_data ~= nil then
                log.info("bt.raw_data", string.toHex(bt_device.raw_data)) -- 广播包原始数据
            end

            --蓝牙连接   根据设备蓝牙广播数据协议解析广播原始数据(bt_device.raw_data)
            if (bt_device.name == "Luat_Air724UG") then   -- 如果扫描到的蓝牙设备名称为"Luat_Air724UG"则连接
                name = bt_device.name
                addr_type = bt_device.addr_type
                addr = bt_device.addr
                manu_data = bt_device.manu_data
                adv_data = bt_device.raw_data -- 广播包数据 根据蓝牙广播包协议解析

                scanrsp_data = bt_device.raw_data -- 响应包数据 根据蓝牙广播包协议解析
                btcore.scan(0)  -- 停止扫描
                btcore.connect(bt_device.addr,bt_device.addr_type) -- 建立连接
                log.info("bt.connect_name", name)
                log.info("bt.connect_addr_type", addr_type)
                log.info("bt.connect_addr", addr)
                if manu_data ~= nil then
                    log.info("bt.connect_manu_data", manu_data)
                end
                if adv_data ~= nil then
                    log.info("bt.connect_adv_data", adv_data)
                end
                if scanrsp_data ~= nil then
                    log.info("bt.connect_scanrsp_data", scanrsp_data)
                end
                return true
            end

        end
    end
    return true
end

local function data_trans()

    _, bt_connect = sys.waitUntil("BT_CONNECT_IND") --等待连接成功
    if bt_connect.result ~= 0 then
        return false
    end
    -- 连接成功
    log.info("bt.connect_handle", bt_connect.handle) -- 蓝牙连接句柄
    log.info("bt", "find all service uuid")
    btcore.findservice() -- 发现所有服务
    _, result = sys.waitUntil("BT_FIND_SERVICE_IND") -- 等待发现服务 uuid 完成
    if not result then
        return false
    end

    btcore.findcharacteristic(0xfee0) -- 查找 uuid 0xfee0 的服务内所有特征
    _, result = sys.waitUntil("BT_FIND_CHARACTERISTIC_IND") -- 等待发现服务包含的特征成功
    if not result then
        return false
    end
    btcore.opennotification(0xfee2); -- 打开对应特征 uuid 的 notify 功能

    --btcore.findcharacteristic("9ecadc240ee5a9e093f3a3b50100406e")--服务uuid
    --_, result = sys.waitUntil("BT_FIND_CHARACTERISTIC_IND") --等待发现服务包含的特征成功
    --if not result then
    --    return false
    --end
    --btcore.opennotification("9ecadc240ee5a9e093f3a3b50200406e"); --打开通知 对应特征uuid  

    log.info("bt.send", "Hello I'm Luat BLE")
    sys.wait(1000)
    while true do
        local data = "123456"
        -- 向特征 uuid 0xfee1 发送数据
        btcore.send(data,0xfee1, bt_connect.handle) -- 发送数据(数据 对应特征uuid 连接句柄)
        --btcore.send(bt_recv.data,"9ecadc240ee5a9e093f3a3b50300406e",bt_connect.handle)
        _, bt_recv = sys.waitUntil("BT_DATA_IND") --等待接收到数据
        local data = ""
        local len = 0
        local uuid = ""
        while true do
            local recvuuid, recvdata, recvlen = btcore.recv(3)
            if recvlen == 0 then
                break
            end
            uuid = recvuuid
            len = len + recvlen
            data = data .. recvdata
        end
        if len ~= 0 then
        log.info("bt.recv_data", data)
        log.info("bt.recv_data len", len)
        log.info("bt.recv_uuid", uuid)
        end
    end
end