久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

標題: 求助，e4a藍牙串口app [打印本頁]

作者: 風158 時間: 2025-5-20 18:37
標題: 求助，e4a藍牙串口app
現在的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.釋放資源()
結束程序()
結束如果
結束事件

350、BLE藍牙例程.rar

33.7 KB, 下載次數: 0

歡迎光臨 (http://m.zg4o1577.cn/bbs/)