Encender Led con Arduino Y Visual Basic / Video#1/

Опубликовано: 21 Июнь 2026
на канале: Tecnologia Extraterrestre

4,969

111

Con este video damos por iniciado un nuevo curso de arduino y visual Basic, usando a este como HMI y arduino como tarjeta de control.

Curso de Visual Basic:
• Visual Basic (2021)

Código del Arduino:
int led=13;
int dato;
void setup() {
Serial.begin(9600);
pinMode(led,OUTPUT);
}
void loop() {
if (Serial.available()){
dato=Serial.read();
if (dato=='1'){
digitalWrite(led,HIGH);
}
if (dato=='0'){
digitalWrite(led,LOW);
}
}
}

Codigo del Visual Basic:
Imports System.IO
Imports System.IO.Ports
Imports System.Threading
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
SerialPort1.Close()
SerialPort1.PortName = "COM5"
SerialPort1.BaudRate = 9600
SerialPort1.DataBits = 8
SerialPort1.Parity = Parity.None
SerialPort1.StopBits = StopBits.One
SerialPort1.Handshake = Handshake.None
SerialPort1.Encoding = System.Text.Encoding.Default
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
SerialPort1.Open()
SerialPort1.Write("1")
SerialPort1.Close()
Button1.Visible = False
Button2.Visible = True
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
SerialPort1.Open()
SerialPort1.Write("0")
SerialPort1.Close()
Button1.Visible = True
Button2.Visible = False
End Sub
End Class