开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 5346|回复: 36
收起左侧

[易源码分享] 桌面飞苍蝇学习源码(利用了d2d_基本不占用cpu)

[复制链接]
结帖率:53% (8/15)
发表于 2019-9-20 21:16:27 | 显示全部楼层 |阅读模式   河南省平顶山市
分享源码
界面截图: -
是否带模块: -
备注说明: -
来这么久了 没发过什么东东  今天突然对d2d 感兴趣 就随便写了一个 桌面飞苍蝇的 程序 苍蝇头没有根据方向转向 有兴趣 的可以下载完善一下
  
窗口程序集名保 留  保 留备 注
程序集1   
变量名类 型数组备 注
图片x   
图片x增加逻辑型  
图片y增加逻辑型  
图片y   
bs1整数型  
bs2整数型  
bs1j逻辑型  
bs2j逻辑型  
bs10整数型  
bs20整数型  
bs1j0逻辑型  
bs2j0逻辑型  
bs11整数型  
bs21整数型  
bs1j1逻辑型  
bs2j1逻辑型  
bs12整数型  
bs22整数型  
bs1j2逻辑型  
bs2j2逻辑型  
图片x0   
图片x增加0逻辑型  
图片y增加0逻辑型  
图片y0   
图片x1   
图片x增加1逻辑型  
图片y增加1逻辑型  
图片y1   
图片x2   
图片x增加2逻辑型  
图片y增加2逻辑型  
图片y2   
pmkd整数型  
pmgd整数型  

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

