易语言实现检测位图数组中的所有位图的宽度或高度是否全部一致等于相同 (返回逻辑型)

CNWTEPRG

1. 
   
2. .版本 2
   
3. .支持库 BmpOperate
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 位图数组, 位图, , "6"
    
15. 
    
16. 位图数组 [1].创建 (32, 123, 24, )
    
17. 位图数组 [2].创建 (32, 134, 1, )
    
18. 位图数组 [3].创建 (32, 235, 8, )
    
19. 位图数组 [4].创建 (32, 256, 16, )
    
20. 位图数组 [5].创建 (32, 9, 24, )
    
21. 位图数组 [6].创建 (32, 77, 24, )
    
22. 输出调试文本 (位图数组_宽或高是否一致 (位图数组, 假))  ' 宽度全部为32，返回真
    
23. 位图数组 [1].创建 (1, 256, 24, )
    
24. 位图数组 [2].创建 (22, 256, 1, )
    
25. 位图数组 [3].创建 (333, 256, 8, )
    
26. 位图数组 [4].创建 (444, 256, 16, )
    
27. 位图数组 [5].创建 (55, 256, 24, )
    
28. 位图数组 [6].创建 (678, 256, 24, )
    
29. 输出调试文本 (位图数组_宽或高是否一致 (位图数组, 真))  ' 高度全部为256，返回真
    
30. 
    
31. 
    
32. .子程序 位图数组_宽或高是否一致, 逻辑型, 公开, 位图数组中所有位图的宽度或高度全部相同则返回真，否则返回假
    
33. .参数 位图数组, 位图, 数组
    
34. .参数 宽高, 逻辑型, 可空, 假为检测宽度，真为检测高度
    
35. .局部变量 成员数, 整数型
    
36. .局部变量 首图宽高, 整数型
    
37. .局部变量 计数, 整数型
    
38. 
    
39. 成员数 ＝ 取数组成员数 (位图数组)
    
40. .判断开始 (成员数 ≤ 0)
    
41.     返回 (假)
    
42. .判断 (成员数 ＝ 1)
    
43.     返回 (真)
    
44. .默认
    
45. 
    
46. .判断结束
    
47. .如果 (宽高)
    
48.     首图宽高 ＝ 位图数组 [1].取高度 ()
    
49. .否则
    
50.     首图宽高 ＝ 位图数组 [1].取宽度 ()
    
51. .如果结束
    
52. .如果真 (首图宽高 ≤ 0)
    
53.     返回 (假)
    
54. .如果真结束
    
55. .如果 (宽高)
    
56.     .变量循环首 (2, 成员数, 1, 计数)
    
57.         .如果真 (位图数组 [成员数].取高度 () ≠ 首图宽高)
    
58.             返回 (假)
    
59.         .如果真结束
    
60. 
    
61.     .变量循环尾 ()
    
62. .否则
    
63.     .变量循环首 (2, 成员数, 1, 计数)
    
64.         .如果真 (位图数组 [成员数].取宽度 () ≠ 首图宽高)
    
65.             返回 (假)
    
66.         .如果真结束
    
67. 
    
68.     .变量循环尾 ()
    
69. .如果结束
    
70. 返回 (真)
    

复制代码