蓝牙开关
变量 K1开关 为 文本型变量 K2开关 为 文本型
变量 K3开关 为 文本型
变量 启动时间 为 长整数型
事件 主窗口.创建完毕()
列表框1.字体大小 = 10
列表框1.背景颜色=无色
标签1.背景颜色=无色
标签2.背景颜色=无色
标签3.背景颜色= &HFFF2D06C
标签4.背景颜色= &HFFF2D06C
标签5.背景颜色= &HFFF2D06C
按钮1.图片="OFF.png"
按钮2.图片="OFF.png"
按钮3.图片="OFF.png"
K1开关="1"
K2开关="1"
K3开关="1"
时钟1.时钟周期=1000
时钟1.可用=真
未连接()
判断 蓝牙1.是否存在()
分支 假
弹出提示("没有检测到蓝牙设备,程序将关闭")
结束程序()
分支 真
判断 蓝牙1.是否已开启()
分支 假
蓝牙1.开启蓝牙()
结束 判断
结束 判断
结束 事件
过程 未连接()
标签2.标题="当前状态：未连接!"
标签2.字体颜色=红色
标签2.背景颜色=黄色
结束 过程
过程 已连接()
标签2.字体颜色=黑色
标签2.背景颜色=无色
结束 过程
函数系统时间() 为 文本型
变量 当前时间字节 为 文本型
当前时间字节=取小时(取现行时间())
当前时间字节=当前时间字节 & ":" & 取分钟(取现行时间())
当前时间字节=当前时间字节 & ":" & 取秒(取现行时间())
系统时间=当前时间字节
结束 函数
事件 蓝牙1.蓝牙设置完毕(设置结果 为 整数型)
判断 设置结果
分支 1 '开启蓝牙
弹出提示("蓝牙已开启")
蓝牙1.置可被发现() '置可被发现
分支 2 '不开启蓝牙
信息框("信息","蓝牙未被开启,将退出程序","确定")
结束程序()
分支 3 '置可被发现
弹出提示("蓝牙已设置为可被发现")
蓝牙1.置工作模式(2) '蓝牙串口通信
分支 4 '不置可被发现
弹出提示("蓝牙未被设置为可被发现")
结束 判断
结束 事件
事件 按钮4.被单击()
判断 按钮4.标题
分支 "搜索设备"
列表框1.清空项目()
蓝牙1.搜索设备() '搜索设备
弹出提示("正在搜索")
分支 "断开连接"
蓝牙1.断开连接() '退出处理，释放资源，结束内部处理线程
按钮4.标题="搜索设备"
未连接()
结束 判断
结束 事件
事件 蓝牙1.发现设备(设备名称 为 文本型,设备地址 为 文本型,是否已配对 为 逻辑型)
列表框1.添加项目(设备名称 & "/" & 设备地址 & "/" & 是否已配对)
结束 事件
事件 列表框1.表项被单击(项目索引 为 整数型)
变量 设备信息 为 文本型
变量 文本数组 为 文本型()
变量 设备地址 为 文本型
蓝牙1.停止搜索()
设备信息 = 列表框1.取项目内容(项目索引)
文本数组 = 分割文本(设备信息,"/")
设备地址 = 文本数组(1)
蓝牙1.连接设备(设备地址)
弹出提示("正在连接")
结束 事件
事件 蓝牙1.连接完毕(连接结果 为 逻辑型,设备名称 为 文本型,设备地址 为 文本型,连接模式 为 整数型)
变量 设备信息 为 文本型
变量 文本数组 为 文本型()
如果 连接结果 = 真 则
标签2.标题 = "已连接：" & 设备名称 & "-" & 设备地址
已连接()
按钮4.标题="断开连接"
弹出提示("连接成功")
否则
弹出提示("连接失败")
结束 如果
结束 事件
事件 按钮1.被单击()
如果 K1开关="1" 则
蓝牙1.发送数据(十六进制到字节集("11"))
按钮1.图片="ON.png"
K1开关="0"
否则
蓝牙1.发送数据(十六进制到字节集("10"))
按钮1.图片="OFF.png"
K1开关="1"
结束 如果
结束 事件
事件 按钮2.被单击()
如果 K2开关="1" 则
蓝牙1.发送数据(十六进制到字节集("21"))
按钮2.图片="ON.png"
K2开关="0"
否则
蓝牙1.发送数据(十六进制到字节集("20"))
按钮2.图片="OFF.png"
K2开关="1"
结束 如果
结束 事件
事件 按钮3.被单击()
如果 K3开关="1" 则
蓝牙1.发送数据(十六进制到字节集("31"))
按钮3.图片="ON.png"
K3开关="0"
否则
蓝牙1.发送数据(十六进制到字节集("30"))
按钮3.图片="OFF.png"
K3开关="1"
结束 如果
结束 事件
事件 按钮5.被单击()
蓝牙1.发送数据(十六进制到字节集("00"))
按钮1.图片 = "OFF.png"
K1开关="1"
按钮2.图片 = "OFF.png"
K2开关="1"
按钮3.图片 = "OFF.png"
K3开关="1"
结束 事件
事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
如果 键代码 = 4 则
如果 取启动时间() - 启动时间 >2000 则
弹出提示("再按一次退出程序")
启动时间 = 取启动时间()
否则
结束程序()
结束 如果
否则如果 键代码 = 3则
窗口置后台()
结束 如果
结束 事件
事件 时钟1.周期事件()
标签7.标题=系统时间()
结束 事件
嘻嘻不错支持一个 还是看不懂，复杂 好像还不错！ 不错哦喜欢 嘿嘿 感觉不错 前来支持~~~~~~~~~~~~~~~~~~~ 支持你们一下下哈 不错哦喜欢 嘿嘿 期待中......