Usando VB para controlar Arduino (2 / 5 paso)

Paso 2: Hacer que el programa VB

En este instructable, vamos a hacer un programa para controlar leds, con 4 botones. Siga los pasos siguientes.

• Haga clic en nuevo proyecto
• Seleccione nuevas ventanas de aplicación
• Introduzca un nombre para su aplicación
• Arrastrar y soltar los 4 botones del cuadro de herramientas en el Form1
• Arrastrar y soltar un SerialPort también
• Haga doble clic en el formulario. Usted verá el área de codificación.
• Copiar y pegar el siguiente código allí.

Las importaciones de System.IO

Las importaciones System.IO.Ports

Las importaciones System.Threading

Public Class Form1

_Continue compartido como Boolean

Compartido _serialPort SerialPort

Privada Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) maneja MyBase.Load

SerialPort1.Close()

SerialPort1.PortName = InputBox ("Escriba el puerto COM")

SerialPort1.BaudRate = InputBox ("Introduzca la velocidad de transmisión")

SerialPort1.DataBits = 8

SerialPort1.Parity = Parity.None

SerialPort1.StopBits = StopBits.One

SerialPort1.Handshake = Handshake.None

SerialPort1.Encoding = System.Text.Encoding.Default

End Sub

Privada Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) maneja Button1.Click

SerialPort1.Open()

SerialPort1.Write("1")

SerialPort1.Close()

End Sub

Privada Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) maneja Button1.Click
SerialPort1.Open()

SerialPort1.Write("2")

SerialPort1.Close()

End Sub

Privada Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) maneja Button1.Click
SerialPort1.Open()

SerialPort1.Write("3")

SerialPort1.Close()

End Sub

Privada Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) maneja Button1.Click
SerialPort1.Open()

SerialPort1.Write("4")

SerialPort1.Close()

End Sub

Clase final