蓝牙
变量 分割数据 为 文本型变量 启动时间 为 长整数型
变量 日期1 为 文本型
变量 时间1 为 文本型
变量 次数1 为 文本型
变量 时长1 为 文本型
事件 搜索.被单击()
列表框1.清空项目()
蓝牙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)
结束 事件
学习了！！！！ 不错哦喜欢 嘿嘿 期待中...... 感谢您的无私精神... 顶起很好的帖 学习了！！！！ 嘻嘻不错支持一个 谢谢楼主的辛苦分享 不错！顶LZ