TC官方合作论坛

 找回密码
 立即注册
查看: 1174|回复: 3

[源码分享] 鼠标绕乘长方形---小菜鸟刚学会的

[复制链接]
发表于 2012-5-22 16:20:58 | 显示全部楼层 |阅读模式



空间 测试
//定义默认空间

功能 逻辑型 开始_点击()
//这里添加你要执行的代码
整型 a,b,c,d
a=20
b=20
c=20
d=20
重复(3)
while(a<400)
    鼠标.移动(400+a,400)
     a=a+20
    辅助.等待(44)
    if(a==380)
        跳出
    endif
endwhile
while(b<400)
    鼠标.移动(800,400-b)
     b=b+20
    辅助.等待(44)
    if(b==380)
        跳出
    endif
endwhile
while(c<400)
    鼠标.移动(800-c,40)
     c=c+20
    辅助.等待(44)
    if(c==380)
        跳出
    endif
endwhile
while(d<400)
    鼠标.移动(400,40+d)
     d=d+20
    辅助.等待(44)
    if(d==380)
        跳出
    endif
endwhile
a=20
b=20
c=20
d=20
重复结束
辅助.消息框("完成了")
返回 真
//函数返回语句
功能结束

功能 逻辑型 退出_点击()
//这里添加你要执行的代码
辅助.退出()

返回 真
//函数返回语句
功能结束

空间结束
//空间结束语句

本帖子中包含更多资源

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

x
回复

使用道具 举报

发表于 2012-5-22 16:43:31 | 显示全部楼层
很好
回复 支持 反对

使用道具 举报

发表于 2012-5-22 16:57:08 | 显示全部楼层
来看看  学习下。
回复 支持 反对

使用道具 举报

板桥 该用户已被删除
发表于 2012-5-22 20:06:27 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

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

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18045623号)

GMT+8, 2024-6-3 18:32 , Processed in 0.041523 second(s), 24 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

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