Форум программистов, компьютерный форум, киберфорум
C++/CLI
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
2 / 2 / 2
Регистрация: 16.10.2011
Сообщений: 179

Обновление элемента label при приёме данных через serialport

19.09.2013, 22:32. Показов 2408. Ответов 12
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток! На форме имеются компоненты label и serialport. Через ком порт на комп передаю данные в виде переменной из одной буквы, и соответственно если serialport ловит эту букву то число, отображаемое на компоненте label инкрементируется.

Приём данных осуществляется отдельным потоком, реализованном на основе делегата, описанного в msdn (http://msdn.microsoft.com/ru-r... hdc6b.aspx)

C++
1
2
3
4
5
6
7
8
9
10
11
String^ data;
int32 counter=0;
 
private: System::Void serialPort1_DataReceived(System::Object^  sender, System::IO::Ports::SerialDataReceivedEventArgs^  e) {
            data=serialPort1->ReadExisting();
    
 
        void Increment()
        {
        if (data[0]=='I')  label6->Text=System::Int32(++cyclecounter).ToString(); 
        }
Проблема в том, что при скорости обновления переменной меньше чем раз в ~100 мсек обновление переменной label заметно тормозит или вовсе приостанавливается. Компонент serialport настроен в соответствии с передающей стороной (baud rate 9600, read timeout поставил равным 5). Как можно оптимизировать обновление компонента label?
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
19.09.2013, 22:32
Ответы с готовыми решениями:

Изменение параметра Text формы при приёме данных via serialport
Доброго времени суток. Перешёл с плюсов на шарп и не допонял некоторых основ: имеется компонент serialPOrt, и по приёму данных на него...

Прерывание таймером при приёме и передаче данных через UART
Разрабатываю программу для RS485 на базе контроллера STM32F100xx. Ступор настал когда нужно входные и выходные данные прерывать по таймеру...

Ошибка при приёме данных
На скрине ошибка, из за чего она и как исправить? Делал чат и при отправке сообщения такая ошибка

12
128 / 86 / 10
Регистрация: 03.02.2011
Сообщений: 477
20.09.2013, 07:37
почитай про Invoke
0
2 / 2 / 2
Регистрация: 16.10.2011
Сообщений: 179
20.09.2013, 08:48  [ТС]
Можно поконкретнее, из за чего именно могут происходить задержки в обновлении?
0
128 / 86 / 10
Регистрация: 03.02.2011
Сообщений: 477
20.09.2013, 09:01
Визуализация - процесс очень ресурсоёмкий, и система им жертвует при наличии задач приема или расчета
Ты если запустишь программу в бесконечный цикл с инкрементом перменной и попробуешь выводить эту переменную, программа (окно) начисто зависнет, но если поставить бряк, то сразу увидишь, что она работала, просто отображения небыло, поскольку процесс расчета происходит на много быстрее, чем процесс визуализации, и она не успевает каждый раз отрисовывать окно, тем самым одна зада отрисовки быстро перебивается следующей, а та следующей и так далее и система завешивает визуализацию
0
2 / 2 / 2
Регистрация: 16.10.2011
Сообщений: 179
20.09.2013, 09:17  [ТС]
Работая в борланде, там всё отображалось без проблем, здесь же, как мне кажется, я допускаю какой то очевидный косяк. Выложу сокращённо весь код:

C++
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
#pragma once
 
#include "stdafx.h"
#include <string>
#include <process.h>
#include <sstream>
 
namespace NRex
{
    using namespace std;
    using namespace System;
    using namespace System::ComponentModel;
    using namespace System::Collections;
    using namespace System::Windows::Forms;
    using namespace System::Data;
    using namespace System::Drawing;
    using namespace System::Threading;
    using namespace System::IO::Ports;
    using namespace System::Threading;
    
 
    public ref class Form1 : public System::Windows::Forms::Form
    {
    public:
        delegate void AddListItem(); //объявляем делегата для Callback метода
        AddListItem^ myDelegate;   
 
    public: 
            
        Form1(void)
        {
            InitializeComponent();
        }
 
        void AddListItemMethod()
        {
            if (item[0]=='H')   //если приняли символ H инкрементируем переменную и отображаем
                                  label6->Text=System::Int32(++cyclecounter).ToString(); 
        }
 
            String^ item;
            static Int32 cyclecounter=0;  //переменная для счёта
 
    private: System::IO::Ports::SerialPort^  serialPort1;
    private: System::Windows::Forms::Label^  label1;
 
    private: Thread^ myThread;
 
    public:
 
    protected:
 
        private: void ThreadFunction1(void);
 
        ~Form1()
        {
            if (components)
            {
                delete components;
            }
        }
    protected: 
 
    private:
 
#pragma region Windows Form Designer generated code
 
        void InitializeComponent(void)
        {
            this->label1 = (gcnew System::Windows::Forms::Label());
            this->serialPort1 = (gcnew System::IO::Ports::SerialPort(this->components));
            this->SuspendLayout();
    
            // label1
            // 
            this->label1->AutoSize = true;
            this->label1->Location = System::Drawing::Point(154, 32);
            this->label1->Name = L"label1";
 
            // serialPort1
            // 
            this->serialPort1->PortName = L"COM3";
            this->serialPort1->ReadTimeout = 5;
            this->serialPort1->WriteBufferSize = 4096;
            this->serialPort1->DataReceived += gcnew System::IO::Ports::SerialDataReceivedEventHandler(this, &Form1::serialPort1_DataReceived);
            // 
 
            // Form1
            // 
            this->AutoScaleDimensions = System::Drawing::SizeF(6, 13);
            this->AutoScaleMode = System::Windows::Forms::AutoScaleMode::Font;
            this->ClientSize = System::Drawing::Size(514, 475);
            this->Controls->Add(this->label1);
 
            this->Name = L"Form1";
            this->Text = L"n ";
            this->FormClosed += gcnew System::Windows::Forms::FormClosedEventHandler(this, &Form1::Form1_FormClosed);
            this->Load += gcnew System::EventHandler(this, &Form1::Form1_Load);
            this->ResumeLayout(false);
            this->PerformLayout();
 
        }
        
#pragma endregion
 
    private: System::Void Form1_Load(System::Object^  sender, System::EventArgs^  e) {
                myDelegate = gcnew AddListItem( this, &Form1::AddListItemMethod );  //объявляем делегат
        }
 
 
    
private: System::Void Form1_FormClosed(System::Object^  sender, System::Windows::Forms::FormClosedEventArgs^  e) {
             serialPort1->Close();
         }
 
private: System::Void serialPort1_DataReceived(System::Object^  sender, System::IO::Ports::SerialDataReceivedEventArgs^  e) {
            item=serialPort1->ReadExisting();   //читаем данные в переменныу item
             
             myThread = gcnew Thread( gcnew ThreadStart( this, &Form1::ThreadFunction1 ) );  //запускаем поток
             myThread->Start();
}
 
};
 
public ref class MyThreadClass   //класс потока
{
private:
    Form1^ myFormControl1;
 
public:
    MyThreadClass(Form1^ myForm )
    {
        myFormControl1 = myForm;
    }
 
    void Run()
    {
 
        myFormControl1->Invoke( myFormControl1->myDelegate);  //вызываем делегат
    }
};
 
void Form1::ThreadFunction1()
{
    MyThreadClass^ myThreadClassObject = gcnew MyThreadClass( this );
    myThreadClassObject->Run();
}
}
0
128 / 86 / 10
Регистрация: 03.02.2011
Сообщений: 477
20.09.2013, 09:55
открой диспетчер задач и посмотри - сколько у тебя весит программа при работе, и сильно ли растет её размер и напиши сюда
0
2 / 2 / 2
Регистрация: 16.10.2011
Сообщений: 179
20.09.2013, 16:38  [ТС]
При изначальных размерах в 14.5 мб за 20 секунд программа потолстела на 1.5 мб и продолжала увеличиваться в размерах )
0
128 / 86 / 10
Регистрация: 03.02.2011
Сообщений: 477
22.09.2013, 15:10
ну вот, всё логично еще вопросы есть?
0
2 / 2 / 2
Регистрация: 16.10.2011
Сообщений: 179
22.09.2013, 16:13  [ТС]
ЭЭ, окей, а как то реально оптимизировать мою программу либо изменить её для того, чтобы вывод данных через уарт и вывод на визуальный компонент не так грузил прогу?
0
128 / 86 / 10
Регистрация: 03.02.2011
Сообщений: 477
22.09.2013, 17:25
ну, для начала нужно - либо в ручную делать очистку динамически созданных объектов, либо очищать их принудительно сборщиком мусора GC::Collect();.
Плюс, я бы не так делал работу с потоком, я бы зацикливал работу в потоке, тем самым объявляя его запуск один раз, а внутри бы гонял проверку на наличие данных в сериал порт и в случае их наличия принимал бы их и выдавал Invok делегату, который бы прописывал в label информацию
0
2 / 2 / 2
Регистрация: 16.10.2011
Сообщений: 179
22.09.2013, 22:08  [ТС]
Спасибо за подсказки.

А каким образом из другого потока (который будет отвечать за приём данных) получить доступ к компоненту serialport, принадлежащий основному потоку?
0
128 / 86 / 10
Регистрация: 03.02.2011
Сообщений: 477
22.09.2013, 22:22
кто тебе мешает сделать флаг отработки, ну например?
0
2 / 2 / 2
Регистрация: 16.10.2011
Сообщений: 179
22.09.2013, 22:47  [ТС]
Объявил глобальный флаг как bool flag=false;

В обработчике компонента seriaslport "DataReceived" флаг соотвестсвенно становиться true.
В функции Run второго потока ставлю условие if (flag) и если оно верно делаю Invoke, однако при таком построении проги отображение каких либо данных вообще не идёт
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
22.09.2013, 22:47
Помогаю со студенческими работами здесь

Зависает при приёме больших данных
не могу разобраться что я делаю с потоком входящих данных не так, при входе большого колличества данных цикл уходит на второй круг и...

Прием данных через SerialPort c#
Мне на com port приходит строчка данных неопределенного размера каждые x микроскек. Мне надо считать эту строчку и записать в массив....

Приём данных через компонент serialport
Доброго времени суток, подскажите. каким образом осуществляется чтение данных с ком порта посредством данного компонента? У serialport есть...

Надо реализовать обнуление таймера при приёме сообщений через RS485 (USART2), STM32
Проблема в том, что нужно реализовать обнуление таймера при приёме данных через RS485 (USORT2). Нужно, чтобы при приёме нового пакета он...

Построить быстрый эхо сервер при приёме и передаче различных по объёму данных от 10 байт до 100 кбайт
Как построить быстрый эхо сервер.при приёме и передаче различных по объёму данных от 10 байт до 100 кбайт.


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

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Новые блоги и статьи
Программный контроль заполнения реквизита табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru