黑底二维码生成工具 V1.0版源码

123

处理前：


处理后：



源码还是回复可见。

1. 
   
2. .版本 2
   
3. .支持库 BmpOperate
   
4. .程序集 窗口程序集_启动窗口
   
5. .程序集变量 位图, 位图
   
6. .程序集变量 位图2, 位图
   
7. .程序集变量 位图3, 位图
   
8. .子程序 __启动窗口_创建完毕
   
9. .局部变量 X, 整数型
   
10. .局部变量 Y, 整数型, , , 、
    
11. .局部变量 出现白色数, 整数型
    
12. 位图.载入文件 (“二维码.bmp”)
    
13. 位图2.创建 (位图.取宽度 (), 位图.取高度 (), 1, #白色)
    
14. 位图3.创建 (位图.取宽度 (), 位图.取高度 (), 1, #白色)
    
15. 
    
16. .变量循环首 (0, 位图.取宽度 (), 1, X)
    
17.     出现白色数 ＝ 0
    
18.     .变量循环首 (0, 位图.取高度 (), 1, Y)
    
19.         .如果真 (位图.取某点颜色 (X, Y) ＝ #白色)
    
20.             出现白色数 ＝ 出现白色数 ＋ 1
    
21.         .如果真结束
    
22.     .变量循环尾 ()
    
23.     .如果真 (出现白色数 ＝ 位图.取高度 ())
    
24.         出现白色数 ＝ 0
    
25.         .变量循环首 (0, 位图.取高度 (), 1, Y)
    
26.             位图2.置某点颜色 (X, Y, #黑色)
    
27.         .变量循环尾 ()
    
28.     .如果真结束
    
29. .变量循环尾 ()
    
30. .变量循环首 (0, 位图.取高度 (), 1, Y)
    
31.     出现白色数 ＝ 0
    
32.     .变量循环首 (0, 位图.取宽度 (), 1, X)
    
33.         .如果真 (位图.取某点颜色 (X, Y) ＝ #白色)
    
34.             出现白色数 ＝ 出现白色数 ＋ 1
    
35.         .如果真结束
    
36.     .变量循环尾 ()
    
37.     .如果真 (出现白色数 ＝ 位图.取宽度 ())
    
38.         出现白色数 ＝ 0
    
39.         .变量循环首 (0, 位图.取宽度 (), 1, X)
    
40.             位图3.置某点颜色 (X, Y, #黑色)
    
41.         .变量循环尾 ()
    
42.     .如果真结束
    
43. .变量循环尾 ()
    
44. .变量循环首 (0, 位图.取宽度 (), 1, X)
    
45.     .变量循环首 (0, 位图.取高度 (), 1, Y)
    
46.         .如果真 (位图2.取某点颜色 (X, Y) ＝ 0 或 位图3.取某点颜色 (X, Y) ＝ 0)
    
47.             位图.置某点颜色 (X, Y, 0)
    
48.         .如果真结束
    
49.     .变量循环尾 ()
    
50. .变量循环尾 ()
    
51. 写到文件 (“2.bmp”, 位图2.取位图数据 ())
    
52. 写到文件 (“3.bmp”, 位图3.取位图数据 ())
    
53. 写到文件 (“处理后的.bmp”, 位图.取位图数据 ())
    
54. 
    
55. 结束 ()
    

复制代码

QAQ

话说这到底能不能扫出来？？？？

小清新

QAQ 发表于 2017-6-29 20:58
话说这到底能不能扫出来？？？？

可以

星期零

不错，正好需要一套这玩意