E4A蓝牙打印机、佳博 打印机SDK

a188518

用佳博官方SDK接口写了E4A的蓝牙热敏打印机例子。
测试机型：佳博GM322
连接类型：蓝牙
支持自定义标签内容，自定义字体、字体大小、二维码、标签内容随意移动。
借鉴火山的加载动画框组件。
重写了标签组件。
棱束链分享链接：https://www.lingshulian.com/s/134887bee46b298e

  

变量 全局标签 为 新标签
变量 全局图片框 为 图片框
变量 全局宽度 为 整数型
变量 全局高度 为 整数型
变量 type 为 逻辑型 = 假
变量 设备 为 逻辑型 = 假
变量 设备地址 为 文本型
事件 主窗口.创建完毕 ()
' 安卓6.0以上的系统需要动态申请权限,否则app可能无法正常运行
' 置状态栏颜色(标签_窗口标题.背景颜色)'E4A的设置里,窗口风格要设置为沉浸模式,此命令才能生效
主窗口layout ()
' 添加底部导航选项卡,组件的高度建议设置为32
底部导航1.背景颜色 = 白色
底部导航1.置文字颜色 (" #C0C0C0" ;)
底部导航1.置文字激活颜色 (" #00BFFF" ;)
底部导航1.置字体大小 (10)
底部导航1.添加项目 ("设计模版","btn_live.png","btn_live_selected.png")
底部导航1.添加项目 ("打印参数","btn_video.png","btn_video_selected.png")
底部导航1.添加项目 ("打印机","btn_more.png","btn_more_selected.png")
底部导航1.置现行选中项 (0)

结束 事件
事件 权限操作1.申请完毕 (权限数组 为 文本型 (),申请结果 为 整数型 ())
' 可以把需要特殊权限的代码写在此处,当申请权限成功后再执行相关代码
结束 事件
事件 底部导航1.项目被选择 (项目索引 为 整数型)
贴图框1.可视 = 假
判断 项目索引
分支 0

分支 1
布局视图1.取面板视图 (面板1,打印图片框2)
分支 2        

结束 判断
滑动页面框1.置现行页面 (项目索引)
结束 事件
变量 启动时间 为 长整数型
事件 主窗口.按下某键 (键代码 为 整数型,传址 屏蔽 为 逻辑型)
如果 键代码 = 返回键 则
如果 取启动时间 () - 启动时间 > 2000 则
启动时间 = 取启动时间 ()
弹出提示 ("2秒内按下返回键退出")
否则        
时钟1.时钟周期 = 0
结束程序 ()
结束 如果
结束 如果
结束 事件
事件 滑动页面框1.创建完毕 ()
滑动页面框1.禁止滑动 (真)
结束 事件

过程 主窗口layout ()
面板设计 = 创建 面板 位于 主窗口
设计layout ()
打印布局 ()
滑动页面框1.添加页面2 (面板设计)
滑动页面框1.添加页面2 (打印面板2)
滑动页面框1.添加页面 ("ico.png")
结束 过程
变量 面板设计 为 面板
过程 设计layout ()
面板设计.左边 = 0
面板设计.顶边 = 0
面板设计.布局 = 绝对布局
面板设计.背景颜色 = &HAA888888   
面板设计.宽度 = 取屏幕宽度 ()
面板设计.高度 = 自适应
面板1.背景图片2 = R.biaoqian
面板1.添加组件 (贴图框1)
面板设计.添加组件 (标签_窗口标题)
面板设计.添加组件 (面板1)
面板设计.添加组件 (图片框1)
面板设计.添加组件 (插入面板2)
面板设计.添加组件 (信息面板1)
面板设计.添加组件 (设计图片框2)
面板设计.添加组件 (设计图片框3)
结束 过程
过程 打印布局 ()
打印高级列表框1_1.自动拉伸高度 (真)
打印高级列表框1_1.可用 = 假
打印高级列表框1_1.宽度 = 填充父
打印高级列表框1_1.添加项目 ("ico.png","无","XX.XX.XX.XX","ic_error.png","")
打印图片框2.移动 (0,0,300,200)
打印编辑框1.宽度 = 200
打印编辑框1.高度 = 自适应
打印编辑框1.背景图片2 = R.bianjikuan
打印编辑框1.置左侧图标 ("kuan.png",取绝对像素 (30),取绝对像素 (30),取绝对像素 (1))
打印编辑框2.宽度 = 200
打印编辑框2.高度 = 自适应
打印编辑框2.背景图片2 = R.bianjikuan
打印编辑框2.置左侧图标 ("gao.png",取绝对像素 (30),取绝对像素 (30),取绝对像素 (1))
打印面板1_0.添加组件 (打印编辑框1)
打印面板1_0.添加组件 (打印编辑框2)
打印面板1_0.宽度 = 填充父
打印面板1_0.高度 = 自适应
打印编辑框3.宽度 = 200
打印编辑框3.高度 = 自适应
打印编辑框3.背景图片2 = R.bianjikuan
打印按钮1.宽度 = 200
打印按钮1.高度 = 自适应
打印标签1.宽度 = 自适应
打印标签1.高度 = 自适应
打印高级列表框1.移动 (0,0,取屏幕宽度 (),500)
打印面板2.添加组件 (打印高级列表框1_1)
打印面板2.添加组件 (打印图片框2)
打印面板2.添加组件 (打印面板1_0)
打印面板2.添加组件 (打印编辑框3)
打印面板2.添加组件 (打印按钮1)
打印面板2.添加组件 (打印标签1)
打印面板2.添加组件 (打印高级列表框1)

