|
|
手機(jī)程序源碼如下：
事件 主窗口.創(chuàng)建完畢()
如果 權(quán)限操作1.取系統(tǒng)版本號(hào)()>=23 則
權(quán)限操作1.申請(qǐng)全部權(quán)限() '必須先申請(qǐng)權(quán)限
結(jié)束 如果
變量 結(jié)果 為 邏輯型
結(jié)果 = BLE藍(lán)牙1.初始化()
標(biāo)簽1.標(biāo)題=("初始化結(jié)果：" & 結(jié)果)
BLE藍(lán)牙1.置可被發(fā)現(xiàn)()
結(jié)束 事件
事件 按鈕1.被單擊()
如果 按鈕1.標(biāo)題 = "開始搜索" 則
位置傳感器1.開始監(jiān)測(cè)() '在某些安卓系統(tǒng)中,必須先進(jìn)行GPS定位才能搜索到藍(lán)牙設(shè)備
BLE藍(lán)牙1.開始搜索()
時(shí)鐘1.時(shí)鐘周期 = 10 * 1000
按鈕1.標(biāo)題 = "停止搜索"
否則
BLE藍(lán)牙1.停止搜索()
時(shí)鐘1.時(shí)鐘周期 = 0
按鈕1.標(biāo)題 = "開始搜索"
結(jié)束 如果
結(jié)束 事件
事件 時(shí)鐘1.周期事件()
BLE藍(lán)牙1.停止搜索()
按鈕1.標(biāo)題 = "開始搜索"
時(shí)鐘1.時(shí)鐘周期 = 0
結(jié)束 事件
事件 BLE藍(lán)牙1.發(fā)現(xiàn)設(shè)備(名稱 為 文本型,地址 為 文本型,MajorID 為 整數(shù)型,MinorID 為 整數(shù)型,配對(duì)狀態(tài) 為 整數(shù)型)
標(biāo)簽1.標(biāo)題=("發(fā)現(xiàn)設(shè)備")
列表框1.添加項(xiàng)目("名稱：" & 名稱 & "\n地址：" & 地址)
列表框1.置項(xiàng)目標(biāo)記(列表框1.取項(xiàng)目數(shù)()-1,地址)
結(jié)束 事件
事件 BLE藍(lán)牙1.信號(hào)強(qiáng)度改變(名稱 為 文本型,地址 為 文本型,信號(hào)強(qiáng)度 為 整數(shù)型)
變量 計(jì)次 為 整數(shù)型
變量 文本數(shù)組 為 文本型()
變量循環(huán)首 計(jì)次 = 0 至 列表框1.取項(xiàng)目數(shù)()-1
文本數(shù)組 = 分割文本(列表框1.取項(xiàng)目內(nèi)容(計(jì)次),"\n")
如果 文本數(shù)組(1) = "地址：" & 地址 則
列表框1.置項(xiàng)目內(nèi)容(計(jì)次,"名稱：" & 名稱 & "\n地址：" & 地址 & "\n信號(hào)：" & 信號(hào)強(qiáng)度)
退出
結(jié)束 如果
變量循環(huán)尾
結(jié)束 事件
事件 列表框1.表項(xiàng)被單擊(項(xiàng)目索引 為 整數(shù)型)
BLE藍(lán)牙1.連接設(shè)備(列表框1.取項(xiàng)目標(biāo)記(項(xiàng)目索引))
標(biāo)簽1.標(biāo)題=("正在連接")
主窗口.標(biāo)題 = "正在連接"
分組列表框1.清空所有數(shù)據(jù)()
結(jié)束 事件
事件 BLE藍(lán)牙1.連接狀態(tài)改變(狀態(tài) 為 整數(shù)型)
如果 狀態(tài) = 1 則
標(biāo)簽1.標(biāo)題=("已連接")
主窗口.標(biāo)題 = "已連接"
否則
標(biāo)簽1.標(biāo)題=("已斷開")
主窗口.標(biāo)題 = "已斷開"
結(jié)束 如果
結(jié)束 事件
事件 BLE藍(lán)牙1.通道數(shù)據(jù)改變(服務(wù)UUID 為 文本型,通道UUID 為 文本型,數(shù)據(jù) 為 字節(jié)型())
標(biāo)簽1.標(biāo)題=("接收到數(shù)據(jù)" & "\n數(shù)據(jù)：" & 字節(jié)集到十六進(jìn)制(數(shù)據(jù)))
結(jié)束 事件
事件 主窗口.按下某鍵(鍵代碼 為 整數(shù)型,傳址 屏蔽 為 邏輯型)
如果 鍵代碼 = 返回鍵 則
BLE藍(lán)牙1.釋放資源()
結(jié)束程序()
結(jié)束 如果
結(jié)束 事件
事件 按鈕2.被單擊()
BLE藍(lán)牙1.寫入數(shù)據(jù)("0000ffe0-0000-1000-8000-00805f9b34fb","0000ffe1-0000-1000-8000-00805f9b34fb",十六進(jìn)制到字節(jié)集("41"))
結(jié)束 事件
事件 按鈕3.被單擊()
BLE藍(lán)牙1.寫入數(shù)據(jù)("0000ffe0-0000-1000-8000-00805f9b34fb","0000ffe1-0000-1000-8000-00805f9b34fb",十六進(jìn)制到字節(jié)集("42"))
結(jié)束 事件
事件 按鈕5.被單擊()
BLE藍(lán)牙1.寫入數(shù)據(jù)("0000ffe0-0000-1000-8000-00805f9b34fb","0000ffe1-0000-1000-8000-00805f9b34fb",十六進(jìn)制到字節(jié)集("43"))
結(jié)束 事件
事件 按鈕4.被單擊()
BLE藍(lán)牙1.寫入數(shù)據(jù)("0000ffe0-0000-1000-8000-00805f9b34fb","0000ffe1-0000-1000-8000-00805f9b34fb",十六進(jìn)制到字節(jié)集("44"))
結(jié)束 事件 |
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
