Visual Basic

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VB Вычислить среднее геометрическое элементов матрицы Вычислить среднее геометрическое элементов матрицы R, размер CxC, расположенной на главной диагонали https://www.cyberforum.ru/ visual-basic/ thread1944024.html	Отслеживание и изменение приоритета процесса VB Есть такой вопрос: программа (A.exe) по действию пользователя вызывает другую программу (B.exe) как дочерний процесс. Эта вторая программа сразу же поднимает загруженность процессора почти до 100% и...
VB If . then https://www.cyberforum.ru/ visual-basic/ thread1943041.html Народ, подскажите, что тут происходит: If (pintFunctions And 16) = 16 Then где pintFunctions as Integer Добавлено через 10 минут Отбой, разобрался в скобках идёт побитовое сравнение в...	VB Создание тетриса на vb6 Здравствуйте. Помогите найти уроки по созданию тетрис на vb6. https://www.cyberforum.ru/ visual-basic/ thread1942402.html
VB Программа, вводящая натуральные числа а и б и выводит все нат.числа, квадраты кот. в диапазоне Вводится два числа а и б, надо вывести все натуральные числа, квадраты которых находятся в интервале от а до б (иными словами натуральные корни чисел из этого диапазона) пример: вводится диапазон от...	VB как определить язык windows на VB6.0 https://www.cyberforum.ru/ visual-basic/ thread1941777.html как определить язык windows на VB6.0?
VB Замена условного оператора одной большой формулой На вход подаётся число и четыре вида преобразования, выглядит это так: Если введено 0 - умножить число на 1.5 Если введено 1 - умножить на 1 На вывод программа должна выдать сумму всех четырёх... https://www.cyberforum.ru/ visual-basic/ thread1941590.html	найти число, которое меньше максимального элемента массива, но больше всех других его элементов VB В массиве A найти второе по значению число (т.е. вывести на печать число, которое меньше максимального элемента массива, но больше всех других его элементов)
VB Найти сумму, разность, произведение и частное их модулей Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей https://www.cyberforum.ru/ visual-basic/ thread1940714.html	VB Вывести на печать значение функции Доброе время суток, форум Пожалуйста помогите написать программу, вот исходные данные Вывести на печать значение функии z=sin(x/(x+2)), находящиеся в интервале (-0,4;0,8), для x, изменяющегося на... https://www.cyberforum.ru/ visual-basic/ thread1940514.html
Разделение целой и дробной части в TextBox VB Здравствуйте. У меня есть три текстбокса, в одном из них выводится произведение дробных чисел, введённых в два других текстбокса. Я заметил, что при вводе десятичных дробей с разделением в виде...	VB Как задать условие так, чтобы работа процедуры была непрерывной? Пишу программу на VB6.Это программа для расчёта коэффициентов.Изначально пользователь задаёт начальные значения n и k.Затем по формулам рассчитывается n1 и k1.Полученные значения нужно сохранить и... https://www.cyberforum.ru/ visual-basic/ thread1940072.html

BIXTAR

0 / 0 / 0

Регистрация: 21.03.2017

Сообщений: 24

Распределение данных с последовательного порта - VB - Ответ 10244844

22.03.2017, 16:22. Показов 660. Ответов 2

Метки (Все метки)

Имеется такой код в VB6

Visual Basic

Private Sub Command1_Click()
MSComm1.CommPort = 2
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 0
MSComm1.OutBufferSize = 0
MSComm1.InBufferSize = 0
MSComm1.PortOpen = True
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
Do
 DoEvents
 Buffer$ = Buffer$ & MSComm1.Input
 Loop Until InStr(Buffer$, vbCr)
 Label1.Caption = Buffer$
End Sub

Всё работает, при клике на кнопку порт открывается , данные отображаются в Label1.Caption и обновляются каждую секунду.
Символы с COM порта поступают в ASCII кодировке.
Примерные символы отображаются в виде.
02M0####
и
03M0####
Где (#) - Случайное число которое постоянно меняется с самого порта. Все символы находятся в одном буфере и могут меняться местами, 02M0#### или 03M0####, один из них может запаздывать и дублироваться.
Нужно сделать так, чтобы 02M0#### отображался именно в Label1.Caption ,
а 03M0#### отображался в Label2.Caption

Пробовал обойтись операторами:

Visual Basic

If Label1.Caption <= "02M02999" Then
Label1.Caption = Label1.Caption
Else
Label1.Caption = "Error"
End If
If Label1.Caption >= "02M00000" Then
Label1.Caption = Label1.Caption
Else
Label1.Caption = "Error"
End If
If Label2.Caption <= "03M02999" Then
Label2.Caption = Label2.Caption
Else
Label1.Caption = "Error"
End If
If Label2.Caption >= "03M00000" Then
Label2.Caption = Label2.Caption
Else
Label2.Caption = "Error"
End If

Так же пробовал с Buffer$. Ничего не вышло, в обоих случаях буфер проигнорировал все условия
и продолжает выводить что и без условий.
Помогите пожалуйста решить проблему. Спасибо!

Вернуться к обсуждению:
Распределение данных с последовательного порта VB

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

22.03.2017, 16:22

Готовые ответы и решения:

Получить среднее арифметическое принятых данных с последовательного порта
Добрый день! Столкнулся с такой задачей. Необходимо получить среднее арифметическое 8 значений...

Как поток данных с последовательного порта записать в массив типа char
Как реализовать запись символов приходящих с последовательного порта в массив char? Например при...

Программирование последовательного порта.
Здраствуйте. Помогите кто чем может в поиске литературы, исходников по программированию...

приемник последовательного порта
как реализовывается приемник последовательного порта ???? и передатчик (= если не лень на...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

22.03.2017, 16:22

Помогаю со студенческими работами здесь

Настройка последовательного порта
Добрый день. Возникла проблема с настройкой и, соответственно, использованием последовательного...

Программирование последовательного порта
Добрый день, камрады. Не знаю в верный ли подраздел форума я обращаюсь! Прошу строго не судить! Но...

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

20-40 выключателей в данные для последовательного порта
В электронике не разбираюсь, просто толкните в нужном направлении. Есть несколько кнопок - 20-30...

Наверх