Visual Basic para Excel

Módulo bluetooth

El Bluetooth es un estándar de comunicación inalámbrica que permite la transmisión de datos a través de radiofrecuencia en la banda de 2,4 GHz.

  • VCC: Alimentación del módulo entre 3,6V y 6V.
  • GND: La masa del módulo.
  • TXD: Transmisión de datos.
  • RXD: Recepción de datos a un voltaje de 3,3V.
  • KEY: Poner a nivel alto para entrar en modo configuración del módulo (solo el modelo HC-05)
  • -STATE: Para conectar un led de salida para visualizar cuando se comuniquen datos

Materiales

  • 1  Arduino UNO Rev3
  • 1 Módulo Bluetooth
  • Cables de conexión

Montaje

Sketch

int ledVerde = 2;

int ledAzul = 3;

int ledRojo = 4;

int ledAmarillo = 5;

int estado=0;

void setup(){

Serial.begin(9600);

pinMode(ledVerde,OUTPUT);

pinMode(ledAzul,OUTPUT);

pinMode(ledRojo,OUTPUT);

pinMode(ledAmarillo,OUTPUT);

}

void loop(){

if(Serial.available()>0){

estado = Serial.read();

}

if (estado =='1'){

digitalWrite(ledVerde,HIGH);

digitalWrite(ledAzul,LOW);

digitalWrite(ledRojo,LOW);

digitalWrite(ledAmarillo,LOW);

}

if(estado=='2'){

digitalWrite(ledVerde,LOW);

digitalWrite(ledAzul,HIGH);

digitalWrite(ledRojo,LOW);

digitalWrite(ledAmarillo,LOW);

}

if(estado=='3'){

digitalWrite(ledVerde,LOW);

digitalWrite(ledAzul,LOW);

digitalWrite(ledRojo,HIGH);

digitalWrite(ledAmarillo,LOW);

}

if(estado=='4'){

digitalWrite(ledVerde,LOW);

digitalWrite(ledAzul,LOW);

digitalWrite(ledRojo,LOW);

digitalWrite(ledAmarillo,HIGH);

}

if(estado=='5'){

recorridoAleatorio ();

}

}

 

void recorridoAleatorio(){

digitalWrite(random(2,6),HIGH); // 2-5 un número más al max

delay(random(50, 200));

digitalWrite(random(2,6),LOW);

delay(random(20, 100));

}