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