Общение с микроконтроллером через COM порт для управления светодиодной лентой

Public Class Form1
 
    Dim STATLED0 As Integer = 0
    Dim STATLED1 As Integer = 0
    Dim STATLED2 As Integer = 0
    Dim STATLED3 As Integer = 0
    Dim STATLED4 As Integer = 0
    Dim STATLED5 As Integer = 0
    Dim STATLED6 As Integer = 0
    Dim STATLED7 As Integer = 0
    Dim STATLED8 As Integer = 0
    Dim STATLED9R As Integer = 0
    Dim STATLED9G As Integer = 0
    Dim STATLED9B As Integer = 0
 
 
    Dim nRoom As String
    Dim nLedLine As String
    'Dim dataOut(3) As Byte
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        'if port is open
        If SerialPort1.IsOpen Then
            SerialPort1.RtsEnable = False
            SerialPort1.DtrEnable = False
            SerialPort1.Close()
 
            Application.DoEvents()
 
 
 
        End If
 
        'set port setting
        SerialPort1.PortName = "COM5"
        SerialPort1.BaudRate = 9600
        SerialPort1.DataBits = 8
        SerialPort1.Parity = 0
        'SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.WriteTimeout = 1000
        SerialPort1.ReadTimeout = 1000
        SerialPort1.Encoding = System.Text.Encoding.Default
 
 
        SerialPort1.Open()
 
    End Sub
 
 
    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
 
        Dim room As String
        Dim nLed As String
        Dim valueStr As String
        Dim valueInt As Integer
 
 
        Dim data_received As String
 
        'System.Threading.Thread.Sleep(200)
 
        'get data from serial port
        data_received = SerialPort1.ReadLine
 
        room = Mid(data_received, 1, 1)
        nLed = Mid(data_received, 2, 1)
        valueStr = Mid(data_received, 3)
        valueInt = CInt(valueStr)      'CByte
 
        Select Case room
            Case "0"
                STATLED0 = valueInt
                LabelBright0.Invoke(DirectCast(Sub() LabelBright0.Text = STATLED0, MethodInvoker))
 
            Case "1"
                STATLED1 = valueInt
                LabelBright1.Invoke(DirectCast(Sub() LabelBright1.Text = STATLED1, MethodInvoker))
 
            Case "2"
                STATLED2 = valueInt
                LabelBright2.Invoke(DirectCast(Sub() LabelBright2.Text = STATLED2, MethodInvoker))
 
            Case "3"
                STATLED3 = valueInt
                LabelBright3.Invoke(DirectCast(Sub() LabelBright3.Text = valueInt, MethodInvoker))
 
            Case "4"
                STATLED4 = valueInt
                LabelBright4.Invoke(DirectCast(Sub() LabelBright4.Text = valueInt, MethodInvoker))
 
            Case "5"
                STATLED5 = valueInt
                LabelBright5.Invoke(DirectCast(Sub() LabelBright5.Text = valueInt, MethodInvoker))
 
            Case "6"
                STATLED6 = valueInt
                'LabelBright6.Invoke(DirectCast(Sub() LabelBright6.Text = valueInt, MethodInvoker))
 
            Case "7"
                STATLED7 = valueInt
                'LabelBright0.Invoke(DirectCast(Sub() LabelBright7.Text = valueInt, MethodInvoker))
 
            Case "8"
                STATLED8 = valueInt
                'LabelBright0.Invoke(DirectCast(Sub() LabelBright8.Text = valueInt, MethodInvoker))
 
            Case "9"
                'STATLED9 = valueInt
                'LabelBright0.Invoke(DirectCast(Sub() LabelBright9.Text = valueInt, MethodInvoker))
 
        End Select
 
        'give an alert when data received
        'MsgBox(data_received)
        'Label1.Text = data_received
 
        Label1.Invoke(DirectCast(Sub() Label1.Text = data_received, MethodInvoker))
        '***********************************
    End Sub
 
    Private Sub ButtonOn0_Click(sender As Object, e As EventArgs) Handles ButtonOn0.Click
        Dim dataOut(3) As Byte
        If STATLED0 = 0 Then
            Label1.Invoke(DirectCast(Sub() Label1.Text = "ВКЛ", MethodInvoker))        'отладка
            dataOut(0) = 0
            dataOut(1) = 0
            dataOut(2) = 240
        Else
            Label1.Invoke(DirectCast(Sub() Label1.Text = "ВЫКЛ", MethodInvoker))       'отладка
            dataOut(0) = 0
            dataOut(1) = 0
            dataOut(2) = 0
        End If
        'SerialPort1.Write(5)
        SerialPort1.Write(dataOut, 0, 3)
        SerialPort1.DiscardOutBuffer()
        'STATLED0 = CInt(dataOut(2))
    End Sub
 
    Private Sub ButtonOn1_Click(sender As Object, e As EventArgs) Handles ButtonOn1.Click
        Dim dataOut(3) As Byte
        If STATLED1 = 0 Then
            Label1.Invoke(DirectCast(Sub() Label1.Text = "ВКЛ", MethodInvoker))        'отладка
            dataOut(0) = 1
            dataOut(1) = 0
            dataOut(2) = 127
        Else
            Label1.Invoke(DirectCast(Sub() Label1.Text = "ВЫКЛ", MethodInvoker))       'отладка
            dataOut(0) = 1
            dataOut(1) = 0
            dataOut(2) = 0
        End If
        'SerialPort1.Write(5)
        SerialPort1.Write(dataOut, 0, 3)
        SerialPort1.DiscardOutBuffer()
        'STATLED1 = CInt(dataOut(2))
 
    End Sub
 
    Private Sub ButtonOn2_Click(sender As Object, e As EventArgs) Handles ButtonOn2.Click
        Dim dataOut(3) As Byte
        If STATLED2 = 0 Then
            Label1.Invoke(DirectCast(Sub() Label1.Text = "ВКЛ", MethodInvoker))        'отладка
            dataOut(0) = 2
            dataOut(1) = 0
            dataOut(2) = 255
            'SerialPort1.Write(5)
            SerialPort1.Write(dataOut, 0, 3)
            'STATLED2 = 255
        Else
            Label1.Invoke(DirectCast(Sub() Label1.Text = "ВЫКЛ", MethodInvoker))       'отладка
            dataOut(0) = 2
            dataOut(0) = 0
            dataOut(0) = 0
            'SerialPort1.Write(5)
            SerialPort1.Write(dataOut, 0, 3)
            SerialPort1.DiscardOutBuffer()
            'STATLED2 = 0
        End If
    End Sub
End Class