domingo, 8 de julio de 2012

Lectura de valores en el puerto analogo de arduino

 

En este proyecto podremos visualizar como trabaja el puerto análogo, es sencillo pero al comprenderlo podemos aplicarlo a muchas ideas como, Voltímetro, control de temperaturas para unidades de acondicionadores de aire, controladores de carga para bancos de baterías de sistemas solares o eólicos (molinos de viento), en fin son muchísimas las aplicaciones que podemos darle al Arduino utilizando los puertos análogos.

arduinoLedPotSerial

Los componentes los podemos ver en la imagen. Publicare tres Sketch para poder comprender como funciona el puerto análogo.

El primer Sketch podremos ver como al variar la posición del pot la lectura en el puerto análogo (pin 0) se reflejara en la velocidad con que el led prende y apaga. La variación será en milisegundos.


/*
Pot sketch
blink an LED at a rate set by the position of a potentiometer
*/
const int potPin = 0; // select the input pin for the potentiometer
const int ledPin = 13; // select the pin for the LED
int val = 0; // variable to store the value coming from the sensor
void setup()
{
pinMode(ledPin, OUTPUT); // declare the ledPin as an OUTPUT
}
void loop() {
val = analogRead(potPin); // read the voltage on the pot
digitalWrite(ledPin, HIGH); // turn the ledPin on
delay(val); // blink rate set by pot value (in milliseconds)
digitalWrite(ledPin, LOW); // turn the ledPin off
delay(val); // turn led off for same period as it was turned on
}


En el segundo Sketch podremos observar como Arduino interpreta la variación de voltaje en el puerto análogo (pin0) y nos la mostrara en el Serial Monitor del programa Arduino como lo podrán ver en la imagen.

Podremos notar que cuando en el pin sea 0 Voltios el serial les mostrara 0 y cuando sea 5 Voltios entonces el serial les mostrara 1023, Los valores serán entre 0 Hasta 1023.

image


/*
AnalogReadSerial
Reads an analog input on pin 0, prints the result to the serial monitor.
Attach the center pin of a potentiometer to pin A0, and the outside pins to +5V and ground.
This example code is in the public domain.
*/

// the setup routine runs once when you press reset:
void setup() {
// initialize serial communication at 9600 bits per second:
Serial.begin(9600);
}

// the loop routine runs over and over again forever:
void loop() {
// read the input on analog pin 0:
int sensorValue = analogRead(A0);
// print out the value you read:
Serial.println(sensorValue);
delay(1); // delay in between reads for stability
}


En el siguiente Sketch combinare los dos Sketch anteriores haciendo unas modificaciones al segundo para incorporarlo al primero, para que sirva de ejemplo.


/*
Pot sketch
blink an LED at a rate set by the position of a potentiometer
*/
const int potPin = 0; // select the input pin for the potentiometer
const int ledPin = 13; // select the pin for the LED
int val = 0; // variable to store the value coming from the sensor
void setup()
{
pinMode(ledPin, OUTPUT); // declare the ledPin as an OUTPUT
// initialize serial communication at 9600 bits per second:
Serial.begin(9600);

}

void loop() {
val = analogRead(potPin); // read the voltage on the pot
digitalWrite(ledPin, HIGH); // turn the ledPin on
delay(val); // blink rate set by pot value (in milliseconds)
digitalWrite(ledPin, LOW); // turn the ledPin off
delay(val); // turn led off for same period as it was turned on

// read the input on analog pin 0:
int val = analogRead(potPin);
// print out the value you read:
Serial.println(val);
delay(1); // delay in between reads for stability
}


Esta parte es importante comprenderla porque será la base para otros proyectos que mostrare, como obtener lecturas remotas, pero será mas adelante. Espero les sirva para practicar, luego mostrare como hacer el voltímetro y el control de temperatura, para la próxima.

Arduino – Visual Basic 2010 Servo control con LCD display

 

DSCF1603
Arduino servo control. En este proyecto se utiliza un servo que estará controlado por una PC atabes de una aplicación creada en VB2010, Donde un Slider controlara la posición del servo y será desplegada en un LCD display.


Los servos vienen con dos códigos de colores:

1) Amarillo = señal Rojo = Voltaje  Marrón = Tierra

2) Blanco = señal Rojo = Voltaje  Negro = Tierra


Conexión del servo, Señal = pin13
Conexiones del
LiquidCrystal lcd(8,9,4,5,6,7);

Arduino servo control Sketch

// apcexpert.wordpress.com
// servo control con LCD display position
#include <Servo.h>
#include <LiquidCrystal.h>
Servo myservo;
int servoPosition = 1;
LiquidCrystal lcd(8, 9, 4, 5, 6, 7);
void setup() {
lcd.begin(16, 2);
lcd.print("Servo Position:");
myservo.attach(13);
Serial.begin(9600);
}
void loop() {
static int val = 0;
lcd.setCursor(0, 1);
if(Serial.available()) {
char ch = Serial.read();
switch(ch) {
case '0'...'9':
val = val * 10 + ch - '0';
break;
case 's':
myservo.write(val);
lcd.print((float)val);
val = 0;
break;
}
}
}


Codigo fuente Visual Basic 2010 (ServoController1)

image

Public Class ServoController
Private serialPort As New IO.Ports.SerialPort
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
With serialPort
.PortName = “COM3”
.BaudRate = 9600
.Parity = IO.Ports.Parity.None
.DataBits = 8
.StopBits = IO.Ports.StopBits.One
End With
serialPort.Open()
serialPort.Write(“0s”)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
serialPort.Write(TrackBar1.Value & “0s”)
End Sub
End Class

(ServoController1)

Controlando 4 relays con Arduino y Visual Basic 2010

 

image


Para este proyecto se requiere un panel con 4 relays para poder controlar equipos de mayor potencia como motores compresores o simplemente para iluminación de una residencia u un almacén, Las aplicaciones son variadas.
Este control relay board lo pueden conseguirse en ebay.com, no tiene que ser igual al ilustrado, vienen de 2, 4, 8 relays y más. Lo seleccionaran de acuerdo a su proyecto.
Abajo encontraras el sketch de Arduino y el código fuente de VB2010, también dejare el lugar para bajar el archivo (Arduino4ChRelayControl) VB2010.
Espero les funcione bien y recuerden seleccionar el puerto de comunicación USB cuando corran la aplicación en sus PC yo utilizo el Com3, Suerte con el proyecto. Hasta la próxima.

Conecciones electricas:
Pin 13 – canal 1
pin 12 – canal 2
pin 11 – canal 3
pin 10 – canal 4
100_1047
                 
Arduino Sketch

// By: apcexpert.blogspot.com

int RL4 = 13; // the number of the Relay pin
int RL3 = 12;
int RL2 = 11;
int RL1 = 10;


void setup() {
 Serial.begin(9600); // set serial speed

 pinMode(RL4, OUTPUT); // set Relay as output
 digitalWrite(RL4, LOW); //turn off Relay

 pinMode(RL3, OUTPUT);
 digitalWrite(RL3, LOW);

 pinMode(RL2, OUTPUT);
 digitalWrite(RL2, LOW);

 pinMode(RL1, OUTPUT);
 digitalWrite(RL1, LOW);




 }

void loop(){
 while (Serial.available() == 0); // do nothing if nothing sent
 int val = Serial.read() - '0'; // deduct ascii value of '0' to find numeric value of sent number

if (val == 4) { // test for command 1 then turn on Relay
 Serial.println("Relay 4 on");
 digitalWrite(RL4, HIGH); // turn on Relay
 }

if (val == 3) {
 Serial.println("Relay 3 on");
 digitalWrite(RL3, HIGH); 
 }

 if (val == 2) {
 Serial.println("Relay 2 on");
 digitalWrite(RL2, HIGH);
 }

 if (val == 1) {
 Serial.println("Relay 1 on");
 digitalWrite(RL1, HIGH);
 }


 else if (val == 8) // test for command 0 then turn off LED
 {
 Serial.println("Relay 4 OFF");
 digitalWrite(RL4, LOW); // turn off LED
 }


  else if (val == 7)
 {
 Serial.println("Relay 3 OFF");
 digitalWrite(RL3, LOW);
 }

  else if (val == 6)
 {
 Serial.println("Relay 2 OFF");
 digitalWrite(RL2, LOW);
 }

  else if (val == 5)
 {
 Serial.println("Relay 1 OFF");
 digitalWrite(RL1, LOW);
 }




 else // if not one of above command, do nothing
 {
 //val = val;
 }
 Serial.println(val);
 Serial.flush(); // clear serial port
 }



