UFT Class 25
(VBScript Conditional Statements Part-2, VBScript Loop Statements)
Usage of VBScript conditional statements
1) Execute a contestation when status is True/Simple if.
2) Execute a block of statements when status is True.
3) Execute a block of statements when status is True, otherwise execute roughly other block of statements
------------------------
4) Decide amidst several alternates (Elseif structure)
Syntax:
If Condition Then
Statements
----------
----------
Elseif Condition Then
Statements
----------
----------
Elseif Condition Then
Statements
----------
----------
Else
Statements
----------
----------
End if
--------------------------
Example:
' Read a lay out together with verify the range
'If the value is inwards betwixt 1 together with 100 together with hence display "Value is a Small Number"
'If the value is inwards betwixt 101 together with grand together with hence display "Value is a Medium Number"
'If the value is inwards betwixt 1001 together with 10000 together with hence display "Value is a Big Number"
'If the value is to a greater extent than than 10000 together with hence display Value is High Number
'Otherwise display value is either Zero or negative value
'-------------------------------------------
Dim val
val = InputBox("Enter a Value")
If IsNumeric(val) = True Then
If val >= 1 And val <=100 Then
Msgbox "Val is a Small Number"
ElseIf val > 100 And val <= grand Then
Msgbox "Val is a Medium Number"
ElseIf val > grand And val <= 10000 Then
Msgbox "Val is a Big Number"
ElseIf val > 10000 Then
Msgbox "Val is High Number"
Else
Msgbox "Val is either Zero or Negative value"
End If
Else
Msgbox "Invalid Input"
End If
----------------------------------------------
5) Execute a block of statements when to a greater extent than than 1 status is True (Nested if structure).
Syntax:
If Condition Then
If Condition Then
If Condition Then
Statements
---------
-----------
Else
Statements
-----------
-----------
End If
End If
End If
----------------------------
Example:
'Read a Value together with verify whether the value is valid mobile lay out or not?
' Value should live on Numeric.
' value must comprise 10 digits
' Value outcry laid out amongst either ix or 8 together with hence display Value is a valid mobile Number
'-------------------------------------------------------------
Dim val
val = InputBox ("Enter a Value")
If IsNumeric(val) = True Then
If Len(val) = 10 Then
If Left(val, 1) = ix Or Left(val, 1) = 8 Then
Msgbox "Val is a valid Mobile Number"
Else
Msgbox "Val is an Invalid Mobile Number"
End If
Else
Msgbox "Val is non a 10 digit value"
End If
Else
Msgbox "val is non a Numeric value"
End If
'Assignment
'Handle . Symbol
--------------------------------------
6) Decide amidst several alternates (using Select Case)
Syntax:
Select Case (Expression)
case "case1Name"
Statements
----------
----------
case "case2Name"
Statements
----------
----------
case "case3Name"
Statements
----------
----------
Case Else
Statements
----------
----------
End select
-------------------------------------
Example:
Dim num1, num2, operation
num1 = 10
num2 = 20
operation = LCase (InputBox("Enter an Operation"))
Select Case operation
Case "add"
Msgbox "Addition of num1, num2 is: " & num1 + num2
Case "sub"
Msgbox "Subtraction of num1, num2 is: " & num1 - num2
Case "mul"
Msgbox "Multiplication of num1, num2 is: " & num1 * num2
Case "div"
Msgbox "Division of num1, num2 is: " & num1 / num2
Case Else
Msgbox "Invalid Operation"
End Select
--------------------------------------------
VBScript Loop Statements
Whenever nosotros desire to execute a block of statements several times together with hence nosotros purpose Loop statements.
a) For...Next
b) While...Wend
c) Do While Or Until...Loop
d) For Each...Next
----------------------------
a) For...Next
It repeats a block of statements for a specified lay out of times.
Syntax:
For Counter (Variable) = Start to End Step Increment/Decrement
Statements
----------
-----------
---------
Next
Examples:
--------------
'Display "Hello UFT" message 5 times
For i = 1 To 5 Step 1
Msgbox i & " Hello UFT"
Next
----------------------
'Open kickoff 5 orders
For Order_Numer = 1 To 5
Window("Flight Reservation").Activate
Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set Order_Numer
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
Next
----------------
'Open kickoff 5 orders inwards contrary order
For Order_Numer = 5 To 1 Step -1
Window("Flight Reservation").Activate
Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set Order_Numer
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
Next
----------------------------------
'Open kickoff 5 orders except fourth order
For Order_Number = 1 To 5 Step 1
If Order_Number <> four Then
Window("Flight Reservation").Activate @@ hightlight id_;_460232_;_script infofile_;_ZIP::ssf1.xml_;_
Window("Flight Reservation").WinButton("Button").Click @@ hightlight id_;_67076_;_script infofile_;_ZIP::ssf2.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" @@ hightlight id_;_132634_;_script infofile_;_ZIP::ssf3.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set Order_Number @@ hightlight id_;_132644_;_script infofile_;_ZIP::ssf4.xml_;_
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click @@ hightlight id_;_132646_;_script infofile_;_ZIP::ssf5.xml_;_
End If
Next
-----------------------------------
'Open kickoff 10 orders except fourth together with seventh order
For Order_Number = 1 To 10 Step 1
If Order_Number <> four And Order_Number <> seven Then
Window("Flight Reservation").Activate @@ hightlight id_;_460232_;_script infofile_;_ZIP::ssf1.xml_;_
Window("Flight Reservation").WinButton("Button").Click @@ hightlight id_;_67076_;_script infofile_;_ZIP::ssf2.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" @@ hightlight id_;_132634_;_script infofile_;_ZIP::ssf3.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set Order_Number @@ hightlight id_;_132644_;_script infofile_;_ZIP::ssf4.xml_;_
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click @@ hightlight id_;_132646_;_script infofile_;_ZIP::ssf5.xml_;_
End If
Next
----------------------------------
Loop Termination
----------------------
'Terminating For loop based on Condition
For Order_Number = twenty To thirty Step 1
Window("Flight Reservation").Activate @@ hightlight id_;_460232_;_script infofile_;_ZIP::ssf1.xml_;_
Window("Flight Reservation").WinButton("Button").Click @@ hightlight id_;_67076_;_script infofile_;_ZIP::ssf2.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" @@ hightlight id_;_132634_;_script infofile_;_ZIP::ssf3.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set Order_Number @@ hightlight id_;_132644_;_script infofile_;_ZIP::ssf4.xml_;_
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click @@ hightlight id_;_132646_;_script infofile_;_ZIP::ssf5.xml_;_
If Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").Exist(3) Then @@ hightlight id_;_67196_;_script infofile_;_ZIP::ssf6.xml_;_
Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").WinButton("OK").Click @@ hightlight id_;_67198_;_script infofile_;_ZIP::ssf7.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinButton("Cancel").Click @@ hightlight id_;_1050220_;_script infofile_;_ZIP::ssf8.xml_;_
Window("Flight Reservation").WinButton("Button_2").Click @@ hightlight id_;_67078_;_script infofile_;_ZIP::ssf9.xml_;_
Reporter.ReportEvent 3, "Res", "Up to " & Order_Number-1 & " Orders solely exist"
Exit For
End If
Next
----------------------------
b) While...wend
It repeats a block of statements piece status is True.
Note: If nosotros are inwards truthful seat together with hence it volition continue, 1 time nosotros encounter imitation position
then it volition come upward out from the loop.
Syntax:
Initialization
While Condition
Statements
---------
----------
Increment / Decrement
Wend
-----------------------------
Examples:
'Open 1 to 5 orders using While loop
OrderNo=1
While OrderNo <= 5
Window("Flight Reservation").Activate @@ hightlight id_;_460232_;_script infofile_;_ZIP::ssf1.xml_;_
Window("Flight Reservation").WinButton("Button").Click @@ hightlight id_;_67076_;_script infofile_;_ZIP::ssf2.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" @@ hightlight id_;_786986_;_script infofile_;_ZIP::ssf3.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set OrderNo @@ hightlight id_;_788124_;_script infofile_;_ZIP::ssf4.xml_;_
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click @@ hightlight id_;_394994_;_script infofile_;_ZIP::ssf5.xml_;_
OrderNo = OrderNo + 1
Wend
----------------------------------------
'Open kickoff 5 orders inwards contrary gild using While loop
OrderNo=5
While OrderNo >= 1
Window("Flight Reservation").Activate @@ hightlight id_;_460232_;_script infofile_;_ZIP::ssf1.xml_;_
Window("Flight Reservation").WinButton("Button").Click @@ hightlight id_;_67076_;_script infofile_;_ZIP::ssf2.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" @@ hightlight id_;_786986_;_script infofile_;_ZIP::ssf3.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set OrderNo @@ hightlight id_;_788124_;_script infofile_;_ZIP::ssf4.xml_;_
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click @@ hightlight id_;_394994_;_script infofile_;_ZIP::ssf5.xml_;_
OrderNo = OrderNo - 1
Wend
----------------------------------------------
c) Do piece /Until...Loop
i) Using While Keyword
1)
Do While Condition
Statements
----------
----------
Increment/decrement
Loop
2)
Do
Statements
----------
----------
Increment/decrement
Loop While Condition
ii) Using Until Keyword
3)
Do Until Condition
Statements
--------
---------
---------
Increment/Decrement
Loop
4)
Do
Statements
-----------
----------
---------
Increment/Decrement
Loop Until Condition
-----------------------------
Examples:
'Open kickoff 5 orders using Do piece loop
OrderNo=1
Do While OrderNo <= 5
Window("Flight Reservation").Activate @@ hightlight id_;_460232_;_script infofile_;_ZIP::ssf1.xml_;_
Window("Flight Reservation").WinButton("Button").Click @@ hightlight id_;_67076_;_script infofile_;_ZIP::ssf2.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" @@ hightlight id_;_786986_;_script infofile_;_ZIP::ssf3.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set OrderNo @@ hightlight id_;_788124_;_script infofile_;_ZIP::ssf4.xml_;_
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click @@ hightlight id_;_394994_;_script infofile_;_ZIP::ssf5.xml_;_
OrderNo = OrderNo + 1
Loop
--------------------------------
'Open kickoff 5 orders using Do piece loop
OrderNo=10
Do
Window("Flight Reservation").Activate @@ hightlight id_;_460232_;_script infofile_;_ZIP::ssf1.xml_;_
Window("Flight Reservation").WinButton("Button").Click @@ hightlight id_;_67076_;_script infofile_;_ZIP::ssf2.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" @@ hightlight id_;_786986_;_script infofile_;_ZIP::ssf3.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set OrderNo @@ hightlight id_;_788124_;_script infofile_;_ZIP::ssf4.xml_;_
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click @@ hightlight id_;_394994_;_script infofile_;_ZIP::ssf5.xml_;_
OrderNo = OrderNo + 1
Loop While OrderNo <= 5
----------------------------------
'Terminating Do piece loop
OrderNo=20
Do While OrderNo <= thirty
Window("Flight Reservation").Activate @@ hightlight id_;_460232_;_script infofile_;_ZIP::ssf1.xml_;_
Window("Flight Reservation").WinButton("Button").Click @@ hightlight id_;_67076_;_script infofile_;_ZIP::ssf2.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" @@ hightlight id_;_786986_;_script infofile_;_ZIP::ssf3.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set OrderNo @@ hightlight id_;_788124_;_script infofile_;_ZIP::ssf4.xml_;_
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click @@ hightlight id_;_394994_;_script infofile_;_ZIP::ssf5.xml_;_
If Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").Exist(3) Then @@ hightlight id_;_657082_;_script infofile_;_ZIP::ssf6.xml_;_
Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").WinButton("OK").Click @@ hightlight id_;_198332_;_script infofile_;_ZIP::ssf7.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinButton("Cancel").Click @@ hightlight id_;_1640222_;_script infofile_;_ZIP::ssf8.xml_;_
Window("Flight Reservation").WinButton("Button_2").Click @@ hightlight id_;_67078_;_script infofile_;_ZIP::ssf9.xml_;_
Reporter.ReportEvent micWarning, "Res", "Up to " & OrderNo - 1 & " Orders solely Exist"
Exit Do
End if
OrderNo = OrderNo + 1
Loop
--------------------------------
Sumber http://www.gcreddy.com/
(VBScript Conditional Statements Part-2, VBScript Loop Statements)
Usage of VBScript conditional statements
1) Execute a contestation when status is True/Simple if.
2) Execute a block of statements when status is True.
3) Execute a block of statements when status is True, otherwise execute roughly other block of statements
------------------------
4) Decide amidst several alternates (Elseif structure)
Syntax:
If Condition Then
Statements
----------
----------
Elseif Condition Then
Statements
----------
----------
Elseif Condition Then
Statements
----------
----------
Else
Statements
----------
----------
End if
--------------------------
Example:
' Read a lay out together with verify the range
'If the value is inwards betwixt 1 together with 100 together with hence display "Value is a Small Number"
'If the value is inwards betwixt 101 together with grand together with hence display "Value is a Medium Number"
'If the value is inwards betwixt 1001 together with 10000 together with hence display "Value is a Big Number"
'If the value is to a greater extent than than 10000 together with hence display Value is High Number
'Otherwise display value is either Zero or negative value
'-------------------------------------------
Dim val
val = InputBox("Enter a Value")
If IsNumeric(val) = True Then
If val >= 1 And val <=100 Then
Msgbox "Val is a Small Number"
ElseIf val > 100 And val <= grand Then
Msgbox "Val is a Medium Number"
ElseIf val > grand And val <= 10000 Then
Msgbox "Val is a Big Number"
ElseIf val > 10000 Then
Msgbox "Val is High Number"
Else
Msgbox "Val is either Zero or Negative value"
End If
Else
Msgbox "Invalid Input"
End If
----------------------------------------------
5) Execute a block of statements when to a greater extent than than 1 status is True (Nested if structure).
Syntax:
If Condition Then
If Condition Then
If Condition Then
Statements
---------
-----------
Else
Statements
-----------
-----------
End If
End If
End If
----------------------------
Example:
'Read a Value together with verify whether the value is valid mobile lay out or not?
' Value should live on Numeric.
' value must comprise 10 digits
' Value outcry laid out amongst either ix or 8 together with hence display Value is a valid mobile Number
'-------------------------------------------------------------
Dim val
val = InputBox ("Enter a Value")
If IsNumeric(val) = True Then
If Len(val) = 10 Then
If Left(val, 1) = ix Or Left(val, 1) = 8 Then
Msgbox "Val is a valid Mobile Number"
Else
Msgbox "Val is an Invalid Mobile Number"
End If
Else
Msgbox "Val is non a 10 digit value"
End If
Else
Msgbox "val is non a Numeric value"
End If
'Assignment
'Handle . Symbol
--------------------------------------
6) Decide amidst several alternates (using Select Case)
Syntax:
Select Case (Expression)
case "case1Name"
Statements
----------
----------
case "case2Name"
Statements
----------
----------
case "case3Name"
Statements
----------
----------
Case Else
Statements
----------
----------
End select
-------------------------------------
Example:
Dim num1, num2, operation
num1 = 10
num2 = 20
operation = LCase (InputBox("Enter an Operation"))
Select Case operation
Case "add"
Msgbox "Addition of num1, num2 is: " & num1 + num2
Case "sub"
Msgbox "Subtraction of num1, num2 is: " & num1 - num2
Case "mul"
Msgbox "Multiplication of num1, num2 is: " & num1 * num2
Case "div"
Msgbox "Division of num1, num2 is: " & num1 / num2
Case Else
Msgbox "Invalid Operation"
End Select
--------------------------------------------
VBScript Loop Statements
Whenever nosotros desire to execute a block of statements several times together with hence nosotros purpose Loop statements.
a) For...Next
b) While...Wend
c) Do While Or Until...Loop
d) For Each...Next
----------------------------
a) For...Next
It repeats a block of statements for a specified lay out of times.
Syntax:
For Counter (Variable) = Start to End Step Increment/Decrement
Statements
----------
-----------
---------
Next
Examples:
--------------
'Display "Hello UFT" message 5 times
For i = 1 To 5 Step 1
Msgbox i & " Hello UFT"
Next
----------------------
'Open kickoff 5 orders
For Order_Numer = 1 To 5
Window("Flight Reservation").Activate
Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set Order_Numer
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
Next
----------------
'Open kickoff 5 orders inwards contrary order
For Order_Numer = 5 To 1 Step -1
Window("Flight Reservation").Activate
Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set Order_Numer
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
Next
----------------------------------
'Open kickoff 5 orders except fourth order
For Order_Number = 1 To 5 Step 1
If Order_Number <> four Then
Window("Flight Reservation").Activate @@ hightlight id_;_460232_;_script infofile_;_ZIP::ssf1.xml_;_
Window("Flight Reservation").WinButton("Button").Click @@ hightlight id_;_67076_;_script infofile_;_ZIP::ssf2.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" @@ hightlight id_;_132634_;_script infofile_;_ZIP::ssf3.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set Order_Number @@ hightlight id_;_132644_;_script infofile_;_ZIP::ssf4.xml_;_
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click @@ hightlight id_;_132646_;_script infofile_;_ZIP::ssf5.xml_;_
End If
Next
-----------------------------------
'Open kickoff 10 orders except fourth together with seventh order
For Order_Number = 1 To 10 Step 1
If Order_Number <> four And Order_Number <> seven Then
Window("Flight Reservation").Activate @@ hightlight id_;_460232_;_script infofile_;_ZIP::ssf1.xml_;_
Window("Flight Reservation").WinButton("Button").Click @@ hightlight id_;_67076_;_script infofile_;_ZIP::ssf2.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" @@ hightlight id_;_132634_;_script infofile_;_ZIP::ssf3.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set Order_Number @@ hightlight id_;_132644_;_script infofile_;_ZIP::ssf4.xml_;_
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click @@ hightlight id_;_132646_;_script infofile_;_ZIP::ssf5.xml_;_
End If
Next
----------------------------------
Loop Termination
----------------------
'Terminating For loop based on Condition
For Order_Number = twenty To thirty Step 1
Window("Flight Reservation").Activate @@ hightlight id_;_460232_;_script infofile_;_ZIP::ssf1.xml_;_
Window("Flight Reservation").WinButton("Button").Click @@ hightlight id_;_67076_;_script infofile_;_ZIP::ssf2.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" @@ hightlight id_;_132634_;_script infofile_;_ZIP::ssf3.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set Order_Number @@ hightlight id_;_132644_;_script infofile_;_ZIP::ssf4.xml_;_
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click @@ hightlight id_;_132646_;_script infofile_;_ZIP::ssf5.xml_;_
If Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").Exist(3) Then @@ hightlight id_;_67196_;_script infofile_;_ZIP::ssf6.xml_;_
Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").WinButton("OK").Click @@ hightlight id_;_67198_;_script infofile_;_ZIP::ssf7.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinButton("Cancel").Click @@ hightlight id_;_1050220_;_script infofile_;_ZIP::ssf8.xml_;_
Window("Flight Reservation").WinButton("Button_2").Click @@ hightlight id_;_67078_;_script infofile_;_ZIP::ssf9.xml_;_
Reporter.ReportEvent 3, "Res", "Up to " & Order_Number-1 & " Orders solely exist"
Exit For
End If
Next
----------------------------
b) While...wend
It repeats a block of statements piece status is True.
Note: If nosotros are inwards truthful seat together with hence it volition continue, 1 time nosotros encounter imitation position
then it volition come upward out from the loop.
Syntax:
Initialization
While Condition
Statements
---------
----------
Increment / Decrement
Wend
-----------------------------
Examples:
'Open 1 to 5 orders using While loop
OrderNo=1
While OrderNo <= 5
Window("Flight Reservation").Activate @@ hightlight id_;_460232_;_script infofile_;_ZIP::ssf1.xml_;_
Window("Flight Reservation").WinButton("Button").Click @@ hightlight id_;_67076_;_script infofile_;_ZIP::ssf2.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" @@ hightlight id_;_786986_;_script infofile_;_ZIP::ssf3.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set OrderNo @@ hightlight id_;_788124_;_script infofile_;_ZIP::ssf4.xml_;_
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click @@ hightlight id_;_394994_;_script infofile_;_ZIP::ssf5.xml_;_
OrderNo = OrderNo + 1
Wend
----------------------------------------
'Open kickoff 5 orders inwards contrary gild using While loop
OrderNo=5
While OrderNo >= 1
Window("Flight Reservation").Activate @@ hightlight id_;_460232_;_script infofile_;_ZIP::ssf1.xml_;_
Window("Flight Reservation").WinButton("Button").Click @@ hightlight id_;_67076_;_script infofile_;_ZIP::ssf2.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" @@ hightlight id_;_786986_;_script infofile_;_ZIP::ssf3.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set OrderNo @@ hightlight id_;_788124_;_script infofile_;_ZIP::ssf4.xml_;_
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click @@ hightlight id_;_394994_;_script infofile_;_ZIP::ssf5.xml_;_
OrderNo = OrderNo - 1
Wend
----------------------------------------------
c) Do piece /Until...Loop
i) Using While Keyword
1)
Do While Condition
Statements
----------
----------
Increment/decrement
Loop
2)
Do
Statements
----------
----------
Increment/decrement
Loop While Condition
ii) Using Until Keyword
3)
Do Until Condition
Statements
--------
---------
---------
Increment/Decrement
Loop
4)
Do
Statements
-----------
----------
---------
Increment/Decrement
Loop Until Condition
-----------------------------
Examples:
'Open kickoff 5 orders using Do piece loop
OrderNo=1
Do While OrderNo <= 5
Window("Flight Reservation").Activate @@ hightlight id_;_460232_;_script infofile_;_ZIP::ssf1.xml_;_
Window("Flight Reservation").WinButton("Button").Click @@ hightlight id_;_67076_;_script infofile_;_ZIP::ssf2.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" @@ hightlight id_;_786986_;_script infofile_;_ZIP::ssf3.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set OrderNo @@ hightlight id_;_788124_;_script infofile_;_ZIP::ssf4.xml_;_
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click @@ hightlight id_;_394994_;_script infofile_;_ZIP::ssf5.xml_;_
OrderNo = OrderNo + 1
Loop
--------------------------------
'Open kickoff 5 orders using Do piece loop
OrderNo=10
Do
Window("Flight Reservation").Activate @@ hightlight id_;_460232_;_script infofile_;_ZIP::ssf1.xml_;_
Window("Flight Reservation").WinButton("Button").Click @@ hightlight id_;_67076_;_script infofile_;_ZIP::ssf2.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" @@ hightlight id_;_786986_;_script infofile_;_ZIP::ssf3.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set OrderNo @@ hightlight id_;_788124_;_script infofile_;_ZIP::ssf4.xml_;_
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click @@ hightlight id_;_394994_;_script infofile_;_ZIP::ssf5.xml_;_
OrderNo = OrderNo + 1
Loop While OrderNo <= 5
----------------------------------
'Terminating Do piece loop
OrderNo=20
Do While OrderNo <= thirty
Window("Flight Reservation").Activate @@ hightlight id_;_460232_;_script infofile_;_ZIP::ssf1.xml_;_
Window("Flight Reservation").WinButton("Button").Click @@ hightlight id_;_67076_;_script infofile_;_ZIP::ssf2.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON" @@ hightlight id_;_786986_;_script infofile_;_ZIP::ssf3.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set OrderNo @@ hightlight id_;_788124_;_script infofile_;_ZIP::ssf4.xml_;_
wait 2
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click @@ hightlight id_;_394994_;_script infofile_;_ZIP::ssf5.xml_;_
If Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").Exist(3) Then @@ hightlight id_;_657082_;_script infofile_;_ZIP::ssf6.xml_;_
Window("Flight Reservation").Dialog("Open Order").Dialog("Flight Reservations").WinButton("OK").Click @@ hightlight id_;_198332_;_script infofile_;_ZIP::ssf7.xml_;_
Window("Flight Reservation").Dialog("Open Order").WinButton("Cancel").Click @@ hightlight id_;_1640222_;_script infofile_;_ZIP::ssf8.xml_;_
Window("Flight Reservation").WinButton("Button_2").Click @@ hightlight id_;_67078_;_script infofile_;_ZIP::ssf9.xml_;_
Reporter.ReportEvent micWarning, "Res", "Up to " & OrderNo - 1 & " Orders solely Exist"
Exit Do
End if
OrderNo = OrderNo + 1
Loop
--------------------------------