Control De Motores Con Visual Basic Por Medio De Teclas De Direccion

CONTROLAR MOTORES CON LAS TECLAS ESPECIALES DE DIRECCIÓN DEL TECLADO.

Se muestra la interfaz del programa como quedaría.

La interfaz mostrada se realizo en visual basic 2010, para podersimular antes de fabricar la placa de circuito, se utilizo proteus y se enlazo proteus y visual por medio de puertos virtuales, actualmente hay varios programas que se encargan de realizr esta accion, enla siguiente hoja se muestra el diagrama del circuito.

Simulacion de el control de motores con teclas de dirección.

Código de visual Public Class Form1 Dim TeclaActual As Integer Private SubForm1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If Not (TeclaActual = e.KeyCode) Then 'Nueva Tecla TeclaActual = e.KeyCode Label1.Text = e.KeyCodeIf e.KeyCode = 37 Then PictureBox3.BorderStyle = BorderStyle.Fixed3D

If LbOnline.Text = ("Conectado") Then SerialPort1.Write("I") End If End If If e.KeyCode = 39 Then PictureBox4.BorderStyle= BorderStyle.Fixed3D If LbOnline.Text = ("Conectado") Then SerialPort1.Write("D") End If End If If e.KeyCode = 40 Then PictureBox5.BorderStyle = BorderStyle.Fixed3D If LbOnline.Text = ("Conectado")Then SerialPort1.Write("B") End If End If If e.KeyCode = 38 Then PictureBox6.BorderStyle = BorderStyle.Fixed3D If LbOnline.Text = ("Conectado") Then SerialPort1.Write("S") End If End If End If EndSub

Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp Label1.Text = 80 TeclaActual = 0 PictureBox3.BorderStyle = BorderStyle.FixedSinglePictureBox4.BorderStyle = BorderStyle.FixedSingle PictureBox5.BorderStyle = BorderStyle.FixedSingle PictureBox6.BorderStyle = BorderStyle.FixedSingle If LbOnline.Text = "Conectado" ThenSerialPort1.Write("P") End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load PictureBox2.Visible = False LbOnline.Text = "Desconectado"...