设为首页收藏本站淘宝杂货铺

从F到0 - From F to 0

 找回密码
 注册已关闭
搜索
查看: 2647|回复: 3
收起左侧

分享一套逻辑型数组/二进制流数据的编解码算法 自带校验 条码编解码用的到

[复制链接]
发表于 2018-10-22 16:05:15 | 显示全部楼层 |阅读模式

  1. .版本 2
  2. .支持库 spec

  3. .程序集 逻辑型数组编解码

  4. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码


  5. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
  6. 返回 (0)  ' 可以根据您的需要返回任意数值

  7. .子程序 _临时子程序
  8. .局部变量 逻辑型数组, 逻辑型, , "0"


  9. ' 编解码规则:两个真或两个假表示真,一个真或一个假表示假,有几个连续的真或假并做计数,遇到跳变则清零,超过2则无效。
  10. 逻辑型数组 = { 真, 假, 真, 真, 假, 真, 真, 假, 真, 真, 真, 假, 假, 假 }

  11. 逻辑型数组编码 (逻辑型数组)
  12. 调试输出 (“编码后”, 逻辑型数组)

  13. 检查 (逻辑型数组解码 (逻辑型数组))
  14. 调试输出 (“解码后”, 逻辑型数组)


  15. .子程序 逻辑型数组编码, , 公开
  16. .参数 逻辑数组, 逻辑型, 参考 数组
  17. .局部变量 数组副本, 逻辑型, , "0"
  18. .局部变量 位置, 整数型
  19. .局部变量 逻辑态, 逻辑型

  20. .计次循环首 (取数组成员数 (逻辑数组), 位置)
  21.     加入成员 (数组副本, 逻辑态)
  22.     .如果真 (逻辑数组 [位置])
  23.         加入成员 (数组副本, 逻辑态)
  24.     .如果真结束
  25.     逻辑态 = 取反 (逻辑态)
  26. .计次循环尾 ()
  27. 逻辑数组 = 数组副本


  28. .子程序 逻辑型数组解码, 逻辑型, 公开
  29. .参数 逻辑数组, 逻辑型, 数组
  30. .局部变量 位置, 整数型
  31. .局部变量 旧逻辑态, 逻辑型
  32. .局部变量 连续数, 字节型
  33. .局部变量 数组副本, 逻辑型, , "0"

  34. .计次循环首 (取数组成员数 (逻辑数组), 位置)
  35.     .如果 (旧逻辑态 ≠ 逻辑数组 [位置] 且 位置 > 1)
  36.         加入成员 (数组副本, 连续数 = 2)
  37.         连续数 = 1
  38.     .否则
  39.         连续数 = 连续数 + 1
  40.         .如果真 (连续数 > 2)
  41.             重定义数组 (逻辑数组, 假, 0)
  42.             返回 (假)
  43.         .如果真结束

  44.     .如果结束
  45.     旧逻辑态 = 逻辑数组 [位置]
  46. .计次循环尾 ()
  47. 加入成员 (数组副本, 连续数 = 2)
  48. 逻辑数组 = 数组副本
  49. 返回 (真)
复制代码


评分

1

查看全部评分

相关帖子

发表于 2018-10-22 21:46:25 | 显示全部楼层
总感觉很强大的影子
发表于 2018-10-22 22:40:24 | 显示全部楼层
表示只要逻辑型数组中没有出现连续3个真或假就可以压缩使用。
发表于 2019-4-15 18:36:36 | 显示全部楼层
顶顶顶顶顶
您需要登录后才可以回帖 登录 | 注册已关闭

本版积分规则

QQ|手机版|Archiver|从F到0 ( 蒙ICP备17002595号-1 )
蒙公网安备15010402000325号

腾讯云安全认证

GMT+8, 2024-3-29 03:17 , Processed in 0.873050 second(s), 21 queries .

Powered by Discuz! X3.4 Licensed

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表