QTP业务参数计算问题解决方案

近期因为要对公司系统做功能自动化，在某个计算业务上遇到了一些困难，但是在伟神的帮助下，问题顺利解决了，也感谢成哥的建议，

实现业务需求：

页面上是一个实现计算的功能，通过对文本框A1,A2,A3输入值，系统根据计算公式，分别根据输入的A1,A2,A3这四个值带入公式中参与计算，求出Q1的值，

Q1这个需要计算的参数都有自己特定的计算公式。

在没有在文本框中输入值时，初始化的值都是0

'Q1计算公式

         Q1 = (100-A1)/(100-A2)*A3

系统是在后台通过公式把值算出来，我想在QTP中用脚本实现这些值的计算且跟页面的值做比对，看我通过脚本实现的带入计算值计算的结果

和系统计算的结果是否有差异即可。

 

实现脚本：

Dim A1,A2,A3
Set objPage =  Browser("name:=XXX").Page("title:=XXX")
'循环判断文本是否为初始值
While IsWebEditNull()
wait(2)
Wend

'获取到输入的 值
GetWebEditValue()
'计算
    Q1 = (100-A1)/(100-A2)*A3

Msgbox Q1

Function GetWebEditValue()
With objPage
'当文本框不是初始值时获取文本框中的值
If Not  IsWebEditNull() Then
A1 =.WebEdit("XXX").GetROProperty("XXX")
A2 = .WebEdit("XXX").GetROProperty("XXX")
A3 = .WebEdit("XXX").GetROProperty("XXX")
End If
End With
End Function

Function  IsWebEditNull()
 With objPage
     If   .WebEdit("XXX").GetROProperty("XXX")<>"XXX" and  .WebEdit("XXX").GetROProperty("XXX") <>"XXX" and .WebEdit("XXX").GetROProperty("XXX")<>"XXX"  Then
IsWebEditNull =false 
Else
IsWebEditNull =true 
End If
 End With
End Function