子程序名返回值类型公开备 注
_启动子程序整数型 本子程序在程序启动后最先执行
主程序 ()
返回 (0)  ' 可以根据您的需要返回任意数值
子程序名返回值类型公开备 注
主程序  
变量名类 型静态数组备 注
zHWD整数型 
XInitXCGUI ({  })  ' 初始化炫彩菜单
' pmkd = 取屏幕宽度 () - 120
' pmgd = 取屏幕高度 () - 120
pmkd = 取屏幕宽度 ()
pmgd = 取屏幕高度 ()
HWD = XWnd_Create (0, 0, pmkd, pmgd, L (“d2d测试”, ), 0, #xc_window_style_center )
XWnd_ShowWindow (HWD, #SW_SHOW )
窗口句柄 = XWnd_GetHWND (HWD)
窗口_置透明度 (窗口句柄, 0, #深灰, )
XWnd_EnableDragWindow (HWD, )
xskz2d [1].创建窗口模式 (窗口句柄, pmkd, pmgd)
图片x = 0
图片x0 = 到整数 (取屏幕宽度 () ÷ 11)
图片x1 = 到整数 (取屏幕宽度 () ÷ 5)
图片x2 = 到整数 (取屏幕宽度 () ÷ 20)
图片y = 0
图片y0 = 到整数 (取屏幕高度 () ÷ 3)
图片y1 = 到整数 (取屏幕高度 () ÷ 7)
图片y2 = 到整数 (取屏幕高度 () ÷ 11)
线程_启动 (&sx2d, 80, )
XRunXCGUI ()
XExitXCGUI ()
' 载入 (窗口1, , )
子程序名返回值类型公开备 注
sx2d  
参数名类 型参考可空数组备 注
sj 
判断循环首 ()
xskz2d [1].填充 ( #深灰 )
ymkz2d.建位图页面 (xskz2d [1], 取运行目录 ()“\cy.bmp”, )
ymkz2d.置顶点关键色 ()
判断 (bs1 ≤ 1)
bs1j = 真
判断 (bs1 ≥ 200)
bs1j = 假



判断 (bs2 ≤ 1)
bs2j = 真
判断 (bs2 ≥ 80)
bs2j = 假



判断 (bs1j)
bs1 = bs1 + 1
bs1 = bs1 - 1
判断 (bs2j)
bs2 = bs2 + 1
bs2 = bs2 - 1
判断 (图片x ≤ 0)
图片x增加 = 真
判断 (图片x ≥ pmkd)
图片x增加 = 假



判断 (图片y ≤ 0)
图片y增加 = 真
判断 (图片y ≥ pmgd)
图片y增加 = 假



判断 (图片x增加)
图片x = 图片x + bs1
图片x = 图片x - bs2

判断 (图片y增加)
图片y = 图片y + bs2
图片y = 图片y - bs1
判断 (bs10 ≤ 1)
bs1j0 = 真
判断 (bs10 ≥ 200)
bs1j0 = 假



判断 (bs20 ≤ 1)
bs2j0 = 真
判断 (bs20 ≥ 80)
bs2j0 = 假



判断 (bs1j0)
bs10 = bs10 + 2
bs10 = bs10 - 2
判断 (bs2j0)
bs20 = bs20 + 2
bs20 = bs20 - 2
判断 (图片x0 ≤ 0)
图片x增加0 = 真
判断 (图片x0 ≥ pmkd)
图片x增加0 = 假



判断 (图片y0 ≤ 0)
图片y增加0 = 真
判断 (图片y0 ≥ pmgd)
图片y增加0 = 假



判断 (图片x增加0)
图片x0 = 图片x0 + bs10
图片x0 = 图片x0 - bs20

判断 (图片y增加0)
图片y0 = 图片y0 + bs20
图片y0 = 图片y0 - bs10
判断 (bs11 ≤ 1)
bs1j1 = 真
判断 (bs11 ≥ 200)
bs1j1 = 假



判断 (bs21 ≤ 1)
bs2j1 = 真
判断 (bs21 ≥ 80)
bs2j1 = 假



判断 (bs1j1)
bs11 = bs11 + 3
bs11 = bs11 - 3
判断 (bs2j1)
bs21 = bs21 + 3
bs21 = bs21 - 3
判断 (图片x1 ≤ 0)
图片x增加1 = 真
判断 (图片x1 ≥ pmkd)
图片x增加1 = 假



判断 (图片y1 ≤ 0)
图片y增加1 = 真
判断 (图片y1 ≥ pmgd)
图片y增加1 = 假



判断 (图片x增加1)
图片x1 = 图片x1 + bs11
图片x1 = 图片x1 - bs21

判断 (图片y增加1)
图片y1 = 图片y1 + bs21
图片y1 = 图片y1 - bs11
判断 (bs12 ≤ 1)
bs1j2 = 真
判断 (bs12 ≥ 200)
bs1j2 = 假



判断 (bs22 ≤ 1)
bs2j2 = 真
判断 (bs22 ≥ 80)
bs2j2 = 假



判断 (bs1j2)
bs12 = bs12 + 4
bs12 = bs12 - 4
判断 (bs2j2)
bs22 = bs22 + 4
bs22 = bs22 - 4
判断 (图片x2 ≤ 0)
图片x增加2 = 真
判断 (图片x2 ≥ pmkd)
图片x增加2 = 假



判断 (图片y2 ≤ 0)
图片y增加2 = 真
判断 (图片y2 ≥ pmgd)
图片y增加2 = 假



判断 (图片x增加2)
图片x2 = 图片x2 + bs12
图片x2 = 图片x2 - bs22

判断 (图片y增加2)
图片y2 = 图片y2 + bs22
图片y2 = 图片y2 - bs12
ymkz2d.透空块复制 (xskz2d [1].取后台页面 (), 图片x2, 图片y, )
ymkz2d.透空块复制 (xskz2d [1].取后台页面 (), 图片x1, 图片y0, )
ymkz2d.透空块复制 (xskz2d [1].取后台页面 (), 图片x0, 图片y1, )
ymkz2d.透空块复制 (xskz2d [1].取后台页面 (), 图片x, 图片y2, )
xskz2d [1].交换页面 (假, 假, )
' XWnd_RedrawWnd (HWD, )
程序_延时 (sj, )
判断循环尾 ()


i支持库列表   支持库注释   
EdirectXDirectX支持库
源码下载
桌面飞苍蝇学习源码(利用了d2d_基本不占用cpu).zip (1.35 MB, 下载次数: 91)

评分

参与人数 1好评 +1 精币 +5 收起 理由
易语言资源网 + 1 + 5 支持开源~!感谢分享

查看全部评分


结帖率:100% (1/1)

签到天数: 15 天

发表于 2021-6-30 11:37:58 | 显示全部楼层   福建省福州市
下载下来玩玩啊
回复 支持 反对

使用道具 举报

结帖率:67% (2/3)
发表于 2019-10-12 17:50:01 | 显示全部楼层   四川省成都市
本是想下载欣赏下,结果缺少文件。
回复 支持 反对

使用道具 举报

结帖率:50% (3/6)

签到天数: 1 天

发表于 2019-9-27 11:21:48 | 显示全部楼层   浙江省宁波市
看看是啥!!!!!!!
回复 支持 反对

使用道具 举报

结帖率:50% (1/2)
发表于 2019-9-26 16:13:28 | 显示全部楼层   湖南省怀化市
大佬
回复 支持 反对

使用道具 举报

结帖率:0% (0/2)
发表于 2019-9-26 15:26:00 | 显示全部楼层   广东省深圳市
看看!!!!!!!
回复 支持 反对

使用道具 举报

发表于 2019-9-26 00:42:51 | 显示全部楼层   福建省漳州市
666666666666666666
回复 支持 反对

使用道具 举报

发表于 2019-9-25 21:06:57 | 显示全部楼层   广东省佛山市
看看学习一下
回复 支持 反对

使用道具 举报

发表于 2019-9-25 12:53:41 | 显示全部楼层   浙江省杭州市
666666666666666666
回复 支持 反对

使用道具 举报

结帖率:100% (9/9)
发表于 2019-9-24 09:59:54 | 显示全部楼层   福建省厦门市

看看学习下
回复 支持 反对

使用道具 举报

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

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 诚聘英才| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 800073686,邮箱:800073686@b.qq.com
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

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