觅风论坛
标题:
蓝牙
[打印本页]
作者:
challenger
时间:
2020-9-23 08:22
标题:
蓝牙
变量 分割数据 为 文本型
变量 启动时间 为 长整数型
变量 日期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)
结束 事件
作者:
文杰
时间:
2020-9-23 10:37
学习了！！！！
作者:
a123354
时间:
2020-9-23 12:49
不错哦 喜欢 嘿嘿
作者:
小一
时间:
2020-9-23 15:00
期待中......
作者:
1377687493qq
时间:
2020-9-23 17:12
感谢您的无私精神...
作者:
文杰
时间:
2020-9-23 19:24
顶起 很好的帖
作者:
80590711
时间:
2020-9-23 19:50
学习了！！！！
作者:
微风
时间:
2020-9-23 20:17
嘻嘻不错支持一个
作者:
哈哈哈哈
时间:
2020-9-23 20:43
谢谢楼主的辛苦分享
作者:
啦啦啦啦啦啦
时间:
2020-9-23 21:09
不错！顶LZ
作者:
csw96781
时间:
2020-9-23 21:36
感觉不错
作者:
付出又有回报
时间:
2020-9-23 22:13
前来支持~~~~~~~~~~~~~~~~~~~
作者:
舞步
时间:
2020-9-23 22:50
不错！顶LZ
作者:
li123
时间:
2020-9-23 23:28
顶一个了
作者:
li123
时间:
2020-9-24 00:05
抢楼了，前排第一次啊
作者:
付出又有回报
时间:
2020-9-24 00:43
支持！！！！前排！！！！
作者:
啦啦啦啦啦啦
时间:
2020-9-24 01:19
学习了！！！！
作者:
1811581892
时间:
2020-9-24 01:55
学习了，这就去试试
作者:
sdajhdjannda
时间:
2020-9-24 02:31
路过还不错
作者:
qq1124824221
时间:
2020-9-24 03:07
非常不错，感谢分享！
作者:
sdajhdjannda
时间:
2020-9-24 03:43
前来围观，LZ好样的！
作者:
wangqing520
时间:
2020-9-24 04:50
学习了！！！！
作者:
yu1616
时间:
2020-9-24 05:58
支持！！！！！！
作者:
企鹅6655
时间:
2020-9-24 07:05
谢谢楼主的辛苦分享
作者:
幻之灭
时间:
2020-9-24 08:12
不错哦 喜欢 嘿嘿
作者:
asd26297
时间:
2020-9-24 09:20
我表示压力很大
作者:
无敌少爷
时间:
2020-9-24 10:05
前来支持~~~~~~~~~~~~~~~~~~~
作者:
565562216
时间:
2020-9-24 10:50
不错哦 喜欢 嘿嘿
作者:
1225061801
时间:
2020-9-24 11:35
路过还不错
作者:
无敌少爷
时间:
2020-9-24 12:20
抢楼了，前排第一次啊
作者:
w115182772
时间:
2020-9-24 13:06
藕是来打酱油滴...
作者:
liushengchaows
时间:
2020-9-24 18:18
很给力。。。。很喜欢
作者:
4414513216511
时间:
2020-9-24 23:30
支持一下，期待更多东西
作者:
丶断弦
时间:
2020-9-25 04:42
不错哦 喜欢 嘿嘿
作者:
NUNU
时间:
2020-9-25 09:54
感谢您的无私精神...
作者:
a123354
时间:
2020-9-25 15:06
碉堡了!
作者:
徐少
时间:
2020-9-25 15:13
学习了！！！！
作者:
火狐
时间:
2020-9-25 15:19
谢谢楼主的辛苦分享
作者:
养猪大户
时间:
2020-9-25 15:26
这个不错，谢谢共享
作者:
柠檬
时间:
2020-9-25 15:33
很不错的哦，支持，加油
作者:
我去前面探探路
时间:
2020-9-25 15:40
非常不错，感谢分享！
作者:
zxcasd123c1
时间:
2020-9-25 16:25
支持！！！！！！
作者:
唉唉唉
时间:
2020-9-25 17:11
学习一下！十分感谢
作者:
wang798403789
时间:
2020-9-25 17:56
支持一下，期待更多东西
作者:
星梦无痕
时间:
2020-9-25 18:41
期待中......
作者:
wangye263
时间:
2020-9-25 19:27
这个不错，谢谢共享
作者:
天空欣欣天下
时间:
2020-9-25 22:30
学习了！！！！
作者:
sada
时间:
2020-9-26 01:33
好像还不错！
作者:
卧槽你妹
时间:
2020-9-26 04:36
这个好好支持一下
作者:
天汇
时间:
2020-9-26 07:40
很不错的哦，支持，加油
作者:
sada
时间:
2020-9-26 10:43
支持！！！！前排！！！！
作者:
萨拉空军司令的
时间:
2020-9-26 11:40
期待中......
作者:
Hacker
时间:
2020-9-26 12:37
这个不错，谢谢共享
作者:
我去前面探探路
时间:
2020-9-26 13:34
我表示压力很大
作者:
lhq19880526
时间:
2020-9-26 14:32
必须支持。。。。。。。
作者:
徐少
时间:
2020-9-26 15:29
藕是来打酱油滴...
作者:
730422343
时间:
2020-12-20 17:31
#在这里快速回复#以前下载东西经常自动中断连接，就写了这个东西！调用了精易模块！
欢迎光临 觅风论坛 (https://www.eyyba.com/)
Powered by Discuz! X3.4