51Testing软件测试论坛

标题: 请问在GUI中如何计时?一直没找到直接计时的命令,谢谢先! [打印本页]

作者: gogogo    时间: 2004-10-12 11:16
标题: 请问在GUI中如何计时?一直没找到直接计时的命令,谢谢先!

作者: guirongb    时间: 2004-10-12 15:26
上面不是有两个小时钟的么?starttimer("001")
作者: gogogo    时间: 2004-10-13 11:11
标题: 这个命令不能直接输出啊,只能在日志里看,还有别的命令吗,谢谢
1
作者: yang    时间: 2004-10-15 16:10
如果要求精度不是很高的话,你可以用以下方式输出到Console中:
:d
Sub Main

Dim Start_time
Dim End_time
Dim Total_time

Start_time = time

'执行的语句

End_time =time
Total_time = End_time - Start_time

SQAConsoleWrite("脚本运行用时共:"&Total_time)

End Sub
作者: yang    时间: 2004-10-15 16:17
可惜,只能精确到秒。哪位还有别的好办法?
作者: guirongb    时间: 2004-10-15 16:28
那就只能调用API函数拉。Robot可以调用系统函数
Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type

Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Declare function GetDay() as string
'系统的日期信息,精确到毫秒
function GetDay() as string

dim systime as systemtime
GetLocalTime systime
GetDay=cstr(systime.wYear) + "-" + cstr(systime.wMonth) + "-" + cstr(systime.wDay)+" "+cstr(systime.wHour)+":"+cstr(systime.wMinute)+":"+cstr(systime.wSecond)+":"+cstr(systime.wMilliseconds)
end function




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2