也拿计算器Calc做个例子，和大家分享一下我的代码

yuandjing

看到大家都在拿微软的计算器做例子，我也分享一下我的例子，恰巧也是Calc的例子，哈哈，只要把计算器添加进对象库就能运行了


'#####################################################################
'###              上海（保密一下）软件有限公司      开发部            ########################
'###              被测对象：Microsoft calc.exe (计算器)               ###################
'###              功能：1.随机生成测试操作位数、操作数、操作运算符      ######
'###                             2.生成日志文件               ################################
'###             作者：俞戴龙               ########################################
'###            完成日期：2007.8.14               ##################################
'###################################################################

Option Explicit '强制声明变量
Environment.Value("RunTimes") = 20 ' 执行测试次数
Dim fileSpec  '测试报告存放位置
fileSpec ="C:\" &"测试报告QTP_"& Date & ".txt"

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'主函数''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'让QTP运行时保持最小化
Call qtp_small

'获取当前时间
Dim currentTime,currentDate
currentDate = Date
currentTime = Time

'写入测试报告
call QTP_WriteFile(fileSpec,"##############################################")
call QTP_WriteFile(fileSpec,"######       被测对象：计算器      ###########")
call QTP_WriteFile(fileSpec,"######      测试者：俞戴龙            ########")
call QTP_WriteFile(fileSpec,"##### 测试日期： " + cstr(currentDate) + cstr(currentTime) +  "  ####")
call QTP_WriteFile(fileSpec,"##############################################")
call QTP_WriteFile(fileSpec,"")

'执行测试
Dim circle
For circle =1 to Environment.Value("RunTimes")

        SystemUtil.Run "C:\WINDOWS\system32\calc.exe","","C:\WINDOWS\system32","open"

        Dim len1,len2 'len1第一操作位数，len2第二操作位数
        Dim op1,op2 'op1第一操作数，op2第二操作数
        Dim operator '运算符
        Dim result '预期运算结果

        Window("计算器").Activate
       
        '生成第一操作位数
        len1 = Get_RandNum(1,5)
        Window("计算器").Activate
       
        '生成第二操作位数
        len2 = Get_RandNum(1,5)
        Window("计算器").Activate
       
        '生成第一操作数
        op1 = GetExec(len1)
        Window("计算器").Activate
       
        '生成操作运算符
        operator =  GetOperation()
        Window("计算器").Activate
       
        '生成第二操作数
        op2 = GetExec(len2)
        Window("计算器").Activate
       
        '计算期望值
        Select Case operator
                        Case 0   result = clng(op1) + clng(op2)
                        Case 1   result = clng(op1) - clng(op2)
                        Case 2   result = clng(op1) * clng(op2)
                        Case 3   result = clng(op1) / clng(op2)
        End Select

        '点击“等于”按键
        Window("计算器").Activate
        Window("计算器").WinButton("=").Click

        '获取实际运算结果
        Dim RealValue
        RealValue = Window("计算器").WinEdit("Edit").GetROProperty("text")

        '写测试日志
        If (clng(result) - clng(RealValue) =0 ) Then
                call QTP_WriteFile(fileSpec,"测试用例"+ cstr(circle) + "：" + "      " + "测试通过")
                call QTP_WriteFile(fileSpec,"")
        else
                 call QTP_WriteFile(fileSpec,"测试用例"+ cstr(circle) + "：" + "      " + "测试不通过")
                 call QTP_WriteFile(fileSpec,"当前时间："&Time)
        End If

        Dim express '随机生成的计算表达式
        Select Case operator
                Case 0   express = cstr(op1) + "+" + cstr(op2) + "= ?"
                Case 1   express = cstr(op1) + "-" + cstr(op2) + "= ?"
                Case 2   express = cstr(op1) + "*" + cstr(op2) + "= ?"
                Case 3   express = cstr(op1) + "/" + cstr(op2) + "= ?"
        End Select
        call QTP_WriteFile(fileSpec,"测试表达式：" + express)
        call QTP_WriteFile(fileSpec,"期望值：" + trim(cstr(result)) + ".")
        call QTP_WriteFile(fileSpec,"实际值：" + trim(cstr(RealValue)))
        call QTP_WriteFile(fileSpec,"" )

        '关闭计算器
        Window("计算器").Close
Next

