Support for fischertechnik TX-controller
Assembly: FtMscLibVBNet (in FtMscLibVBNet.dll) Version: 1.0.0.1 (1.0.0.10)
The Input must has been Enabled!
[This is preliminary documentation and is subject to change.]
Notification that a Universal Input has been changed
Namespace: FischerTechnik.FtMscLib.APIAssembly: FtMscLibVBNet (in FtMscLibVBNet.dll) Version: 1.0.0.1 (1.0.0.10)
Syntax
Value
Type: FischerTechnik.FtMscLib.API FtMscLibEx OnInputChangedEventHandlerRemarks
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