如果您需要向您的應用程序添加代碼并且您不確定 InstaCal 中的板號是什么，或者您希望您的應用程序與某個設備系列的任何產品一起使用。

例如，假設您想編寫一個應用程序，該應用程序可以與我們包含名稱“PDISO”的任何產品一起使用，并且您不知道 InstaCal 中的板號是什么，這里有一段代碼要添加到您的表單加載事件：

        Dim BoardNum As Integer

        Dim Numboards As Integer = 99

        Dim Boardfound As Boolean = False

        For BoardNum = 0 To Numboards - 1

            daqboard = New MccDaq.MccBoard(BoardNum)

            If daqboard.BoardName.Contains("PDISO") Then

                Boardfound = True

                daqboard = New MccDaq.MccBoard(BoardNum)

                daqboard.FlashLED ()

                Exit For

            End If

        Next

        If Boardfound = False Then '如果在 InstaCal 中未找到板，則彈出此消息

            MsgBox("在系統中未找到兼容板。請運行 InstaCal。", _

            MsgBoxStyle.Critical, "未檢測到板")

            End

        End If

        '找到板后，您可以在表單標題文本中顯示板名稱        

        Dim mystring As String = daqboard.BoardName.Substring(0, daqboard.BoardName.Trim.Length - 1) + _

            " found as board number: " + BoardNum.ToString

        Me.Text = mystring

如果你想多區分一點并弄清楚它是 PDISO8 還是 PDISO16，那么在 for 循環中替換這個語法：

           If daqboard.BoardName.Contains("PDISO") Then

                Boardfound = True

                daqboard = New MccDaq.MccBoard( BoardNum)

                daqboard.FlashLED()

                Exit For

            End If

使用以下語法：

           If daqboard.BoardName.Contains("PDISO8") Then

                Boardfound = True

                daqboard = New MccDaq.MccBoard(BoardNum)

                daqboard.FlashLED()

                Exit For

            End If

            If If daqboard .BoardName.Contains("PDISO16") 然后

                Boardfound = True

                daqboard = New MccDaq.MccBoard(BoardNum)

                daqboard.FlashLED()

                Exit For

            End If

上述語法將在它找到的以下 MCC 設備中的第一個停止：

USB-PDISO8

PCI-PDISO8

PCI-PDISO16

E-PDISO16

CIO -PDISO8

CIO-PDISO16

PC104-PDISO8

然后實例化它，以便您可以開始在您的 VB.NET 程序中使用它。