read output in VBA

RobotStudio RobotStudio S4
1

I want to read an output from the active robotcontroller in my vba application in an IF THEN but it won’t work.

Regards

Michael

2

Hi Michael

Here comes 2 different examples how you could do it.

The first one is just a simple read of IO from controller and

the second one reacts on changes on a specific IO.

Sub ReadIO()
Dim mIO As IO

Set mIO = ActiveStation.ActiveMechanism.Controller.IO(“doFinish”)

If mIO.Value = 1 Then
MsgBox “Value is 1”
Else
MsgBox “Value is 0”
End If

End Sub

Dim WithEvents mIO As IO

Sub ConnectIO()
'Run this to start looking for changes
Set mIO = ActiveStation.ActiveMechanism.Controller.IO(“doFinish”)
End Sub

Private Sub mIO_Change()
'This will execute if there is a value change
If mIO.Value = 1 Then
MsgBox “Value is 1”
Else
MsgBox “Value is 0”
End If
End Sub

Hope this will help you

Regards

Per