Enviar y Recibir datos al Arduino con VisualBasic

En esta Interfaz, al pulsar el botón On se envía un 1 (o un 0 si se pulsa Off) al Arduino mediante puerto serie. Según los datos recibidos, el Arduino enciende o apaga un led situado en el pin 13 y envía una cadena de datos al PC, la Interfaz recibe la cadena de datos y la muestra en el recuadro de Datos recibidos.

Código VisualBasic

 

Código Arduino:

void setup()
{
  pinMode(13, OUTPUT);
  Serial.begin(9600);
}

void loop()
{
  int val;
  if (Serial.available())
  {
    delay(100);    
    while  (Serial.available ()>0) 
    {
      val=Serial.read();
      if (val=='0')
      {
        digitalWrite(13,LOW); 
        Serial.write("El led esta apagado");      
      }
      else if (val=='1')
      {  
        digitalWrite(13, HIGH);
        Serial.write("El led esta encendido");           
      }
      Serial.flush();
    }
  }
}   
       
}