易语言恶作剧之桌面随机位置漂浮的黑像素点

CNWTEPRG

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 窗口程序集_启动窗口
   
5. .程序集变量 X增, 逻辑型
   
6. .程序集变量 Y增, 逻辑型
   
7. 
   
8. .子程序 __启动窗口_创建完毕
   
9. 
   
10. 置随机数种子 ()
    
11. 控制按钮 ＝ 假
    
12. 在任务条中显示 ＝ 假
    
13. 左边 ＝ 取随机数 (0, 取屏幕宽度 ())
    
14. 顶边 ＝ 取随机数 (0, 取屏幕高度 ())
    
15. 时钟1.时钟周期 ＝ 1
    
16. 宽度 ＝ 1
    
17. 高度 ＝ 1
    
18. 底色 ＝ #黑色
    
19. 总在最前 ＝ 真
    
20. 
    
21. .子程序 _时钟1_周期事件
    
22. 
    
23. .如果 (X增 ＝ 真)
    
24.     左边 ＝ 左边 ＋ 1
    
25. .否则
    
26.     左边 ＝ 左边 － 1
    
27. .如果结束
    
28. .如果 (Y增 ＝ 真)
    
29.     顶边 ＝ 顶边 ＋ 1
    
30. .否则
    
31.     顶边 ＝ 顶边 － 1
    
32. .如果结束
    
33. .如果真 (左边 ≥ 取屏幕宽度 ())
    
34.     X增 ＝ 假
    
35. .如果真结束
    
36. .如果真 (顶边 ≥ 取屏幕高度 ())
    
37.     Y增 ＝ 假
    
38. .如果真结束
    
39. .如果真 (左边 ≤ 0)
    
40.     X增 ＝ 真
    
41. .如果真结束
    
42. .如果真 (顶边 ≤ 0)
    
43.     Y增 ＝ 真
    
44. .如果真结束
    
45. 
    
46. 
    

复制代码

Kuni7wa

这玩意也叫恶作剧来着???