易语言设计制作的半透明黑风格指针式时钟，采用sin cos等函数绘制，无需任何模块。

123

效果图：


源码复制有问题的可以下载这个附件：
半透明黑风格指针钟.zip (4.18 KB, 下载次数: 21)

2017-8-24 14:52 上传

点击文件名下载附件

1. 
   
2. .版本 2
   
3. .支持库 BmpOperate
   
4. .支持库 eAPI
   
5. .支持库 dp1
   
6. .支持库 spec
   
7. 
   
8. .程序集 窗口程序集_启动窗口
   
9. .程序集变量 旧Y, 双精度小数型
   
10. .程序集变量 新Y, 双精度小数型
    
11. .程序集变量 旧X, 双精度小数型
    
12. .程序集变量 新X, 双精度小数型
    
13. .程序集变量 角度, 整数型
    
14. .程序集变量 半径, 双精度小数型
    
15. .程序集变量 位图, 位图
    
16. .程序集变量 时间, 日期时间型
    
17. 
    
18. .子程序 __启动窗口_创建完毕
    
19. 
    
20. 设置窗口透明度 (取窗口句柄 (), 200)
    
21. 宽度 ＝ 256
    
22. 高度 ＝ 256
    
23. 边框 ＝ 0
    
24. 半径 ＝ 100
    
