易语言全屏黑屏并在四周边框显示1像素显示RGB边框线条 (液晶屏显示器测试，安装专用)

CNWTEPRG

1. 
   
2. .版本 2
   
3. .支持库 BmpOperate
   
4. 
   
5. .程序集 窗口程序集_启动窗口
   
6. .程序集变量 屏宽, 整数型
   
7. .程序集变量 屏高, 整数型
   
8. .程序集变量 颜色表, 整数型, , "0"
   
9. .程序集变量 颜色数, 整数型
   
10. .程序集变量 位图, 位图, , "0"
    
11. 
    
12. .子程序 __启动窗口_创建完毕
    
13. .局部变量 j, 整数型
    
14. .局部变量 k, 整数型
    
15. 
    
16. 颜色表 ＝ { #红色, #绿色, #蓝色 }
    
17. 颜色数 ＝ 取数组成员数 (颜色表)
    
18. 底色 ＝ #黑色
    
19. 左边 ＝ 0
    
20. 顶边 ＝ 0
    
21. 屏宽 ＝ 取屏幕宽度 ()
    
22. 屏高 ＝ 取屏幕高度 ()
    
23. 宽度 ＝ 屏宽
    
24. 高度 ＝ 屏高
    
25. Esc键关闭 ＝ 真
    
26. 总在最前 ＝ 真
    
27. 重定义数组 (位图, 假, 颜色数)
    
28. .计次循环首 (颜色数, k)
    
29.     位图 [k].创建 (屏宽, 屏高, 4, 底色)
    
30.     .变量循环首 (0, 屏宽 － 1, 1, j)
    
31.         位图 [k].置某点颜色 (j, 0, 颜色表 [k])
    
32.         位图 [k].置某点颜色 (j, 屏高 － 1, 颜色表 [k])
    
33.     .变量循环尾 ()
    
34.     .变量循环首 (0, 屏高 － 1, 1, j)
    
35.         位图 [k].置某点颜色 (0, j, 颜色表 [k])
    
36.         位图 [k].置某点颜色 (屏宽 － 1, j, 颜色表 [k])
    
37.     .变量循环尾 ()
    
38. .计次循环尾 ()
    
39. _时钟1_周期事件 ()
    
40. 可视 ＝ 真
    
41. 时钟1.时钟周期 ＝ 1000
    
42. 
    
43. .子程序 _时钟1_周期事件
    
44. .局部变量 颜色计数, 整数型, 静态
    
45. 
    
46. 颜色计数 ＝ 颜色计数 ＋ 1
    
47. .如果真 (颜色计数 ＞ 颜色数)
    
48.     颜色计数 ＝ 1
    
49. .如果真结束
    
50. 底图 ＝ 位图 [颜色计数].取位图数据 ()
    

复制代码

1心1亿

这又是啥好玩的

66大顺

路过领个币就走