易语言实现改变位图高度(不改变宽度)将任意比例位图转换成3:4 三比四比例(返回逻辑型)

CNWTEPRG

输入图片:

转换结果:

1. .版本 2
   
2. .支持库 BmpOperate
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 输入, 位图
    
14. .局部变量 输出, 位图
    
15. 
    
16. 输入.载入文件 (“in.bmp”)
    
17. .如果 (位图_到3比4 (输入, 输出, #绿色))
    
18.     写到文件 (“out.bmp”, 输出.取位图数据 ())
    
19. .否则
    
20.     暂停 ()
    
21. .如果结束
    
22. 
    
23. 
    
24. .子程序 位图_到3比4, 逻辑型, 公开, 改变位图高度(不改变宽度)实现将位图比例转换成三比四，成功返回真，失败返回假
    
25. .参数 输入, 位图, , 传入待处理的位图。
    
26. .参数 输出, 位图, 参考, 位图转换结果将通过此变量传出。
    
27. .参数 背景填充颜色, 整数型, , 位图处理后尺寸如果变大，新增的部分将用该颜色填充。
    
28. .局部变量 宽, 整数型
    
29. .局部变量 高, 整数型
    
30. .局部变量 位深度, 整数型
    
31. .局部变量 高2, 整数型
    
32. 
    
33. 宽 ＝ 输入.取宽度 ()
    
34. 高 ＝ 输入.取高度 ()
    
35. 高2 ＝ 宽 ÷ 3 × 4
    
36. 位深度 ＝ 输入.取位深度 ()
    
37. .判断开始 (宽 ≤ 0 或 高 ≤ 0)
    
38.     返回 (假)
    
39. .判断 (输出.创建 (宽, 高2, 位深度, 背景填充颜色) ＝ 假)
    
40.     返回 (假)
    
41. .判断 (输出.置横向分辨率 (输入.取横向分辨率 ()) ＝ 假)
    
42.     返回 (假)
    
43. .判断 (输出.置纵向分辨率 (输入.取纵向分辨率 ()) ＝ 假)
    
44.     返回 (假)
    
45. .判断 (输入.复制到 (0, 0, 宽, 高, 输出, 0, (高2 － 高) ÷ 2, ) ＝ 假)
    
46.     返回 (假)
    
47. .默认
    
48. 
    
49. .判断结束
    
50. 返回 (真)
    

复制代码