变量 W 为 逻辑型
变量 X 为 整数型
变量 Y 为 整数型
变量 AX 为 整数型
变量 BX 为 整数型
变量 TX1 为 整数型
变量 Z1 为 整数型
事件 主窗口.创建完毕()
如果 创建目录(取存储卡路径()&"/二维码") 则
弹出提示(取存储卡路径()&"/二维码")
否则
弹出提示(" 创建目录失败")
结束 如果
清空()
W=假
结束 事件
事件 按钮1.被单击()
二维码1.置连续扫描(W)
二维码1.置扫描框样式(1)
二维码1.开始扫描()
结束 事件
事件 二维码1.扫描完毕(扫描结果 为 文本型)
如果 扫描结果<>编辑框1.内容 则
Z1=Z1+1
标签5.标题="已扫描"&到文本(Z1)&"个"
编辑框1.内容=扫描结果
画板1.画字节图片(二维码1.生成二维码(扫描结果,TX1,TX1),AX,BX)
画板1.画文字(X,Y,扫描结果)
AX=AX+TX1
X=X+TX1
如果 AX >= TX1*11 则
BX=BX+TX1
Y=Y+TX1
X=到整数(编辑框3.内容)
AX=0
结束 如果
如果 BX>= TX1*14 则
画板1.保存画面(取存储卡路径()&"/二维码/"&时间到文本( 取现行时间())&".png",2)
二维码1.停止扫描()
弹出提示("保存成功："&取存储卡路径()&"/二维码/"&时间到文本( 取现行时间())&".png")
结束 如果
结束 如果
结束 事件
事件 按钮2.被单击()
清空()
结束 事件
事件 按钮3.被单击()
画板1.保存画面(取存储卡路径()&"/二维码/"&时间到文本( 取现行时间())&".png",2)
弹出提示("保存成功："&取存储卡路径()&"/二维码/"&时间到文本( 取现行时间())&".png")
清空()
结束 事件
事件 按钮4.被单击()
结束程序()
结束 事件
事件 选择框1.选择改变()
W=选择框1.选中
结束 事件
过程 清空()
画板1.清空()
AX=0
BX=0
X=到整数(编辑框3.内容)
Y=到整数(编辑框4.内容)
画板1.字体大小=到整数(编辑框2.内容)
Z1=0
标签5.标题="已扫描"&到文本(Z1)&"个"
编辑框1.内容=""
结束 过程