导读
易语言5.6完美版,可静态编译,绿色无后门

学习易语言 讲究的是系统,如果你正在四处闲逛,你懂的永远是皮毛! 觅风论坛正在为每个困惑的对易语言 详细

[源码] 坐标计算器

[复制链接]

微信扫一扫 分享朋友圈

1104183303 发表于 2021-10-16 11:43:25 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题

马上注册,结交更多易友,享用更多功能,让你轻松玩转觅风论坛。

您需要 登录 才可以下载或查看,没有账号?立即注册

x
.版本 2
.支持库 spec

.子程序 _标签4_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果真 (参数一 = F1)
    编辑框1.内容 = 到文本 (取鼠标水平位置 ())
    编辑框2.内容 = 到文本 (取鼠标垂直位置 ())
.如果真结束
.如果真 (参数一 = F2)
    编辑框3.内容 = 到文本 (取鼠标水平位置 ())
    编辑框5.内容 = 到文本 (取鼠标垂直位置 ())

.如果真结束
.如果真 (参数一 = F3)
    编辑框4.内容 = 到文本 (取鼠标水平位置 ())
    编辑框6.内容 = 到文本 (取鼠标垂直位置 ())

.如果真结束


.子程序 _按钮1_被单击

时间1 = 到整数 (编辑框14.内容)  ' 可以改成你的秒数
倒计时1.时钟周期 = 1 × 1000
时钟3.时钟周期 = 60 × 1000

.子程序 按钮1

倒计时1.时钟周期 = 0
PLAY1 = 到数值 (编辑框1.内容)
PLAY2 = 到数值 (编辑框2.内容)
结束1 = 到数值 (编辑框3.内容)
结束2 = 到数值 (编辑框5.内容)
延迟 (1000)
鼠标移动 (, PLAY1, PLAY2)
延迟 (1000)
鼠标移动 (, PLAY1, PLAY2)
延迟 (1000)
鼠标键 (1, , )
延迟 (1000)
鼠标键 (1, , )
延迟 (1000)
鼠标键 (1, , )
延迟 (1000)
鼠标移动 (, 结束1, 结束2)
延迟 (1000)
鼠标移动 (, 结束1, 结束2)
延迟 (1000)
鼠标键 (1, , )
延迟 (1000)
鼠标键 (1, , )

回复

使用道具 举报

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

本版积分规则

关注我们:觅风论坛与你快乐分享

收藏本站

用心服务做个非盈利公益编程网站

www.eyyba.com

服务人:觅风论坛

Email:eyyba@foxmail.com

Powered by WWW.EYYBA.COM X3.4© 2001-2023 Inc.   版权所有   

觅风论坛  疆ICP备15020893号-1