易语言 实现逻辑数组移位补码二进制特效

QAQ

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 窗口程序集_启动窗口
   
6. 
   
7. .子程序 __启动窗口_创建完毕
   
8. .局部变量 输入的位数, 整数型
   
9. .局部变量 取值计数, 整数型
   
10. .局部变量 内部逻辑数组, 逻辑型, , "32"
    
11. .局部变量 逻辑数组, 逻辑型, , "32"
    
12. .局部变量 文本, 文本型
    
13. 
    
14. 可视 ＝ 真
    
15. 
    
16. .判断循环首 (真)
    
17.     .计次循环首 (32 － 1, 取值计数)
    
18.         内部逻辑数组 [取值计数 ＋ 1] ＝ 逻辑数组 [取值计数]
    
19.     .计次循环尾 ()
    
20.     内部逻辑数组 [1] ＝ 位与 (取随机数 (0, 255), 128) ＝ 128
    
21.     逻辑数组 ＝ 内部逻辑数组
    
22. 
    
23.     文本 ＝ “”
    
24.     .计次循环首 (32, 取值计数)
    
25.         .如果 (逻辑数组 [取值计数])
    
26.             文本 ＝ 文本 ＋ “1”
    
27.         .否则
    
28.             文本 ＝ 文本 ＋ “0”
    
29.         .如果结束
    
30. 
    
31.     .计次循环尾 ()
    
32.     标题 ＝ 文本
    
33.     延迟 (1)
    
34. .判断循环尾 ()
    
35. 
    
36. 
    
37. 
    
38. 
    

复制代码

demon

...暖贴

Cute

热1帖