|
Вопрос # 3 770/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Подключил прибор Elemer для измерения температуры термопары через порт COM1. Стал получать данные о температуре(Например: 27,8 градусов Цельсия). Подключил компонент Chart, но по мере забивания туда значений температуры он все увеличивался и увеличивался пока деления его шкалы еле стали заметны, то есть он показывает график целиком(от его начала до конца). Но мне нужно чтобы график увеличивался по вертикали(по вертикали шкала градусов), а по горизонтали временная шкала(время), разбитая по 1 минуте и чтобы график по мере забивания исчезал(сам я буду подавать на график примерно раз в пять секунд). Такой график какой мне нужен реализован в uTorrent-е, и я бы хотел сделать такой же примерно у себя, но так как я не силен в настройках компонента Chart, то прошу экспертов помочь мне с этим делом, что очень важно.
 |
Вопрос задал: 7Ghost (статус: 1-ый класс)
Вопрос отправлен: 14 февраля 2010, 16:02
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 2; последнее сообщение — 15 февраля 2010, 20:25; участников в обсуждении: 1.
|
Alexey6522 (статус: 1-ый класс), 15 февраля 2010, 14:26 [#1]:
Для начало нужно поместить на форму Chart, дважды щелкнуть по нему и добавить Series, выбрать нужный граффик, к примеру Fast Line. Установить в Timer interval 5000 (это 5 секунд)
var
i, t, min:integer;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
With Series1 do begin
Clear; {Очистка, обязательно, иначе поле просто забьется значениями}
AddXY(0, t, 'Сек.'+IntToStr(0*10), clRed); { Тут 0 секунда принимает значение последней секунды}
for I:=1 to 6 do begin
t := Random(10); {Это я беру случайные значения, тут будет температура}
AddXY(I, t, 'Сек.'+IntToStr(I*10), clRed); {Выводим t на график}
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
min:=0;
t:=0;
end;
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
