用画板做的时钟演示

jingyi11023995

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
钟摆

变量名	类 型	静态	数组	备 注
画板宽度	整数型
画板高度	整数型
半径	整数型
角度	整数型
起点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	多线程支持库

.版本 2<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 钟摆<br /> .局部变量 画板宽度, 整数型<br /> .局部变量 画板高度, 整数型<br /> .局部变量 半径, 整数型<br /> .局部变量 角度, 整数型<br /> .局部变量 起点X, 整数型<br /> .局部变量 起点Y, 整数型<br /> .局部变量 终点X, 整数型<br /> .局部变量 终点Y, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 运行, 逻辑型<br /> <br /> 运行 ＝ 真<br /> 半径 ＝ 50<br /> 角度 ＝ 6<br /> 画板宽度 ＝ 画板1.宽度<br /> 画板高度 ＝ 画板1.高度<br /> 起点X ＝ 画板宽度 ÷ 2<br /> 起点Y ＝ 画板高度 ÷ 2<br /> 画板1.画笔粗细 ＝ 2<br /> .判断循环首 (运行)<br />     画板1.清除 (, , , )<br />     画板1.画椭圆 (起点X － 半径 － 10, 起点Y － 半径 － 10, 起点X ＋ 半径 ＋ 10, 起点Y ＋ 半径 ＋ 10)<br />     i ＝ i ＋ 1<br />     终点X ＝ 起点X ＋ 半径 × 求余弦 (i × 角度 × #pi ÷ 180)<br />     终点Y ＝ 起点Y ＋ 半径 × 求正弦 (i × 角度 × #pi ÷ 180)<br /> <br />     画板1.画直线 (起点X, 起点Y, 终点X, 终点Y)<br />     延时 (100)  ' 应该为1000的，这是演示<br />     .如果真 (i ＞ 360 ÷ 角度)<br />         调试输出 (“jingyi11023995”)  ' 一圈了<br />         i ＝ 0<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> <br /> .子程序 __启动窗口_首次激活<br /> <br /> 启动线程 (&钟摆, , )

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

2017-4-21 10:00 上传

点击文件名下载附件
阅读权限: 10
下载积分: 精币 -2 枚

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

补充内容 (2017-4-22 01:07):
新的在6楼，感谢@宇智波·佐助 的提醒。

jingyi11023995

界面：

Lucifer北冥有鱼

不错 学习一下

ei9997

厉害 支持

sunji888

过来看看哈哈

jingyi11023995

不好意思，之前的代码有多余的模块。
已经删除掉没用到的精易模块，并且优化了一下。