51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2490|回复: 4
打印 上一主题 下一主题

[原创] 计算器一位数相加源码。加msgbox后经有时运行成功,有时不能成功。

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2006-7-12 09:37:52 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
以下为从文本读一位数相加的代码
'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可正常运运,但加上后,却时而能运行,时而不能运行。是什么原因?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2006-7-12 10:02:22 | 只看该作者
看着代码这么熟悉呢。。。。呵呵
不知道错误原因是什么,但是从你代码来看代码数据类型转换有问题,
msgbox "TestNumberOne=" & TestNumberOne
        msgbox "TestNumberTwo=" & TestNumberTwo
需要 修改为
msgbox "TestNumberOne=" & CStr(TestNumberOne)
        msgbox "TestNumberTwo=" & CStr(TestNumberTwo)
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2006-7-12 10:03:39 | 只看该作者
不能运行是报什么错?
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2006-7-12 15:36:31 | 只看该作者
呵呵,那个就是梁老师讲课时的范例啊
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2006-7-12 15:39:37 | 只看该作者
问题还是一样的呢
有时候可以很顺得的一次通过,有时候服‘Object not visible',Details'Line (24): "Window("计算器").WinButton(TestNumberOne).Click". '
去掉msgbox还是执行得挺顺的。
在中间加入6秒延迟也没问题。
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-9 04:41 , Processed in 0.067472 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表