Микроконтроллеры AVR - применение и Краткий Курс - часть 9

почему не работает "стандартная" функция "delay_ms". Она ж даже в хелпе к компилятору описана.

 

Здравствуйте! Кто нибудь писал софт для приема данных от МК на компе через уарт? Можете исходниками поделиться? Желательно для билдера:) А то не получается:(

 

TurboPower Async Professional

Async Professional is a comprehensive communications toolkit for Embarcadero Delphi, C++Builder, & ActiveX environments. It provides direct access to serial ...

// sourceforge.net

 

Здравствуйте! Кто нибудь писал софт для приема данных от МК на компе через уарт? Можете исходниками поделиться? Желательно для билдера:) А то не получается:(

 

Просто у меня проблема - МК передает на скорости 115200 почти непрерывно поток данных пакетами по килобайту и его надо оперативно принимать и по этим данным строить график. Всякие косяки вылазят.

 

МК передает на скорости 115200 почти непрерывно поток данных пакетами по килобайту и его надо оперативно принимать и по этим данным строить график.

 

jagr, SAA, Спасибо.
Посмотрю сейчас.
Просто у меня проблема - МК передает на скорости 115200 почти непрерывно поток данных пакетами по килобайту и его надо оперативно принимать и по этим данным строить график.

 

//---------------------------------------------------------------------------
// Инициализация
//---------------------------------------------------------------------------
void __fastcall TForm1::InitCommunication(void)
{
if(hCom >= 0) CloseHandle(hCom);
hCom = CreateFile(PORT.c_str(),GENERIC_READ|GENERIC_WRITE,
0,NULL,OPEN_EXISTING,FILE_FLAG_OVERLAPPED,
NULL);

if (hCom == INVALID_HANDLE_VALUE) MessageBox(0,"Error","com1",0);
DCB dcb = {0};
if (!GetCommState(hCom, &dcb)) MessageBox(0,"Error","BCB get",0);
else{
// структура DCB инициализирована
dcb.BaudRate = 9600;
dcb.ByteSize = 8;
// dcb.Parity = EVENPARITY;
dcb.StopBits = ONESTOPBIT;
}
if(!SetCommState(hCom, &dcb)) MessageBox(0,"Error","BCB set",0);
}

//---------------------------------------------------------------------------
// Процедура снятия отсчетов с COM2
//---------------------------------------------------------------------------
void __fastcall CyclRead(void)
{
DWORD dwRead, dwWait;
OVERLAPPED Sync = {0};

// Создаём событие для контроля за асинхронным чтением
Sync.hEvent = CreateEvent(NULL, TRUE, FALSE, NULL);
if(Sync.hEvent==NULL)
MessageBox(0,"Ошибка создания события для осчета","SyncEvent",0);
else{
// Пока кнопка старт нажата снимаем отсчеты
while(MCU_ACTIVE)
{
if(GET_DATA_FROM_MCU){

if(TRY_CONNECT){
TRY_CONNECT = false;
Form1->ClientGRP->Open();
}
if(Form1->ClientGRP->Active) Form1->Caption = "Client: SERVER START CONNECTING";

// Начинаем чтение…
if(!ReadFile(hCom, &Mes.Value, 2, &dwRead, &Sync)){
if(GetLastError() != ERROR_IO_PENDING)
MessageBox(0,"Ошибка чтения устройства","ReadFile",0);
else{
// Ошибок чтения нет, ожидаем завершение операции чтения
dwWait = WaitForSingleObject(Sync.hEvent, TIMEOUT);
switch (dwWait)
{
case WAIT_OBJECT_0: // Операция чтения закончена
if(!GetOverlappedResult(hCom, &Sync, &dwRead, FALSE))
MessageBox(0,"Ошибка при чтении устройства","ReadFile",0);
else
GetValue();
break;
case WAIT_TIMEOUT:
// Операция чтения данных ещё не закончилась можно занятся чем-нибудь полезным
break;
default:
MessageBox(0,"Ошибка выполнения операции","WaitForSingleObject",0);
}
}
}
else{
// Операция чтения уже завершилась, можно обрабатывать полученные данные
GetValue();
}
}
Application->ProcessMessages();
}
CloseHandle(Sync.hEvent);
}
}

 

Всякие косяки вылазят. APRO смотрел, но чет когда смотрел, не понял, как юзать (в силу нелинейности своих рук). Придумал вроде решение, но сдругим компонентом(я их 3 штуки нашел, плюс пару классов, но не знаю, что с ними делать))) сейчас реализовываю.
Но за архивы по любому пасиб)))

 