(Arduino4ChRelayControl) Visual Basic 2010


Imports System.IO
Imports System.IO.Ports
Imports System.Threading

Public Class Form1
Shared _continue As Boolean
Shared _serialPort As SerialPort

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SerialPort1.PortName = (“com3”) ‘change com port to match your Arduino portSerialPort1.Close()
SerialPort1.BaudRate = 9600
SerialPort1.DataBits = 8
SerialPort1.Parity = Parity.None
SerialPort1.StopBits = StopBits.One
SerialPort1.Handshake = Handshake.None
SerialPort1.Encoding = System.Text.Encoding.Default ‘very important!
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SerialPort1.Open()
SerialPort1.Write(“1”)
SerialPort1.Close()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
SerialPort1.Open()
SerialPort1.Write(“2”)
SerialPort1.Close()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
SerialPort1.Open()
SerialPort1.Write(“3”)
SerialPort1.Close()
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
SerialPort1.Open()
SerialPort1.Write(“4”)
SerialPort1.Close()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SerialPort1.Open()
SerialPort1.Write(“5”)
SerialPort1.Close()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
SerialPort1.Open()
SerialPort1.Write(“6”)
SerialPort1.Close()
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
SerialPort1.Open()
SerialPort1.Write(“7”)
SerialPort1.Close()
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
SerialPort1.Open()
SerialPort1.Write(“8”)
SerialPort1.Close()
End Sub

End Class

(Arduino4ChRelayControl)

Nueva version para arduino–Arduino1.0.1

 

Lo podrán conseguir en la pagina oficial en ingles – Download the Arduino Software ya que en la pagina en español no está actualizada o lo pueden bajar directamente aquí.


Download

Arduino 1.0.1 (release notes), hosted by Google Code:


Pueden elegir esta versión que ya esta actualizada para utilizar el sensor Ultrasónico HC-SR04 y el Motor Control Shield, si lo desean pinchen el icono del SKY DRIVE.

Esta versión la estaré actualizando cada vez que incluya nuevos componentes de programación, como Bluetooth, GPS, entre otras cosas.


Arduino1.0.1ACP Updated

Como instalar Arduino a unaPC con Windows7

 

Para poder programar nuestro Arduino tenemos que configurar nuestra computadora y en este caso será con Windows 7. Le mostrare los pasos y también el enlace a la pagina oficial de Arduino, en la sección de instalación.

