精易论坛

标题: 用画板做的时钟演示 [打印本页]

作者: jingyi11023995    时间: 2017-4-19 21:32
标题: 用画板做的时钟演示
本帖最后由 宇智波·佐助 于 2017-4-21 10:00 编辑
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
子程序名返回值类型公开备 注
钟摆  
变量名类 型静态数组备 注
画板宽度整数型 
画板高度整数型 
半径整数型 
角度整数型 
起点X整数型 
起点Y整数型 
终点X整数型 
终点Y整数型 
i整数型 
运行逻辑型 
运行 = 真
半径 = 50
角度 = 6
画板宽度 = 画板1.宽度
画板高度 = 画板1.高度
起点X = 画板宽度 ÷ 2
起点Y = 画板高度 ÷ 2
画板1.画笔粗细 = 2
判断循环首 (运行)
画板1.清除 (, , , )
画板1.画椭圆 (起点X - 半径 - 10, 起点Y - 半径 - 10, 起点X + 半径 + 10, 起点Y + 半径 + 10)
i = i + 1
终点X = 起点X + 半径 × 求余弦 (i × 角度 × #pi ÷ 180)
终点Y = 起点Y + 半径 × 求正弦 (i × 角度 × #pi ÷ 180)
画板1.画直线 (起点X, 起点Y, 终点X, 终点Y)
延时 (100)  ' 应该为1000的,这是演示
如果真 (i > 360 ÷ 角度)
调试输出 (“jingyi11023995”)  ' 一圈了
i = 0

判断循环尾 ()
子程序名返回值类型公开备 注
__启动窗口_首次激活  
启动线程 (&钟摆, , )


i支持库列表   支持库注释   
spec特殊功能支持库
EThread多线程支持库

画板时钟.zip (167.91 KB, 下载次数: 25)





补充内容 (2017-4-22 00:02):
删除里面的精易模块就行了,源码没用到的,刚好之前用过。

补充内容 (2017-4-22 01:07):
新的在6楼,感谢@宇智波·佐助 的提醒。
作者: jingyi11023995    时间: 2017-4-19 21:33
界面:

作者: Lucifer北冥有鱼    时间: 2017-4-20 10:19
不错 学习一下
作者: ei9997    时间: 2017-4-20 14:42
厉害 支持
作者: sunji888    时间: 2017-4-21 19:48
过来看看哈哈
作者: jingyi11023995    时间: 2017-4-22 01:06
不好意思,之前的代码有多余的模块。
已经删除掉没用到的精易模块,并且优化了一下。

画板时钟.zip

1.93 KB, 下载次数: 5, 下载积分: 精币 -2 枚






欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4