| |
Dim controller As Mpx.Controller = New Mpx.Controller(0)
Dim homeObj As MpxUtil.Home
' . . .
homeObj = New Home(controller, 0)
With homeObj
.HomingMethod = MpxUtil.Home.HomeMethod.PositiveIndex
.Speed = 500
.Accel = 10000
.Decel = 10000
.Start()
.WaitForCompletion(10.0) ' Homing will timeout in 10 seconds
End With
|