1. 采用自定义检查点,检查Price*Ticket的价格是否等于Total,并用If语句写出判定成功或者失败后的Reporter.ReportEvent报告语句。
Dim tickets,price,total
'字符串转换
tickets=cdbl(Window("Flight Reservation").WinEdit("Tickets:").GetROProperty("text"))
'去掉美元符号
price=cdbl(mid(Window("FlightReservation").WinEdit("Price:").GetROProperty("text"),2))
total=cdbl(mid(Window("FlightReservation").WinEdit("Total:").GetROProperty("text"),2))
'比较Price*Ticket的价格是否等于Total
If tickets*price-total<0.000000001 Then
Reporter.ReportEventmicPass,"Price*Ticket的价格等于Total","Price*Ticket的价格等于Total"
else
Reporter.ReportEventmicPass,"Price*Ticket的价格不等于Total","Price*Ticket的价格不等于Total"
End If
Window("Flight Reservation").WinButton("InsertOrder").Click
Window("Flight Reservation").Activate