递归火山软件开发平台

标题: 【蓝牙通讯】有没有大神帮忙 E4A转火山安卓源码啊 [打印本页]

作者: 心草草 时间: 2023-2-3 15:53
标题: 【蓝牙通讯】有没有大神帮忙 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.断开连接() '退出处理，释放资源，结束内部处理线程
结束程序()
结束事件

作者: 创世魂 时间: 2023-2-3 18:54
本帖最后由创世魂于 2023-2-3 21:29 编辑

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

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

作者: 创世魂 时间: 2023-2-3 21:29
无名模块下载地址：http://bbs.voldp.com/forum.php?m ... &extra=page%3D1

作者: 心草草 时间: 2023-2-4 06:17
本帖最后由心草草于 2023-2-4 06:19 编辑

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

好的谢谢，研究研究。

作者: 心草草 时间: 2023-2-5 09:14

创世魂发表于 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时就不能链接了
释放资源也不行必须完全关闭程序

欢迎光临递归火山软件开发平台 (https://bbs.voldp.com/)