结束 过程
变量 图像集合 为 集合 = 创建 集合
变量 图像索引 为 整数型 = 0
事件 图像图片框1.被长按 ()
变量 图片框a 为 图片框 = 创建 图片框 位于 面板1
图片框a.左边 = 10
图片框a.顶边 = 10
图片框a.宽度 = 200
图片框a.高度 = 100
图片框a.图像 = "y01.png"
图片框a.置组件索引 (图像索引)
图像集合.加入项目 (图片框a)
图像索引 = 图像索引 + 1
图片框a.绑定事件 (图像事件监听器1)
面板1.添加组件 (图片框a)
结束 事件
事件 条码图片框1.被长按 ()
变量 条码框1 为 图片框 = 创建 图片框 位于 面板1
条码框1.左边 = 50
条码框1.顶边 = 100
条码框1.宽度 = 200
条码框1.高度 = 50
条码框1.载入字节图片 (二维码1.生成条形码 ("1234567890",400,50) )
条码框1.置组件索引 (图像索引)
图像集合.加入项目 (条码框1)
图像索引 = 图像索引 + 1
条码框1.绑定事件 (图像事件监听器1)
面板1.添加组件 (条码框1)
结束 事件
事件 二维码图片框1.被长按 ()
变量 二维码框1 为 图片框 = 创建 图片框 位于 面板1
变量 字节型a 为 字节型 () = 佳博打印机操作1.生成二维码 ("https://bbs.125.la/ & http://E4A.com & https://www.voldp.com/",500,500)
二维码框1.左边 = 100
二维码框1.顶边 = 100
二维码框1.宽度 = 200
二维码框1.高度 = 200
二维码框1.载入字节图片 ( 取图片部分 (字节型a,50,50,400,400) )
二维码框1.置组件索引 (图像索引)
图像集合.加入项目 (二维码框1)
图像索引 = 图像索引 + 1
二维码框1.绑定事件 (图像事件监听器1)
面板1.添加组件 (二维码框1)
结束 事件
变量 方框集合 为 集合 = 创建 集合
变量 方框索引 为 整数型 = 0
事件 方框图片框1.被长按 ()
变量 方框1 为  图片框 = 创建 图片框 位于 面板1
方框1.左边 = 80
方框1.顶边 = 80
方框1.宽度 = 200
方框1.高度 = 200
方框1.图像2 = R.tietu
方框1.置组件索引 (方框索引)
方框索引 = 方框索引 + 1
方框集合.加入项目 (方框1)
方框1.绑定事件 (方框事件监听器1)
面板1.添加组件 (方框1)
结束 事件
变量 编辑框集合 为 集合 = 创建 集合
变量 编辑框索引 为 整数型 = 0
事件 文本标签1.被长按 ()
变量 编辑框a 为 新标签 = 创建 新标签 位于 面板1
编辑框a.左边 = 80
编辑框a.顶边 = 200
编辑框a.宽度 = 200
编辑框a.高度 = 38
编辑框a.初始化 ( "***有限公司",白色,靠中居中)
编辑框a.置组件索引 (编辑框索引)
编辑框集合.加入项目 (编辑框a)
编辑框索引 = 编辑框索引 + 1
编辑框a.绑定事件 (编辑框事件监听器1)
面板1.添加组件 (编辑框a)

结束 事件
事件 图像事件监听器1.被单击 (组件索引 为 整数型)
全局图片框 = 图像集合.取项目 (组件索引)
贴图 (全局图片框)
type = 真
结束 事件
事件 编辑框事件监听器1.被单击 (组件索引 为 整数型)
全局标签 = 编辑框集合.取项目 (组件索引)
贴图2 (全局标签)
type = 假
结束 事件
事件 图片框1.被移动 (起点横坐标 为 整数型,起点纵坐标 为 整数型,终点横坐标 为 整数型,终点纵坐标 为 整数型)
图片框1.左边 = 终点横坐标 - 图片框1.宽度/2
图片框1.顶边 = 终点纵坐标 - 图片框1.高度/2
面板1.宽度 = 图片框1.左边 + 图片框1.宽度/2
面板1.高度 = 图片框1.顶边 + 图片框1.高度/2 - 面板1.顶边
结束 事件
事件 面板1.创建完毕 ()
面板1.添加组件 (贴图框1)
图片框1.左边 = 面板1.宽度 - 图片框1.宽度/2
图片框1.顶边 = 面板1.高度 + 面板1.顶边 - 图片框1.高度/2
图片框1.到顶层 ()
结束 事件
事件 图像事件监听器1.被移动 (组件索引 为 整数型,起点横坐标 为 整数型,起点纵坐标 为 整数型,终点横坐标 为 整数型,终点纵坐标 为 整数型)
全局图片框 = 图像集合.取项目 (组件索引)
全局图片框.左边 = 终点横坐标 - 全局图片框.宽度/2 - 面板1.左边
全局图片框.顶边 = 终点纵坐标 - 全局图片框.高度/2 - 面板1.顶边
贴图 (全局图片框)
结束 事件
事件 编辑框事件监听器1.被移动 (组件索引 为 整数型,起点横坐标 为 整数型,起点纵坐标 为 整数型,终点横坐标 为 整数型,终点纵坐标 为 整数型)
全局标签 = 编辑框集合.取项目 (组件索引)
全局标签.左边 = 终点横坐标 - 全局标签.宽度/2 - 面板1.左边
全局标签.顶边 = 终点纵坐标 - 全局标签.高度/2 - 面板1.顶边
贴图2 (全局标签)
结束 事件
事件 信息面板1.创建完毕 ()
信息编辑框1.背景颜色 = 白色
信息按钮修改.图片2 = R.bianjikuan
信息按钮删除.图片2 = R.bianjikuan
信息面板1.背景图片2 = R.miban1
信息面板1.添加组件 (信息标签1)
信息面板1.添加组件 (信息标签2)
信息面板1.添加组件 (信息标签3)
信息面板1.添加组件 (信息标签4)
信息面板1.添加组件 (信息编辑框1)
信息面板1.添加组件 (信息按钮删除)
信息面板1.添加组件 (信息按钮修改)
信息面板1.添加组件 (信息下拉列表框1)
信息面板1.添加组件 (信息下拉列表框2)
信息面板1.移动 (取屏幕宽度 (),取屏幕高度 ()*0.6,信息面板1.宽度,信息面板1.高度)
结束 事件
事件 方框事件监听器1.被单击 (组件索引 为 整数型)
全局图片框 = 方框集合.取项目 (组件索引)
全局图片框.到顶层 ()
贴图 (全局图片框)
type =真
结束 事件
事件 方框事件监听器1.被移动 (组件索引 为 整数型,起点横坐标 为 整数型,起点纵坐标 为 整数型,终点横坐标 为 整数型,终点纵坐标 为 整数型)
全局图片框 = 方框集合.取项目 (组件索引)
全局图片框.左边 = 终点横坐标 - 全局图片框.宽度/2 - 面板1.左边
全局图片框.顶边 = 终点纵坐标 - 全局图片框.高度/2 - 面板1.顶边
贴图 (全局图片框)
type = 真
结束 事件
事件 信息下拉列表框1.创建完毕 ()
变量 名称 为 文本型 = 读入资源文件 ("zhiti.txt","GBK")
变量 数组 为 文本型 () = 分割文本 (名称,",")
变量 int 为 整数型
变量循环首 int = 0 至 取数组成员数 (数组)-1 步进 1
信息下拉列表框1.添加项目 (数组 (int))
变量循环尾
结束 事件
事件 插入图片框2.被单击 ()
判断 插入图片框2.图像
分支 "navbar_icon_l_return_white.png"
插入图片框2.图像 = "navbar_icon_l_return_white2.png"        
插入面板2.移动特效 (0,- 插入面板2.宽度 + 5 ,0,0,500,假)
分支 "navbar_icon_l_return_white2.png"        
插入图片框2.图像 = "navbar_icon_l_return_white.png"        
插入面板2.左边 = 取屏幕宽度 () - 插入图片框2.宽度
结束 判断
结束 事件
事件 插入面板2.创建完毕 ()
插入图片框2.背景颜色 = &H88000000  ' 浅黑
插入面板2.背景图片2 = R.miban
插入面板2.添加组件 (图像图片框1)
插入面板2.添加组件 (条码图片框1)
插入面板2.添加组件 (二维码图片框1)
插入面板2.添加组件 (文本标签1)
插入面板2.添加组件 (方框图片框1)
插入面板2.添加组件 (插入图片框2)
插入面板2.移动 (取屏幕宽度 ()-插入图片框2.宽度,取绝对像素 (60),插入面板2.宽度,插入面板2.高度)
结束 事件
事件 插入面板2.移动特效完毕 ()
插入面板2.左边 = 取屏幕宽度 () - 插入面板2.宽度
结束 事件
事件 打印面板2.创建完毕 ()
打印面板2.移动 (0,0,取屏幕宽度 (),取屏幕高度 ())
结束 事件
事件 打印按钮1.被单击 ()
如果 设备 = 假 则
弹出提示 ("未连接打印设备？")
否则
变量 tsc标签 为 字节型 ()
佳博打印机操作1.设置标签信息 (72,45,4)
tsc标签 = 佳博打印机操作1.标签载体
tsc标签 = 合并字节集 (tsc标签,佳博打印机操作1.print_Tsc (0,0,佳博打印机操作1.取组件Bitmap (打印图片框2),到整数 (打印编辑框1.内容)*8,到整数 (打印编辑框2.内容)*8))
tsc标签 = 合并字节集 (tsc标签,文本到字节 ("PRINT "& 打印编辑框3.内容 &" \r\n","gbk"))        
新版蓝牙1.发送数据 (tsc标签)
弹出提示 ("打印中")
结束 如果
结束 事件

