|
- 空间 记录按键测试
- function bool 记录按键()
- 整型 键值
- 整型 时间
-
- 循环(真)
-
- 键值 = 键盘.等待按键()
- 辅助.等待(500)
- 如果(键值==49)
- 时间=系统.获取毫秒() //得到第一次按1或者按2的时间
- 列表框.增加文本("列表框0",convert.inttostr(1))
- 列表框.增加文本("列表框1","1")
- 跳出
-
- 否则
- 如果(键值==50)
- 时间=系统.获取毫秒() //得到第一次按1或者按2的时间
- 列表框.增加文本("列表框0",convert.inttostr(1))
- 列表框.增加文本("列表框1","2")
- 跳出
- 如果结束
-
- 如果结束
-
- 循环结束
-
-
-
-
-
- 循环(真)
-
- 键值 = 键盘.等待按键()
- 辅助.等待(500)
- 如果(键值==49)
- 列表框.增加文本("列表框0",convert.inttostr((系统.获取毫秒()-时间)/1000)+"秒")//这个时间是间隔上一次按1或2到现在按1或2这这之间的时间
- 列表框.增加文本("列表框1","1")
- 时间 = 系统.获取毫秒()
- 否则
- 如果(键值==50)
- 列表框.增加文本("列表框0",convert.inttostr((系统.获取毫秒()-时间)/1000)+"秒")
- 列表框.增加文本("列表框1","2")
- 时间 = 系统.获取毫秒()
- 如果结束
-
- 如果结束
-
-
- 循环结束
-
- 返回 真
- 功能结束
- 功能 逻辑型 开始_点击()
-
- thread.beginthread("记录按键测试.记录按键","")
-
-
- 返回 真
- 功能结束
- 功能 逻辑型 退出_点击()
- 辅助.退出()
- 返回 真
- 功能结束
- 空间结束
复制代码
|
|