觅风论坛

标题: 蓝牙开关 [打印本页]

作者: chen1234 时间: 2019-2-25 10:29
标题: 蓝牙开关
变量 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.标题=系统时间()
结束事件

作者: sdajhdjannda 时间: 2019-2-25 10:39
嘻嘻不错支持一个

作者: 刘小凯 时间: 2019-2-25 10:49
还是看不懂，复杂

作者: 孤独 时间: 2019-2-25 10:59
好像还不错！

作者: dsdasf 时间: 2019-2-25 11:10
不错哦喜欢嘿嘿

作者: 天空欣欣天下 时间: 2019-2-25 11:20
感觉不错

作者: 张杰 时间: 2019-2-25 11:33
前来支持~~~~~~~~~~~~~~~~~~~

作者: 6360120 时间: 2019-2-25 11:47
支持你们一下下哈

作者: 图个简单 时间: 2019-2-25 12:01
不错哦喜欢嘿嘿

作者: 唉唉唉 时间: 2019-2-25 12:14
期待中......

作者: a466911461 时间: 2019-2-25 12:28
看帖子的要发表下看法

作者: asd26297 时间: 2019-2-25 13:43
学习了，这就去试试

作者: 的含税单价 时间: 2019-2-25 14:59
顶一个了

作者: 唉唉唉 时间: 2019-2-25 16:14
我表示压力很大

作者: xiaojian 时间: 2019-2-25 17:29
藕是来打酱油滴...

作者: 企鹅6655 时间: 2019-2-25 18:44
感觉不错

作者: 柠檬 时间: 2019-2-25 18:47
嘻嘻不错支持一个

作者: q12138 时间: 2019-2-25 18:49
支持，赞

作者: q12138 时间: 2019-2-25 18:51
期待中......

作者: 好萌哦 时间: 2019-2-25 18:53
藕是来打酱油滴...

作者: q12138 时间: 2019-2-25 18:55
感觉不错

作者: hui861140 时间: 2019-2-25 19:20
很给力。。。。很喜欢

作者: NUNU 时间: 2019-2-25 19:44
好像还不错！

作者: 任逍遥 时间: 2019-2-25 20:08
学习了，这就去试试

作者: 图个简单 时间: 2019-2-25 20:32
非常不错，感谢分享！

作者: 我是你爸爸 时间: 2019-2-25 20:57
赞一个!

作者: 张庆伟23 时间: 2019-2-25 21:12
学习一下！十分感谢

作者: 佳佳 时间: 2019-2-25 21:27
好像还不错！

作者: 444555 时间: 2019-2-25 21:42
不错！顶LZ

作者: qqq00123 时间: 2019-2-25 21:57
路过还不错

作者: 张庆伟23 时间: 2019-2-25 22:12
这个不错，谢谢共享

作者: few 时间: 2019-2-25 22:12
前来支持~~~~~~~~~~~~~~~~~~~

作者: li123 时间: 2019-2-25 22:13
谢谢楼主，，，收藏ing

作者: li123 时间: 2019-2-25 22:14
碉堡了!

作者: 我叫很钢 时间: 2019-2-25 22:14
必须支持。。。。。。。

作者: 360403967 时间: 2019-2-25 22:15
藕是来打酱油滴...

作者: 呜呜呜 时间: 2019-2-25 23:05
还是看不懂，复杂

作者: 无聊玩玩 时间: 2019-2-25 23:56
学习了，这就去试试

作者: 好吧你又赢了 时间: 2019-2-26 00:46
很不错的哦，支持，加油

作者: 无聊玩玩 时间: 2019-2-26 01:37
碉堡了!

作者: hgfhf 时间: 2019-2-26 02:27
感觉不错

作者: 徐少 时间: 2019-2-26 02:39
嘻嘻不错支持一个

作者: 骚年 时间: 2019-2-26 02:51
支持一下，期待更多东西

作者: 阿运 时间: 2019-2-26 03:03
支持！！！！前排！！！！

作者: lmx0618 时间: 2019-2-26 03:15
必须支持。。。。。。。

作者: 476572199 时间: 2019-2-26 03:27
藕是来打酱油滴...

作者: 桃子 时间: 2019-2-26 04:09
嘻嘻不错支持一个

作者: 好萌哦 时间: 2019-2-26 04:51
不错！顶LZ

作者: 老子 时间: 2019-2-26 05:33
我表示压力很大

作者: 好萌哦 时间: 2019-2-26 06:15
赞一个!

作者: 好萌哦 时间: 2019-2-26 06:57
藕是来打酱油滴...

作者: 444555 时间: 2019-2-26 06:59
谢谢楼主，，，收藏ing

作者: 养猪大户 时间: 2019-2-26 07:01
很给力。。。。很喜欢

作者: 444555 时间: 2019-2-26 07:03
不错！顶LZ

作者: hui861140 时间: 2019-2-26 07:06
期待中......

作者: 鸟文是帅逼 时间: 2019-2-26 07:08
我表示压力很大

欢迎光临觅风论坛 (https://www.eyyba.com/)