没有合适的资源?快使用搜索试试~ 我知道了~
2021-7-11-RSL10应用赛-数显表改造项目手机APP源码.docx
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 45 浏览量
2021-11-10
16:18:46
上传
评论
收藏 21KB DOCX 举报
温馨提示
试读
13页
2021-7-11-RSL10应用赛-数显表改造项目手机APP源码.docx
资源推荐
资源详情
资源评论
事件 主窗口.创建完毕()
如果 权限操作 1.取系统版本号()>=23 则
权限操作 1.申请全部权限() '必须先申请权限
结束 如果
变量 结果 为 逻辑型
结果 = BLE 蓝牙 1.初始化()
' 弹出提示("初始化结果:" & 结果)
编辑框 1.内容="蓝牙初始化结果:" & 结果
' 主窗口.标题 = "蓝牙初始化结果:" & 结果
BLE 蓝牙 1.置可被发现()
标签 1.背景颜色 =&HFF0088FF'&HFF808080'红色
标签 2.背景颜色 = &HFF808080'绿色
标签 3.背景颜色 = &HFF808080'蓝色
标签 2.可视 = 假
标签 3.可视 = 假
下拉列表框 1.添加项目("mA")
下拉列表框 1.添加项目("KPa")
下拉列表框 1.添加项目("MPa")
下拉列表框 1.添加项目("Bar")
下拉列表框 1.添加项目(" ")℃
仪表数据 = "55 0E 00 00 00 00 03 E8 01 00 00 34 2A 28 0B 00 "
变量循环首 仪表计次 = 0 至 15
仪表数组 = 分割文本(仪表数据," ")
变量循环尾
列表框索引 = 0
如果 下拉列表框 1.取项目内容(列表框索引) = "mA" 则
仪表数组(3) = "05"
否则
仪表数组(3) = "00"
结束 如果
结束 事件
事件 权限操作 1.申请完毕(权限数组 为 文本型(),申请结果 为 整数型())
' 如果 权限操作 1.检查权限("android.permission.BLUETOOTH") = 真 且 权限操作 1.检查权
限 ("android.permission.BLUETOOTH_ADMIN") = 真 且 权 限 操 作 1. 检 查 权 限
("android.permission.READ_PHONE_STATE") = 真 则
' 初始化蓝牙()
' 否则
' 信息框("信息","蓝牙权限没有开启,请在应用的权限设置页面开启蓝牙权限!","确
定")
' 权限操作 1.打开权限设置()
' 结束 如果
结束 事件
变量 蓝牙名称 为 文本型
变量 蓝牙地址 为 文本型
事件 BLE 蓝牙 1.发现设备(名称 为 文本型,地址 为 文本型,MajorID 为 整数型,MinorID 为 整
数型,配对状态 为 整数型)
' 弹出提示("发现设备")--"RSL10_Jul05_7905"
列表框 1.添加项目("名称:" & 名称 & "\n 地址:" & 地址)
列表框 1.置项目标记(列表框 1.取项目数()-1,地址)
蓝牙名称 = 编辑框 3.内容
如果 名称 = 蓝牙名称 则
蓝牙名称 = 名称
蓝牙地址 = 地址
BLE 蓝牙 1.连接设备(蓝牙地址)
' 弹出提示("正在连接:RSL10_Jul05_7905")
编辑框 1.内容 = "正在连接:" & 蓝牙地址
分组列表框 1.清空所有数据()
结束 如果
结束 事件
事件 BLE 蓝牙 1.信号强度改变(名称 为 文本型,地址 为 文本型,信号强度 为 整数型)
变量 计次 为 整数型
变量 文本数组 为 文本型()'变量 通道数据改变 为 文本型
变量循环首 计次 = 0 至 列表框 1.取项目数()-1
文本数组 = 分割文本(列表框 1.取项目内容(计次),"\n")
如果 文本数组(1) = "地址:" & 地址 则
列表框 1.置项目内容(计次,"名称:" & 名称 & "\n 地址:" & 地址 & "\n 信
号:" & 信号强度)
退出
结束 如果
变量循环尾
结束 事件
事件 按钮 1.被单击()
位置传感器 1.开始监测() '在新版的安卓系统中,必须开启 GPS 定位才能搜索到蓝牙设备
列表框 1.清空项目()
BLE 蓝牙 1.开始搜索() '搜索设备
' 弹出提示("正在搜索")
主窗口.标题 = "正在搜索..."
如果 按钮 1.标题 = "搜索仪表" 则
列表框 1.清空项目()
' 位置传感器 1.开始监测() '在某些安卓系统中,必须先进行 GPS 定位才能搜索到蓝牙
设备
' BLE 蓝牙 1.开始搜索()
时钟 1.时钟周期 = 3 * 1000
按钮 1.标题 = "正在搜索"
按钮 1.字体颜色 = 红色
否则
BLE 蓝牙 1.停止搜索()
时钟 1.时钟周期 = 0
按钮 1.标题 = "搜索仪表"
按钮 1.字体颜色 = 黑色
结束 如果
结束 事件
事件 BLE 蓝牙 1.连接状态改变(状态 为 整数型)
如果 状态 = 1 则
弹出提示("已连接" & 蓝牙名称)
主窗口.标题 = "已连接:" & 蓝牙名称
否则
弹出提示("已断开" & 蓝牙名称)
主窗口.标题 = "已断开:" & 蓝牙名称
结束 如果
结束 事件
'事件 列表框 1.表项被单击(项目索引 为 整数型)
' 变量 设备地址 为 文本型
' 设备地址 = 列表框 1.取项目标记(项目索引)
' 蓝牙 1.连接设备(设备地址)'连接设备
' 弹出提示("正在连接:" & 设备地址)
'结束 事件
事件 列表框 1.表项被单击(项目索引 为 整数型)
BLE 蓝牙 1.连接设备(列表框 1.取项目标记(项目索引))
弹出提示("正在连接")
编辑框 1.内容 = "正在连接"
分组列表框 1.清空所有数据()
结束 事件
事件 BLE 蓝牙 1.发现服务(服务信息 为 集合)
如果 服务信息.取项目总数() < 0 则
退出
结束 如果
变量 计次 为 整数型
变量 信息数组 为 文本型()
变量 分组索引 为 整数型
变量 计次 2 为 整数型
变量 通道属性 为 文本型
' 弹出提示("发现服务")
剩余12页未读,继续阅读
资源评论
BigYijianfeihong
- 粉丝: 2
- 资源: 6317
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功