觅风易语言学院 定期清理不活跃会员公告 绑定QQ
导读
易语言5.6完美破解版,可静态编译,绿色无

学习易语言 讲究的是系统,如果你正在四处闲逛,你懂的永远是皮毛! 觅风论坛正在为每个困惑的对易语言 详细

求助,蓝牙收到信息分栏显示,但是其中总会有几次读到的数据出现问题,求助

[复制链接]

微信扫一扫 分享朋友圈

challenger 发表于 2020-9-23 08:32:36 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题

马上注册,结交更多易友,享用更多功能,让你轻松玩转觅风论坛。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
        变量 分割数据 为 文本型
        变量 启动时间 为 长整数型
   变量 日期1 为 文本型
    变量 时间1 为 文本型
        变量 次数1 为 文本型
        变量 时长1 为 文本型

事件 搜索.被单击()
        列表框1.清空项目()
        BLE蓝牙1.开始搜索()
        弹出提示("正在搜索")
结束 事件
事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
        如果 键代码 = 返回键 则
        如果 取启动时间() - 启动时间 >2000 则
            弹出提示("再按一次退出程序")
            启动时间 = 取启动时间()
        否则
            结束程序()
        结束 如果
    结束 如果
结束 事件
事件 主窗口.创建完毕()
    列表框1.字体大小 = 6
    标签1.背景颜色=无色   
    列表框1.背景颜色=绿色
   
    蓝牙1.是否存在()
    判断 蓝牙1.是否存在()
        分支 假
            弹出提示("没有检测到蓝牙设备")
        分支 真
            判断 蓝牙1.是否已开启()
                分支 假
                    蓝牙1.开启蓝牙()
            结束 判断
            
    结束 判断
    保存窗口("主窗口",本对象) '本对象是当前窗口
                    
      
结束 事件
事件 蓝牙1.发现设备(设备名称 为 文本型,设备地址 为 文本型,是否已配对 为 逻辑型)
    列表框1.添加项目(设备名称 & "/" & 设备地址 & "/" & 是否已配对)   
结束 事件




事件 列表框1.表项被单击(项目索引 为 整数型)
    变量 设备信息 为 文本型
    变量 文本数组 为 文本型()
    变量 设备地址 为 文本型
    设备信息 = 列表框1.取项目内容(项目索引)
    文本数组 = 分割文本(设备信息,"/")
    设备地址 = 文本数组(1)
    弹出提示(设备地址)
    蓝牙1.连接设备(设备地址)         '连接设备 我看了有些例程是没有的   
    弹出提示("正在连接")

    蓝牙1.停止搜索()
   
结束 事件
事件 蓝牙1.连接完毕(连接结果 为 逻辑型,设备名称 为 文本型,设备地址 为 文本型,连接模式 为 整数型)
    变量 设备信息 为 文本型
    变量 文本数组 为 文本型()
    如果 连接结果 = 真 则
        标签1.标题 = "已连接:" & 设备名称 & "-" & 设备地址
        按钮1.标题="断开连接"   
        弹出提示("连接成功")
    否则
        弹出提示("连接失败")
        标签1.标题 = "已断开"
        按钮1.标题="断开连接"
    结束 如果   
结束 事件

事件 蓝牙1.蓝牙设置完毕(设置结果 为 整数型)
    判断 设置结果
        分支 1 '开启蓝牙
            弹出提示("蓝牙已开启")
            蓝牙1.置可被发现() '置可被发现
        分支 2    '不开启蓝牙
            信息框("信息","蓝牙未被开启,程序将退出!","确定")
            结束程序()
        分支 3    '置可被发现
            弹出提示("蓝牙已设置为可被发现")
            蓝牙1.置工作模式(2) '蓝牙聊天模式
        分支 4    '不置可被发现
            信息框("信息","蓝牙未被设置为可被发现,程序将退出!","确定")
            结束程序()
    结束 判断   
结束 事件
事件 蓝牙1.收到数据(数据 为 字节型(),设备名称 为 文本型,设备地址 为 文本型)
    变量 收到数据 为 文本型
    日期1=取指定文本2(字节到文本(数据,"GBK"),"da","ti")
        时间1=取指定文本2(字节到文本(数据,"GBK"),"ti","fr")
        次数1=取指定文本2(字节到文本(数据,"GBK"),"fr","lo")
        时长1=取指定文本2(字节到文本(数据,"GBK"),"lo","en")
    日期.插入项目(0,日期1)
        时刻.插入项目(0,时间1)
        次数.插入项目(0,次数1)
        时长.插入项目(0,时长1)
   
       
结束 事件





事件 BLE蓝牙1.创建完毕()
       
结束 事件
回复

使用道具 举报

精彩评论12

神话宝宝 发表于 2020-9-23 10:53:48 | 显示全部楼层
学习一下!十分感谢
回复 支持 反对

使用道具 举报

sdajhdjannda 发表于 2020-9-23 13:01:27 | 显示全部楼层
路过还不错
回复 支持 反对

使用道具 举报

sdajhdjannda 发表于 2020-9-23 15:09:05 | 显示全部楼层
碉堡了!
回复 支持 反对

使用道具 举报

神话宝宝 发表于 2020-9-23 17:16:44 | 显示全部楼层
支持!!!!前排!!!!
回复 支持 反对

使用道具 举报

sdajhdjannda 发表于 2020-9-23 19:24:22 | 显示全部楼层
必须支持。。。。。。。
回复 支持 反对

使用道具 举报

1225061801 发表于 2020-9-23 19:50:43 | 显示全部楼层
很给力。。。。很喜欢
回复 支持 反对

使用道具 举报

wangye263 发表于 2020-9-23 20:17:05 | 显示全部楼层
支持,赞
回复 支持 反对

使用道具 举报

565562216 发表于 2020-9-23 20:43:26 | 显示全部楼层
顶起  很好的帖
回复 支持 反对

使用道具 举报

csw96781 发表于 2020-9-23 21:09:48 | 显示全部楼层
很不错的哦,支持,加油
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关注我们:觅风论坛与你快乐分享

官方QQ

服务客服QQ:

466-352-670

客服QQ:466352670

Email:466352670@qq.com

Powered by WWW.EYYBA.COM X3.4© 2001-2013 Inc.   版权所有   

觅风论坛  沪ICP备15020893号-1