'恢复QTP窗口
Call qtp_big

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'主函数结束''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'子函数(子过程)开始'''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'随机生成按键
'输入值：操作位数
'输出值：生成值
Function GetExec( j )
        Dim res,m,i
        Window("计算器").Activate
        For m =1 to j
                 i =Get_RandNum(0,9)
                res = res + cstr(i)
                Select Case i
                        Case 0   Window("计算器").WinButton("0").Click
                        Case 1   Window("计算器").WinButton("1").Click
                        Case 2   Window("计算器").WinButton("2").Click
                        Case 3   Window("计算器").WinButton("3").Click
                        Case 4   Window("计算器").WinButton("4").Click
                        Case 5   Window("计算器").WinButton("5").Click
                        Case 6   Window("计算器").WinButton("6").Click
                        Case 7   Window("计算器").WinButton("7").Click
                        Case 8   Window("计算器").WinButton("8").Click
                        Case 9   Window("计算器").WinButton("9").Click
                        Case Else
                End Select
        Next
        If  res = "" Then
                res = 0
        End If
        GetExec = res
End Function

'随机生成操作符
'输出值：操作代码
Function GetOperation()
        Dim oper
        oper = Get_RandNum(0,3)
        Window("计算器").Activate
        Select Case oper
                Case 0   Window("计算器").WinButton("+").Click
                Case 1   Window("计算器").WinButton("-").Click
                Case 2   Window("计算器").WinButton("*").Click
                Case 3    Window("计算器").WinButton("/").Click
                Case Else
        End Select
        GetOperation = oper
End Function

'写文件函数(追加)
'输入值：写入内容
Public Function QTP_WriteFile(pathway,words)       
    Dim fileSystemObj,fileSpec,logFile,way
    Set fileSystemObj = CreateObject("Scripting.FileSystemObject")
    fileSpec = pathway
    Set logFile = fileSystemObj.OpenTextFile(fileSpec, 8, true)
    logFile.WriteLine (CStr(words))
    logFile.Close
    Set logFile = Nothing
End Function

'恢复QTP窗口
Public Sub QTP_Big()
        Dim objQTPWin
        Set objQTPWin = GetObject("" , "QuickTest.Application")
        objQTPWin.WindowState = "Restored"
        Set objQTPWin = Nothing
End Sub

'让QTP运行时保持最小化
Public Sub QTP_Small()
        Dim objQTPWin
        Set objQTPWin = GetObject("" , "QuickTest.Application")
        objQTPWin.WindowState = "Minimized"
        Set objQTPWin = Nothing
End Su

[ 本帖最后由 yuandjing 于 2007-12-24 13:08 编辑 ]

yuandjing

少了个函数

'随机函数生成
'输入值：生成值范围 i～j
'返回值：随机数
Public Function Get_RandNum(fromNum,toNum)
        If (fromNum<0) Or (toNum<0) Then
                MsgBox "只接受大于零的输入"
        ElseIf fromNum>toNum then
                MsgBox "起始值必须小于结束值"
        Else
                Dim RunTime
                Randomize   
                RunTime = Int((10 * Rnd) + 1)
                Dim MyValue,i
                For i = 1 To RunTime
                        Randomize  
                        MyValue = Int(((toNum - fromNum + 1) * Rnd) + (fromNum))
                Next
           Get_randNum=MyValue
          End If
End Function

heqingbluesky

好主意,我自己也做了一个相同的例子,只是LZ的简化版,



Dim OperandA, OperandB, Operation,Result

sub Standard_Calculation(OperandA, Operation, OperandB)

'First Operand
OperandA = cint(OperandA)
Select Case OperandA
case 0
Window("Calculator").WinButton("Button").Click
case 1
Window("Calculator").WinButton("Button_2").Click
case 2
Window("Calculator").WinButton("Button_3").Click
case 3
Window("Calculator").WinButton("Button_4").Click
case 4
Window("Calculator").WinButton("Button_12").Click
case 5
Window("Calculator").WinButton("Button_13").Click
case 6
Window("Calculator").WinButton("Button_14").Click
case 7
Window("Calculator").WinButton("Button_15").Click
case 8
Window("Calculator").WinButton("Button_16").Click
case 9
Window("Calculator").WinButton("Button_17").Click
End Select

'Operation
Select Case Operation
case "+"
Window("Calculator").WinButton("Button_18").Click
case "-"
Window("Calculator").WinButton("Button_19").Click
case "*"
Window("Calculator").WinButton("Button_20").Click
case "/"
Window("Calculator").WinButton("Button_21").Click
End Select

'Second Operand
OperandB = cint(OperandB)
Select Case OperandB
case 0
Window("Calculator").WinButton("Button").Click
case 1
Window("Calculator").WinButton("Button_2").Click
case 2
Window("Calculator").WinButton("Button_3").Click
case 3
Window("Calculator").WinButton("Button_4").Click
case 4
Window("Calculator").WinButton("Button_12").Click
case 5
Window("Calculator").WinButton("Button_13").Click
case 6
Window("Calculator").WinButton("Button_14").Click
case 7
Window("Calculator").WinButton("Button_15").Click
case 8
Window("Calculator").WinButton("Button_16").Click
case 9
Window("Calculator").WinButton("Button_17").Click
End Select

'Press "= " button
Window("Calculator").WinButton("Button_22").Click

'Get the result from text field
Result =Window("Calculator").Static("15.").GetROProperty("text")


Select Case Result
Case "7. "
        msgbox("The answer is correct.")
Case "12. "
         msgbox("The answer is correct.")
Case "1. "
         msgbox("The answer is correct.")
Case "2. "
     msgbox("The answer is correct.")
Case Else
         msgbox("The answer is wrong!")
End Select


End sub


Sub Normal_Calculation
   Standard_Calculation 3,"+",4
   Standard_Calculation 3,"*",4
   Standard_Calculation 4, "-",3
   Standard_Calculation 4,"/",2

End Sub

Call Normal_Calculation

聂霞

写的太好了！真羡慕！
我们得向你学习！

双面人

写的确实不错，

yuandjing

多谢多谢，拿的它给公司作了个简单的培训

walker1020

不错的例子，值得参考

yuandjing

现在还了个新工作环境，可能我很长一段时间不会上QTP板块了
希望这段小代码能给初学者带来帮助

wang7931_cn

不错,学习中,谢谢!

timfung

顶起

sunhope800

楼主真是辛苦了啊！

whoamiyaya

像楼主学习，我也可以拿来练习一下了，谢谢！方法不错

fangyiye

咋才能学好qtp啊。楼主们