类_时钟 （BUG）

Love寒

         出现下列BUG的版本：精易模块（5.20版及以前的旧版）
BUG问题1 说明： '置周期'为0 暂停时钟时，不能使用'置周期'来恢复时钟执行事件
BUG问题2 说明： 连续不断'置周期'为同一个周期数时，时钟也会跟着连续不断的【立刻】执行事件


======================================================================
                                   下面我给出修改过的解决代码：

1. .版本 2
   
2. 
   
3. .程序集 类_时钟, , 公开
   
4. .程序集变量 hTimerQueue, 整数型
   
5. .程序集变量 hTimer, 整数型
   
6. .程序集变量 时钟周期_全局, 整数型, , , 时钟周期    Period
   
7. .程序集变量 程序指针, 子程序指针
   
8. 
   
9. .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用
   
10. 
    
11. 
    
12. 
    
13. .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用
    
14. 
    
15. 
    
16. 
    
17. .子程序 创建, 逻辑型, 公开, （有可选参数）
    
18. .参数 子程序, 子程序指针, , 周期执行事件
    
19. .参数 时钟周期, 整数型, 可空, 默认为1000毫秒，即1秒。
    
20. 
    
21. .如果真 (hTimerQueue ≠ 0 或 hTimer ＝ 0)
    
22.     销毁 ()
    
23. .如果真结束
    
24. 
    
25. .如果真 (程序指针 ≠ 子程序)
    
26.     程序指针 ＝ 子程序
    
27. .如果真结束
    
28. 时钟周期 ＝ 选择 (是否为空 (时钟周期), 1000, 时钟周期)
    
29. 时钟周期_全局 ＝ 时钟周期
    
30. hTimerQueue ＝ CreateTimerQueue ()
    
31. 返回 (CreateTimerQueueTimer (hTimer, hTimerQueue, 到整数 (程序指针), 0, 0, 时钟周期, 0))  ' #WT_EXECUTEDEFAULT
    
32. 
    
33. .子程序 销毁, 逻辑型, 公开
    
34. .局部变量 bool, 逻辑型
    
35. 
    
36. .如果真 (hTimerQueue ＝ 0 或 hTimer ＝ 0)
    
37.     返回 (真)
    
38. .如果真结束
    
39. bool ＝ DeleteTimerQueueTimer (hTimerQueue, hTimer, 0)
    
40. DeleteTimerQueue (hTimerQueue)
    
41. 连续赋值 (0, hTimer, 时钟周期_全局)
    
42. 返回 (bool)
    
43. 
    
44. .子程序 置周期, 逻辑型, 公开
    
45. .参数 时钟周期, 整数型
    
46. 
    
47. ' ==============================================================================
    
48. .判断开始 (时钟周期_全局 ＝ 0 且 时钟周期 ＞ 0 且 到整数 (程序指针) ≠ 0)
    
49.     返回 (创建 (程序指针, 时钟周期))
    
50. .判断 (时钟周期_全局 ＝ 时钟周期)
    
51.     返回 (真)
    
52. .判断 (时钟周期 ＝ 0)
    
53.     返回 (销毁 ())
    
54. .默认
    
55. 
    
56. .判断结束
    
57. 
    
58. ' 1.解决了精易模块（5.20版及以下的旧版） '置周期'为0 暂停时钟时，不能使用'置周期'来恢复时钟执行事件
    
59. ' ————（注：本来使用 '置周期'为-1 暂停时钟可以更简单实现时钟的暂停与恢复，但有个小问题就是：置为-1时，时钟还会跟着执行一次周期事件）
    
60. ' 2.顺带解决了精易模块，连续不断'置周期'为同一个周期数时，时钟也会跟着连续不断的【立刻】执行事件
    
61. 
    
62. ' ===============================================================================
    
63. 
    
64. 
    
65. 时钟周期_全局 ＝ 时钟周期
    
66. 返回 (ChangeTimerQueueTimer (hTimerQueue, hTimer, 0, 时钟周期))
    
67. 
    
68. .子程序 取周期, 整数型, 公开
    
69. 
    
70. 返回 (时钟周期_全局)
    

复制代码

Love寒

ttong 发表于 2015-7-25 12:38
围观

欢迎围观~................................

ttong

围观

Love寒

第一发帖。。。。

                                     回报论坛