Comunicación Arduino - Android via USB Serial usando Basic4Android

International Español Software
2

Quiza lo que te ocurre es que el ejemplo recibe los datos entrantes y los muestra con un log ,por lo que solo los verias con el mobil conectado al pc y con la pestaña log (abajo a la derecha) del entorno b4a,pero no cuando el mobil esta conectado al arduino.Prueba a poner un edit text que reciba los datos:

Sub Globals
  Dim btnSend, btnOpen, btnClose As Button
  Dim edtMensaje As EditText
End Sub

Sub Astreams_NewData (Buffer() As Byte)
  'Log("NewData")
  'Log(BytesToString(Buffer, 0, Buffer.Length, "UTF8"))
  edtMensaje.Text = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
End Sub

y este sketch,que deberia escribir en el serial lo mismo que recibe:

void setup() 
{ 
  Serial.begin(115200);
} 
void loop() 
{ 
  byte msg[64]; 
  int len;
  len = Serial.available();
  if (len > 0)
  {
    len = Serial.readBytes((char*)msg, sizeof(msg)); // readBytes seems to need a char* not a byte*
    Serial.write(msg, len);
  }
}

De hecho ,acabo de probar este parecido al que comentas y funciona:

int cont = 0;
void setup() 
{ 
  Serial.begin(115200);
  
} 

void loop() 
{ 
  Serial.print(cont);
  cont ++;
  delay(1000);
}