FtMscLibEx OnInputChanged EventFtMscLibExNet for .NET framework 4
Support for fischertechnik TX-controller

[This is preliminary documentation and is subject to change.]

Notification that a Universal Input has been changed

Namespace: FischerTechnik.FtMscLib.API
Assembly: FtMscLibVBNet (in FtMscLibVBNet.dll) Version: 1.0.0.1 (1.0.0.10)
Syntax

public event FtMscLibEx OnInputChangedEventHandler OnInputChanged

Value

Type: FischerTechnik.FtMscLib.API FtMscLibEx OnInputChangedEventHandler
Remarks

The Input must has been Enabled!
Examples

       'Initalize the I1  as digital inputs passive
       errCode = myController.SetFtUniConfig(devId:=FtDeviceID.Master, ioId:=FtInput.I1, _
                                    mode:=FtInputMode.Resistance, digital:=True)
       'Install eventhandler 
       AddHandler myController.OnInputChanged, AddressOf Me.MyInput2_Changed
       'Events mask: Activate the I1  event
       errCode = myController.EnableCBMaskUniChanged(devId:=FtDeviceID.Master, inputIndex:=FtInput.I1, enable:=True)

   Public Sub MyInput2_Changed(ByVal sender As Object, args As InputChangedEventArgs)
   Dim result As String = "MyInput2_Changed event dev=" + args.devId.ToString() + _
                        " ioId=" + args.ioId.ToString() + _
                        " value=" + args.value.ToString() + "  dig/ana=" + args.digital.ToString()
    'Need to invoke because of the TextBox is running in a different thread!! 
    Me.Invoke((Sub(t As String) Me.txtInfo.AppendText(t)), "Invoke: " + result + vbCrLf)
    If ((args.devId = FtDeviceID.Master) And (args.ioId = FtInput.I1)) Then 
      If (args.value = 1) Then
          myController.SetOutPwmValues(devId:=FtDeviceID.Master, outId:=FtOutput.O4, duty:=512)
      Else
         myController.SetOutPwmValues(devId:=0, outId:=FtOutput.O4, duty:=0)
     End If 
   End If 
   If ((args.devId = FtDeviceID.Master) And (args.ioId = FtInput.I2)) Then 
    If (args.value = 1) Then
        myController.SetOutPwmValues(devId:=FtDeviceID.Master, outId:=FtOutput.O5, duty:=512)
    Else
       myController.SetOutPwmValues(devId:=FtDeviceID.Master, outId:=FtOutput.O5, duty:=0)
    End If 
  End If 
End Sub
See Also

Reference

Other Resources