Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 04.04.2014
Сообщений: 15
1

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

09.06.2015, 13:24. Просмотров 1024. Ответов 4
Метки нет (Все метки)

Приветствую!
Подскажите, что не так?
Написал код в Visual Basic 2012 для включения светодиодных лент, подключенных к Arduino, общение с микроконтроллером через COM порт (USB, CP2102). При кликах на кнопках в порт отправляется не то, что должно, хотя в текстовых полях для отладки (ВКЛ, ВЫКЛ) отображается верно. Временами срабатывает правильно. При клике по ButtonOn1 вместо значения 127 отправляется 255. Раньше в Basic с COM портом не работал. Прошу помочь разобраться. Сразу скажу, что с ардуины данные приходят верно, т.к. также имеется управление с физических кнопок.

vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
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
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.06.2015, 13:24
Ответы с готовыми решениями:

Периферийное устройство. Управление светодиодной лентой через компьютер
Доброго времени суток! Есть желание сварганить управление светодиодной лентой через компьютер,...

Управление светодиодной лентой с ПК
Добрый день. Подскажите, как решить задачу: Имеется ПК, на нем при определенном событии (скажем...

Управление светодиодной лентой
Добрый день. Озадачился вспомогательным освещением на светодиодной ленте с управлением от...

Управление светодиодной лентой с Android
Здравия желаю:senor:! Появилась надобность в управлении светодиодной лентой с телефона на...

4
0 / 0 / 0
Регистрация: 04.04.2014
Сообщений: 15
13.06.2015, 21:17  [ТС] 2
Неужели никто не писал ничего подобного?..
Также хочу уточнить: первый байт отправляется верно, второй тоже, а вот третий либо 0, либо 255, независимо от переменных STATLED_.
0
Эксперт .NET
7015 / 4602 / 1099
Регистрация: 25.05.2015
Сообщений: 14,044
Записей в блоге: 14
13.06.2015, 22:25 3
На VB не писал. На C# могу показать, если хотите.
Попробуйте переставить DiscardOutBuffer перед записью, а не после.
0
0 / 0 / 0
Регистрация: 04.04.2014
Сообщений: 15
14.06.2015, 13:42  [ТС] 4
Цитата Сообщение от Rius Посмотреть сообщение
На VB не писал. На C# могу показать, если хотите.
Попробуйте переставить DiscardOutBuffer перед записью, а не после.
То же самое...

Добавлено через 22 минуты
Не совсем то же самое: если с физической кнопки включить, то третий байт при клике отправляется равным 255, если выключить, то 0, т.е. наоборот. Если в условии по клику заменить "=" на ">", то включение/выключение срабатывает верно, но вместо указанного в коде значения третьего байта отправляется 255.
0
0 / 0 / 0
Регистрация: 04.04.2014
Сообщений: 15
15.06.2015, 18:23  [ТС] 5
Немного переделал... Помониторил сниффером, данные передаются верно, все-таки ошибки со стороны Arduino.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2015, 18:23

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Управление светодиодной лентой - не могу понять проблему
Всем доброго дня! Столкнулся со странной проблемой, не могу её понять. Помогите пожалуйста. ...

Управление светодиодной лентой 12В 4А, используя мосфет и esp8266
Приветствую вас. Подскажите как организовать управление освещением светодиодной лентой 12В 4А при...

Общение через COM порт Chevrolet Explorer
Надумал вобщем такую штуку сделать как бортовой компьютер, так вот, есть планшет на платформе...

Общение с внешним устройством через COM-порт
Добрый день! Есть задача общаться с контроллером подключенным к PC через виртуальный com-порт....

Динамическая индикация на примере управления светодиодной матрицей 4x
нашел данную статью - http://microsin.net/programming/avr/led-matrix-dynamic-indication.html очень...

Двунаправленное общение с принтером (USB, TCP/IP порт 9100) из драйвера
Общая формулировка задачи. Win драйвер должен перед печатью страницы определять есть ли в принтере...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.