Visual Basic 2010 y Arduino – Servo control con LCD display.

 

En el post anterior presente como controlar un servo utilizando un Slider en Visual BASIC 2010, ahora les traigo una actualización para mejorar su apariencia y añadir nuevas funciones. Espero les guste, para que les funcione idéntico tienen que instalar un tipo de letra digital si no la tienen los dígitos no lucirán iguales, lo encontraran en el mismo sitio que este archivo. ( 11569_DIGITAL.ttf )

Enlace a la publicación anterior:

Arduino – Visual Basic 2010 Servo control con LCD display

 

Arduino 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;
}

}
}

_____________________________________________________________

Aquí les dejo el código fuente para que puedan comparar las diferencias:

---

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“)
ProgressBar1.Value = (TrackBar1.Value * 10)
TextBox1.Text = TrackBar1.Value * 10 & (” “)
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
End Sub
End Class

---

APC Expert Files
(ServoController2)