【文件属性】:
文件名称:华亚读取工具
文件大小:17KB
文件格式:RAR
更新时间:2016-09-06 04:15:05
华亚读取工具
.版本 2
.程序集 窗口程序集1
.程序集变量 程序集_文件号, 整数型
.程序集变量 程序集_控制, 逻辑型
.程序集变量 程序集_缓存, 字节集
.程序集变量 程序集_读取位置, 整数型
.程序集变量 程序集_使用时间, 整数型
.子程序 __启动窗口_创建完毕
组合框_效验方式.加入项目 (“无效验”, 0)
组合框_效验方式.加入项目 (“奇效验”, 1)
组合框_效验方式.加入项目 (“偶效验”, 2)
组合框_效验方式.加入项目 (“标志效验”, 3)
组合框_效验方式.加入项目 (“空白效验”, 4)
组合框_效验方式.现行选中项 = 2
程序集_缓存 = 取空白字节集 (1028)
.如果真 (文件是否存在 (取运行目录 () + “\CRC32.DLL”) = 假)
.如果真 (写到文件 (取运行目录 () + “\CRC32.DLL”, #资源_CRC) = 假)
信息框 (“创建CRC32效验程序失败!”, #错误图标, )
返回 ()
.如果真结束
.如果真结束
.子程序 __启动窗口_将被销毁
端口1.停止 ()
关闭所有文件 ()
.子程序 _按钮_断开_被单击
端口1.停止 ()
关闭所有文件 ()
按钮_读取.禁止 = 真
按钮_断开.禁止 = 真
按钮_连接.禁止 = 假
.子程序 _端口1_数据到达
.参数 数据字节值, 整数型
.如果真 (程序集_控制 = 真)
程序集_缓存 = 程序集_缓存 + 到字节集 (到字节 (数据字节值))
.如果真 (取字节集长度 (程序集_缓存) = 1028)
.如果真 (DLL命令1 (取字节集左边 (程序集_缓存, 1024), 1024) ≠ 取字节集数据 (取字节集右边 (程序集_缓存, 4), #整数型, ))
信息框 (“无法验证”, 0, )
返回 ()
.如果真结束
插入字节集 (程序集_文件号, 取字节集左边 (程序集_缓存, 1024))
进度条1.位置 = 进度条1.位置 + 1
程序集_缓存 = { }
程序集_读取位置 = 程序集_读取位置 + 4
.如果真 (程序集_读取位置 ≠ 53248)
端口1.发送数据 ({ 45, 0 } + 取字节集左边 (到字节集 (程序集_读取位置), 2) + { 191, 0, 4 })
返回 ()
.如果真结束
信息框 (“文件输出完成! 用时” + 到文本 ((取启动时间 () - 程序集_使用时间) \ 1000) + “秒”, #信息图标, “成功”)
连续赋值 (假, 按钮_断开.禁止, 按钮_取消.禁止, 按钮_浏览.禁止, 按钮_读取.禁止)
返回 ()
.如果真结束
返回 ()
.如果真结束
.如果真 (程序集_控制 = 假 且 数据字节值 = 66)
端口1.发送数据 (到字节 (99))
端口1.发送数据 (到字节 (10))
.如果真结束
.如果真 (程序集_控制 = 假 且 数据字节值 = 76)
端口1.发送数据 (到字节 (99))
端口1.发送数据 (到字节 (10))
.如果真结束
.如果真 (程序集_控制 = 假 且 数据字节值 = 58)
端口1.发送数据 (到字节 (117))
端口1.发送数据 (到字节 (112))
端口1.发送数据 (到字节 (10))
.如果真结束
.如果真 (程序集_控制 = 假 且 数据字节值 = 10)
端口1.发送数据 (到字节 (30))
.如果真结束
.如果真 (程序集_控制 = 假 且 数据字节值 = 30)
程序集_控制 = 真
连续赋值 (假, 按钮_断开.禁止, 按钮_读取.禁止, 按钮_浏览.禁止, 按钮_取消.禁止)
按钮_连接.禁止 = 真
.如果真结束
.子程序 _按钮_连接_被单击
.如果真 (端口1.启动 () = 假)
信息框 (“串口无法打开!”, #错误图标, “端口错误”)
返回 ()
.如果真结束
连续赋值 (真, 按钮_连接.禁止, 按钮_读取.禁止)
连续赋值 (假, 按钮_断开.禁止, 按钮_取消.禁止)
.子程序 _按钮_取消_被单击
结束 ()
.子程序 _按钮_读取_被单击
.如果真 (编辑框_文件名.内容 = “”)
信息框 (“请选择文件路径以及文件名!”, #错误图标, “选择文件”)
返回 ()
.如果真结束
程序集_文件号 = 打开文件 (编辑框_文件名.内容, #重写, )
.如果真 (程序集_文件号 = 0)
信息框 (“创建文件失败!”, #错误图标, )
返回 ()
【文件预览】:
华亚读取工具.e
网友评论
- 易语言,学习,还不错