Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Синхронизация

Автор: Ahmad 15.8.2007, 23:52

Привет! Я пишу программу для измерения температури при помощи температурних сеносров подключенних через USB интерфейс, и в ней при добавлении нового сенсора в компоненте TChart динамически создается Series которий отображает результати...так вот я написал DLL и в программе написал процедуру считивания информации и посилки данних сенсорам. потом я добавил таймер и прописал глобальную переменную as integer типа отсчет и когда таймер отсчитает время указанное в переменной (1 секунда) он считивает данние...но одно боооооольшое НО: если подключено несколько сенсоров, то и соотвественно есть несколько Series и когда таймер отсчитівает 1 секнду он читает данние и потом переходит на следующий сенсор потом 1 секнда и так далее, пока не закончатся сенсори и потом заново...а мне надо что би данние со всех сенсоров считивались СИНХРОННО, в один момент... помогите поооооооооожалуйста....5-й ДЕНЬ МУЧАЮСЬ, не могу сделать.... Вот кусок кода: Код ... var   fmMain: TfmMain;  IntCounter : integer; //переменная в с величиниой для отсчета   sensor     : array[0..7] of byte; //массив соддержащий адреса подключенних сенсоров   SensorIdx  : integer; //индекс или проще говоря порядковий номер сенсора  GSlvAdr : Byte; //Адрес которий используется в данний момент ... procedure TfmMain.WndProc(var Message: TMessage);  //процедура "говорящяя с DLL" ... if IntCounter = 1 then //если прошла 1 секунда begin   if GSlvAdr = sensor[SensorIdx] then //главний адрес приравнивается к адресу сенсора с указанним                                                                        индексом                                                                                                                                                                              ChTemp.Series[SensorIdx].Add(Temp); //Потом считивается температура и подается на график     ChTemp.LeftAxis.Maximum := ChTemp.Series[SensorIdx].MaxYValue +2;    if ChTemp.LeftAxis.Maximum >= ChTemp.Series[SensorIdx].MinYValue -2 then    ChTemp.LeftAxis.Minimum := ChTemp.Series[SensorIdx].MinYValue -2    else ChTemp.LeftAxis.Minimum := 0;     ChTemp.BottomAxis.Increment := 1; //   if SensorIdx = ChTemp.SeriesCount - 1 then    SensorIdx := 0    else    inc(SensorIdx); //Переходим на следующий сенсор Надесь ви поможете...

Автор: ALeXandrK 16.8.2007, 00:15

Значит тебе нужно, чтобы считывание шло не по каждому сенсору одной ф-ией, а нужно сразу читать состояние USB порта, а потом уже разбираться где там данные  определенного сенсора. Т.е. тут корректировка ф-ии записи данных в Series определенного сенсора не помогут. Тут нужен правильный метод чтения данных с USB порта. Надеюсь понятно выразил мысль...

Автор: Felan 16.8.2007, 07:51

Хм... ну раз уж ты написал в заголовке нихорошее слово  то могу посоветовать следующее, как общуюю идею, т.к. с USB никогда не работал, только с RS232. 1 Если ты хочешь последовательно читать состояния датчиков, то у тебя ВСЕГДА будет подобный эффект! Время чтения последнего будет отличаться от времени чтения первого на то время, которое требуется для того, что бы их опросить. Решение может быть таким: Пишешь поточный класс, который будет сам, постоянно, в фоне, с невысоким приоритетом опрашивать все датчики подряд и сохранять результаты последнего опроса в своих свойствах. Тогда, что бы получить значение на конкретный промежуток времени, ты просто опрашиваешь свойства этого класса (все будет происходить почти мнгновенно) и получаешь данные последнего опроса каждого датчика на конкретный момент времени. Только если у тебя процедуры обработки этих значений тоже много времени занимают, то придется читать значения свойств в промежуточный класс, где они уже не будут меняться... Либо в буфер писать, вместе информацией о времени, когда было произведено считывание, уже из буфера заполнять графики. Но тут надо в потоках разбираться

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)