aadetect.vb

Aardvark Example Source Code Version: 4.00 Date: 2007-04-20 Source code which shows how to use the

'==========================================================================
' (c) 2004-2007  Total Phase, Inc.
'--------------------------------------------------------------------------
' Project : Aardvark Sample Code
' File    : aadetect.vb
'--------------------------------------------------------------------------
' Auto-detection test routine
'--------------------------------------------------------------------------
' Redistribution and use of this file in source and binary forms, with
' or without modification, are permitted.
'
' THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
' "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
' LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
' FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE
' COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
' INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
' BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
' LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
' CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
' LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
' ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
' POSSIBILITY OF SUCH DAMAGE.
'==========================================================================
Imports TotalPhase

Module aadetect

    '==========================================================================
    ' MAIN PROGRAM
    '==========================================================================
    Public Sub aadetect_run()
        Console.WriteLine("Detecting Aardvark adapters...")
        Dim num As Long
        Dim devices(15) As Short

        ' Find all the attached devices
        num = AardvarkApi.aa_find_devices(16, devices)

        If num > 0 Then
            Console.WriteLine("Found " & num & " device(s)")

            Dim port As Integer
            Dim inuse As String
            Dim i As Long

            ' Print the information on each device
            For i = 0 To num - 1
                port = devices(i)

                ' Determine if the device is in-use
                inuse = "   (avail)"
                If port And AardvarkApi.AA_PORT_NOT_FREE Then
                    inuse = "   (in-use)"
                    port = port And Not AardvarkApi.AA_PORT_NOT_FREE
                End If

                ' Display device port number, in-use status, and serial number
                Console.WriteLine("    port = " & port & inuse)
            Next
        Else
            Console.WriteLine("No devices found.")
        End If
    End Sub
End Module