QTP自动化测试:计算器脚本实战

需积分: 16 7 下载量 111 浏览量 更新于2024-10-21 收藏 2KB TXT 举报
"这篇文档是关于使用QuickTest Professional (QTP)进行计算器自动化测试的教程。作者通过分享脚本代码,展示了如何利用QTP来模拟用户操作计算器进行数学计算,并验证计算结果的正确性。" 在QTP中,我们可以创建自动化脚本来模拟用户在计算器上输入数字、选择运算符以及获取计算结果的过程。以下是从给出的脚本中提取出的关键知识点: 1. **Option Explicit**:在VBA或VBScript中,`Option Explicit`语句用于强制声明所有变量,确保代码的严谨性和减少潜在错误。 2. **变量声明**:`testcasecount` 存储要执行的测试用例数量,`k` 作为循环计数器,`firstNum` 和 `secondNum` 分别表示两个操作数,`operator` 代表运算符,`result` 存储计算结果,`tmpoperator` 临时存储随机生成的运算符,`i` 和 `lenlen` 用于循环处理字符串,`tmpnum` 用于逐个字符点击计算器按钮。 3. **RandomNumber.Value**:这是一个QTP内置函数,用于生成指定范围内的随机数。在脚本中,它被用来生成1到100000之间的随机整数作为操作数。 4. **条件语句(If...Then...ElseIf...End If)**:用于根据`tmpoperator`的值设置运算符,支持加法(+)、减法(-)、乘法(*)和除法(/)。 5. **Window对象和WinButton对象**:QTP中的`Window`对象表示应用程序窗口,`WinButton`对象则代表窗口内的按钮。这里使用`Window("Calculator")`定位计算器窗口,`WinButton("C").Click` 清除计算器显示,`WinButton(tmpnum).Click` 模拟用户点击数字按钮,`WinButton(operator).Click` 选择运算符,`WinButton("=").Click` 表示按下等号进行计算。 6. **WinEdit对象**:`WinEdit`对象表示窗口中的编辑框,`Window("Calculator").WinEdit("Edit").GetROProperty("text")` 获取计算器显示的计算结果。 7. **CallOp()**:这个函数未在提供的脚本片段中定义,但通常会包含计算预期结果的逻辑,以便与实际结果进行比较。 8. **比较结果**:使用`If...Then`结构比较实际结果`actvalue`和预期结果(预期结果未给出),确保两者相等,验证计算器功能的正确性。 9. **循环处理字符串**:`For...Next`循环用于逐个字符处理输入的数字,因为QTP不能直接输入字符串,所以需要将数字分解成单个字符并逐个点击对应的计算器按键。 通过这个脚本,我们可以学习到如何使用QTP来自动化复杂的用户界面交互,这对于软件测试特别是功能测试和回归测试来说是非常有价值的。此外,了解如何编写这样的脚本也有助于提升对自动化测试框架的理解。
2012-09-02 上传
读Excel文件中的计算式,调用计算器实现自动计算 【Dim aslen,t , iRowCount, iLoop, numAdd,xlApp, xlFile, xlSheet Set xlApp = CreateObject ("Excel.Application") Set xlFile = xlApp.Workbooks.Open ("c:\a.xlsx") Set xlSheet = xlFile.Sheets("Sheet1") iRowCount = xlSheet.usedRange.Rows.Count ‘计算Sheet1中已经填写的行数 For iLoop = 2 To iRowCount numAdd2 = xlSheet.Cells(iLoop,2) ‘读出Excel的第二列的内容 aslen=Len( numAdd2) For t=1 To aslen Select Case Mid(numAdd2,t,1) 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 "0" Window("计算器").WinButton("0").Click Case "+" Window("计算器").WinButton("+").Click Case "-" Window("计算器").WinButton("-").Click Case "*" Window("计算器").WinButton("*").Click Case "/" Window("计算器").WinButton("/").Click Case "=" Window("计算器").WinButton("=").Click Case "." Window("计算器").WinButton(".").Click Case "C" Window("计算器").WinButton("C").Click case else msgbox "input error" End Select Next Next Window("计算器").Close xlFile.Save xlFile.Close xlApp.Quit Set xlSheet = Nothing Set xlFile = Nothing Set xlApp = Nothing