ARDUINO

 06- Captura de Sensor de Proximidad (PING) con Visual Basic (VB.NET).Arduino

Se trata de una pequeña aplicacion que permite capturar las mediciones de un Sensor de Proximidad (PING), a traves de una placa Arduino, conectada al ordenador.

 
Codigo:

 VB.NET

Form1

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Button1.Visible = False
            SerialPort1.PortName = TextBox3.Text
            SerialPort1.Open()
            Timer1.Start()
        Catch ex As Exception
            MsgBox(ex.Message)
            Button1.Visible = True
        End Try
      
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim VALOR As String = SerialPort1.ReadLine
        If VALOR < 15 Then
            Label1.ForeColor = Color.Red
        ElseIf VALOR <= 30 Then
            Label1.ForeColor = Color.Yellow
        ElseIf VALOR > 30 Then
            Label1.ForeColor = Color.Lime
        End If
        Label1.Text = VALOR
    End Sub
 
End Class

ARDUINO

 */

// this constant won't change.  It's the pin number
// of the sensor's output:
const int pingPin = 7;

void setup() {
  // initialize serial communication:
  Serial.begin(9600);
}

void loop()
{
  // establish variables for duration of the ping,
  // and the distance result in inches and centimeters:
  long duration, cm;

  // The PING))) is triggered by a HIGH pulse of 2 or more microseconds.
  // Give a short LOW pulse beforehand to ensure a clean HIGH pulse:
  pinMode(pingPin, OUTPUT);
  digitalWrite(pingPin, LOW);
  delayMicroseconds(2);
  digitalWrite(pingPin, HIGH);
  delayMicroseconds(5);
  digitalWrite(pingPin, LOW);

  // The same pin is used to read the signal from the PING))): a HIGH
  // pulse whose duration is the time (in microseconds) from the sending
  // of the ping to the reception of its echo off of an object.
  pinMode(pingPin, INPUT);
  duration = pulseIn(pingPin, HIGH);

  // convert the time into a distance

  cm = microsecondsToCentimeters(duration);
 
 
  Serial.print(cm);
  Serial.println();
 
  delay(1000);
}

long microsecondsToCentimeters(long microseconds)
{
  // The speed of sound is 340 m/s or 29 microseconds per centimeter.
  // The ping travels out and back, so to find the distance of the
  // object we take half of the distance travelled.
  return microseconds / 29 / 2;
}



05- LED Encendido mientras se presiona un Boton con Visual Basic (VB.NET)

 Se trata de una pequeña aplicacion que mantiene encendido un LED solo mientras se presiona un boton.

Codigo:

VB.NET

Form1:

Public Class Form1

    Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown
        Button1.BackColor = Color.Red
        Button1.Text = "ENCENDIDO"
        SerialPort1.Write("1")
    End Sub

    Private Sub Button1_MouseUp(sender As Object, e As MouseEventArgs) Handles Button1.MouseUp
        Button1.BackColor = Color.Black
        Button1.Text = "APAGADO"
        SerialPort1.Write("0")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Button1.Visible = True
        Button2.Visible = False

        Try
            SerialPort1.PortName = TextBox1.Text
            SerialPort1.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        SerialPort1.Close()
    End Sub
End Class

ARDUINO:


void setup ()
{
  Serial.begin(9600);
  pinMode(13,OUTPUT);
}
void loop()
{
  int recibido;
  recibido=Serial.read();
  if(recibido== '1')
  {
  digitalWrite(13,HIGH);
  }
  else if (recibido=='0')
  {
    digitalWrite(13,LOW);
  }
}



04- Control de 4 Servomotores con Visual Basic (VB.NET)

Se trata de una pequeña aplicación que permite controlar un servomotor con Visual Basic a través de una placa Arduino.

NOTA IMPORTANTE:

En el codigo para Arduino se ha escrito servoX.write(0),  servoX.write(90),servoX.write(180), por necesidades de la simulacion en Proteus, cuando segun la documentacion de Arduino se debe escribir:

servoX.write(-90),  servoX.write(0),servoX.write(+90). Tenedlo en cuenta.
Codigo:

 VB.NET
Form1

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SerialPort1.Close()
        SerialPort1.PortName = TextBoxPUERTO.Text
    End Sub
    Private Sub ButtonCONECTAR_Click(sender As Object, e As EventArgs) Handles ButtonCONECTAR.Click
        Try
            SerialPort1.PortName = TextBoxPUERTO.Text
            SerialPort1.Open()
            ButtonCONECTAR.Enabled = False
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll

        Try

            If ButtonCONECTAR.Enabled = False Then
                If TrackBar1.Value >= -90 And TrackBar1.Value <= -45 Then
                    SerialPort1.Write("0") '-90
                ElseIf TrackBar1.Value > -45 And TrackBar1.Value <= 45 Then
                    SerialPort1.Write("1") '0
                ElseIf TrackBar1.Value > 45 And TrackBar1.Value <= 90 Then
                    SerialPort1.Write("2") '90
                End If
                Label1.Text = TrackBar1.Value
            Else
                MsgBox("DEBES CONECTAR EL PUERTO")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub TrackBar2_Scroll(sender As Object, e As EventArgs) Handles TrackBar2.Scroll
        Try
            If ButtonCONECTAR.Enabled = False Then
                If TrackBar2.Value >= -90 And TrackBar2.Value <= -45 Then
                    SerialPort1.Write("A") '-90
                ElseIf TrackBar2.Value > -45 And TrackBar2.Value <= 45 Then
                    SerialPort1.Write("B") '0
                ElseIf TrackBar2.Value > 45 And TrackBar2.Value <= 90 Then
                    SerialPort1.Write("C") '90
                End If
                Label2.Text = TrackBar2.Value
            Else
                MsgBox("DEBES CONECTAR EL PUERTO")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub TrackBar3_Scroll(sender As Object, e As EventArgs) Handles TrackBar3.Scroll
        Try
            If ButtonCONECTAR.Enabled = False Then
                If TrackBar3.Value >= -90 And TrackBar3.Value <= -45 Then
                    SerialPort1.Write("a") '-90
                ElseIf TrackBar3.Value > -45 And TrackBar3.Value <= 45 Then
                    SerialPort1.Write("b") '0
                ElseIf TrackBar3.Value > 45 And TrackBar3.Value <= 90 Then
                    SerialPort1.Write("c") '90
                End If
                Label6.Text = TrackBar3.Value
            Else
                MsgBox("DEBES CONECTAR EL PUERTO")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub TrackBar4_Scroll(sender As Object, e As EventArgs) Handles TrackBar4.Scroll
        Try
            If ButtonCONECTAR.Enabled = False Then
                If TrackBar4.Value >= -90 And TrackBar4.Value <= -45 Then
                    SerialPort1.Write("X") '-90
                ElseIf TrackBar4.Value > -45 And TrackBar4.Value <= 45 Then
                    SerialPort1.Write("Y") '0
                ElseIf TrackBar4.Value > 45 And TrackBar4.Value <= 90 Then
                    SerialPort1.Write("Z") '90
                End If
                Label8.Text = TrackBar4.Value
            Else
                MsgBox("DEBES CONECTAR EL PUERTO")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class
ARDUINO:

#include <Servo.h>
Servo servo1;
Servo servo2;
Servo servo3;
Servo servo4;
int recibido ;
void setup()
{
  Serial.begin(9600);
  servo1.attach(10);
  servo2.attach(11);
  servo3.attach(6);
  servo4.attach(5);
 
  servo1.write (90);
  servo2.write (90);
  servo3.write (90);
  servo4.write (90);
 
}
void loop()
{
 
  if (Serial.available() > 0) {
  // lee el byte entrante:
  recibido = Serial.read();
switch (recibido)
{
 
  case '0':servo1.write (0); break;
  case '1':servo1.write (90);break;
  case '2':servo1.write (180);break;
 
  case 'A':servo2.write (0);break;
  case 'B':servo2.write (90);break;
  case 'C':servo2.write (180);break;
 
  case 'a':servo3.write (0); break;
  case 'b':servo3.write (90);break;
  case 'c':servo3.write (180);break;
 
  case 'X':servo4.write (0);break;
  case 'Y':servo4.write (90);break;
  case 'Z':servo4.write (180);break;
 
 
}

  }
}

 



 


03- Control de Servomotor con Visual Basic (VB.NET) y también con Potenciómetro. Arduino

Se trata de una pequeña aplicación que permite controlar un servomotor con Visual Basic a través de una placa Arduino. Se añade el código para el mismo control pero con potenciómetro en lugar de VB.NET.

NOTA IMPORTANTE:

En el codigo para Arduino se ha escrito servoX.write(0),  servoX.write(90),servoX.write(180), por necesidades de la simulacion en Proteus, cuando segun la documentacion de Arduino debe escribir:

servoX.write(-90),  servoX.write(0),servoX.write(+90). Tenedlo en cuenta.



Codigos:

VB.NET

Form1

Public Class Form1
    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
      
        Try
            If ButtonCONECTAR.Enabled = False Then
                If TrackBar1.Value >= -180 And TrackBar1.Value <= -90 Then
                    SerialPort1.Write("0") '-180
                ElseIf TrackBar1.Value > -90 And TrackBar1.Value <= 90 Then
                    SerialPort1.Write("1") '0
                ElseIf TrackBar1.Value > 90 And TrackBar1.Value <= 180 Then
                    SerialPort1.Write("2") '180
              
                End If
                Label1.Text = TrackBar1.Value
            Else
                MsgBox("DEBES CONECTAR EL PUERTO")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub ButtonCONECTAR_Click(sender As Object, e As EventArgs) Handles ButtonCONECTAR.Click
        Try
            SerialPort1.PortName = TextBoxPUERTO.Text
            SerialPort1.Open()
            ButtonCONECTAR.Enabled = False
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SerialPort1.Close()
        SerialPort1.PortName = TextBoxPUERTO.Text
    End Sub
