|
楼主 |
发表于 2013-6-26 23:02:55
|
显示全部楼层
源代码如下
空间 安卓坐标测量
//默认空间
个数=1
m=1
线程句柄1
线程句柄2
功能 开始_点击()
获得=0
x=0,y=0
鼠标横坐标=0,鼠标纵坐标=0
获得=鼠标.获取坐标(x,y)
如果(获得)
编辑框.设置文本("编辑框0",x)
编辑框.设置文本("编辑框1",y)
如果结束
功能结束
功能 热键0_热键()
获得=0
x=0,y=0
鼠标横坐标=0,鼠标纵坐标=0
获得=鼠标.获取坐标(x,y)
如果(获得)
编辑框.设置文本("编辑框0",x)
编辑框.设置文本("编辑框1",y)
如果结束
返回 真
功能结束
功能 热键1_热键()
获得=0
x=0,y=0
鼠标横坐标=0,鼠标纵坐标=0
获得=鼠标.获取坐标(x,y)
如果(获得)
编辑框.设置文本("编辑框2",x)
编辑框.设置文本("编辑框3",y)
如果结束
功能结束
功能 热键2_热键()
//这里添加你要执行的代码
获得=0
x=0,y=0
鼠标横坐标=0,鼠标纵坐标=0
获得=鼠标.获取坐标(x,y)
如果(获得)
表格.设置内容("表格0",个数,1,x)
表格.设置内容("表格0",个数,2,y)
如果结束
个数=个数+1
功能结束
功能 退出_点击()
辅助.退出()
功能结束
功能 初始化()
//这里添加你要执行的代码
表格.设置内容("表格0",1,0,"向上位置")
表格.设置内容("表格0",2,0,"向下位置")
表格.设置内容("表格0",3,0,"向左位置")
表格.设置内容("表格0",4,0,"向右位置")
表格.设置内容("表格0",5,0,"按键1")
表格.设置内容("表格0",6,0,"按键2")
表格.设置内容("表格0",7,0,"按键3")
表格.设置内容("表格0",8,0,"按键4")
表格.设置内容("表格0",9,0,"按键5")
表格.设置内容("表格0",10,0,"按键6")
表格.设置内容("表格0",11,0,"按键7")
表格.设置内容("表格0",12,0,"按键8")
功能结束
功能 坐标换算()
控件.有效("按钮0",假)
辅助.等待(10)
控件.有效("按钮1",假)
辅助.等待(10)
原点x=编辑框.获得文本("编辑框0")
辅助.等待(10)
原点y=编辑框.获得文本("编辑框1")
辅助.等待(10)
终点x=编辑框.获得文本("编辑框2")
辅助.等待(10)
终点y=编辑框.获得文本("编辑框3")
辅助.等待(10)
基础值=编辑框.获得文本("编辑框4")
如果(终点x==原点x||终点y==原点y)
goto error
如果结束
x修正=基础值/(终点x-原点x)
y修正=基础值/(终点y-原点y)
m=1
循环(m<13)
如果(表格.获得内容("表格0",m,1)=="")
跳出
如果结束
x=(表格.获得内容("表格0",m,1)-原点x)*x修正
y=(表格.获得内容("表格0",m,2)-原点y)*y修正
表格.设置内容("表格0",m,3,类型.转整型(x))
表格.设置内容("表格0",m,4,类型.转整型(y))
m=m+1
循环结束
error:
控件.有效("按钮0",真)
辅助.等待(10)
控件.有效("按钮1",真)
辅助.等待(10)
功能结束
功能 按钮0_点击()//坐标换算
//这里添加你要执行的代码
线程句柄1=线程.开启("安卓坐标测量.坐标换算","")
功能结束
功能 清除归零()
控件.有效("按钮0",假)
辅助.等待(10)
控件.有效("按钮1",假)
辅助.等待(10)
编辑框.设置文本("编辑框0","")
编辑框.设置文本("编辑框1","")
编辑框.设置文本("编辑框2","")
编辑框.设置文本("编辑框3","")
n=1
循环(n<13)
表格.设置内容("表格0",n,1,"")
表格.设置内容("表格0",n,2,"")
表格.设置内容("表格0",n,3,"")
表格.设置内容("表格0",n,4,"")
n=n+1
循环结束
个数=1
控件.有效("按钮0",真)
辅助.等待(10)
控件.有效("按钮1",真)
辅助.等待(10)
功能结束
功能 按钮1_点击()//清除归零
//这里添加你要执行的代码
线程句柄2=线程.开启("安卓坐标测量.清除归零","")
功能结束
功能 按钮2_点击()//停止
//这里添加你要执行的代码
控件.有效("按钮0",假)
辅助.等待(10)
控件.有效("按钮1",假)
辅助.等待(10)
线程.关闭(线程句柄1)
辅助.等待(10)
线程.关闭(线程句柄2)
辅助.等待(10)
控件.有效("按钮0",真)
辅助.等待(10)
控件.有效("按钮1",真)
辅助.等待(10)
功能结束
空间结束
//空间结束语句
|
|