Я помнится такое делал. Тут только один подводный камень, кварц и коэффициенты на МК нужно подобрать тщательнее, что бы не выпадало ничего из UART-ского потока. Коэффициенты ошибок в зависимости от делителя Alghoritm Builder показывает, если я ничего не путаю.

 

В билдере я делал так:

 

Не используй компонентов вообще, на уровне WinApi куда проще, устанавливаешь синхронное/асинхронное чтение с порта, открываешь его как файл и Read, в соответствии с синхро/асинхрон либо тут же читаешь, либо читаешь когда придет байт. И главное! Не забывай отдавать системе время
Application->ProcessMessages();

 

Помнится, баловался я таким делом. Но косяков не было, даже без Async Pro, а просто стандартными средствами Форточек. Буфер ему на приём побольше, и всё без потерь работает.
Запросто добивался, чтобы даже видео не херило поток данных с порта. Это средствами Delphi, без прибамбасов. RealTime Priority. Оно лечит.

 

буфер большой нельзя. надо по килобайту... На какой скорости у тебя было?

 

RealTime Priority вешает прогу, и билдер, и систему

 

Проблема была в другом - график медленно рисовался. Оказалось - TChart - сильно тормознутая (а мож руки кривые:) ). Так что главная проблема - рисовать. данные на большой скорости принимаются.

 

Сейчас всё сделал в два потока - один читает (реализованно синхронное чтение, на винапи), другой рисует. на канве ПайнтБокса. но иногда не рисуется Уже 5 дней не сплю:( Не получается нормальная прога.
буфер большой нельзя. надо по килобайту... На какой скорости у тебя было?
RealTime Priority вешает прогу, и билдер, и систему

 

курс страницы 6 и 9

 

Важно лишь чтобы фронты и спады импульсов были достаточно крутыми (какимим в ДШ читать!) - т.е. низкочастотная синусоида не покатит.

 

Потребление тоже в ДШ - в конце по моему графики.

 

"Maksim":

Есть два меандра, как получить их логическое "И" на Си

 

1. ====== CodeVisionAVR  =======
2.  
3. while(1){
4.  
5. if((PINA.1)&&(PINA.2))
6.            {PORTA.3 = 1}
7.      else
8.            {PORTA.3 = 0};
9.  
10. };
11.  
12. ==============================

Вот я и спрашиваю, будет ли работать, если согласно документации на вход XTAL1 повесить резистор и конденсатор (внешний RC осциллятор), на которых частота тактового генератора Атмеги получится порядка 1 КГц? Достаточно ли крутыми будут те самые фронты?

 

А самый интересный вопрос такой: если на XTAL1 (РВ6) подключен осциллятор, а в программе я даю команду
ldi tmp,0b10111111
out PORTB,tmp

это не помешает осциллятору?

 

Там в ДШ написаны допустимые номиналы R и С - отсюда получается возможный диапазон частот такого генератора.

 

Есть External RC Oscillator application note, там написано "Wide Frequency Range 100 kHz - 12 MHz". Значит ниже 100 КГц нельзя?

Если XTAL1 (РВ6) задействован на осциллятор, то XTAL2 (РВ7) свободен, написано NC.