【蓝牙通讯】有没有大神帮忙 E4A转火山安卓 源码啊

心草草

发不了附加 【e4a 中级教程 35蓝牙】（）
火山例子【蓝牙通讯】已经看好几个星期了 实在看不懂
‘------------------------------------
事件 主窗口.创建完毕()       
        如果 权限操作1.检查权限("android.permission.BLUETOOTH") = 真 且 权限操作1.检查权限("android.permission.BLUETOOTH_ADMIN") = 真  且 权限操作1.检查权限("android.permission.READ_PHONE_STATE") = 真 则
                弹出提示("已获得权限,直接初始化蓝牙")
                初始化蓝牙()
        否则
                弹出提示("未获得权限,开始申请权限")
                权限操作1.申请全部权限()
        结束 如果
结束 事件

事件 权限操作1.申请完毕(权限数组 为 文本型(),申请结果 为 整数型())
        如果 权限操作1.检查权限("android.permission.BLUETOOTH") = 真 且 权限操作1.检查权限("android.permission.BLUETOOTH_ADMIN") = 真  且 权限操作1.检查权限("android.permission.READ_PHONE_STATE") = 真 则
                初始化蓝牙()
        否则
                信息框("信息","蓝牙权限没有开启,请在应用的权限设置页面开启蓝牙权限！","确定")
                权限操作1.打开权限设置()
        结束 如果
结束 事件

过程 初始化蓝牙()
        如果 蓝牙1.是否存在() = 假 则
                信息框("信息","本机找不到蓝牙设备，程序将退出！","确定")
                结束程序()
        结束 如果
        如果 蓝牙1.是否已开启() = 假 则
                蓝牙1.开启蓝牙()
        否则       
                蓝牙1.置工作模式(1)
        结束 如果               
结束 过程

事件 蓝牙1.蓝牙设置完毕(设置结果 为 整数型)
        如果 设置结果 = 1 则
                蓝牙1.置工作模式(1)
        结束 如果       
结束 事件

事件 按钮1.被单击()
        位置传感器1.开始监测() '在新版的安卓系统中,必须开启GPS定位才能搜索到蓝牙设备
        列表框1.清空项目()
        蓝牙1.搜索设备() '搜索设备
        弹出提示("正在搜索")
结束 事件

事件 蓝牙1.发现设备(设备名称 为 文本型,设备地址 为 文本型,是否已配对 为 逻辑型)
        列表框1.添加项目(设备名称 & "-" & 设备地址 & "-" & 是否已配对)
        列表框1.置项目标记(列表框1.取项目数()-1,设备地址)
结束 事件

事件 列表框1.表项被单击(项目索引 为 整数型)       
        变量 设备地址 为 文本型
        设备地址 = 列表框1.取项目标记(项目索引)
        蓝牙1.连接设备(设备地址)'连接设备
        弹出提示("正在连接：" & 设备地址)       
结束 事件

事件 蓝牙1.连接完毕(连接结果 为 逻辑型,设备名称 为 文本型,设备地址 为 文本型,连接模式 为 整数型)
        变量 设备信息 为 文本型
        变量 文本数组 为 文本型()
        如果 连接结果 = 真 则
                按钮2.可用 = 真       
                主窗口.标题 = "已连接：" & 设备名称
                弹出提示("连接成功")
        否则
                弹出提示("连接失败")
        结束 如果
结束 事件

事件 蓝牙1.收到数据(数据 为 字节型(),设备名称 为 文本型,设备地址 为 文本型)
        编辑框1.内容 = 编辑框1.内容 & "\n" & 设备名称 & "：\n    " & 字节到文本(数据,"GBK")
        编辑框1.置光标位置(取文本长度(编辑框1.内容))
       
'=====================以下是接收单片机发送过来的16进制HEX数据的方法=======================       
'        变量 计次 为 整数型
'        判断循环首 计次 < 取数组成员数(数据)
'                编辑框1.内容 = 编辑框1.内容 & "  " & 到十六进制(数据(计次))
'                计次 = 计次 + 1
'        判断循环尾       
结束 事件

事件 按钮2.被单击()
        如果 编辑框2.内容 <> "" 则
                编辑框1.内容 = 编辑框1.内容 & "\n本机：\n    " & 编辑框2.内容
                蓝牙1.发送数据(文本到字节(编辑框2.内容,"GBK")) '发送消息
        否则
                信息框("信息","消息内容不能为空！","确定")
        结束 如果       
结束 事件

事件 按钮3.被单击()
        蓝牙1.断开连接() '退出处理，释放资源，结束内部处理线程
        结束程序()
结束 事件

创世魂

火山封的比较原始，封装的比较浅。没有像e4a这样深度封装。所以例子看起来比较乱。


在无名模块里面有个 蓝牙操作类  操作简单，经过二次封装的，可以下载模块看看。

创世魂

无名模块下载地址：http://bbs.voldp.com/forum.php?m ... &extra=page%3D1

心草草

创世魂 发表于 2023-2-3 18:54
火山封的比较原始，封装的比较浅。没有像e4a这样深度封装。所以例子看起来比较乱。

好的谢谢 ，研究研究。

心草草

创世魂 发表于 2023-2-3 21:29
无名模块下载地址：http://bbs.voldp.com/forum.php?mod=viewthread&tid=3403&extra=page%3D1

测试了一下 3个手机 两个手机取本机地址 变成了【02:00:00:00:00:00】(开始是好的 重启手机无效 不知道怎么弄)
【方式一】 A手机开启服务 BC链接
A手机开启服务 BC 两个手机链接 在第二个手机C链接时 发送数据成功但服务手机A接收不了 要等第一个手机B发了一次数据才能服务手机A才能收到 （收到的数据包含第二个手机C之前发送成功但未收到的所有数据）
【方式二】A链接 bc手机开启服务（E4A此方式虽只能和最后一个链接的互通 但可以收到所有链接过的手机发了的数据）
也和上面问题一样 A手机链接 BC后再返回链接B时 就不能链接了
释放资源也不行 必须完全关闭程序