事件 打印高级列表框1.创建完毕 ()
打印高级列表框1.背景图片2 = R.biaoqian
打印高级列表框1.按钮宽度 = 自适应
结束 事件        

事件 打印高级列表框1.表项被单击 (项目索引 为 整数型)
如果 新版蓝牙1.是否已开启蓝牙 () = 真 则
设备地址 = 打印高级列表框1.取项目信息 (项目索引)
新版蓝牙1.连接设备 (设备地址)
否则
新版蓝牙1.开启蓝牙 ()
打印标签1.被单击 ()
结束 如果
结束 事件
事件 打印标签1.被单击 ()
打印高级列表框1.清空项目 ()
如果 权限操作1.检查权限 ("android.permission.BLUETOOTH") = 真 且 权限操作1.检查权限 ("android.permission.BLUETOOTH_ADMIN") = 真 且 _
权限操作1.检查权限 ("android.permission.INTERNET") = 真 且 权限操作1.检查权限 ("android.permission.ACCESS_NETWORK_STATE") = 真 且 _
权限操作1.检查权限 ("android.permission.ACCESS_FINE_LOCATION") = 真 且 权限操作1.检查权限 ("android.permission.ACCESS_COARSE_LOCATION") = 真 且 _
权限操作1.检查权限 ("android.permission.READ_EXTERNAL_STORAGE") = 真 则
位置传感器1.开始监测 ()
新版蓝牙1.搜索设备 ()
加载动画框1.可视度 (真)
加载动画框1.到顶层 ()
加载动画框1.移动 (0,加载动画框1.顶边,加载动画框1.宽度,加载动画框1.高度)
否则如果 信息框2 ("权限申请","APP _ 应用将获取手机的\r\n位置信息、\r\n蓝牙权限、\r\n获取设备储存、图像信息","确定","返回") = 0 则
权限操作1.申请权限 (权限操作1.取应用所需权限 (权限操作1.取自身包名 ()))
否则        
弹出提示 ("申请失败")
结束 如果
结束 事件
事件 信息下拉列表框1.表项被选择 (项目索引 为 整数型)
全局标签.自定义字体 ( 信息下拉列表框1.取项目内容 (项目索引) )
结束 事件
过程 贴图 (参数 为 图片框)
贴图框1.左边 = 参数.左边 + 参数.宽度 - 贴图框1.宽度/2
贴图框1.顶边 = 参数.顶边 + 参数.高度 - 贴图框1.高度/2
贴图框1.可视 = 真
贴图框1.到顶层 ()
信息 (参数)
结束 过程
过程 贴图2 (参数 为 新标签)
贴图框1.左边 = 参数.左边 + 参数.宽度 - 贴图框1.宽度/2
贴图框1.顶边 = 参数.顶边 + 参数.高度 - 贴图框1.高度/2
贴图框1.可视 = 真
贴图框1.到顶层 ()
信息1 (参数)
结束 过程
事件 贴图框1.被移动 (起点横坐标 为 整数型,起点纵坐标 为 整数型,终点横坐标 为 整数型,终点纵坐标 为 整数型)
判断 type
分支 假
全局标签.宽度 = 终点横坐标 - 全局标签.左边
全局标签.高度 = 终点纵坐标 - 全局标签.顶边 - 面板1.顶边
贴图框1.左边 = 全局标签.左边 + 全局标签.宽度 - 贴图框1.宽度/2
贴图框1.顶边 = 全局标签.顶边 + 全局标签.高度 - 贴图框1.高度/2

分支 真
全局图片框.宽度 = 终点横坐标 - 全局图片框.左边
全局图片框.高度 = 终点纵坐标 - 全局图片框.顶边 - 面板1.顶边
贴图框1.左边 = 全局图片框.左边 + 全局图片框.宽度 - 贴图框1.宽度/2
贴图框1.顶边 = 全局图片框.顶边 + 全局图片框.高度 - 贴图框1.高度/2

结束 判断
结束 事件
变量 蓝牙地址 为 文本型 = ""
事件 新版蓝牙1.发现设备 (名称 为 文本型,地址 为 文本型,是否已配对 为 逻辑型)
如果 是否包含 (蓝牙地址,地址) = 假 则
如果 是否已配对 = 真 则
打印高级列表框1.添加项目 ("share_copy.png",名称,地址,"","已配对")
否则
打印高级列表框1.添加项目 ("ble_hint.png",名称,地址,"","未配对")
结束 如果
蓝牙地址 = 蓝牙地址 &"," & 地址
结束 如果

结束 事件
事件 新版蓝牙1.连接成功 ()
弹出提示 ("连接成功")
设备 = 真
打印机信息 (设备)
结束 事件
事件 新版蓝牙1.连接失败 ()
弹出提示 ("连接失败")
设备 = 假
打印机信息 (设备)
结束 事件
事件 新版蓝牙1.丢失连接 ()
弹出提示 ("丢失连接")
设备 = 假
新版蓝牙1.断开连接 ()
打印机信息 (设备)
结束 事件
事件 新版蓝牙1.收到数据 (数据 为 字节型 ())
变量 str 为 文本型
str = 字节到文本 (数据,"GBK")
判断 字节集到十六进制 (数据)
分支 "00"
标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制 (数据) &"正常待机"
分支 "01"
标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制 (数据) &"开盖"
分支 "02"
标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制 (数据) &"卡纸"
分支 "03"
标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制 (数据) &"卡纸、开盖"
分支 "04"
标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制 (数据) &"缺纸"
分支 "05"
标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制 (数据) &"缺纸、开盖"
分支 "08"
标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制 (数据) &"无碳带"
分支 "09"
标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制 (数据) &"无碳带、开盖"
分支 "0A"
标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制 (数据) &"无碳带、卡纸"
分支 "0B"
标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制 (数据) &"无碳带、卡纸、开盖"
分支 "0C"
标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制 (数据) &"无碳带、缺纸"
分支 "0D"
标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制 (数据) &"无碳带、缺纸、开盖"
分支 "10"
标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制 (数据) &"暂停打印"
分支 "20"
标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制 (数据) &"正在打印"
分支 "80"
标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制 (数据) &"其他错误 "
分支 否则        
标签_窗口标题.标题 = "接受到信息：@@："& str
结束 判断

