UFT (自定义检查点——票数*价格是否等于总数)

Dim a,b,c,d,e

a = Window("FlightReservation").WinEdit("Tickets:").GetROProperty("text")

msgbox a

b= Window("FlightReservation").WinEdit("Price:").GetROProperty("text")

msgbox b

c=split(b,"$")

msgbox c(1)

d=Window("FlightReservation").WinEdit("Total:").GetROProperty("text")

e=split(d,"$")

msgbox e(1)

x=cdbl(a)

y=cdbl(c(1))

z=cdbl(e(1))

If z-x*y<0.001 Then

reporter.ReportEvent micPass,"检查Price*Ticket的价格是否等于Total","正确"

Else

reporter.ReportEvent micFail,"检查Price*Ticket的价格是否等于Total","错误"

msgbox"错误"

End If