LIBNODAVE AND CP5611 AND CP5612

[Nobody/Anonymous]

Hello.
Very good stuff. THANK YOU very much.
I have CP5611(PCI Card) and CP5612(PCIMCIA Card).
I use S7ONLINE protocol to make connection with S7-300 315-2DP by MPI.
I found example in internet, and little change it for my needs.
When I use CP5612 everything works great, but when I use CP5611 I cannot close connection. It looks like closing instruction didn't work.
Below is my code:
//////////////////////////////////////////////////////////////////////////////
Public Class Form1
    Public Value As Integer = 0
    Dim localMPI As Integer = 0, plcMPI As Integer = 2
    Dim fds As libnodave.daveOSserialType
    Dim di As libnodave.daveInterface
    Dim dc As libnodave.daveConnection

    Private Sub btnAufbau_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnAufbau.Click
        Dim Rack As Integer = 0
        Dim Slot As Integer = 0
        PLCConnect_NEW(2, 0, 2)
    End Sub

    Private Function PLCConnect_NEW(ByVal MPIAddress As String, Optional ByVal PLCRack As Integer = 0, Optional ByVal PLCSlot As Integer = 2) As Boolean
        Dim ConnectionOpened As Boolean
        Dim initSuccess As Integer = 0
        Dim i As Integer
        Try
            ListBox1.Items.Clear()
            dc.disconnectPLC()
            di.disconnectAdapter()
            fds.rfd = libnodave.closeS7online(fds.rfd)

            For i = 0 To 3
                fds.rfd = libnodave.openS7online("S7ONLINE")
                fds.wfd = fds.rfd
                If fds.rfd > 0 Then
                    Exit For
                End If
            Next
            If (fds.rfd > 0) Then
                di = New libnodave.daveInterface(fds, "IF1", 0, libnodave.daveProtoS7online, libnodave.daveSpeed187k)
                di.setTimeout(10000)
                Dim j As Integer
                For j = 0 To 2
                    If (0 = di.initAdapter) Then
                        initSuccess = 1
                        Exit For
                    Else
                        di.disconnectAdapter()
                    End If
                Next
                ListBox1.Items.Clear()
                If initSuccess <> 1 Then
                    ListBox1.Items.Add("Couldn't connect to Adapter!")
                    Exit Function
                End If
                dc = New libnodave.daveConnection(di, MPIAddress, PLCRack, PLCSlot)
                Dim ErrorCode As Integer = dc.connectPLC()
                If ErrorCode = 0 Then
                    ListBox1.Items.Add("Connection opened.")
                    ConnectionOpened = True
                    Timer2.Enabled = True
                Else
                    ListBox1.Items.Add("Error opening connection. Check rack & slot." & " = " & libnodave.daveStrerror(ErrorCode))
                    ConnectionOpened = False
                End If
            Else
                ListBox1.Items.Add("Error opening access point.")
                ConnectionOpened = False
            End If
            Return ConnectionOpened

        Catch ex As Exception
            ' Error ("Couldn't open connection to " PLC)
            For i = 0 To 3
                fds.rfd = libnodave.openS7online("S7ONLINE")
                fds.wfd = fds.rfd
                If fds.rfd > 0 Then
                    Exit For
                End If
            Next
            If (fds.rfd > 0) Then
                di = New libnodave.daveInterface(fds, "IF1", 0, libnodave.daveProtoS7online, libnodave.daveSpeed187k)
                di.setTimeout(10000)
                Dim j As Integer
                For j = 0 To 2
                    If (0 = di.initAdapter) Then
                        initSuccess = 1
                        Exit For
                    Else
                        di.disconnectAdapter()
                    End If
                Next
                ListBox1.Items.Clear()
                If initSuccess <> 1 Then
                    ListBox1.Items.Add("Couldn't connect to Adapter!")
                    Exit Function
                End If
                dc = New libnodave.daveConnection(di, MPIAddress, PLCRack, PLCSlot)
                Dim ErrorCode As Integer = dc.connectPLC()
                If ErrorCode = 0 Then
                    ListBox1.Items.Add("Connection opened.")
                    ConnectionOpened = True
                    Timer2.Enabled = True
                    'comm = 1
                Else
                    ListBox1.Items.Add("Error opening connection. Check rack & slot." & " = " & libnodave.daveStrerror(ErrorCode))
                    ConnectionOpened = False
                End If
            Else
                ListBox1.Items.Add("Error opening access point.")
                ConnectionOpened = False
            End If
            Return ConnectionOpened
        End Try
    End Function

    Private Sub PLCDisConnect()
        'btnAufbau.Show()
        'Button2.Hide()
        Timer2.Enabled = False
        'comm = 0
        ListBox1.Items.Clear()
        dc.disconnectPLC()
        di.disconnectAdapter()
        fds.rfd = libnodave.closeS7online(fds.rfd)
        ListBox1.Items.Add("Disconnected.")
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim ReadOK As Boolean = True
        Dim ReceivedDataBytes(11) As Byte
        Dim SendDataBites(0) As Byte
        Dim RetVal As Integer
        SendDataBites(0) = 1
        ListBox1.Items.Clear()
        RetVal = dc.readBytes(132, 3, 0, 12, ReceivedDataBytes)
        If RetVal = 0 Then
            Dim i As Integer
            For i = 0 To ReceivedDataBytes.Length - 1
                ListBox1.Items.Add(ReceivedDataBytes(i))
            Next
        Else
            ReadOK = False
            ListBox1.Items.Add("Read error: " & RetVal & " = " & libnodave.daveStrerror(RetVal))
            PLCConnect_NEW(2, 0, 2)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        PLCDisConnect()
    End Sub
End Class

Thank You very much for any help.