|
|
現在的ble藍牙模塊很便宜，1元一個還包郵。藍牙模塊比esp8266省電，更適合連接手機和單片機。但是用e4a V7.1.14試用版自帶例程編譯的藍牙串口app，安裝后可以與藍牙模塊連接，卻無法傳遞字符。藍牙模塊通過usb串口與電腦連接，電腦也無法將字符通過串口助手發送到手機上。但是使用商家提供的手機app是可以互相傳遞的。不知道問題在哪里？
e4a V7.1.14試用版自帶的ble藍牙例程：
事件 主窗口.創建完畢()
如果 權限操作1.取系統版本號()>=23 則
權限操作1.申請全部權限() '必須先申請權限
結束 如果
變量 結果 為 邏輯型
結果 = BLE藍牙1.初始化()
彈出提示("初始化結果：" & 結果)
BLE藍牙1.置可被發現()
結束 事件
事件 按鈕1.被單擊()
如果 按鈕1.標題 = "開始搜索" 則
位置傳感器1.開始監測() '在某些安卓系統中,必須先進行GPS定位才能搜索到藍牙設備
BLE藍牙1.開始搜索()
時鐘1.時鐘周期 = 10 * 1000
按鈕1.標題 = "停止搜索"
否則
BLE藍牙1.停止搜索()
時鐘1.時鐘周期 = 0
按鈕1.標題 = "開始搜索"
結束 如果
結束 事件
事件 時鐘1.周期事件()
BLE藍牙1.停止搜索()
按鈕1.標題 = "開始搜索"
時鐘1.時鐘周期 = 0
結束 事件
事件 BLE藍牙1.發現設備(名稱 為 文本型,地址 為 文本型,MajorID 為 整數型,MinorID 為 整數型,配對狀態 為 整數型)
彈出提示("發現設備")
列表框1.添加項目("名稱：" & 名稱 & "\n地址：" & 地址)
列表框1.置項目標記(列表框1.取項目數()-1,地址)
結束 事件
事件 BLE藍牙1.信號強度改變(名稱 為 文本型,地址 為 文本型,信號強度 為 整數型)
變量 計次 為 整數型
變量 文本數組 為 文本型()
變量循環首 計次 = 0 至 列表框1.取項目數()-1
文本數組 = 分割文本(列表框1.取項目內容(計次),"\n")
如果 文本數組(1) = "地址：" & 地址 則
列表框1.置項目內容(計次,"名稱：" & 名稱 & "\n地址：" & 地址 & "\n信號：" & 信號強度)
退出
結束 如果
變量循環尾
結束 事件
事件 列表框1.表項被單擊(項目索引 為 整數型)
BLE藍牙1.連接設備(列表框1.取項目標記(項目索引))
彈出提示("正在連接")
主窗口.標題 = "正在連接"
分組列表框1.清空所有數據()
結束 事件
事件 BLE藍牙1.連接狀態改變(狀態 為 整數型)
如果 狀態 = 1 則
彈出提示("已連接")
主窗口.標題 = "已連接"
否則
彈出提示("已斷開")
主窗口.標題 = "已斷開"
結束 如果
結束 事件
事件 BLE藍牙1.發現服務(服務信息 為 集合)
如果 服務信息.取項目總數() < 0 則
退出
結束 如果
變量 計次 為 整數型
變量 信息數組 為 文本型()
變量 分組索引 為 整數型
變量 計次2 為 整數型
變量 通道屬性 為 文本型
彈出提示("發現服務")
分組列表框1.清空所有數據()
計次 = 0
判斷循環首 計次 < 服務信息.取項目總數()
信息數組 = 服務信息.取項目(計次)
分組索引 = 分組列表框1.添加分組("服務" & (計次 + 1),信息數組(0)) '信息數組中的第一個成員為服務,剩下的其他成員都是通道
計次2 = 0
判斷循環首 計次2 < 取數組成員數(信息數組)
如果 計次2 > 0 則
通道屬性 = 取通道屬性(信息數組(0),信息數組(計次2))
分組列表框1.添加子項(分組索引,"logo.png","通道" & 計次2 & " " & 通道屬性,信息數組(計次2),"","")
結束 如果
計次2 = 計次2 + 1
判斷循環尾
計次 = 計次 + 1
判斷循環尾
結束 事件
函數 取通道屬性(服務UUID 為 文本型,通道UUID 為 文本型)為 文本型
變量 a 為 文本型
變量 b 為 文本型
變量 c 為 文本型
如果 BLE藍牙1.是否可讀(服務UUID,通道UUID) = 真 則
a = "可讀、"
否則
a = "不可讀、"
結束 如果
如果 BLE藍牙1.是否可寫(服務UUID,通道UUID) = 真 則
b = "可寫、"
否則
b = "不可寫、"
結束 如果
如果 BLE藍牙1.是否可讀(服務UUID,通道UUID) = 真 則
c = "可通知"
否則
c = "不可通知"
結束 如果
取通道屬性 = a & b & c
結束 函數
事件 分組列表框1.子項被單擊(分組索引 為 整數型,子項索引 為 整數型)
變量 是否輸入 為 邏輯型
變量 輸入內容 為 文本型
如果 信息框2("選擇","","讀取數據","寫入數據") = 0 則
BLE藍牙1.讀取數據(分組列表框1.取分組信息(分組索引),分組列表框1.取子項信息(分組索引,子項索引))
否則
輸入內容 = 輸入框("輸入16進制","2C5B",是否輸入)
如果 是否輸入 = 真 則
BLE藍牙1.寫入數據(分組列表框1.取分組信息(分組索引),分組列表框1.取子項信息(分組索引,子項索引),十六進制到字節集(輸入內容))
結束 如果
結束 如果
結束 事件
事件 BLE藍牙1.讀取數據完畢(結果 為 整數型,服務UUID 為 文本型,通道UUID 為 文本型,數據 為 字節型())
如果 結果 = 1 則
彈出提示("讀取數據成功：" & 通道UUID & "\n數據：" & 字節集到十六進制(數據))
否則
彈出提示("讀取數據失敗：" & 通道UUID & "\n數據：" & 字節集到十六進制(數據))
結束 如果
結束 事件
事件 BLE藍牙1.通道數據改變(服務UUID 為 文本型,通道UUID 為 文本型,數據 為 字節型())
彈出提示("通道數據改變" & 通道UUID & "\n數據：" & 字節集到十六進制(數據))
結束 事件
事件 BLE藍牙1.寫入數據完畢(結果 為 整數型)
如果 結果 = 1 則
彈出提示("寫入數據成功")
否則
彈出提示("寫入數據失敗")
結束 如果
結束 事件
事件 主窗口.按下某鍵(鍵代碼 為 整數型,傳址 屏蔽 為 邏輯型)
如果 鍵代碼 = 返回鍵 則
BLE藍牙1.釋放資源()
結束程序()
結束 如果
結束 事件
|
|
