Example: lr.get_transaction_think_time

This example shows think_time used in an action and also in a sub-routine, YourApiCall, called by that action. get_transaction_think_time is called at the end of the action. The result reflects the total think time both in the main action and in the sub-routine.

Public Function Action() As Long
Dim rc As Integer
Dim think_time as Double

lr.start_transaction "Flight"
lr.think_time 3
' Call the API of your application to see whether the purchase is registered. 
rc = YourApiCall (s_code, "EdmundBertam")
think_time=lr.get_transaction_think_time("Flight")
lr.message "Think time = " + Cstr(think_time)
'Output:
'Think time = 5.0072
lr.end_transaction "Flight", lr.AUTO
Output:
Notify: Transaction Flight ended with Pass status (Duration: 5.5580 Think Time: 5.0072).
Action = lr.PASS
End Function
 
Function YourApiCall(i As Integer, char As String) As Integer

Dim x As Integer
lr.think_time 2
YourApiCall = x
End Function