我用e4a写的app,用来控制51单片机。虽然这个app可以搜索到蓝牙模块HC05的名称和地址,但是显示配对不成功(False),也连接不上,下面是蓝牙连接的代码和app的界面显示,请大佬帮我看看到底是哪里出了问题?谢谢了!
事件 主窗口.创建完毕()
标签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.可用=真
否则
弹出提示("连接失败")
结束 如果
结束 事件
|