If KeyCode = KeyCodes.KEYCODE_3 Then
If usb.UsbPresent = usb.USB_NONE Then
Msgbox("No USB device or accessory detected!", "Error")
Log("No USB device or accessory detected!" )
Return
End If
Log("Checking permission")
If (usb.HasPermission) Then
' Msgbox(usb.DeviceInfo, "Device Information")
Log(usb.DeviceInfo )
Dim dev As Int
dev = usb.Open(115200)
If dev <> usb.USB_NONE Then
Log("Connected successfully!")
astreams.Initialize(usb.GetInputStream, usb.GetOutputStream, "astreams")
Else
Log("Error opening USB port")
End If
Else
Log("Request permission !!")
usb.RequestPermission
End If
End If