Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 16.02.2012, 01:40
utro35 utro35 вне форума
Прохожий
 
Регистрация: 03.01.2012
Сообщения: 26
Репутация: 10
По умолчанию Помогите построить график

Здравствуйте.
В программе нужно сделать график температуры.
Происходит повышение, отображается в edit. Время системное.
Делаю так: Series1.AddXY(strtoint(Edit9.Text), '''' + TimeToStr(now) + '''', clRed);
Пишет incompatible files: Double and String
Как будет правильно?
Ответить с цитированием
  #2  
Старый 16.02.2012, 01:43
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,030
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Попробуй так:
Код:
Series1.AddXY(strtoint(Edit9.Text), Double(now), clRed);
Хотя первым параметром должен идти X, а вторым - Y.
Ответить с цитированием
  #3  
Старый 16.02.2012, 02:30
utro35 utro35 вне форума
Прохожий
 
Регистрация: 03.01.2012
Сообщения: 26
Репутация: 10
По умолчанию

также ошибка, только теперь incompatible files: String and Integer
Ответить с цитированием
  #4  
Старый 16.02.2012, 02:40
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

3 параметром идёт String, 4 - необязательным, цвет.
Код:
  Series1.AddXY(strtoint(Edit9.Text), Double(now), '', clRed);
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #5  
Старый 16.02.2012, 03:01
utro35 utro35 вне форума
Прохожий
 
Регистрация: 03.01.2012
Сообщения: 26
Репутация: 10
По умолчанию

Прописываю этот код в таймер. Но при запуске почему то ничего не происходит...
Ответить с цитированием
  #6  
Старый 16.02.2012, 03:08
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

А что должно произойти? Вторым параметром (Y) идёт Double(Now), представляешь, что за Y получается?
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #7  
Старый 16.02.2012, 03:19
utro35 utro35 вне форума
Прохожий
 
Регистрация: 03.01.2012
Сообщения: 26
Репутация: 10
По умолчанию

Ну так в случае:
Series1.AddXY(Double(now), strtoint(Edit9.Text), '', clRed);
также никакой реакции.
Еще раз попробую объяснить, что необходимо сделать:
на первый таймер прописываю код:
Код:
procedure TMainForm.Timer4Timer(Sender: TObject);
begin
if t = strtoint(Edit7.Text) then
begin
Timer4.Enabled:= false;
exit;
end;
t:=t+1;
edit9.text:= inttostr(t);
end;
На второй таймер:
Код:
Series1.AddXY(Double(now), strtoint(Edit9.Text), '', clRed); 
Далее:
Код:
procedure TMainForm.BitBtn1Click(Sender: TObject);
begin
Timer2.Enabled:=true;
Timer4.Enabled:=true;
end;
Температура повышается, но график не рисуется

Последний раз редактировалось utro35, 16.02.2012 в 03:34.
Ответить с цитированием
  #8  
Старый 16.02.2012, 03:30
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Раз используется таймер, должно быть что-то такое:
Код:
var
  St : String;
  X  : Integer;

procedure TForm1.FormCreate(Sender : TObject);
begin
  X := 0;
  St := Edit9.Text;
end;

procedure TForm1.TimerOnTimer(Sender : TObject);
var
  S : String;
begin
  if Edit9.Text <> St then
  begin
    St := Edit9.Text;
    S := TimeToStr(Now);
  end
  else
    S := '';
  Series1.AddXY(X, StrToInt(Edit9.Text), S, clRed);
  inc(X);
end;
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.

Последний раз редактировалось angvelem, 16.02.2012 в 03:33.
Ответить с цитированием
  #9  
Старый 16.02.2012, 17:37
utro35 utro35 вне форума
Прохожий
 
Регистрация: 03.01.2012
Сообщения: 26
Репутация: 10
По умолчанию

Ну так хоть что то уже видно.
Опять таки не то.
Нужно чтобы время по оси Х изменялось динамически, т.е. чтобы было движение. И желательно только часы-минуты-секунды
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 18:22.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter