设为首页收藏本站亲,今天是2018年01月20日,离还有-17550.666666667天。

易源码

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

易语言动画录像源码

[复制链接]

3188

主题

7949

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
19393
发表于 2017-11-27 09:04:43 | 显示全部楼层 |阅读模式
链接:http://pan.baidu.com/s/1qYhxjkg 密码:eddb

  
窗口程序集名保 留  保 留备 注
窗口程序集1   
变量名类 型数组备 注
动画制作
帧信息
动画信息
上一图片字节集  
延迟时间整数型  
帧数量整数型  
鼠标水平位置整数型  
鼠标垂直位置整数型  
h_   
v_   
宽度集   
高度集   

子程序名返回值类型公开备 注
__启动窗口_创建完毕 调整大小
' --========  易语言资源网  ([url]www.wodesoft.com[/url])  ======--
' 努力创建完善、持续更新的易语言学习例程源码资源站
' --================   [url]www.wodesoft.com[/url]  ===========--
' --==================   易语言资源网注意事项  ================--
' * 易语言资源网为易语言官方站、易语言官方论坛提供辅助资源站;
' 本易语言资源网( [url]www.wodesoft.com[/url])所有软件和资料均为软件作者提
' 供和网友推荐发布而来,其版权归该软件和程序源码的合法拥有者所
' 有,本站易语言资源网整理收集仅供易语言用户学习和易语言技术研
' 究探讨使用,不得用于任何商业用途。如果由于以上原因造成的版权
' 纠纷本站概不负责!
' * 本站资源未经许可,任何网站不得非法盗链及抄袭本站资源;如引用
' 页面,请注明来自易语言资源网,谢谢合作!
' --=====================   [url]www.wodesoft.com[/url]  ================--
h_ = 取屏幕宽度 ()
v_ = 取屏幕高度 ()
宽度集 = 到整数 (编辑框1.内容)
高度集 = 到整数 (编辑框2.内容)
子程序名返回值类型公开备 注
_按钮1_被单击  
??? ()  '
??? ()  '
如果 (单选框2.选中)
动画信息 = 宽度集  '
动画信息 = 高度集  '
画板1.宽度 = 宽度集
画板1.高度 = 高度集
' 本源码来自易语言资源网([url]www.wodesoft.com[/url])
动画信息 = h_  '
动画信息 = v_  '
画板1.宽度 = h_
画板1.高度 = v_
动画信息 =   '
动画信息 = “屏幕录象”  '
??? ()  '
帧数量 = 0
延迟时间 = 50
上一图片 = {  }
连续赋值 (真, 按钮1.禁止, 按钮3.禁止)
按钮2.禁止 = 取反 (按钮1.禁止)
时钟1.时钟周期 = 500
子程序名返回值类型公开备 注
_按钮2_被单击  
时钟1.时钟周期 = 0
连续赋值 (假, 按钮1.禁止, 按钮3.禁止)
按钮2.禁止 = 取反 (按钮1.禁止)
处理事件 ()
_按钮3_被单击 ()
子程序名返回值类型公开备 注
_按钮3_被单击  
如果真 (通用对话框1.打开 ())
??? ()  '
' 本源码来自易语言资源网([url]www.wodesoft.com[/url])
子程序名返回值类型公开备 注
_按钮4_被单击  
载入 (窗口1, , )
' 呵呵,从易语言学来的,复制过来的版权.录制鼠标周边,很有创意.
子程序名返回值类型公开备 注
_时钟1_周期事件  
变量名类 型静态数组备 注
bmp字节集  
x整数型  
y整数型  
i整数型  
如果真 (单选框1.选中)
录制全屏 ()
返回 ()
' 本源码来自易语言资源网([url]www.wodesoft.com[/url])
bmp = 快照 (, , )
x = 取鼠标水平位置 ()
y = 取鼠标垂直位置 ()
如果 (bmp ≠ 上一图片 x ≠ 鼠标水平位置 y ≠ 鼠标垂直位置)
上一图片 = bmp
鼠标水平位置 = x
鼠标垂直位置 = y
i = 载入图片 (bmp)
画板1.画图片 (i, -x + 宽度集 ÷ 2, -y + 高度集 ÷ 2, , , )
卸载图片 (i)
i = 载入图片 ( #光标 )
画板1.画图片 (i, 宽度集 ÷ 2, 高度集 ÷ 2, , , )
' 本源码来自易语言资源网([url]www.wodesoft.com[/url])
卸载图片 (i)
bmp = 画板1.取图片 (, )
帧信息 = 延迟时间  '
延迟时间 = 50
??? ()  '
帧数量 = 帧数量 + 1
延迟时间 = 延迟时间 + 50

子程序名返回值类型公开备 注
录制全屏
变量名类 型静态数组备 注
bmp字节集  
x整数型  
y整数型  
i整数型  
bmp = 快照 (, , )
x = 取鼠标水平位置 ()
y = 取鼠标垂直位置 ()
如果 (bmp ≠ 上一图片 x ≠ 鼠标水平位置 y ≠ 鼠标垂直位置)
上一图片 = bmp
鼠标水平位置 = x
鼠标垂直位置 = y
i = 载入图片 (bmp)
画板1.画图片 (i, 0, 0, , , )
卸载图片 (i)
i = 载入图片 ( #光标 )
画板1.画图片 (i, x, y, , , )
' 本源码来自易语言资源网([url]www.wodesoft.com[/url])
卸载图片 (i)
bmp = 画板1.取图片 (, )
帧信息 = 延迟时间  '
延迟时间 = 50
??? ()  '
帧数量 = 帧数量 + 1
延迟时间 = 延迟时间 + 50




上一篇:易语言动画框画板
下一篇:易语言动画录制播放源码
回复

使用道具 举报

3188

主题

7949

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
19393
 楼主| 发表于 2017-11-27 09:05:03 | 显示全部楼层
  
窗口程序集名保 留  保 留备 注
窗口程序集2   
子程序名返回值类型公开备 注
_标签1_鼠标左键被按下逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型   
纵向位置整数型   
功能键状态整数型   
销毁 ()
子程序名返回值类型公开备 注
_窗口1_鼠标左键被按下逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型   
纵向位置整数型   
功能键状态整数型   
销毁 ()
回复

使用道具 举报

3188

主题

7949

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
19393
 楼主| 发表于 2017-11-27 09:05:08 | 显示全部楼层
  
DLL命令名返回值类型公开备 注
ShellExecute整数型  ;    查找与指定文件关联在一起的程序的文件名 非零表示成功,零表示失败。会设置GetLastError
DLL库文件名:
shell32.dll
在DLL库中对应命令名:
ShellExecuteA
参数名类 型传址数组备 注
hwnd整数型  指定一个窗口的句柄,有时候,windows程序有必要在创建自己的主窗口前显示一个消息框
lpOperation文本型  指定字串“open”来打开lpFlie文档,或指定“Print”来打印它
lpFile文本型  想用关联程序打印或打开一个程序名或文件名
lpParameters文本型  如lpszFlie是可执行文件,则这个字串包含传递给执行程序的参数
lpDirectory文本型  想使用的完整路径
nShowCmd整数型  定义了如何显示启动程序的常数值。参考ShowWindow函数的nCmdShow参数;

回复

使用道具 举报

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

本版积分规则

QQ|Archiver|易源码论坛 ( 123456  

GMT+8, 2018-1-20 01:40 , Processed in 0.085758 second(s), 10 queries , File On.

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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