易语言圆周运动思路源码
.版本 2
.程序集 窗口程序集1
.程序集变量 n, 整数型
.程序集变量 x, 双精度小数型
.程序集变量 y, 双精度小数型
.子程序 _时钟1_周期事件
n = n + 1
x = 600 + 100 × 求正弦 (8 × n × #pi ÷ 180) ' (600,300)是圆心位置
y = 300 + 100 × 求余弦 (8 × n × #pi ÷ 180) ' 100是半径
图片框1.左边 = x
图片框1.顶边 = y
调试输出 (x, y)
.子程序 __启动窗口_创建完毕
图片框1.图片 = #图片1 ' 初始化图片框