位图增强模块V1.2使用例程之随机渐变颜色屏保

123

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 窗口程序集_启动窗口
   
5. 
   
6. .子程序 __启动窗口_创建完毕
   
7. .局部变量 开始颜色, 整数型
   
8. .局部变量 结束颜色, 整数型
   
9. .局部变量 颜色表, 整数型, , "0"
   
10. .局部变量 计数, 整数型
    
11. 
    
12. 置错误提示管理 (&错误提示)
    
13. 置随机数种子 ()
    
14. 
    
15. 左边 ＝ 0
    
16. 顶边 ＝ 0
    
17. 宽度 ＝ 取屏幕宽度 ()
    
18. 高度 ＝ 取屏幕高度 ()
    
19. 开始颜色 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
    
20. 结束颜色 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
    
21. 可视 ＝ 真
    
22. 生成颜色渲染数据 (开始颜色, 结束颜色, 256, 颜色表)
    
23. .判断循环首 (真)
    
24.     .计次循环首 (256, 计数)
    
25.         底色 ＝ 颜色表 [计数]
    
26.         延迟 (1)
    
27.     .计次循环尾 ()
    
28.     开始颜色 ＝ 结束颜色
    
29.     结束颜色 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
    
30.     生成颜色渲染数据 (开始颜色, 结束颜色, 256, 颜色表)
    
31. 
    
32. .判断循环尾 ()
    
33. 
    
34. 
    
35. 
    
36. .子程序 错误提示, 逻辑型
    
37. .参数 文本, 文本型
    
38. .参数 整数, 整数型
    
39. 
    
40. 返回 (真)
    
41. 
    
42. 
    

复制代码

demon

谢谢分享。