Dim num As Int
For num=1 To 4
If( usb.UsbPresent(num) = usb.USB_DEVICE )Then
Log( "usb number" &num &" is present" )
If (usb.HasPermission(num) = False) Then
Log(" request" )
usb.RequestPermission(num) ' Ver_2.4
End If
'usb.SetCustomDevice(usb.DRIVER_FTDI, 1027, 24577)
If ( usb.DeviceInfo(num).Contains("FTD") )Then 'Checks that the recognizeddevice is FTDI ?!
Log( "usb number" &num &"is FTDI" )
dev = usb.Open( 9600, num ) ' Ver_2.4
If dev <> usb.USB_NONE Then
Log("Connected successfully! " &num)
astreams.Initialize(usb.GetInputStream, usb.GetOutputStream, "astreams")
Else
Log("Error opening USB port "&num)
usb.Close
End If
Return
Else
usb.Close
End If
End If
Next