[已解决]e4a蓝牙传输数据程序问题第一位丢失 -

事件主窗口.创建完毕()
如果蓝牙1.是否存在() = 假则
结束程序()
结束如果
如果蓝牙1.是否已开启() = 假则
蓝牙1.开启蓝牙()
否则
蓝牙1.置工作模式(2)
结束如果
结束事件
事件蓝牙1.蓝牙设置完毕(设置结果为整数型)
如果设置结果 = 1 则
蓝牙1.置工作模式(2)
结束如果
结束事件
事件按钮1.被单击()
高级列表框1.清空项目()
蓝牙1.搜索设备() '搜索设备
弹出提示("正在搜索")
结束事件
事件蓝牙1.发现设备(设备名称为文本型,设备地址为文本型,是否已配对为逻辑型)
高级列表框1.添加项目("btn_user_selected.png",设备名称 , 设备地址 ,"btn_more_selected.png" ,"连接 ")
结束事件
事件高级列表框1.按钮被单击(项目索引为整数型)
蓝牙1.连接设备(高级列表框1.取项目信息(项目索引))'连接设备
弹出提示("正在连接：" & (高级列表框1.取项目标题(项目索引)))
结束事件
事件蓝牙1.连接完毕(连接结果为逻辑型,设备名称为文本型,设备地址为文本型,连接模式为整数型)
变量设备信息为文本型
变量文本数组为文本型()
如果连接结果 = 真则
标签_窗口标题.标题 = "已连接：" & 设备名称
弹出提示("连接成功")
否则
弹出提示("连接失败")
结束如果
结束事件
事件按钮2.被按下(横坐标为整数型,纵坐标为整数型)
蓝牙1.发送数据(文本到字节("1","GBK")) '发送消息
结束事件
事件蓝牙1.收到数据(数据为字节型(),设备名称为文本型,设备地址为文本型)
体重.标题= 字节到文本(数据,"GBK")
编辑框1.内容 = 字节到文本(数据,"GBK")
结束事件

复制代码