End Class
ARDUINO: (VB.NET)

#include <Servo.h>
Servo servo1;
int angulo ;
int recibido ;
void setup()
{
 
  servo1.attach(9);
 
  Serial.begin(9600);
}
void loop()
{
 
  if (Serial.available() > 0) {
  // lee el byte entrante:
  recibido = Serial.read();
switch (recibido)
{
 
  case '0':angulo = 0; break;
  case '1':angulo = 90;break;
  case '2':angulo = 180;break;
}
servo1.write (angulo);
  }
}

ARDUINO: (POTENCIOMETRO )

#include <Servo.h>
Servo servo1;
int pot1=0;
int valor;
int valoranterior=0;
int diferencia;
int threshold=30;
void setup()
{
 
servo1.attach(9);
}
void loop()
{
  valor=analogRead(pot1);
  diferencia=valor-valoranterior;
  if(diferencia <-threshold ||diferencia > threshold)
  {
    valoranterior=valor;
    valor= map (valor,0,1023,0,179);
    servo1.write(valor);
  }
delay (10);
}



02-Control de Luminosidad de un LED con Visual Basic (VB.NET).Arduino

Se trata de una pequeña aplicacion que permite controlar la luminosidad de un LED desde el ordenador. (No es PWM)

Codigo:

Form1

Public Class Form1


    Private Sub ButtonCONECTAR_Click(sender As Object, e As EventArgs) Handles ButtonCONECTAR.Click
        Try

            SerialPort1.PortName = TextBoxPUERTO.Text
            SerialPort1.Open()

            ButtonCONECTAR.Enabled = False
            Timer1.Enabled = True
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        SerialPort1.Close()
    End Sub

   

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SerialPort1.Close()
    End Sub

   
    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll

        If TrackBar1.Value <= 50 Then
            SerialPort1.Write("0")
        ElseIf TrackBar1.Value > 50 And TrackBar1.Value <= 100 Then
            SerialPort1.Write("1")
        ElseIf TrackBar1.Value > 100 And TrackBar1.Value <= 150 Then
            SerialPort1.Write("2")
        ElseIf TrackBar1.Value > 150 And TrackBar1.Value <= 200 Then
            SerialPort1.Write("3")
        ElseIf TrackBar1.Value > 200 And TrackBar1.Value <= 235 Then
            SerialPort1.Write("4")
        Else
            SerialPort1.Write("5")

        End If




        Label1.Text = TrackBar1.Value
    End Sub
End Class







ARDUINO



int led = 9;           // the pin that the LED is attached to
int brillo = 0;    // how bright the LED is
int recibido = 0;    // how many points to fade the LED by

// the setup routine runs once when you press reset:
void setup()  {
  // declare pin 9 to be an output:
  pinMode(led, OUTPUT);
 
  Serial.begin(9600);
}

// the loop routine runs over and over again forever:
void loop()  {
 // envia datos solamente cuando recibe datos
    if (Serial.available() > 0) {
        // lee el byte entrante:
        recibido = Serial.read();


switch (recibido)
{
  case '0':brillo = 0;break;
  case '1':brillo = 50;break;
  case '2':brillo = 100;break;
  case '3':brillo = 150;break;
  case '4':brillo = 200;break;
  case '5':brillo = 255;break;
}
  analogWrite(led, brillo);
}
}




01- Encender y apagar un LED con Visual Basic (VB.NET).Arduino

Primer video de una serie dedicada al control de Arduino con Visual Basic.
Esta es la típica aplicación que permite encender y apagar un LED desde VB.NET.
En el video se utiliza la aplicación Webcam como Videocámara Remota, disponible en este Blog.

Codigo:

Form1:

 Public Class Form1
    Private Sub ButtonCONECTAR_Click(sender As Object, e As EventArgs) Handles ButtonCONECTAR.Click
        Try
            SerialPort1.PortName = TextBoxPUERTO.Text
            SerialPort1.Open()
            ButtonENCENDER.Enabled = True
            ButtonAPAGAR.Enabled = True
            ButtonCONECTAR.Enabled = False
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
       
    End Sub
    Private Sub ButtonENCENDER_Click(sender As Object, e As EventArgs) Handles ButtonENCENDER.Click
        SerialPort1.Write("1")
    End Sub
    Private Sub ButtonAPAGAR_Click(sender As Object, e As EventArgs) Handles ButtonAPAGAR.Click
        SerialPort1.Write("0")
    End Sub
    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        SerialPort1.Close()
    End Sub
End Class

ARDUINO

void setup ()
{
  Serial.begin(9600);
  pinMode(13,OUTPUT);
}
void loop()
{
  int recibido;
  recibido=Serial.read();
  if(recibido== '1')
  {
  digitalWrite(13,HIGH); 
  }
  else if (recibido=='0')
  {
    digitalWrite(13,LOW);
  }
}