25. 置外形图片 (解压数据 ({ 13, 15, 62, 3, 62, 32, 0, 0, 120, 156, 237, 217, 77, 110, 194, 48, 16, 5, 96, 34, 22, 44, 57, 130, 187, 236, 41, 176, 212, 125, 207, 100, 142, 214, 163, 112, 132, 46, 179, 136, 226, 242, 23, 215, 30, 191, 241, 51, 53, 81, 168, 20, 75, 72, 72, 159, 68, 61, 227, 129, 198, 51, 31, 159, 135, 183, 205, 117, 29, 206, 175, 247, 203, 155, 238, 246, 234, 174, 111, 244, 229, 189, 47, 250, 186, 214, 37, 86, 119, 44, 178, 243, 126, 40, 240, 254, 92, 113, 254, 91, 229, 173, 191, 46, 245, 79, 216, 155, 247, 218, 222, 188, 47, 126, 128, 153, 92, 217, 129, 155, 28, 135, 16, 62, 94, 249, 214, 236, 127, 253, 84, 216, 189, 26, 193, 47, 251, 17, 240, 46, 114, 255, 149, 187, 137, 29, 68, 232, 98, 7, 17, 198, 12, 54, 176, 77, 60, 79, 241, 46, 245, 83, 113, 123, 96, 131, 46, 245, 108, 131, 94, 172, 7, 125, 43, 93, 4, 176, 147, 46, 2, 48, 210, 69, 0, 86, 186, 8, 64, 178, 200, 112, 151, 121, 186, 65, 230, 217, 246, 69, 137, 236, 115, 79, 2, 200, 194, 19, 53, 202, 220, 229, 158, 36, 32, 231, 228, 132, 64, 120, 73, 128, 204, 65, 248, 73, 2, 64, 248, 73, 2, 152, 27, 228, 81, 2, 44, 242, 161, 222, 29, 242, 168, 66, 16, 199, 9, 36, 158, 21, 255, 109, 133, 4, 194, 244, 69, 95, 1, 230, 48, 125, 81, 2, 153, 27, 236, 33, 193, 22, 251, 80, 235, 14, 251, 72, 60, 36, 80, 225, 201, 97, 117, 94, 214, 177, 206, 149, 227, 9, 21, 204, 92, 57, 158, 112, 64, 173, 174, 28, 95, 56, 64, 230, 70, 243, 190, 206, 173, 230, 195, 115, 220, 105, 62, 214, 185, 198, 83, 129, 16, 87, 203, 227, 94, 32, 173, 174, 150, 207, 189, 128, 230, 118, 181, 188, 238, 5, 54, 183, 171, 229, 121, 47, 208, 165, 221, 232, 222, 255, 7, 183, 186, 15, 171, 191, 180, 143, 141, 190, 244, 254, 87, 175, 112, 163, 251, 75, 252, 126, 44, 253, 251, 219, 234, 75, 255, 127, 155, 251, 255, 247, 220, 207, 39, 204, 91, 159, 175, 154, 159, 239, 172, 230, 79, 122, 254, 52, 154, 87, 62, 31, 183, 62, 159, 207, 125, 127, 104, 189, 223, 252, 249, 126, 181, 217, 148, 11, 100, 114, 135, 153, 221, 15, 131, 91, 236, 225, 254, 105, 176, 247, 181, 222, 122, 191, 102, 247, 119, 214, 31, 80, 18, 28, 156, 246, 39, 28, 226, 177, 222, 45, 242, 168, 127, 98, 144, 247, 245, 206, 250, 63, 172, 191, 4, 19, 24, 57, 235, 95, 177, 254, 24, 237, 175, 89, 226, 38, 247, 164, 127, 199, 250, 131, 172, 191, 8, 18, 144, 56, 235, 95, 178, 254, 40, 237, 175, 102, 1, 138, 254, 44, 235, 239, 178, 254, 112, 22, 128, 112, 218, 159, 118, 197, 237, 243, 254, 56, 235, 175, 179, 254, 188, 216, 96, 198, 105, 134, 193, 124, 32, 217, 32, 152, 47, 176, 249, 4, 155, 111, 208, 249, 8, 155, 175, 176, 249, 12, 155, 239, 208, 249, 16, 155, 47, 177, 249, 20, 157, 111, 177, 249, 24, 157, 175, 173, 107, 93, 15, 174, 31, 176, 248, 164, 0 }), #黑色)
    
26. 
    
27. 总在最前 ＝ 真
    
28. 可视 ＝ 真
    
29. .判断循环首 (真)
    
30.     时间 ＝ 取现行时间 ()
    
31. 
    
32.     位图.创建 (256, 256, 1, #黑色)
    
33.     画表 (取小时 (时间), 取分钟 (时间), 取秒 (时间))
    
34.     底图 ＝ 位图.取位图数据 ()
    
35.     延迟 (1000)
    
36. 
    
37. .判断循环尾 ()
    
38. 
    
39. .子程序 画线
    
40. .参数 起点X, 整数型
    
41. .参数 起点Y, 整数型
    
42. .参数 终点X, 整数型
    
43. .参数 终点Y, 整数型
    
44. .局部变量 位图宽度, 整数型
    
45. .局部变量 位图高度, 整数型
    
46. .局部变量 位图备份, 位图
    
47. .局部变量 Y距离比X距离大, 逻辑型
    
48. .局部变量 线移动方向, 整数型
    
49. .局部变量 X坐标, 整数型
    
50. .局部变量 Y坐标, 整数型
    
51. .局部变量 线长, 整数型
    
52. .局部变量 常量2, 整数型
    
53. .局部变量 常量1, 整数型
    
54. .局部变量 X距离, 整数型
    
55. .局部变量 Y距离, 整数型
    
56. 
    
57. .如果真 (起点X ＜ 0 或 起点Y ＜ 0 或 终点X ＜ 0 或 终点Y ＜ 0)
    
58.     返回 ()
    
59. .如果真结束
    
60. 位图宽度 ＝ 位图.取宽度 ()
    
61. 位图高度 ＝ 位图.取高度 ()
    
62. .如果真 (起点X ≥ 位图宽度 或 终点X ≥ 位图宽度 或 起点Y ≥ 位图高度 或 终点Y ≥ 位图高度)
    
63.     返回 ()
    
64. .如果真结束
    
65. X距离 ＝ 取绝对值 (终点X － 起点X)
    
66. Y距离 ＝ 取绝对值 (终点Y － 起点Y)
    
67. Y距离比X距离大 ＝ Y距离 ＞ X距离
    
68. .如果真 (Y距离比X距离大 ＝ 真)
    
69.     交换变量 (起点X, 起点Y)
    
70.     交换变量 (终点X, 终点Y)
    
71. .如果真结束
    
72. .如果真 (起点X ＞ 终点X)
    
73.     交换变量 (起点X, 终点X)
    
74.     交换变量 (起点Y, 终点Y)
    
75. .如果真结束
    
76. X距离 ＝ 取绝对值 (终点X － 起点X)
    
77. Y距离 ＝ 取绝对值 (终点Y － 起点Y)
    
78. 线长 ＝ 2 × Y距离 － X距离
    
79. 常量1 ＝ 2 × Y距离
    
80. 常量2 ＝ 2 × (Y距离 － X距离)
    
81. X坐标 ＝ 起点X
    
82. Y坐标 ＝ 起点Y
    
83. .如果 (起点Y ＜ 终点Y)
    
84.     线移动方向 ＝ 1
    
85. .否则
    
86.     线移动方向 ＝ -1
    
87. .如果结束
    
88. .判断循环首 (X坐标 ≤ 终点X)
    
89.     .如果 (Y距离比X距离大 ＝ 真)
    
90.         .如果真 (位图.置某点颜色 (Y坐标, X坐标, #白色) ＝ 假)
    
91.             位图 ＝ 位图备份
    
92.             返回 ()
    
93.         .如果真结束
    
94. 
    
95.     .否则
    
96.         .如果真 (位图.置某点颜色 (X坐标, Y坐标, #白色) ＝ 假)
    
97.             位图 ＝ 位图备份
    
98.             返回 ()
    
99.         .如果真结束
    
100. 
     
101.     .如果结束
     
102.     X坐标 ＝ X坐标 ＋ 1
     
103.     .如果 (线长 ＜ 0)
     
104.         线长 ＝ 线长 ＋ 常量1
     
105.     .否则
     
106.         线长 ＝ 线长 ＋ 常量2
     
107.         Y坐标 ＝ Y坐标 ＋ 线移动方向
     
108.     .如果结束
     
109. 
     
110. .判断循环尾 ()
     
111. 
     
112. .子程序 画表
     
113. .参数 时, 整数型, , 时
     
114. .参数 分, 整数型, , 分
     
115. .参数 秒, 整数型, , 秒
     
116. 
     
117. ' 画表框
     
118. .变量循环首 (0, 720, 1, 角度)
     
119.     新X ＝ 求正弦 (角度 × #pi ÷ 180) × (半径 ＋ 10) ＋ 128
     
120.     新Y ＝ 求余弦 (角度 × #pi ÷ 180) × (半径 ＋ 10) ＋ 128
     
121.     ' hx (xx, yy, x, y)
     
122.     .如果真 (角度 ％ 6 ＝ 0)
     
123.         画线 (求余弦 (角度 × #pi ÷ 180) × (半径 ＋ 5) ＋ 128, 求正弦 (角度 × #pi ÷ 180) × (半径 ＋ 5) ＋ 128, 求余弦 (角度 × #pi ÷ 180) × (半径 ＋ 2) ＋ 128, 求正弦 (角度 × #pi ÷ 180) × (半径 ＋ 2) ＋ 128)
     
124.         .如果真 (角度 ％ 30 ＝ 0)
     
125.             画线 (求余弦 ((角度 ＋ 0.5) × #pi ÷ 180) × (半径 － 50) ＋ 128, 求正弦 ((角度 ＋ 0.5) × #pi ÷ 180) × (半径 － 50) ＋ 128, 求余弦 (角度 × #pi ÷ 180) × (半径 － 20) ＋ 128, 求正弦 (角度 × #pi ÷ 180) × (半径 － 20) ＋ 128)
     
126.         .如果真结束
     
127. 
     
128.     .如果真结束
     
129.     旧X ＝ 新X
     
130.     旧Y ＝ 新Y
     
131. .变量循环尾 ()
     
132. ' 画表指针
     
133. 画线 (求余弦 ((秒 × 6 － 90) × #pi ÷ 180) × 半径 ＋ 128, 求正弦 ((秒 × 6 － 90) × #pi ÷ 180) × 半径 ＋ 128, 128, 128)
     
134. 画线 (求余弦 ((分 × 6 － 90) × #pi ÷ 180) × (半径 － 10) ＋ 128, 求正弦 ((分 × 6 － 90) × #pi ÷ 180) × (半径 － 10) ＋ 128, 求余弦 ((分 × 6 － 30) × #pi ÷ 180) × 5 ＋ 128, 求正弦 ((分 × 6 － 30) × #pi ÷ 180) × 5 ＋ 128)
     
135. 画线 (求余弦 ((分 × 6 － 90) × #pi ÷ 180) × (半径 － 10) ＋ 128, 求正弦 ((分 × 6 － 90) × #pi ÷ 180) × (半径 － 10) ＋ 128, 求余弦 ((分 × 6 － 150) × #pi ÷ 180) × 5 ＋ 128, 求正弦 ((分 × 6 － 150) × #pi ÷ 180) × 5 ＋ 128)
     
136. 画线 (求余弦 ((分 × 6 － 270) × #pi ÷ 180) × 20 ＋ 128, 求正弦 ((分 × 6 － 270) × #pi ÷ 180) × 20 ＋ 128, 求余弦 ((分 × 6 － 30) × #pi ÷ 180) × 5 ＋ 128, 求正弦 ((分 × 6 － 30) × #pi ÷ 180) × 5 ＋ 128)
     
137. 画线 (求余弦 ((分 × 6 － 270) × #pi ÷ 180) × 20 ＋ 128, 求正弦 ((分 × 6 － 270) × #pi ÷ 180) × 20 ＋ 128, 求余弦 ((分 × 6 － 150) × #pi ÷ 180) × 5 ＋ 128, 求正弦 ((分 × 6 － 150) × #pi ÷ 180) × 5 ＋ 128)
     
138. 画线 (求余弦 ((时 × 30 － 90 ＋ 分 × 0.5) × #pi ÷ 180) × (半径 － 15) ＋ 128, 求正弦 ((时 × 30 － 90 ＋ 分 × 0.5) × #pi ÷ 180) × (半径 － 15) ＋ 128, 求余弦 ((时 × 30 － 30 ＋ 分 × 0.5) × #pi ÷ 180) × 10 ＋ 128, 求正弦 ((时 × 30 － 30 ＋ 分 × 0.5) × #pi ÷ 180) × 10 ＋ 128)
     
139. 画线 (求余弦 ((时 × 30 － 90 ＋ 分 × 0.5) × #pi ÷ 180) × (半径 － 15) ＋ 128, 求正弦 ((时 × 30 － 90 ＋ 分 × 0.5) × #pi ÷ 180) × (半径 － 15) ＋ 128, 求余弦 ((时 × 30 － 150 ＋ 分 × 0.5) × #pi ÷ 180) × 10 ＋ 128, 求正弦 ((时 × 30 － 150 ＋ 分 × 0.5) × #pi ÷ 180) × 10 ＋ 128)
     
140. 画线 (求余弦 ((时 × 30 － 270 ＋ 分 × 0.5) × #pi ÷ 180) × 15 ＋ 128, 求正弦 ((时 × 30 － 270 ＋ 分 × 0.5) × #pi ÷ 180) × 15 ＋ 128, 求余弦 ((时 × 30 － 30 ＋ 分 × 0.5) × #pi ÷ 180) × 10 ＋ 128, 求正弦 ((时 × 30 － 30 ＋ 分 × 0.5) × #pi ÷ 180) × 10 ＋ 128)
     
141. 画线 (求余弦 ((时 × 30 － 270 ＋ 分 × 0.5) × #pi ÷ 180) × 15 ＋ 128, 求正弦 ((时 × 30 － 270 ＋ 分 × 0.5) × #pi ÷ 180) × 15 ＋ 128, 求余弦 ((时 × 30 － 150 ＋ 分 × 0.5) × #pi ÷ 180) × 10 ＋ 128, 求正弦 ((时 × 30 － 150 ＋ 分 × 0.5) × #pi ÷ 180) × 10 ＋ 128)
     
142. 
     
143. .子程序 __启动窗口_鼠标左键被按下, 逻辑型
     
144. .参数 横向位置, 整数型
     
145. .参数 纵向位置, 整数型
     
146. .参数 功能键状态, 整数型
     
147. 
     
148. 发送信息 (161, 2, 0)
     
149. 
     
150. 
     

复制代码

Kuni7wa

520 发表于 2017-9-27 21:33
看着像是某学霸发明的，然后你改的。

我也觉得好像是哪里ctrl+c与v的吧。

Kuni7wa

小萌 发表于 2017-9-22 10:16
直接回复了所有的算了。

你也来水了。。可以啊。

123

Kuni7wa 发表于 2017-9-24 10:51
那串数字啥意思了???

图片数据。

66大顺

看看是啥玩意了

demon

感谢分享。。。

火山灰

赶蟹分享。

520

不错不错，收藏了

Cute

直接回复了所有的算了。

Kuni7wa

那串数字啥意思了???

Kuni7wa

123 发表于 2017-9-24 21:01
图片数据。

哦，原来如此。