易语言 字节集与逻辑型数组互相转换源码的实现

QAQ

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 窗口程序集_启动窗口
   
5. 
   
6. .子程序 __启动窗口_创建完毕
   
7. .局部变量 逻辑数组, 逻辑型, , "0"
   
8. .局部变量 a, 整数型
   
9. 
   
10. 字节集到逻辑型数组 ({ 48, 49, 50, 51 }, 逻辑数组)
    
11. 
    
12. .计次循环首 (24, a)
    
13.     调试输出 (逻辑数组 [a], a)
    
14. .计次循环尾 ()
    
15. 调试输出 (逻辑型数组到字节集 (逻辑数组))
    
16. 
    
17. .子程序 字节集到逻辑型数组
    
18. .参数 字节集数据, 字节集
    
19. .参数 逻辑型数组, 逻辑型, 参考 数组
    
20. .局部变量 字节集长度, 整数型
    
21. .局部变量 字节集计数, 整数型
    
22. .局部变量 移位位数计数, 整数型
    
23. .局部变量 移位后的值, 字节型
    
24. .局部变量 逻辑数组计数, 整数型
    
25. 
    
26. 字节集长度 ＝ 取字节集长度 (字节集数据)
    
27. 重定义数组 (逻辑型数组, 假, 字节集长度 × 8)
    
28. .计次循环首 (字节集长度, 字节集计数)
    
29.     .变量循环首 (7, 0, -1, 移位位数计数)
    
30.         逻辑数组计数 ＝ 逻辑数组计数 ＋ 1
    
31.         移位后的值 ＝ 左移 (1, 移位位数计数)
    
32.         逻辑型数组 [逻辑数组计数] ＝ 位与 (字节集数据 [字节集计数], 移位后的值) ＝ 移位后的值
    
33. 
    
34.     .变量循环尾 ()
    
35. 
    
36. .计次循环尾 ()
    
37. 
    
38. 
    
39. .子程序 逻辑型数组到字节集, 字节集
    
40. .参数 逻辑型数组, 逻辑型, 数组
    
41. .局部变量 逻辑组长度, 整数型
    
42. .局部变量 字节集数据, 字节集
    
43. .局部变量 字节集长度, 整数型
    
44. .局部变量 计数, 整数型
    
45. .局部变量 移位计数, 整数型
    
46. .局部变量 逻辑计数, 整数型
    
47. 
    
48. 逻辑组长度 ＝ 取数组成员数 (逻辑型数组)
    
49. .如果真 (逻辑组长度 ％ 8 ≠ 0)
    
50.     输出调试文本 (“数组成员数必须是8的倍数才可以导出字节集数据。”)
    
51.     返回 ({  })
    
52. .如果真结束
    
53. 字节集数据 ＝ 取空白字节集 (逻辑组长度 ÷ 8)
    
54. 字节集长度 ＝ 取字节集长度 (字节集数据)
    
55. .计次循环首 (字节集长度, 计数)
    
56.     .变量循环首 (7, 0, -1, 移位计数)
    
57.         .如果真 (逻辑型数组 [逻辑计数 ＋ 1] ＝ 真)
    
58.             字节集数据 [计数] ＝ 位或 (左移 (1, 移位计数), 字节集数据 [计数])
    
59.         .如果真结束
    
60.         逻辑计数 ＝ 逻辑计数 ＋ 1
    
61.     .变量循环尾 ()
    
62. .计次循环尾 ()
    
63. 返回 (字节集数据)
    

复制代码

demon

非0即真？

demon

...不懂。

QAQ

demon 发表于 2017-8-21 19:26
...不懂。

简单来讲就是1字节有8个位，通过循环移位补码的方式转换成8个成员的逻辑数组，有多少字节就转多少次并拼接，还原就是逆向的过程。

璁哄潧

不错不错，对于设计点阵取模软件少不了这玩意。

Kuni7wa

为回复而生

Cute

看看啥玩意了

66大顺

lz头像啥时候会动的。

电脑高手

看看怎么实现的

520

路过此地