计算器一位加法计算，并将实际值，测试结果输出，最终导入到本地

Posted 2020-07-30

‘计算器一位加法计算，并将实际值，测试结果输出，最终导入到本地

Dim i

Dim input

Dim expertvalue,actualvalue

datatable.ImportSheet  "C:\Users\Administrator\Desktop\UFT活动讲课资料\加法运算case.xlsx","Sheet1","Action1"

‘wait 3

systemutil.Run"C:\Windows\System32\calc.exe"

For i = 1 To datatable.GetSheet("Action1").GetRowCount 

    input =datatable.Value("input","Action1")

    Window("计算器").WinButton("C").Click

    Window("计算器").WinButton(input).Click

    Window("计算器").WinButton("+").Click

    Window("计算器").WinButton("2").Click

    Window("计算器").WinButton("=").Click

    expertvalue=datatable.Value("expertvalue","Action1")

    actualvalue= Window("计算器").Static("9").GetROProperty("text")

    If expertvalue=actualvalue Then

        reporter.ReportEvent micPass,"一位数相加结果","成功"

        datatable.Value("actualvalue","Action1")=actualvalue

        datatable.Value("status","Action1") ="pass"

    else

        reporter.ReportEvent micFail,"一位数相加结果","失败"

        datatable.Value("actualvalue","Action1")=actualvalue

        datatable.Value("status","Action1") ="fail"    

    End If

    datatable.GetSheet("Action1").SetNextRow

Next

Window("计算器").Close

datatable.ExportSheet "C:\Users\Administrator\Desktop\UFT活动讲课资料\加法运算case.xlsx","Action1"