蓝牙开关

变量 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.标题=系统时间()
结束 事件

嘻嘻不错支持一个

还是看不懂，复杂

好像还不错！

不错哦  喜欢 嘿嘿

感觉不错

前来支持~~~~~~~~~~~~~~~~~~~

支持你们一下下哈

不错哦  喜欢 嘿嘿

期待中......