Role: The interface is used manage activities under a Device Task.
The following code snippet can be used to obtain the Device Task from a Device Task Factory.
Dim objDeviceTaskFactory As DeviceTaskFactory
Dim objDevice As Product
...
Set objDeviceTaskFactory = objDevice.GetTechnologicalObject("DeviceTaskFactory" )
Dim objDeviceTaskList(3) as DeviceTask
Dim objDeviceTask as DeviceTask
objDeviceTaskFactory.GetAllDeviceTasks objDeviceTaskList
objDeviceTask=objDeviceTaskList[0]
The Device Task can also be obtained from an activity of the type DeviceTask.
Dim objActivity as Activity
...
Dim objDeviceTask as DeviceTask
Set objDeviceTask = objActivity.GetTechnologicalObject("DeviceTask" )
Methods
- Sub CreateDelayActivity( ispFather, position, delay_time, oDelayActy)
-
Creates a Delay Activity inside a Device Task
- Parameters:
-
- ispFather
- The Activity preceeding the new activity.
- position
- Whether to insert activity before or after father. 0 tells at the start and 1 means after
- delay_time
- The input delay time value to be set.
- oDelayActy
- The created Delay Activity
- Returns:
- An HRESULT.
Legal values:- S_OK
- The Delay Activity was successfully created.
- E_FAIL
- The Delay Activity could not be created.
- Example:
- The following example creates An Delay Activity under a given device task
Dim objDeviceTask as DeviceTask Dim objPreceedingActy as Activity .. Dim objDelayAct as Object objDeviceTask.CreateDelayActivity objPreceedingActy,1,objDelayAct
- Sub CreateMoveHomeActivity( ispFather, position, oMoveHomeActy)
-
Creates a MoveHome Activity inside a Device Task
- Parameters:
-
- ispFather
- The Activity preceeding the new activity.
- position
- Whether to insert activity before or after father. 0 tells at the start and 1 means after
- oMoveHomeActy
- The created MoveHome Activity
- Returns:
- An HRESULT.
Legal values:- S_OK
- The MoveHome Activity was successfully created.
- E_FAIL
- The MoveHome Activity could not be created.
- Example:
- The following example creates An MoveHome Activity under a given device task
Dim objDeviceTask as DeviceTask Dim objPreceedingActy as Activity .. Dim objMovHomeAct as Object objDeviceTask.CreateMoveHomeActivity objPreceedingActy,1,objMovHomeAct
- Sub CreateMoveJointsActivity( ispFather, position, oMoveJointsActy)
-
Creates a MoveJoints Activity inside a Device Task
- Parameters:
-
- ispFather
- The Activity preceeding the new activity.
- position
- Whether to insert activity before or after father. 0 tells at the start and 1 means after
- oMoveJointsActy
- The created MoveJoints Activity
- Returns:
- An HRESULT.
Legal values:- S_OK
- The MoveJoints Activity was successfully created.
- E_FAIL
- The MoveJoints Activity could not be created.
- Example:
- The following example creates An MoveJoints Activity under a given device task
Dim objDeviceTask as DeviceTask Dim objPreceedingActy as Activity .. Dim objMovJointsAct as Object objDeviceTask.CreateMoveJointsActivity objPreceedingActy,1,objMovJointsAct