CONTROL DE UN MOTOR DC MEDIANTE VISUAL BASIC Y ARDUINO CON CONECCION SERIAL.

CONTROL DE UN MOTOR DC MEDIANTE VISUAL BASIC Y ARDUINO CON CONECCION SERIAL.

Material:

 Arduino uno

 Motor DC

 Transistor NPN BC547B

 Protoboard

 Cables de conexión

 Resistencia de 220 ohm

 Visual Basic 2010

Programación en Visual Basic 2010

1.-Diseño del programa Visual Basic:

Tabla de elementos utilizados:

ELEMENTOS NAME TEXT

Label Label1 Control Motor VB-Serial

PictureBox PictureBox1

ComboBox cmbSerialPorts

Button BtnConectar Conectar

Button BtnON ON

Button BtnOFF OFF

SerialPort Sport

Para saber el nombre del puerto serial que se debe poner en las propiedades del SerialPort, hay dos maneras:

a).- Entrar al IDE del arduino y conectar el cable USB de nuestro arduino. En el menú Herramientas>Puerto Serial. Y ahí podrás ver el nombre del puerto.

b).- Ir al Panel de Control de Windows – Hardware y Sonidos – Ver dispositivos e impresoras. Si está conectado el cable saldrá el nombre del puerto.

2.-Estructura de la programación:

// Aquí se realiza la declaración de las variables que utilizaremos//

Public Class Control_Motor

Dim Conectado As Boolean

Dim Valor As String

// al cargar el form1 desactivamos los botones “ON” y “OFF”//

Private Sub Control_Motor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

BtnON.Enabled = False

BtnOFF.Enabled = False

// El botón “conectar” nos permite conectar la PC con el arduino seleccionando el puerto serial en el combobox “cmbSerialPorts”//

Private Sub BtnConectar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConectar.Click

If Conectado = False Then

For Each PuertosDisponibles As String In My.Computer.Ports.SerialPortNames

CmbSerialPorts.Items.Add(PuertosDisponibles)

Next

If CmbSerialPorts.Items.Count > 0 Then

CmbSerialPorts.Text = CmbSerialPorts.Items(0)

SPort.PortName = CmbSerialPorts.Text

SPort.Open()

BtnON.Enabled = True

BtnOFF.Enabled = True

BtnConectar.Enabled = False

MsgBox("CONECTADO")

Conectado = True

Else

MsgBox("NINGUN PUERTO ENCONTRADO")

End If

End If

End Sub

// El botón “ON” nos permite activar el motor DC dándole a la variable “valor” el valor de “1”//

Private Sub BtnON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnON.Click

If Conectado = True Then

Valor = "1"

SPort.Write(Valor)

SPort.DiscardOutBuffer()

...