Primero deben tener instalado el programa de Arduino, la versión mas actualizada en este momento es la del sitio en ingles – (http://arduino.cc/en/Main/Software) y la explicación la encontraran en el sitio en español – (http://arduino.cc/es/Guide/Windows).

Comenzare con la instalación:

Deben tener a mano su Arduino UNO y su cable USB, lo conectaran al puerto de su computadora, la maquina reconocerá el panel Arduino , podrán verificar en el Device Managerde sus computadoras, cuando lo localicen, debe verse similar a la siguiente imagen.

DeviceManager

Como podrán notar el icono del Arduino tiene una indicación de color amarillo, esto representa algún problema o error al instalar. Picaremos sobre Arduino Uno con el ratón y presionamos el botón derecho, nos mostrara una ventana y en ella seleccionaremos Update Driver Softwarecomo se puede observar en la imagen a continuación.

DeviceManager1

Luego Veremos la siguiente ventana:

UpdateDriver

Seleccione Browse my computer y pasara a la próxima ventana, en esta sección deben localizar el archivo conde instalaron el programa de Arduino, en este ejemplo lo instale en el desktop de mi maquina, buscaremos el folder Drivers y presionan el botón OK

UpdateDriver1

La siguiente ventana que verán les indicara una advertencia, seleccionen Istall this driver software anyway

UpdateDriver2

Esperaremos que termine la instalación. Cuando finalice abra reasignado el puerto, Veamos en la próxima imagen.

DeviceManager2

Luego sabiendo que le asigno el Puerto de comunicación Com8, Pasaremos a abrir al programa de Arduino, localizar el Modelo de nuestro micro controlador y liego el puerto de comunicación. Como veremos en las siguientes imágenes:

ArduinoSoftware1

ArduinoSoftware2

Ya para este momento estaremos listos para programar nuestro Arduino UNO. Espero que no tengan problemas. Hasta la próxima.

Medidor de distancias con LCD 16×2 y Sensor ultrasonico HC-SR04.

 

Este circuito ya se complica más, utilizare un Shield LCD +Keypad y el sensor sónico HC-SR04.Es el que estaremos utilizando frecuentemente en las pruebas. En esta ocasión veremos las lecturas, sin utilizar el puerto USB de nuestra PC. Al utilizar este shield, nos ahorramos complicaciones, y resulta un proyecto con mayor estética, luce mas profesional.

Ver imagen:

100_1031

Las conecciones son importantes:

VCC = 5Voltios

Trig= Conectar al pin #12

Echo= Conectar al pin #13

Gnd = Tierra

Aquí les dejo el sketch para instalarlo en el arduino, está en “cm” centímetros pero es sencillo cambiarlo a pulgadas.


// Ultrasonic.h – Library for HR-SC04 Ultrasonic Ranging Module.
// Rev. 2 (06/2011)
// www.arduino.com.es

#include <Ultrasonic.h>
#include <LiquidCrystal.h>
LiquidCrystal lcd(8,9,4,5,6,7);
Ultrasonic ultrasonic(12,13); // (Trig PIN,Echo PIN)

void setup() {
lcd.begin(16, 2);
}

void loop()
{
lcd.clear();
lcd.setCursor(0, 0);
lcd.print(ultrasonic.Ranging(CM)); // CM para metrico y INC para pulgadas
lcd.print(” CM”);
delay(500);
}


Espero que no tengan problemas, solo funciona si el programa de arduino esta actualizado para el sensor sónico. Cualquier complicación, me dejan un comentario y tratare de ayudarles.

Medidor de distancias con ultrasonidos HC-SR04.

 

100_1030

Hola, este circuito de pruebas, es para familiarizarse con el sensor ultrasinico, lo utilizare para tomar distancias, estas se reflejaran en “cm” . Basicamente mide distancias calculando el tiempo en que emite el pulso sonico y lo recibe, demodo que lo pocras ver en tu PC cuandi activas el monitor serial.

Les mostrare como activar este monitor, es sensillo.

Ver imagen:

serial monitor

Ver imagen de como se comunica con el monitor serial.

serial monitor1

Las conecciones son importantes:

VCC = 5Voltios

Trig= Conectar al pin #12

Echo= Conectar al pin #13

Gnd = Tierra

Este es el Sketch que instalaran en su arduino, solo les fincionara si su programa de arduino esta actualizado para el sensor ultrasonico HC-SR04.


// Ultrasonic.h – Library for HR-SC04 Ultrasonic Ranging Module.
// Rev. 2 (06/2011)
// www.arduino.com.es

#include <Ultrasonic.h>
Ultrasonic ultrasonic(12,13); // (Trig PIN,Echo PIN)

void setup() {
Serial.begin(9600);
}

void loop()
{
Serial.print(ultrasonic.Ranging(CM)); // CM or INC
Serial.println(” cm” );
delay(100);
}


Hasta la proxima.

Sensor ultrasonico HC-SR04

 

Para poder trabajar con este sensor ultrasónico debeos instalar un archivo en nuestro programa de Arduino 1.01, Debemos localizar el folder (libraries) y crear un subfolder (Ultrasonic) y hay copiaremos los archivos. Debería verse de esta manera si se realizo bien.

Ultrasonic.zip


ultrasonicFiles

Verificaremos en el programa de Ardiono para ver si esta correcto y se realizo bien, debería verse de esta manera.

ArduinoUltrasonic1

De aquí en adelante estaremos listos para realizar las diferentes pruebas o aplicaciones, que discutiré mas adelante.

Aqui esta el manual en formato pfd para referencias.

Manualhttp://www.accudiy.com/download/HC-SR04_Manual.pdf

HC-SR041

sábado, 7 de julio de 2012

Arduino LCD Keypad Shield (Escudo de teclado de LCD de Arduino)

 

Arduino display keypad

Se trata de un escudo con teclado y pantalla LCD de 16 x 2 para Arduino Uno, Diecimila, Duemilanove y Freeduino.

  • Luz de fondo azul con blancos palabras
  • utiliza la biblioteca de Arduino LCD de 4 bits
  • Izquierda, derecha, arriba, abajo y seleccionar botones
  • Ajuste de contraste de la pantalla
  • Botón Arduino Reset

La coneccion utiliza diferentes pines a los bocetos de ejemplo Arduino, así que para hacer el trabajo, utilice la siguiente secuencia de pines al iniciar la biblioteca:

LiquidCrystal lcd(8,9,4,5,6,7);

Los botones están conectados sólo una conexión de entrada analógica a través de resistencias para dar un voltaje diferente para cada botón, ahorrando en los pines de entrada/salida. Los botones de la lectura es fácil y el ejemplo de código se muestra a continuación

Conexiones de las patillas

PIN
Función

Analógica 0
Botones (select, arriba, derecha, izquierda y abajo)

4 Digital
DB4

5 Digital
BD5

6 Digital
DB6

7 Digital
DB7

8 Digital
RS (datos o selección de visualización de señal)

9 Digital
Activar

10 Digital
Control de contraluz
BAJA = contraluz en
ALTO = contraluz off
Utilizar la señal PWM para controlar el brillo

El circuito es un poco más grande que el Arduino UNO (medidas de 8 cm x 6 cm). Esto puede verse en las imágenes.


// include the library code:
#include <LiquidCrystal.h>

// initialize the library with the numbers of the interface pins
LiquidCrystal lcd(8, 9, 4, 5, 6, 7);

void setup() {
// set up the LCD's number of columns and rows:
lcd.begin(16, 2);
// Print a message to the LCD.
lcd.setCursor(0,0);
lcd.print("LCD Key Shield");
lcd.setCursor(0,1);
lcd.print("Press Key:");
}

void loop() {
int x;
x = analogRead (0);
lcd.setCursor(10,1);
if (x < 100) {
lcd.print ("Right ");
}
else if (x < 200) {
lcd.print ("Up ");
}
else if (x < 400){
lcd.print ("Down ");
}
else if (x < 600){
lcd.print ("Left ");
}
else if (x < 800){
lcd.print ("Select");
}
}

Estos ejemplos son basicos, luego se estara complicando en los proximos proyectos.

Circuito relacionado con el teclado

Arduino LCD Keypad Shield

Mirocontrolador ARDUINO UNO

 

Hola comenzaremos con este micro controlador, para el que aun no lo conoce, pondré los enlaces para que puedan conseguir información adicional.
La pagina oficial de es:
http://www.arduino.cc/es/
Descarga el Software Arduino
Arduino es una plataforma de electrónica abierta para la creación de prototipos basada en software y hardware flexibles y fáciles de usar. Se creó para artistas, diseñadores, aficionados y cualquiera interesado en crear entornos u objetos interactivos.
http://arduino.cc/en/uploads/Main/ArduinoUnoFront.jpg
Arduino puede tomar información del entorno a través de sus pines de entrada de toda una gama de sensores y puede afectar aquello que le rodea controlando luces, motores y otros actuadores. El microcontrolador en la placa Arduino se programa mediante el lenguaje de programación Arduino (basasdo en Wiring) y el entorno de desarrollo Arduino (basado en Processing). Los proyectos hechos con Arduino pueden ejecutarse sin necesidad de conectar a un ordenador, si bien tienen la posibilidad de hacerlo y comunicar con diferentes tipos de software (p.ej. Flash, Processing, MaxMSP).

Enlistare algunos componentes que estare utilizando:
Arduino sensor shield v5.0



Motor Control Shield para Arduino

Sensor ultrasonico HC- SRO4

Cominicador inalambrico Bluetooth

Para la programacion utilisare Visual Basic 2010

Es un programa gratis, solo requiere registracion, les pondre el enlace y pondran bajarlo en español:
http://www.microsoft.com/visualstudio/en-us/products/2010-editions/visual-basic-express
Los componentes los pueden conseguir en www.ebay.com
Mi nombre es Alfredo Pruna y soy de Pruerto Rico, si desean contactar , pueden hacerlo al e-mail pruna@yahoo.com

Como controlar Arduino con visual basic 2010

 

Hoy compartiremos este proyecto que es ideal para comprender como una PC puede controlar un Arduino utilizando el puerto USB. Este proyecto te permite seleccionar el puerto de comunicación, sin la necesidad de hacer cambios en el programa de Visual Basic 2010, También puedes compilarlo y instalarlo en una memoria USB Portable y utilizarlo en cualquier computadora que no tenga visual Basic.

PCtoUSBArduinoControlPin13

Arduino Sketch


//
// By apcexpert.blogspot.com
int ledPin = 13; // the number of the LED pin
void setup() {
Serial.begin(9600); // set serial speed
pinMode(ledPin, OUTPUT); // set LED as output
digitalWrite(ledPin, LOW); //turn off LED
}

void loop(){
while (Serial.available() == 0); // do nothing if nothing sent
int val = Serial.read() – ’0’; // deduct ascii value of ’0′ to find numeric value of sent number
if (val == 1) { // test for command 1 then turn on LED
Serial.println(“LED on”);
digitalWrite(ledPin, HIGH); // turn on LED
}
else if (val == 0) // test for command 0 then turn off LED
{
Serial.println(“LED OFF”);
digitalWrite(ledPin, LOW); // turn off LED
}
else // if not one of above command, do nothing
{
//val = val;
}
Serial.println(val);
Serial.flush(); // clear serial port
}


Codigo fuente para Visual basic 2010


Imports System.IO
Imports System.IO.Ports
Imports System.Threading
Public Class PcArduinoUsbPin13OnOff
Shared _continue As Boolean
Shared _serialPort As SerialPort

Private Sub PcArduinoUsbPin13OnOff_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add(“com0”)
ComboBox1.Items.Add(“com1”)
ComboBox1.Items.Add(“com2”)
ComboBox1.Items.Add(“com3”)
ComboBox1.Items.Add(“com4”)
ComboBox1.Items.Add(“com5”)
ComboBox1.Items.Add(“com6”)
ComboBox1.Items.Add(“com7”)
ComboBox1.Items.Add(“com8”)
ComboBox1.Items.Add(“com9”)
ComboBox1.Items.Add(“com10”)
ComboBox1.Items.Add(“com11”)
ComboBox1.Items.Add(“com12”)
ComboBox1.Items.Add(“com13”)
ComboBox1.Items.Add(“com14”)
ComboBox1.Items.Add(“com15”)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SerialPort1.Open()
SerialPort1.Write(“1”)
SerialPort1.Close()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SerialPort1.Open()
SerialPort1.Write(“0”)
SerialPort1.Close()
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
End Sub

Private Function Val() As String
Throw New NotImplementedException
End Function

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

SerialPort1.PortName = ComboBox1.Text ‘change com port to match your Arduino port
SerialPort1.Close()
SerialPort1.BaudRate = 9600
SerialPort1.DataBits = 8
SerialPort1.Parity = Parity.None
SerialPort1.StopBits = StopBits.One
SerialPort1.Handshake = Handshake.None
SerialPort1.Encoding = System.Text.Encoding.Default ‘very important!
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If SerialPort1.IsOpen = True Then
SerialPort1.Close()
End If
End Sub
End Class

———————————————————————————————————————————-

Podras bajar el archivo si desean o si tienen algun problema.

APC Expert Files

(PcArduinoUsbPin13OnOff)