QTP自动化测试:计算器功能随机运算实现

3星 · 超过75%的资源 需积分: 10 12 下载量 61 浏览量 更新于2024-09-16 1 收藏 18KB DOCX 举报
"该资源是关于使用QTP(QuickTest Professional,现在称为UFT - Unified Functional Testing)进行计算器自动化测试的实例。QTP是一款功能强大的自动化测试工具,尤其适用于企业级应用的回归测试和性能测试。这个实例涵盖了多个测试场景,包括随机生成不同长度和类型的数值,执行四则运算,并对结果进行精度校验。" 在QTP中,我们可以编写脚本来模拟用户操作,例如点击计算器上的按钮进行数学运算。以下是对提供的部分内容的详细解释: 1. **随机个位数相加**:通过`randomnumber`函数生成1到6之间的随机数作为位数,然后点击对应的数字按钮,实现随机个位数的相加。 2. **随机多位数相加**:同样使用`randomnumber`函数生成多位数,并逐位点击计算器的数字按钮,实现任意多位数的相加。 3. **四则运算的随机选择**:使用`select Case`语句随机选择加、减、乘、除四种运算符,模拟用户进行不同的数学运算。 4. **数据长度1~6位**:确保生成的数字位数在1到6之间,包括整数和小数,这涉及到随机数生成策略以及是否点击小数点按钮。 5. **实现小数**:通过`randomnumber(0,1)`来决定是否在数字后添加小数点,然后再次生成随机数作为小数部分。 6. **实现正负数**:通过`randomnumber(0,1)`决定是否点击正负号按钮,以实现正数或负数的运算。 7. **结果精度校验**:校验结果的精度到四位,意味着检查结果的小数部分最多有四位,这可能需要使用QTP的`GetROProperty`方法获取编辑框中的值,然后进行比较。 8. **实现10次循环**:整个运算过程将在一个循环中执行10次,以增加测试覆盖度,确保在多次运行下计算器的正确性。 9. **特殊情况处理**:如除数为0的情况,这是一个典型的错误条件,需要编写特定的代码来处理这种异常,例如捕获除零错误并进行相应的断言。 在实际的测试脚本中,每个步骤都会伴随着QTP的内置对象识别和操作,例如`Window`对象代表计算器窗口,`WinButton`对象表示计算器上的按钮,而`WinEdit`对象用于获取显示结果的文本。通过这些对象,QTP可以精确地模拟用户与计算器的交互。 对于标签中提到的`jmeter`,虽然不是直接相关的,但如果你是在做性能测试,也可以使用JMeter来模拟大量用户同时进行计算器操作,以此测试计算器在高并发下的性能和稳定性。不过,这里的实例主要关注的是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