我用e4a寫的app，用來控制51單片機。雖然這個app可以搜索到藍牙模塊HC05的名稱和地址，但是顯示配對不成功（False），也連接不上，下面是藍牙連接的代碼和app的界面顯示，請大佬幫我看看到底是哪里出了問題？謝謝了！
11.png (39.13 KB, 下載次數: 44)
下載附件
2020-5-22 11:17 上傳
事件 主窗口.創建完畢()
標簽3.背景顏色=無色
標簽4.背景顏色=無色
圖片框1.背景顏色=無色
圖片框3.背景顏色=無色
按鈕7.可用=假
按鈕9.可用=假
K1開關="1"
K2開關="1"
K3開關="1"
如果 藍牙1.是否存在() = 假 則
信息框("信息","本機找不到藍牙設備，程序將退出！","確定")
結束程序()
結束 如果
如果 藍牙1.是否已開啟() = 假 則
藍牙1.開啟藍牙()
結束 如果
結束 事件
事件 藍牙1.藍牙設置完畢(設置結果 為 整數型)
判斷 設置結果
分支 1 '開啟藍牙
彈出提示("藍牙已開啟")
藍牙1.置可被發現() '置可被發現
分支 2 '不開啟藍牙
信息框("信息","藍牙未被開啟，程序將退出！","確定")
結束程序()
分支 3 '置可被發現
彈出提示("藍牙已設置為可被發現")
藍牙1.置工作模式(2) '藍牙串口通信
分支 4 '不置可被發現
信息框("信息","藍牙未被設置為可被發現，程序將退出！","確定")
結束程序()
結束 判斷
結束 事件
事件 按鈕1.被單擊()
藍牙1.斷開連接()
按鈕3.可用=假
按鈕7.可用=假
按鈕9.可用=假
按鈕1.標題 = "搜索設備"
列表框1.可視=真
列表框1.清空項目()
藍牙1.搜索設備() '搜索設備
彈出提示("正在搜索")
結束 事件
事件 藍牙1.發現設備(設備名稱 為 文本型,設備地址 為 文本型,是否已配對 為 邏輯型)
如果 是否已配對 則
列表框1.添加項目(設備名稱 & "/" & 設備地址 & "/" & "(已配對)")
則
列表框1.添加項目(設備名稱 & "/" & 設備地址 & "/" & "(未配對)")
結束 事件
事件 列表框1.表項被單擊(項目索引 為 整數型)
變量 設備信息 為 文本型
變量 文本數組 為 文本型()
變量 設備地址 為 文本型
設備信息 = 列表框1.取項目內容(項目索引)
文本數組 = 分割文本(設備信息,"/")
設備地址 = 文本數組(1)
彈出提示(設備地址)
藍牙1.停止搜索()
藍牙1.連接設備(設備地址)'連接設備
彈出提示("正在連接")
結束 事件
事件 藍牙1.連接完畢(連接結果 為 邏輯型,設備名稱 為 文本型,設備地址 為 文本型,連接模式 為 整數型)
變量 設備信息 為 文本型
變量 文本數組 為 文本型()
如果 連接結果 = 真 則
按鈕1.標題 = "已連接"
列表框1.可視=假
按鈕7.可用=真
按鈕9.可用=真
否則
彈出提示("連接失敗")
結束 如果
結束 事件
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
