Sub btnTest_Click
Dim device As Int = 1
Dim info As String
Dim deviceName As String
Dim deviceId As String
Dim productId As String
Dim vendorId As String
Dim msg() As Byte
'Controllo se è presente un dispositivo USB
If usb1.UsbPresent(device) = usb1.USB_NONE Then : Msgbox("Nessuna USB-IrDa Rilevaya, Collegane una e riprova", "Attenzione") : Return : End If
'mi da errore con: DRIVER_CDCACM | DRIVER_PROLIFIC
'non da errore con: DRIVER_FTDI | DRIVER_SILABS
'con DRIVER_SILABS ha inviato ma da questo errore: Error: java.lang.NullPointerException: Attempt to invoke interface method 'int com.hoho.android.usbserial.driver.UsbSerialDriver.read(byte[], int)' on a null object reference
'Se è presente, ne verifico i permessi
If (usb1.HasPermission(device)) Then
usb1.SetCustomDevice(usb1.DRIVER_SILABS, 0x66F, 0x4200)
If usb1.Open(2400,1) <> usb1.USB_NONE Then
Log("USB Connessa")
'inizializzo lo Stream
Log("InputStream: " & usb1.GetInputStream)
Log("OutputStream: " & usb1.GetOutputStream)
astreams1.Initialize(usb1.GetInputStream, usb1.GetOutputStream, "astreams1")
Else
Log("Errore nella connessione della USB")
End If
Else
usb1.RequestPermission(device)
Return
End If
' Stampare VID e PID
info = usb1.DeviceInfo(device)
deviceName = ExtractValue(info, "DeviceName : ")
deviceId = ExtractValue(info, "Device ID : ")
productId = ExtractValue(info, "ProductId : ")
vendorId = ExtractValue(info, "VendorId : ")
Log("Device Name: " & deviceName)
Log("Device ID : " & deviceId)
Log("ProductId : " & productId)
Log("VendorId : " & vendorId)
' Configurare i parametri seriali
usb1.SetParameters(115200, usb1.DATABITS_8, usb1.STOPBITS_1, usb1.PARITY_NONE)
' Messaggio da inviare
msg = Array As Byte(0x05, 0x06, 0x40, 0x00, 0x08, 0x01, 0x5B, 0x95)
If(Not(astreams1.IsInitialized)) Then
Log("asstream1 non inizializzato, impossibile inviare il msg")
Return
Else
Log("asstream1 inizializzato")
' Scrivere il messaggio sulla porta seriale
'astreams1.Write(msg)
astreams1.Write("abcde".GetBytes("UTF8"))
Log("Messaggio inviato con successo")
' Chiudere la connessione
usb1.Close
End If
End Sub
Sub Astreams1_NewData (Buffer() As Byte)
' You must check for DeviceInfo or analyze Buffer data to know what is connected to the USB
' The order of the USB could change as you plug them and could change when changing the hub port they are connected to
Log("NewData 1")
Log(BytesToString(Buffer, 0, Buffer.Length, "UTF8"))
End Sub
Sub AStreams1_Error
Log("Error: " & LastException.Message)
astreams1.Close
End Sub
Sub Astreams1_Terminated
Log("Terminated")
astreams1.Close
End Sub