LuatOS/module/Air8000/project/整机开发板出厂工程/user/airble.lua

local airble = {}

dnsproxy = require("dnsproxy")
dhcpsrv =  require("dhcpsrv")
httpplus = require("httpplus")
local run_state = false  -- 判断本UI DEMO 是否运行
local ble_state = "未初始"

local Characteristic1 = "EA01"
local Characteristic1_read = nil
local Characteristic1_write = nil
local Characteristic2 = "EA02"
local Characteristic2_write = nil
local Characteristic3 = "EA03"
local Characteristic3_read = nil
local Characteristic4 = "EA04"
local Characteristic4_read = nil
local Characteristic4ind = nil


local att_db = { -- Service
    string.fromHex("FA00"), -- Service UUID
    -- Characteristic
    { -- Characteristic 1
        string.fromHex(Characteristic1), -- Characteristic UUID Value
        ble.NOTIFY | ble.READ | ble.WRITE -- Properties
    }, { -- Characteristic 2
        string.fromHex(Characteristic2), ble.WRITE
    }, { -- Characteristic 3
        string.fromHex(Characteristic3), ble.READ
    }, { -- Characteristic 4
        string.fromHex(Characteristic4), ble.IND | ble.READ
    }
}

ble_stat = false

local function ble_callback(dev, evt, param)
    if evt == ble.EVENT_CONN then
        log.info("ble", "connect 成功", param, param and param.addr and param.addr:toHex() or "unknow")
        ble_stat = true
    elseif evt == ble.EVENT_DISCONN then
        log.info("ble", "disconnect")
        ble_stat = false
        -- 1秒后重新开始广播
        sys.timerStart(function() dev:adv_start() end, 1000)
    elseif evt == ble.EVENT_WRITE_REQ then
        -- 收到写请求
        log.info("ble", "接收到写请求", param.uuid_service:toHex(), param.data:toHex())
        if param.uuid_service == Characteristic1 then
            Characteristic1_write = param.data:toHex()
        elseif param.uuid_service == Characteristic2 then
            Characteristic2_write = param.data:toHex()
        end

    end
end


local function ble_peripheral_setup()
    local ret = 0
    sys.wait(500)
    log.info("开始初始化蓝牙核心")
    bluetooth_device = bluetooth.init()
    sys.wait(100)
    log.info("初始化BLE功能")
    ble_device = bluetooth_device:ble(ble_callback)
    if ble_device == nil then
        log.error("当前固件不支持完整的BLE")
        return
    end
    sys.wait(100)

    log.info('开始创建GATT')
    ret = ble_device:gatt_create(att_db)
    log.info("创建的GATT", ret)

    sys.wait(100)
    log.info("开始设置广播内容")
    ble_device:adv_create({
        addr_mode = ble.PUBLIC,
        channel_map = ble.CHNLS_ALL,
        intv_min = 120,
        intv_max = 120,
        adv_data = {
            {ble.FLAGS, string.char(0x06)},
            {ble.COMPLETE_LOCAL_NAME, "LuatOS123"},
            {ble.SERVICE_DATA, string.fromHex("FE01")},
            {ble.MANUFACTURER_SPECIFIC_DATA, string.fromHex("05F0")}
        }
    })

    sys.wait(100)
    log.info("开始广播")
    ble_device:adv_start()

end

local function start_notify()

end



function airble.run()       
    log.info("airble.run")
    lcd.setFont(lcd.font_opposansm12_chinese) -- 设置中文字体
    run_state = true
    sysplus.taskInitEx(ble_peripheral_setup,"airble")
    while true do
        sys.wait(10)
        lcd.clear(_G.bkcolor) 
        lcd.drawStr(0,80,"当前蓝牙状态:" .. ble_state )
        lcd.drawStr(0,100,"特征:" .. Characteristic1  .. ",可读数据为：" ..  Characteristic1_read.. "被写入数据为:" .. Characteristic1_write)
        lcd.drawStr(0,120,"特征:" .. Characteristic2   .. "被写入数据为:" .. Characteristic2_write)
        lcd.drawStr(0,140,"特征:" .. Characteristic3   .. ",可读数据为：" .. Characteristic3_read)
        lcd.drawStr(0,160,"特征:" .. Characteristic4   .. "可读数据为：" .. Characteristic4_read)



        lcd.showImage(130,350,"/luadb/start.jpg")   -- EA01 发送数据
        lcd.flush()
        
        if not  run_state  then    -- 等待结束，返回主界面
            return true
        end
    end
end



function airble.tp_handal(x,y,event)       
    if x > 20 and  x < 100 and y > 360  and  y < 440 then
        run_state = false
    elseif x > 130 and  x < 230 and y > 397  and  y < 444 then
        sysplus.taskInitEx(start_notify, "start_notify")
    end
end

return airble