Arduino Mega ADK Project and Basic4Android

Sub Process_Globals
    Dim Accesorio As UsbAccessory
    Dim Manejador As UsbManager
   Dim AStreams As AsyncStreams
End Sub

Sub Globals
   Dim Button1 As Button
   Dim Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Escritorio")
      If FirstTime = True Then
           EncuentraAccesorio
       End If
End Sub

Sub Activity_Resume
    EncuentraAccesorio
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub EncuentraAccesorio
   Manejador.Initialize
    Dim ListaAccesorios () As UsbAccessory
   ListaAccesorios = Manejador.GetAccessories

      For i = 0 To ListaAccesorios.Length - 1
                 If ListaAccesorios(i).Description = "Prueba" Then
                    Accesorio = ListaAccesorios(i)
               Log(Accesorio.Description)
               Log(Accesorio.Manufacturer)
               Log(Accesorio.Serial)
             End If
        Next
            
      If Accesorio <> Null Then
         Dim Permiso As Boolean
         Dim r As Reflector
         r.Target = Accesorio
         Permiso= Manejador.HasAccessoryPermission(r.GetField("accessory"))

         If Permiso==True Then
            Manejador.OpenAccessory(Accesorio)
            Log (AStreams.IsInitialized)
            If AStreams.IsInitialized==False Then
               Try
                  AStreams.Initialize(Accesorio.InputStream,Accesorio.OutputStream,"AStreams")
               Catch
                  Log("No se inicializo AncyStreams")
               End Try
         End If
         Else 
            Manejador.RequestAccessoryPermission(r.GetField("accessory"))
            Permiso= Manejador.HasAccessoryPermission(r.GetField("accessory"))
            
               If Permiso Then
                  Manejador.OpenAccessory(Accesorio)
               End If
            
               If AStreams.IsInitialized==False Then
                  Try            
                     'AStreams.Initialize(Accesorio.InputStream,Accesorio.OutputStream,"AStreams")
                     AStreams.InitializePrefix(Accesorio.InputStream,False,Accesorio.OutputStream , "AStreams")
                  Catch
                     Log("No se inicializo AncyStreams")
                  End Try
               End If
         End If
      Else
         Log("No hay accesorio reconocido")
      End If
   
End Sub

'Funcion especial de los AStreams////////////////////////////////////
Sub AStreams_NewData (Buffer() As Byte)
    Dim msg As String
    msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
    Label1.Text=msg
   'ToastMessageShow(msg, False)
    Log(msg)
End Sub

Sub AStreams_Error
    ToastMessageShow(LastException.Message, True)
End Sub
'///////////////////////////////////////////////////////////////////


Sub Button1_Click
   If AStreams.IsInitialized=False Then Return
   Dim Cadena As String
   Cadena="Hola"
   AStreams.Write(Cadena.GetBytes("UTF8"))
End Sub

#include <Max3421e.h>
#include <Usb.h>
#include <AndroidAccessory.h>

#define ARRAY_SIZE 25

AndroidAccessory acc("Google, Inc.",
           "Prueba",
           "Prueba",
           "1.0",
           "http://www.android.com",
           "0000000012345678");

char hello[ARRAY_SIZE] = {'H','o','l','a',' ',
'M','u','n','d','o',' ', 'd', 'e', 's', 'd', 'e ',' ',
'A', 'r', 'd', 'u', 'i', 'n', 'o', '!'};

byte rcvmsg[255];
byte sntmsg[ARRAY_SIZE];

void setup() 
{
Serial.begin(115200);
acc.powerOn();
}

void loop() {
if (acc.isConnected()) {
 //read the sent text message into the byte array
 int len = acc.read(rcvmsg, sizeof(rcvmsg), 1);
  if (len > 0) 
  {
    
       for(int x = 0; x < 4; x++) 
       {
       Serial.print((char)rcvmsg[x]);
       delay(250);
       }
       Serial.println();
       delay(250);
     
    
   }

 for(int x = 0; x < ARRAY_SIZE; x++) 
  {
  sntmsg[x] = hello[x];
  }
 acc.write(sntmsg, ARRAY_SIZE);
 delay(250);
 }//Fin del if que verifica si el accesorio esta conectado
}