设为首页收藏本站亲,今天是2018年04月21日,离还有-17641.666666667天。

易源码

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 272|回复: 0

易语言动画录制播放源码

[复制链接]

3188

主题

7949

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
19399
发表于 2017-11-27 09:05:38 | 显示全部楼层 |阅读模式
链接:http://pan.baidu.com/s/1jI1Ser0 密码:ii9r

  
窗口程序集名保 留  保 留备 注
窗口程序集1   
变量名类 型数组备 注
REC   
pointpoint  
lineline0 
f   

子程序名返回值类型公开备 注
_按钮1_被单击  
时钟1.时钟周期 = 0
画板1.清除 (, , , )
清除数组 (line)
REC = 1
子程序名返回值类型公开备 注
_画板1_鼠标左键被按下逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型   
纵向位置整数型   
功能键状态整数型   
如果真 (REC ≠ 0)
point.x = 横向位置
point.y = 纵向位置
REC = 2
画板1.画直线 (point.x, point.y, 横向位置, 纵向位置)

子程序名返回值类型公开备 注
_画板1_鼠标左键被放开逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型   
纵向位置整数型   
功能键状态整数型   
变量名类 型静态数组备 注
templine  
如果真 (REC = 2)
画板1.画直线 (point.x, point.y, 横向位置, 纵向位置)
temp.p0 = point
temp.p1.x = 横向位置
temp.p1.y = 纵向位置
加入成员 (line, temp)
REC = 1

子程序名返回值类型公开备 注
_画板1_鼠标位置被移动逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型   
纵向位置整数型   
功能键状态整数型   
变量名类 型静态数组备 注
templine  
如果真 (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)




上一篇:易语言动画录像源码
下一篇:易语言动态射线源码
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|易源码论坛 ( 123456  

GMT+8, 2018-4-21 08:07 , Processed in 0.063884 second(s), 11 queries , File On.

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表