He estado cacharreando algo estos días con el arduino y me he puesto a aprender a controlar y comunicar el arduino con el portátil, os subo un ejemplo de como encender y apagar el led 13 mediante una aplicación realizada en visual basic 6.
Esta es una imagen de la aplicación:
Esta aplicación consiste en controlar el arduino mediante el puerto serie (en mi caso es el COM6, ya lo puse directo en el control del VB 6.0, también se podría hacer para seleccionar el puerto), lo primero que debemos hacer es darle al botón CONECTAR para que se abra el puerto serie y se habiliten los botones de LED ON y LED OFF. Al presionar el botón LED ON el led 13 se encenderá y al presionar el botón LED OFF el led se apagará, para cerrar el puerto serie basta con presionar el botón DESCONECTAR (deshabilitando los botones de encendido y apagado de los leds). Está pequeña aplicación sirve de aprendizaje para futuros proyectos en los que queramos controlar determinados actuadores o sensores. Espero que os sirva de ayuda, a continuación os dejo los códigos y un video del funcionamiento.
Aquí os dejo el código del Arduino:
void setup() { //Definimos la velocidad de transferencia a 9600 baudios //y el pin 13 como salida pinMode(13,OUTPUT); Serial.begin(9600); } void loop() { //Mientras el puerto serie este accesible while (Serial.available()) { //Guardamos en dato el valor leido del puerto serie byte dato = Serial.read(); switch (dato){ //Si es '1' encendemos el led case '1': digitalWrite(13,HIGH); break; //Si es '2' apagamos el led case '2': digitalWrite(13,LOW); break; } } }
Aquí el código de la aplicación en VB 6.0:
Option Explicit 'Boton de conectar Private Sub cmdConectar_Click() Serie.PortOpen = True 'Abrimos el puerto serie cmdON.Enabled = True 'Habilitamos los botones para trabajar con el led cmdOFF.Enabled = True End Sub Private Sub cmdDesconectar_Click() Serie.PortOpen = False 'Cerramos el puerto serie cmdON.Enabled = False 'Deshabilitamos los botones cmdOFF.Enabled = False End Sub Private Sub cmdOFF_Click() Serie.Output = "2" 'Mandamos un "2" para apagar el led End Sub Private Sub cmdON_Click() Serie.Output = "1" 'Mandamos un "1" para encender el led End Sub
Y aquí os dejo el video del funcionamiento:
Si te ha servido de ayuda esta entrada, puedes realizar un donativo para agradecer el tiempo que dedico al blog y ayudar a hacer más entradas.