51Testing软件测试论坛

标题: 计算器一位数相加源码。加msgbox后经有时运行成功，有时不能成功。 [打印本页]

作者: babel 时间: 2006-7-12 09:37
标题: 计算器一位数相加源码。加msgbox后经有时运行成功，有时不能成功。
以下为从文本读一位数相加的代码
'Option explicit
Dim Fso,TheFile,ReadString
Dim TestNumberOne,TestNumberTwo
Dim ipos,iLen

Const ForReading=1

Set Fso=createobject("Scripting.FileSystemObject")
Set TheFile= Fso.OpenTextFile("F:\test\VB calc\testNumber.txt",ForReading,False)

Do while TheFile.atendofline<>true

ReadString=TheFile.ReadLine

ipos=instr(1,ReadString,",",1)
iLen=Len(ReadString)

TestNumberOne=Left(ReadString,ipos-1)
TestNumberTwo=Right(ReadString,iLen-ipos)

msgbox "TestNumberOne=" & TestNumberOne
msgbox "TestNumberTwo=" & TestNumberTwo

Window("计算器").WinButton(TestNumberOne).Click
Window("计算器").WinButton("+").Click
Window("计算器").WinButton(TestNumberTwo).Click
Window("计算器").WinButton("=").Click

Loop

TheFile.close
Set TheFile=nothing
Set Fso=nothing

去掉msgbox可正常运运，但加上后，却时而能运行，时而不能运行。是什么原因？

作者: pcl2004_27 时间: 2006-7-12 10:02
看着代码这么熟悉呢。。。。呵呵
不知道错误原因是什么，但是从你代码来看代码数据类型转换有问题，
msgbox "TestNumberOne=" & TestNumberOne
msgbox "TestNumberTwo=" & TestNumberTwo
需要修改为
msgbox "TestNumberOne=" & CStr(TestNumberOne)
msgbox "TestNumberTwo=" & CStr(TestNumberTwo)

作者: xiaonan 时间: 2006-7-12 10:03
不能运行是报什么错?

作者: babel 时间: 2006-7-12 15:36
呵呵，那个就是梁老师讲课时的范例啊

作者: babel 时间: 2006-7-12 15:39
问题还是一样的呢
有时候可以很顺得的一次通过，有时候服‘Object not visible',Details'Line (24): "Window("计算器").WinButton(TestNumberOne).Click". '
去掉msgbox还是执行得挺顺的。
在中间加入6秒延迟也没问题。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)