易语言动画录制播放源码

啊冲

链接：http://pan.baidu.com/s/1jI1Ser0 密码：ii9r

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
REC
point	point
line	line	0
f

子程序名	返回值类型	公开	备 注
_按钮1_被单击

时钟1.时钟周期 ＝ 0
画板1.清除 (, , , )
清除数组 (line)
REC ＝ 1

子程序名	返回值类型	公开	备 注
_画板1_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

如果真 (REC ≠ 0)
point.x ＝ 横向位置
point.y ＝ 纵向位置
REC ＝ 2
画板1.画直线 (point.x, point.y, 横向位置, 纵向位置)

子程序名	返回值类型	公开	备 注
_画板1_鼠标左键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
temp	line

如果真 (REC ＝ 2)
画板1.画直线 (point.x, point.y, 横向位置, 纵向位置)
temp.p0 ＝ point
temp.p1.x ＝ 横向位置
temp.p1.y ＝ 纵向位置
加入成员 (line, temp)
REC ＝ 1

子程序名	返回值类型	公开	备 注
_画板1_鼠标位置被移动	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
temp	line

如果真 (REC ＝ 2)
画板1.画直线 (point.x, point.y, 横向位置, 纵向位置)
temp.p0 ＝ point
temp.p1.x ＝ 横向位置
temp.p1.y ＝ 纵向位置
加入成员 (line, temp)
point.x ＝ 横向位置
point.y ＝ 纵向位置

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

REC ＝ 1

子程序名	返回值类型	公开	备 注
_按钮2_被单击

f ＝ 0
REC ＝ 0
画板1.清除 (, , , )
时钟1.时钟周期 ＝ 15

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

f ＝ f ＋ 1
如果真 (f ＞ 取数组成员数 (line))
时钟1.时钟周期 ＝ 0
REC ＝ 1
返回 ()
画板1.画直线 (line [f].p0.x, line [f].p0.y, line [f].p1.x, line [f].p1.y)

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 REC<br /> .程序集变量 point, point<br /> .程序集变量 line, line, , "0"<br /> .程序集变量 f<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 时钟1.时钟周期 ＝ 0<br /> 画板1.清除 (, , , )<br /> 清除数组 (line)<br /> REC ＝ 1<br /> <br /> .子程序 _画板1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果真 (REC ≠ 0)<br />     point.x ＝ 横向位置<br />     point.y ＝ 纵向位置<br />     REC ＝ 2<br />     画板1.画直线 (point.x, point.y, 横向位置, 纵向位置)<br /> .如果真结束<br /> <br /> <br /> .子程序 _画板1_鼠标左键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 temp, line<br /> <br /> .如果真 (REC ＝ 2)<br />     画板1.画直线 (point.x, point.y, 横向位置, 纵向位置)<br />     temp.p0 ＝ point<br />     temp.p1.x ＝ 横向位置<br />     temp.p1.y ＝ 纵向位置<br />     加入成员 (line, temp)<br />     REC ＝ 1<br /> .如果真结束<br /> <br /> <br /> .子程序 _画板1_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 temp, line<br /> <br /> .如果真 (REC ＝ 2)<br />     画板1.画直线 (point.x, point.y, 横向位置, 纵向位置)<br />     temp.p0 ＝ point<br />     temp.p1.x ＝ 横向位置<br />     temp.p1.y ＝ 纵向位置<br />     加入成员 (line, temp)<br />     point.x ＝ 横向位置<br />     point.y ＝ 纵向位置<br /> .如果真结束<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> REC ＝ 1<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> f ＝ 0<br /> REC ＝ 0<br /> 画板1.清除 (, , , )<br /> 时钟1.时钟周期 ＝ 15<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> f ＝ f ＋ 1<br /> .如果真 (f ＞ 取数组成员数 (line))<br />     时钟1.时钟周期 ＝ 0<br />     REC ＝ 1<br />     返回 ()<br /> .如果真结束<br /> 画板1.画直线 (line [f].p0.x, line [f].p0.y, line [f].p1.x, line [f].p1.y)