易语言 已知时分秒毫秒 计算出指针钟表的时针、分针、秒针 指针的角度 (返回逻辑型)

CNWTEPRG

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 时角度, 双精度小数型
    
14. .局部变量 分角度, 双精度小数型
    
15. .局部变量 秒角度, 双精度小数型
    
16. .局部变量 时, 整数型
    
17. .局部变量 秒, 整数型
    
18. .局部变量 分, 整数型
    
19. .局部变量 时间, 日期时间型
    
20. 
    
21. .变量循环首 (0, 11, 1, 时)
    
22.     .变量循环首 (0, 59, 1, 分)
    
23.         .变量循环首 (0, 59, 1, 秒)
    
24.             检查 (时分秒到指针角度 (时, 分, 秒, 时角度, 分角度, 秒角度))
    
25.             调试输出 (时, 分, 秒, 时角度, 分角度, 秒角度)
    
26.         .变量循环尾 ()
    
27.     .变量循环尾 ()
    
28. .变量循环尾 ()
    
29. 
    
30. 
    
31. .子程序 时分秒到指针角度, 逻辑型, 公开, 将时分秒转换到时针、分针、秒针的角度 (0度指向12点)
    
32. .参数 时, 字节型, , 范围:0~11 (如果为24小时制，将转换为12小时制)
    
33. .参数 分, 字节型, , 范围:0~59
    
34. .参数 秒, 双精度小数型, , 范围:0~59 (小数部分为毫秒)
    
35. .参数 时角度, 双精度小数型, 参考, (变量)范围:0~360
    
36. .参数 分角度, 双精度小数型, 参考, (变量)范围:0~360
    
37. .参数 秒角度, 双精度小数型, 参考, (变量)范围:0~360
    
38. 
    
39. .如果真 (时 ＜ 0 或 分 ＜ 0 或 秒 ＜ 0 或 时 ＞ 23 或 分 ＞ 59 或 秒 ＞ 59)
    
40.     返回 (假)
    
41. .如果真结束
    
42. .版本 2
    
43. 
    
44. 时角度 ＝ (时 ％ 12) × 30 ＋ 分 ÷ 2 ＋ 秒 ÷ 120
    
45. 分角度 ＝ 分 × 6 ＋ 秒 ÷ 10
    
46. 秒角度 ＝ 秒 × 6
    
47. 
    
48. 返回 (真)
    
49. 
    

复制代码