[Unexpected Result Testing 'FirstPortCH' with PMD-1024HLS]

Hello,

I am testing my PMD-1024HLS (same as USB-1024HLS) PortA, PortB, PortCL, PortCH using VB.net.  My code is shown below.

I am getting unexpected results when testing PortCH .  The other three ports PortA, PortB, PortCL work fine in my test.

In my test, I use both DOut() and DIn() methods.  I use DOut() to write a hex value and then DIn() method to read the value back what was written and compare it.  Am I misunderstanding the PortC nibble of PortCL and PortCH?  My question is at the bottom.

Thank you, Scott Mackey

 

'// My code starts here:

  Private _daqBoard As MccDaq.MccBoard

    Private _portA As Short          '// Byte
    Private _portB As Short          '// Byte
    Private _portCL As Short          '// Nibble low
    Private _portCH As Short          '// Nibble high
 

'// ** Constructor **************************************************************************************************

    Public Sub New(ByVal outlet As OutletType)

        Dim ULStat As MccDaq.ErrorInfo
        Dim errPort As Boolean = False

        _daqBoard = New MccDaq.MccBoard()                           '// Create instance with access to all methods

        ULStat = _daqBoard.DConfigPort(FirstPortA, DigitalOut)      '// Configure FirstPortA for output; all ports set low from this
        If (ULStat.Value <> NoErrors) Then
            errPort = True
        End If

        ULStat = _daqBoard.DConfigPort(FirstPortB, DigitalOut)      '// Configure FirstPortB for output; all ports set low from this
        If (ULStat.Value <> NoErrors) Then
            errPort = True
        End If

        ULStat = _daqBoard.DConfigPort(FirstPortCL, DigitalOut)     '// Configure FirstPortCL for output; all ports set low from this
        If (ULStat.Value <> NoErrors) Then
            errPort = True
        End If

        ULStat = _daqBoard.DConfigPort(FirstPortCH, DigitalOut)     '// Configure FirstPortCH for output; all ports set low from this
        If (ULStat.Value <> NoErrors) Then
            errPort = True
        End If

        If errPort Then
            Throw New Exception("Driver Board for AC Controller did not configure properly.")
        End If

    End Sub

'// PortA ** Works fine ***************************************************************
        _portA = &HAA

        ULStat = _daqBoard.DOut(FirstPortA, _portA)

        _portA = &H0

        ULStat = _daqBoard.DIn(MccDaq.DigitalPortType.FirstPortA, _portA)

 

'// PortB ** Works fine ****************************************************************
        _portB = &H55

        ULStat = _daqBoard.DOut(FirstPortB, _portB)

        _portB = &H0

        ULStat = _daqBoard.DIn(MccDaq.DigitalPortType.FirstPortB, _portB)

 

'// PortCL ** Works fine ***************************************************************

        _portCL = &HA       '// xxxx|1010

        ULStat = _daqBoard.DOut(FirstPortCL, _portCL)

        _portCL = &H0       '// xxxx|0000

        ULStat = _daqBoard.DIn(MccDaq.DigitalPortType.FirstPortCL, _portCL)

 

'// PortCH ** NOT READING BACK WHAT WAS WRITTEN *******************************

        _portCH = &HA0      '// 1010|xxxx

        ULStat = _daqBoard.DOut(FirstPortCH, _portCH)

        _portCH = &H0       '// 0000|xxxx

        ULStat = _daqBoard.DIn(MccDaq.DigitalPortType.FirstPortCH, _portCH)  _portCH = 00H and not A0H