作者watery920 (温蒂妮watery)
看板Visual_Basic
标题Re: [VB6 ] 程式执行时间
时间Mon Jul 14 13:00:48 2008
※ 引述《watery920 (温蒂妮watery)》之铭言:
: 最近在做jpeg解压缩,并想要测试程式执行时间
: 用的方法如下:
: t12=Timer 记录程式起始时间
: JPEG解压缩程式
: :
: :
: :
: t13=Timer 记录程式结束时间
: Text12.text=str(t13*1000-t12*1000) 程式执行时间 =结束时间-起始时间
: 但是测试时,常常会出现 7.545153153E+07这样的数据
: 可以请问各位高手,这是怎麽样的问题,要怎麽样才能正
: 确的测试到程式执行时间,希望有高手可以给予建议或
: 方法,谢谢
: 还有
: 像这种动态阵列的宣告方式是不是很花时间?
: ReDim Preserve BytArry2(count2)
: 因为如果想保留原先资料,又想增加阵列空间
: 好像只有这种法?(ArrayList此法 VB6好像没有)
如果是用API Function的 timeGetTime的话
那程式是这样写吗?
t12=timeGetTime
JPEG解压缩程式
:
:
:
t13=timeGetTime
Text12.text=str(t13-t12)
如有错误,希望有高手能帮忙解答或是建议
(timeGetTime 计算的最小量是以毫秒ms为单位吗?
ex: t13-t12=20 => 20ms吗? )
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 219.86.134.67
※ 编辑: watery920 来自: 219.86.134.67 (07/14 13:01)
1F:推 fumizuki:是毫秒没错 07/15 07:07