Paso 3: Codificación:-
Public Class Motor_Control
' Aquí hacemos declaración de las variables que utilizamos ' Variable "Connected" nos permite conocer el estado de conexión Dim Conectado como booleano ' la variable "valor" será el que recibe el valor que le enviamos a Arduino
Dim valor As String ' en el cierre "Motor_Control" forma también el puerto serie "SPort" privado Sub Motor_Control_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) maneja Me.FormClosed SPort.Close() End Sub
' Al cargar el formulario deshabilitamos el botón de "ON" y "OFF"
Private Sub Motor_Control_Load (ByVal sender como System.Object, ByVal e como System.EventArgs) maneja MyBase.Load CmdON.Enabled = False CmdOFF.Enabled = False End Sub
' El botón "Connect" nos permite conectar el PC a la Arduino después de seleccionar puerto serie en el cuadro combinado "cmbSerialPorts"
CmdConectar_Click Private Sub (ByVal sender como System.Object, ByVal e como System.EventArgs) manijas cmdConectar.Click ' si no hay ninguna conexión Conectado si = False Then
' Cargar el combobox con los puertos serie de PC para cada PuertosDisponibles como cadena en My.Computer.Ports.SerialPortNames cmbSerialPorts.Items.Add (PuertosDisponibles) a continuación
' Si nada en el Combobox la lista si cmbSerialPorts.Items.Count > 0 entonces ' cambiar la cmbSerialPorts.Text de texto de combobox = cmbSerialPorts.Items (0) ' cambiar el valor del nombre de puerto serie al valor seleccionado en combobox lista SPort.PortName = cmbSerialPorts.Text ' abrir el puerto serie SPort.Open () ' y activar el botón "ON" "OFF" CmdON.Enabled = True CmdOFF.Enabled = True ' desactiva el botón "Connectar" cmdConectar.Enabled = False MsgBox ("Connected") ' la variable "Connected" es verdadero "Connected" = True else 'si no hay puertos de mostrar un mensaje MsgBox ("NO puerto encontrado") final si otra cosa' Al final cerramos el puerto SPort.Close () MsgBox ("analizo") Conectado = falso fin si End Sub
Privada Sub CmdON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) maneja CmdON.Click ' si hay conexión Conectado si = True Then ' el variable "valor" tiene el valor "1" para activar el motor valor = "1" ' envíe el valor al puerto de SPort.Write (valor) ' datos de descartes de la transmisión del puerto serial del almacenador intermediario (SPort.DiscardOutBuffer) fin si End Sub
CmdOFF_Click Private Sub (ByVal sender como System.Object, ByVal e como System.EventArgs) se encarga de CmdOFF.Click si Conectado = True Then ' el variable "valor" tiene el valor "0" para desactivar el valor motor = SPort.Write "0" (valor) (SPort.DiscardOutBuffer) fin si End Sub