结束 事件
事件 新版蓝牙1.搜索完毕 ()
蓝牙地址 = ""
弹出提示 ("搜索完毕")
加载动画框1.移动 (取屏幕宽度 (),加载动画框1.顶边,加载动画框1.宽度,加载动画框1.高度)
结束 事件
事件 标签_窗口标题.被单击 ()
标签_窗口标题.标题 = "E4A_printer"
结束 事件
过程 信息 (对象1 为 图片框)
信息标签4.标题 = "图片框"
如果 佳博打印机操作1.识别二维码 (佳博打印机操作1.取组件Bitmap (对象1)) = "" 则
信息编辑框1.内容 = 对象1.图像
信息按钮修改.可用 = 假
信息按钮修改.可视 = 假
信息按钮删除.可用 = 假
信息按钮删除.可视 = 假
否则        
信息编辑框1.内容 = 佳博打印机操作1.识别二维码 (佳博打印机操作1.取组件Bitmap (对象1))
信息按钮修改.可用 = 真
信息按钮修改.可视 = 真
信息按钮删除.可用 = 真
信息按钮删除.可视 = 真
结束 如果
信息下拉列表框1.可视 = 假
信息下拉列表框1.可用 = 假
信息下拉列表框2.可视 = 假
信息下拉列表框2.可用 = 假
信息面板1.移动 (取绝对像素 (5),信息面板1.顶边,信息面板1.宽度,信息面板1.高度)
结束 过程
过程 信息1 (对象1 为 新标签)
信息标签4.标题 = "编辑框"
信息编辑框1.内容 = 对象1.标题
信息下拉列表框1.可视 = 真
信息下拉列表框1.可用 = 真
信息下拉列表框2.可视 = 真
信息下拉列表框2.可用 = 真
信息按钮修改.可用 = 真
信息按钮修改.可视 = 真
信息按钮删除.可用 = 真
信息按钮删除.可视 = 真
信息面板1.移动 (取绝对像素 (5),信息面板1.顶边,信息面板1.宽度,信息面板1.高度)
结束 过程
事件 信息下拉列表框2.创建完毕 ()
信息下拉列表框2.添加项目 ("9")
信息下拉列表框2.添加项目 ("10")
信息下拉列表框2.添加项目 ("12")
信息下拉列表框2.添加项目 ("14")
信息下拉列表框2.添加项目 ("16")
信息下拉列表框2.添加项目 ("18")
信息下拉列表框2.添加项目 ("20")
结束 事件
事件 信息下拉列表框2.表项被选择 (项目索引 为 整数型)
全局标签.字体大小 = 到整数 (信息下拉列表框2.取项目内容 (项目索引))
结束 事件
事件 文本标签1.创建完毕 ()
文本标签1.初始化 ("文本",白色,靠中居中)
结束 事件
事件 信息按钮修改.被长按 ()
全局图片框.载入字节图片 ( 取图片部分 (佳博打印机操作1.生成二维码 (信息编辑框1.内容,500,500),50,50,400,400) )
弹出提示 ("已修改")
结束 事件
事件 信息按钮删除.被长按 ()
判断 type
分支 假 ' 新标签
全局标签.可视 = 假
全局标签.可用 = 假
信息编辑框1.内容 = ""
分支 真 ' 图片框        
全局图片框.可视 = 假
全局图片框.可用 = 假
信息编辑框1.内容 = ""
结束 判断
弹出提示 ("已删除")
结束 事件
过程 打印机信息 (参数 为 逻辑型)
判断 参数
分支 假
打印高级列表框1_1.置项目标题 (0,"无")
打印高级列表框1_1.置项目信息 (0,"XX.XX.XX.XX")
打印高级列表框1_1.置项目按钮图片 (0,"ic_error.png")
分支  真        
打印高级列表框1_1.置项目标题 (0,"已连接")
打印高级列表框1_1.置项目信息 (0,设备地址)
打印高级列表框1_1.置项目按钮图片 (0,"ok.png")                        
结束 判断
加载动画框1.可视度 (假)
加载动画框1.移动 (取屏幕宽度 (),加载动画框1.顶边,加载动画框1.宽度,加载动画框1.高度)
结束 过程
变量 角度 为 整数型
事件 时钟1.周期事件 ()
角度 = 角度 + 10
布局视图1.组件X轴旋转 (设计图片框2,角度)
布局视图1.组件Y轴旋转 (设计图片框3,角度)
结束 事件
事件 加载动画框1.创建完毕 ()
加载动画框1.设定指示器类型 ("圆心多层扩散渐隐")
加载动画框1.指示器颜色 (&H880000FF) ' 蓝色
加载动画框1.可视度 (假)
加载动画框1.移动 (取屏幕宽度 (),加载动画框1.顶边,加载动画框1.宽度,加载动画框1.高度)
结束 事件

        变量 全局标签 为 新标签<br />         变量 全局图片框 为 图片框<br />         变量 全局宽度 为 整数型<br />         变量 全局高度 为 整数型<br />         变量 type 为 逻辑型 = 假<br />         变量 设备 为 逻辑型 = 假<br />         变量 设备地址 为 文本型<br /> 事件 主窗口.创建完毕()<br />         '安卓6.0以上的系统需要动态申请权限,否则app可能无法正常运行<br />         '置状态栏颜色(标签_窗口标题.背景颜色)'E4A的设置里,窗口风格要设置为沉浸模式,此命令才能生效<br />         主窗口layout()<br />         '添加底部导航选项卡,组件的高度建议设置为32<br />         底部导航1.背景颜色 = 白色<br />         底部导航1.置文字颜色("#C0C0C0")<br />         底部导航1.置文字激活颜色("#00BFFF")<br />         底部导航1.置字体大小(10)<br />         底部导航1.添加项目("设计模版","btn_live.png","btn_live_selected.png")<br />         底部导航1.添加项目("打印参数","btn_video.png","btn_video_selected.png")<br />         底部导航1.添加项目("打印机","btn_more.png","btn_more_selected.png")<br />         底部导航1.置现行选中项(0)<br />         <br /> 结束 事件<br /> <br /> 事件 权限操作1.申请完毕(权限数组 为 文本型(),申请结果 为 整数型())<br />         '可以把需要特殊权限的代码写在此处,当申请权限成功后再执行相关代码<br /> 结束 事件<br /> <br /> 事件 底部导航1.项目被选择(项目索引 为 整数型)<br />         贴图框1.可视 = 假<br />         判断 项目索引<br />                 分支 0 <br />                         <br />                 分支 1<br />                         布局视图1.取面板视图(面板1,打印图片框2)<br />                 分支 2        <br />                         <br />         结束 判断 <br />         滑动页面框1.置现行页面(项目索引)<br /> 结束 事件<br /> <br /> 变量 启动时间 为 长整数型<br /> 事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)<br />         如果 键代码 = 返回键 则<br />                 如果 取启动时间() - 启动时间 > 2000 则<br />                         启动时间 = 取启动时间()<br />                         弹出提示("2秒内按下返回键退出")<br />                 否则        <br />                         时钟1.时钟周期 = 0<br />                         结束程序()<br />                 结束 如果<br />         结束 如果<br /> 结束 事件<br /> <br /> 事件 滑动页面框1.创建完毕()<br />         滑动页面框1.禁止滑动(真)<br /> 结束 事件<br />         <br /> 过程 主窗口layout()<br />         面板设计 = 创建 面板 位于 主窗口<br />         设计layout()<br />         打印布局()<br />         滑动页面框1.添加页面2(面板设计)<br />         滑动页面框1.添加页面2(打印面板2)<br />         滑动页面框1.添加页面("ico.png")<br /> 结束 过程<br /> <br />         变量 面板设计 为 面板 <br /> 过程 设计layout()<br />         面板设计.左边 = 0<br />         面板设计.顶边 = 0<br />         面板设计.布局 = 绝对布局<br />         面板设计.背景颜色 = &HAA888888   <br />         面板设计.宽度 = 取屏幕宽度()<br />         面板设计.高度 = 自适应<br />         面板1.背景图片2 = R.biaoqian<br />         面板1.添加组件(贴图框1)<br />         面板设计.添加组件(标签_窗口标题)<br />         面板设计.添加组件(面板1)<br />         面板设计.添加组件(图片框1)<br />         面板设计.添加组件(插入面板2)<br />         面板设计.添加组件(信息面板1)<br />         面板设计.添加组件(设计图片框2)<br />         面板设计.添加组件(设计图片框3)<br /> 结束 过程<br /> 过程 打印布局()<br />         打印高级列表框1_1.自动拉伸高度(真)<br />         打印高级列表框1_1.可用 = 假<br />         打印高级列表框1_1.宽度 = 填充父<br />         打印高级列表框1_1.添加项目("ico.png","无","XX.XX.XX.XX","ic_error.png","")<br />         打印图片框2.移动(0,0,300,200)<br />         打印编辑框1.宽度 = 200<br />         打印编辑框1.高度 = 自适应<br />         打印编辑框1.背景图片2 = R.bianjikuan<br />         打印编辑框1.置左侧图标("kuan.png",取绝对像素(30),取绝对像素(30),取绝对像素(1))<br />         打印编辑框2.宽度 = 200<br />         打印编辑框2.高度 = 自适应<br />         打印编辑框2.背景图片2 = R.bianjikuan<br />         打印编辑框2.置左侧图标("gao.png",取绝对像素(30),取绝对像素(30),取绝对像素(1))<br />         打印面板1_0.添加组件(打印编辑框1)<br />         打印面板1_0.添加组件(打印编辑框2)<br />         打印面板1_0.宽度 = 填充父<br />         打印面板1_0.高度 = 自适应<br />         打印编辑框3.宽度 = 200<br />         打印编辑框3.高度 = 自适应<br />         打印编辑框3.背景图片2 = R.bianjikuan<br />         打印按钮1.宽度 = 200<br />         打印按钮1.高度 = 自适应<br />         打印标签1.宽度 = 自适应<br />         打印标签1.高度 = 自适应 <br />         打印高级列表框1.移动(0,0,取屏幕宽度(),500)<br />         打印面板2.添加组件(打印高级列表框1_1)<br />         打印面板2.添加组件(打印图片框2)<br />         打印面板2.添加组件(打印面板1_0)<br />         打印面板2.添加组件(打印编辑框3)<br />         打印面板2.添加组件(打印按钮1)<br />         打印面板2.添加组件(打印标签1)<br />         打印面板2.添加组件(打印高级列表框1)<br />         <br /> 结束 过程<br /> <br />         变量 图像集合 为 集合 = 创建 集合<br />         变量 图像索引 为 整数型 = 0<br /> 事件 图像图片框1.被长按()<br />         变量 图片框a 为 图片框 = 创建 图片框 位于 面板1<br />         图片框a.左边 = 10<br />         图片框a.顶边 = 10<br />         图片框a.宽度 = 200<br />         图片框a.高度 = 100<br />         图片框a.图像 = "y01.png"<br />         图片框a.置组件索引(图像索引)<br />         图像集合.加入项目(图片框a)<br />         图像索引 = 图像索引 + 1 <br />         图片框a.绑定事件(图像事件监听器1)<br />         面板1.添加组件(图片框a)<br /> 结束 事件<br /> <br /> 事件 条码图片框1.被长按()<br />         变量 条码框1 为 图片框 = 创建 图片框 位于 面板1<br />         条码框1.左边 = 50<br />         条码框1.顶边 = 100<br />         条码框1.宽度 = 200<br />         条码框1.高度 = 50<br />         条码框1.载入字节图片(二维码1.生成条形码("1234567890",400,50) )<br />         条码框1.置组件索引(图像索引)<br />         图像集合.加入项目(条码框1)<br />         图像索引 = 图像索引 + 1<br />         条码框1.绑定事件(图像事件监听器1)<br />         面板1.添加组件(条码框1)<br /> 结束 事件<br /> <br /> 事件 二维码图片框1.被长按()<br />         变量 二维码框1 为 图片框 = 创建 图片框 位于 面板1<br />         变量 字节型a 为 字节型() = 佳博打印机操作1.生成二维码("https://bbs.125.la/ & http://E4A.com & https://www.voldp.com/",500,500)<br />         二维码框1.左边 = 100<br />         二维码框1.顶边 = 100<br />         二维码框1.宽度 = 200<br />         二维码框1.高度 = 200<br />         二维码框1.载入字节图片( 取图片部分(字节型a,50,50,400,400) )<br />         二维码框1.置组件索引(图像索引)<br />         图像集合.加入项目(二维码框1)<br />         图像索引 = 图像索引 + 1<br />         二维码框1.绑定事件(图像事件监听器1)<br />         面板1.添加组件(二维码框1)<br /> 结束 事件<br />         变量 方框集合 为 集合 = 创建 集合<br />         变量 方框索引 为 整数型 = 0<br /> 事件 方框图片框1.被长按()<br />         变量 方框1 为  图片框 = 创建 图片框 位于 面板1<br />         方框1.左边 = 80<br />         方框1.顶边 = 80<br />         方框1.宽度 = 200<br />         方框1.高度 = 200<br />         方框1.图像2 = R.tietu<br />         方框1.置组件索引(方框索引)<br />         方框索引 = 方框索引 + 1<br />         方框集合.加入项目(方框1)<br />         方框1.绑定事件(方框事件监听器1)<br />         面板1.添加组件(方框1)<br /> 结束 事件<br /> <br />         变量 编辑框集合 为 集合 = 创建 集合<br />         变量 编辑框索引 为 整数型 = 0<br /> 事件 文本标签1.被长按()<br />         变量 编辑框a 为 新标签 = 创建 新标签 位于 面板1<br />         编辑框a.左边 = 80<br />         编辑框a.顶边 = 200<br />         编辑框a.宽度 = 200<br />         编辑框a.高度 = 38<br />         编辑框a.初始化( "***有限公司",白色,靠中居中)<br />         编辑框a.置组件索引(编辑框索引)<br />         编辑框集合.加入项目(编辑框a)<br />         编辑框索引 = 编辑框索引 + 1 <br />         编辑框a.绑定事件(编辑框事件监听器1)<br />         面板1.添加组件(编辑框a)<br />         <br /> 结束 事件<br /> <br /> 事件 图像事件监听器1.被单击(组件索引 为 整数型)<br />         全局图片框 = 图像集合.取项目(组件索引)<br />         贴图(全局图片框)<br />         type = 真<br /> 结束 事件<br /> <br /> 事件 编辑框事件监听器1.被单击(组件索引 为 整数型)<br />         全局标签 = 编辑框集合.取项目(组件索引)<br />         贴图2(全局标签)<br />         type = 假<br /> 结束 事件<br /> <br /> 事件 图片框1.被移动(起点横坐标 为 整数型,起点纵坐标 为 整数型,终点横坐标 为 整数型,终点纵坐标 为 整数型)<br />         图片框1.左边 = 终点横坐标 - 图片框1.宽度/2<br />         图片框1.顶边 = 终点纵坐标 - 图片框1.高度/2<br />         面板1.宽度 = 图片框1.左边 + 图片框1.宽度/2<br />         面板1.高度 = 图片框1.顶边 + 图片框1.高度/2 - 面板1.顶边<br /> 结束 事件<br /> <br /> 事件 面板1.创建完毕()<br />         面板1.添加组件(贴图框1)<br />         图片框1.左边 = 面板1.宽度 - 图片框1.宽度/2<br />         图片框1.顶边 = 面板1.高度 + 面板1.顶边 - 图片框1.高度/2<br />         图片框1.到顶层()<br /> 结束 事件<br /> <br /> 事件 图像事件监听器1.被移动(组件索引 为 整数型,起点横坐标 为 整数型,起点纵坐标 为 整数型,终点横坐标 为 整数型,终点纵坐标 为 整数型)<br />         全局图片框 = 图像集合.取项目(组件索引)<br />         全局图片框.左边 = 终点横坐标 - 全局图片框.宽度/2 - 面板1.左边<br />         全局图片框.顶边 = 终点纵坐标 - 全局图片框.高度/2 - 面板1.顶边<br />         贴图(全局图片框)<br /> 结束 事件<br /> <br /> 事件 编辑框事件监听器1.被移动(组件索引 为 整数型,起点横坐标 为 整数型,起点纵坐标 为 整数型,终点横坐标 为 整数型,终点纵坐标 为 整数型)<br />         全局标签 = 编辑框集合.取项目(组件索引)<br />         全局标签.左边 = 终点横坐标 - 全局标签.宽度/2 - 面板1.左边<br />         全局标签.顶边 = 终点纵坐标 - 全局标签.高度/2 - 面板1.顶边<br />         贴图2(全局标签)<br /> 结束 事件<br /> <br /> 事件 信息面板1.创建完毕()<br />         信息编辑框1.背景颜色 = 白色<br />         信息按钮修改.图片2 = R.bianjikuan<br />         信息按钮删除.图片2 = R.bianjikuan<br />         信息面板1.背景图片2 = R.miban1<br />         信息面板1.添加组件(信息标签1)<br />         信息面板1.添加组件(信息标签2)<br />         信息面板1.添加组件(信息标签3)<br />         信息面板1.添加组件(信息标签4)<br />         信息面板1.添加组件(信息编辑框1)<br />         信息面板1.添加组件(信息按钮删除)<br />         信息面板1.添加组件(信息按钮修改)<br />         信息面板1.添加组件(信息下拉列表框1)<br />         信息面板1.添加组件(信息下拉列表框2)<br />         信息面板1.移动(取屏幕宽度(),取屏幕高度()*0.6,信息面板1.宽度,信息面板1.高度)<br /> 结束 事件<br /> <br /> 事件 方框事件监听器1.被单击(组件索引 为 整数型)<br />         全局图片框 = 方框集合.取项目(组件索引)<br />         全局图片框.到顶层()<br />         贴图(全局图片框)<br />         type =真<br /> 结束 事件<br /> <br /> 事件 方框事件监听器1.被移动(组件索引 为 整数型,起点横坐标 为 整数型,起点纵坐标 为 整数型,终点横坐标 为 整数型,终点纵坐标 为 整数型)<br />         全局图片框 = 方框集合.取项目(组件索引)<br />         全局图片框.左边 = 终点横坐标 - 全局图片框.宽度/2 - 面板1.左边<br />         全局图片框.顶边 = 终点纵坐标 - 全局图片框.高度/2 - 面板1.顶边<br />         贴图(全局图片框)<br />         type = 真<br /> 结束 事件<br /> <br /> 事件 信息下拉列表框1.创建完毕()<br />         变量 名称 为 文本型 = 读入资源文件("zhiti.txt","GBK")<br />         变量 数组 为 文本型() = 分割文本(名称,",")<br />         变量 int 为 整数型<br />         变量循环首 int = 0 至 取数组成员数(数组)-1 步进 1 <br />                 信息下拉列表框1.添加项目(数组(int))<br />         变量循环尾<br /> 结束 事件<br /> <br /> 事件 插入图片框2.被单击()<br />         判断 插入图片框2.图像<br />                 分支 "navbar_icon_l_return_white.png"<br />                         插入图片框2.图像 = "navbar_icon_l_return_white2.png"        <br />                         插入面板2.移动特效(0,- 插入面板2.宽度 + 5 ,0,0,500,假)<br />                 分支 "navbar_icon_l_return_white2.png"        <br />                         插入图片框2.图像 = "navbar_icon_l_return_white.png"        <br />                         插入面板2.左边 = 取屏幕宽度() - 插入图片框2.宽度<br />         结束 判断 <br /> 结束 事件<br /> <br /> 事件 插入面板2.创建完毕()<br />         插入图片框2.背景颜色 = &H88000000  '浅黑<br />         插入面板2.背景图片2 = R.miban<br />         插入面板2.添加组件(图像图片框1)<br />         插入面板2.添加组件(条码图片框1)<br />         插入面板2.添加组件(二维码图片框1)<br />         插入面板2.添加组件(文本标签1)<br />         插入面板2.添加组件(方框图片框1)<br />         插入面板2.添加组件(插入图片框2)<br />         插入面板2.移动(取屏幕宽度()-插入图片框2.宽度,取绝对像素(60),插入面板2.宽度,插入面板2.高度)<br /> 结束 事件<br /> <br /> 事件 插入面板2.移动特效完毕()<br />         插入面板2.左边 = 取屏幕宽度() - 插入面板2.宽度<br /> 结束 事件<br /> <br /> 事件 打印面板2.创建完毕()<br />         打印面板2.移动(0,0,取屏幕宽度(),取屏幕高度())<br /> 结束 事件<br /> <br /> 事件 打印按钮1.被单击()<br />         如果 设备 = 假 则<br />                 弹出提示("未连接打印设备？")<br />         否则<br />                 变量 tsc标签 为 字节型()<br />                 佳博打印机操作1.设置标签信息(72,45,4)<br />                 tsc标签 = 佳博打印机操作1.标签载体<br />                 tsc标签 = 合并字节集(tsc标签,佳博打印机操作1.print_Tsc(0,0,佳博打印机操作1.取组件Bitmap(打印图片框2),到整数(打印编辑框1.内容)*8,到整数(打印编辑框2.内容)*8))<br />                 tsc标签 = 合并字节集(tsc标签,文本到字节("PRINT "& 打印编辑框3.内容 &" \r\n","gbk"))        <br />                 新版蓝牙1.发送数据(tsc标签)<br />                 弹出提示("打印中")<br />         结束 如果<br /> 结束 事件<br />         <br /> 事件 打印高级列表框1.创建完毕()<br />         打印高级列表框1.背景图片2 = R.biaoqian<br />         打印高级列表框1.按钮宽度 = 自适应<br /> 结束 事件        <br />         <br /> 事件 打印高级列表框1.表项被单击(项目索引 为 整数型)<br />         如果 新版蓝牙1.是否已开启蓝牙() = 真 则<br />                 设备地址 = 打印高级列表框1.取项目信息(项目索引)<br />                 新版蓝牙1.连接设备(设备地址)<br />         否则<br />                 新版蓝牙1.开启蓝牙()<br />                 打印标签1.被单击()<br />         结束 如果<br /> 结束 事件<br /> <br /> 事件 打印标签1.被单击()<br />         打印高级列表框1.清空项目()<br />         如果 权限操作1.检查权限("android.permission.BLUETOOTH") = 真 且 权限操作1.检查权限("android.permission.BLUETOOTH_ADMIN") = 真 且 _<br />                         权限操作1.检查权限("android.permission.INTERNET") = 真 且 权限操作1.检查权限("android.permission.ACCESS_NETWORK_STATE") = 真 且 _<br />                         权限操作1.检查权限("android.permission.ACCESS_FINE_LOCATION") = 真 且 权限操作1.检查权限("android.permission.ACCESS_COARSE_LOCATION") = 真 且 _<br />                         权限操作1.检查权限("android.permission.READ_EXTERNAL_STORAGE") = 真 则<br />                 位置传感器1.开始监测()<br />                 新版蓝牙1.搜索设备()<br />                 加载动画框1.可视度(真)<br />                 加载动画框1.到顶层()<br />                 加载动画框1.移动(0,加载动画框1.顶边,加载动画框1.宽度,加载动画框1.高度)<br />         否则如果 信息框2("权限申请","APP _ 应用将获取手机的\r\n位置信息、\r\n蓝牙权限、\r\n获取设备储存、图像信息","确定","返回") = 0 则 <br />                 权限操作1.申请权限(权限操作1.取应用所需权限(权限操作1.取自身包名()))<br />         否则        <br />                 弹出提示("申请失败")<br />         结束 如果<br /> 结束 事件<br /> <br /> 事件 信息下拉列表框1.表项被选择(项目索引 为 整数型)<br />         全局标签.自定义字体( 信息下拉列表框1.取项目内容(项目索引) )<br /> 结束 事件<br /> <br /> 过程 贴图(参数 为 图片框)<br />         贴图框1.左边 = 参数.左边 + 参数.宽度 - 贴图框1.宽度/2<br />         贴图框1.顶边 = 参数.顶边 + 参数.高度 - 贴图框1.高度/2<br />         贴图框1.可视 = 真<br />         贴图框1.到顶层()<br />         信息(参数)<br /> 结束 过程<br /> 过程 贴图2(参数 为 新标签)<br />         贴图框1.左边 = 参数.左边 + 参数.宽度 - 贴图框1.宽度/2<br />         贴图框1.顶边 = 参数.顶边 + 参数.高度 - 贴图框1.高度/2<br />         贴图框1.可视 = 真<br />         贴图框1.到顶层()<br />         信息1(参数)<br /> 结束 过程<br /> <br /> 事件 贴图框1.被移动(起点横坐标 为 整数型,起点纵坐标 为 整数型,终点横坐标 为 整数型,终点纵坐标 为 整数型)<br />         判断 type <br />                 分支 假<br />                         全局标签.宽度 = 终点横坐标 - 全局标签.左边<br />                         全局标签.高度 = 终点纵坐标 - 全局标签.顶边 - 面板1.顶边<br />                         贴图框1.左边 = 全局标签.左边 + 全局标签.宽度 - 贴图框1.宽度/2<br />                         贴图框1.顶边 = 全局标签.顶边 + 全局标签.高度 - 贴图框1.高度/2 <br />                         <br />                 分支 真<br />                         全局图片框.宽度 = 终点横坐标 - 全局图片框.左边<br />                         全局图片框.高度 = 终点纵坐标 - 全局图片框.顶边 - 面板1.顶边<br />                         贴图框1.左边 = 全局图片框.左边 + 全局图片框.宽度 - 贴图框1.宽度/2<br />                         贴图框1.顶边 = 全局图片框.顶边 + 全局图片框.高度 - 贴图框1.高度/2 <br />                         <br />         结束 判断<br /> <br /> 结束 事件<br /> <br /> 变量 蓝牙地址 为 文本型 = ""<br /> 事件 新版蓝牙1.发现设备(名称 为 文本型,地址 为 文本型,是否已配对 为 逻辑型)<br />         如果 是否包含(蓝牙地址,地址) = 假 则<br />                 如果 是否已配对 = 真 则<br />                         打印高级列表框1.添加项目("share_copy.png",名称,地址,"","已配对")<br />                 否则<br />                         打印高级列表框1.添加项目("ble_hint.png",名称,地址,"","未配对")<br />                 结束 如果 <br />                 蓝牙地址 = 蓝牙地址 &"," & 地址<br />         结束 如果<br />         <br /> 结束 事件<br /> <br /> 事件 新版蓝牙1.连接成功()<br />         弹出提示("连接成功")<br />         设备 = 真<br />         打印机信息(设备)<br /> 结束 事件<br /> <br /> 事件 新版蓝牙1.连接失败()<br />         弹出提示("连接失败")<br />         设备 = 假<br />         打印机信息(设备)<br /> 结束 事件<br /> <br /> 事件 新版蓝牙1.丢失连接()<br />         弹出提示("丢失连接")<br />         设备 = 假<br />         新版蓝牙1.断开连接()<br />         打印机信息(设备)<br /> 结束 事件<br /> <br /> 事件 新版蓝牙1.收到数据(数据 为 字节型())<br />         变量 str 为 文本型<br />         str = 字节到文本(数据,"GBK")<br />         判断 字节集到十六进制(数据) <br />                 分支 "00"<br />                         标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制(数据) &"正常待机"<br />                 分支 "01"<br />                         标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制(数据) &"开盖"<br />                 分支 "02"<br />                         标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制(数据) &"卡纸"<br />             分支 "03"<br />                         标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制(数据) &"卡纸、开盖"<br />                 分支 "04"<br />                         标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制(数据) &"缺纸"<br />                 分支 "05"<br />                         标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制(数据) &"缺纸、开盖"<br />                  分支 "08"<br />                         标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制(数据) &"无碳带"<br />                 分支 "09"<br />                         标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制(数据) &"无碳带、开盖"<br />                 分支 "0A"<br />                         标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制(数据) &"无碳带、卡纸"<br />                 分支 "0B"<br />                         标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制(数据) &"无碳带、卡纸、开盖"<br />                 分支 "0C"<br />                         标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制(数据) &"无碳带、缺纸"<br />                 分支 "0D"<br />                         标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制(数据) &"无碳带、缺纸、开盖"<br />                 分支 "10"<br />                         标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制(数据) &"暂停打印"<br />                 分支 "20"<br />                         标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制(数据) &"正在打印"<br />                 分支 "80"<br />                         标签_窗口标题.标题 = "接收到信息： "& 字节集到十六进制(数据) &"其他错误 "<br />                 分支 否则        <br />                         标签_窗口标题.标题 = "接受到信息：@@："& str<br />         结束 判断<br />         <br /> 结束 事件<br /> <br /> 事件 新版蓝牙1.搜索完毕()<br />         蓝牙地址 = ""<br />         弹出提示("搜索完毕")<br />         加载动画框1.移动(取屏幕宽度(),加载动画框1.顶边,加载动画框1.宽度,加载动画框1.高度)<br /> 结束 事件<br /> <br /> 事件 标签_窗口标题.被单击()<br />         标签_窗口标题.标题 = "E4A_printer"<br /> 结束 事件<br /> <br /> 过程 信息(对象1 为 图片框)<br />         信息标签4.标题 = "图片框"<br />         如果 佳博打印机操作1.识别二维码(佳博打印机操作1.取组件Bitmap(对象1)) = "" 则<br />                 信息编辑框1.内容 = 对象1.图像<br />                 信息按钮修改.可用 = 假<br />                 信息按钮修改.可视 = 假<br />                 信息按钮删除.可用 = 假<br />                 信息按钮删除.可视 = 假<br />         否则        <br />                 信息编辑框1.内容 = 佳博打印机操作1.识别二维码(佳博打印机操作1.取组件Bitmap(对象1))<br />                 信息按钮修改.可用 = 真<br />                 信息按钮修改.可视 = 真<br />                 信息按钮删除.可用 = 真<br />                 信息按钮删除.可视 = 真<br />         结束 如果<br />         信息下拉列表框1.可视 = 假<br />         信息下拉列表框1.可用 = 假<br />         信息下拉列表框2.可视 = 假<br />         信息下拉列表框2.可用 = 假<br />         信息面板1.移动(取绝对像素(5),信息面板1.顶边,信息面板1.宽度,信息面板1.高度)<br /> 结束 过程<br /> 过程 信息1(对象1 为 新标签)<br />         信息标签4.标题 = "编辑框"<br />         信息编辑框1.内容 = 对象1.标题<br />         信息下拉列表框1.可视 = 真<br />         信息下拉列表框1.可用 = 真<br />         信息下拉列表框2.可视 = 真<br />         信息下拉列表框2.可用 = 真<br />         信息按钮修改.可用 = 真<br />         信息按钮修改.可视 = 真<br />         信息按钮删除.可用 = 真<br />         信息按钮删除.可视 = 真<br />         信息面板1.移动(取绝对像素(5),信息面板1.顶边,信息面板1.宽度,信息面板1.高度)<br /> 结束 过程<br /> <br /> 事件 信息下拉列表框2.创建完毕()<br />         信息下拉列表框2.添加项目("9")<br />         信息下拉列表框2.添加项目("10")<br />         信息下拉列表框2.添加项目("12")<br />         信息下拉列表框2.添加项目("14")<br />         信息下拉列表框2.添加项目("16")<br />         信息下拉列表框2.添加项目("18")<br />         信息下拉列表框2.添加项目("20")<br /> 结束 事件<br /> <br /> 事件 信息下拉列表框2.表项被选择(项目索引 为 整数型)<br />         全局标签.字体大小 = 到整数(信息下拉列表框2.取项目内容(项目索引))<br /> 结束 事件<br /> <br /> 事件 文本标签1.创建完毕()<br />         文本标签1.初始化("文本",白色,靠中居中)<br /> 结束 事件<br /> <br /> 事件 信息按钮修改.被长按()<br />         全局图片框.载入字节图片( 取图片部分(佳博打印机操作1.生成二维码(信息编辑框1.内容,500,500),50,50,400,400) )<br />         弹出提示("已修改")<br /> 结束 事件<br /> <br /> 事件 信息按钮删除.被长按()<br />         判断 type<br />                 分支 假 ' 新标签 <br />                         全局标签.可视 = 假<br />                         全局标签.可用 = 假<br />                         信息编辑框1.内容 = ""<br />                 分支 真 '图片框        <br />                         全局图片框.可视 = 假<br />                         全局图片框.可用 = 假<br />                         信息编辑框1.内容 = ""<br />         结束 判断<br />         弹出提示("已删除")<br /> 结束 事件<br /> <br /> 过程 打印机信息(参数 为 逻辑型)<br />         判断 参数<br />                 分支 假<br />                         打印高级列表框1_1.置项目标题(0,"无")<br />                         打印高级列表框1_1.置项目信息(0,"XX.XX.XX.XX")<br />                         打印高级列表框1_1.置项目按钮图片(0,"ic_error.png")<br />                 分支  真        <br />                         打印高级列表框1_1.置项目标题(0,"已连接")<br />                         打印高级列表框1_1.置项目信息(0,设备地址)<br />                         打印高级列表框1_1.置项目按钮图片(0,"ok.png")                        <br />         结束 判断<br />         加载动画框1.可视度(假)<br />         加载动画框1.移动(取屏幕宽度(),加载动画框1.顶边,加载动画框1.宽度,加载动画框1.高度)<br /> 结束 过程<br /> <br /> 变量 角度 为 整数型<br /> 事件 时钟1.周期事件()<br />         角度 = 角度 + 10<br />         布局视图1.组件X轴旋转(设计图片框2,角度)<br />         布局视图1.组件Y轴旋转(设计图片框3,角度)<br /> 结束 事件<br /> <br /> 事件 加载动画框1.创建完毕()<br />         加载动画框1.设定指示器类型("圆心多层扩散渐隐")<br />         加载动画框1.指示器颜色(&H880000FF) '蓝色<br />         加载动画框1.可视度(假)<br />         加载动画框1.移动(取屏幕宽度(),加载动画框1.顶边,加载动画框1.宽度,加载动画框1.高度)<br /> 结束 事件

loop123

楼主,分享实现方法给大家参考一下,

loop123

期待源码文件的出现

误入兰若寺

学习了   支持楼主

loop123

E4A越来越强大了

非常猥锁

E4A都不更新，卖人套现了

曜辉

这代码量,可以了

mengqiu

期待源码文件的出现