Мигающий график в TChart.

@wolf777 · Регистрация: 13.03.2012

Author24 — интернет-сервис помощи студентам

нужно сделать чтоб в компоненте TChart мигала линия, как такое сделать?

@GoodWeather · 28.04.2017, 14:16

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
Chart1.Series[0].Add(0);
Chart1.Series[0].Add(10);
Chart1.Series[0].Add(4);
Chart1.Series[0].Add(14);
Chart1.Series[0].Add(-4);
Chart1.Series[0].Add(0);
Timer1.Interval:=70;
Timer1.Enabled:=True;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Chart1.Series[0].SeriesColor:=RGB(RandomRange(0, 255), RandomRange(0, 255), RandomRange(0, 255));
end;

??

@wolf777 · 28.04.2017, 14:57 **[ТС]**

GoodWeather, спасибо большущие

Добавлено через 27 минут
переделал под свою процедуру

Delphi

procedure TFrmToklGrafik.FormCreate(Sender: TObject);
begin
TChart.Series1[0].Add(0);
TChart.Series1[0].Add(10);
TChart.Series1[0].Add(4);
TChart.Series1[0].Add(14);
TChart.Series1[0].Add(-4);
TChart.Series1[0].Add(0);
Timer1.Interval:=70;
Timer1.Enabled:=True;
end;
 
procedure TFrmToklGrafik.Timer1Timer(Sender: TObject);
begin
TChart.Series1[0].Series1Color:=RGB(RandomRange(0, 255), RandomRange(0, 255), RandomRange(0, 255));
end;

вот такую ошибку выдает

ошибка Необъявленный идентификатор: 'Series1'
____________

как исправить ошибку? и series1 вроде и не нужно объявлять

@Puporev · 28.04.2017, 15:24

Сообщение от wolf777

и series1 вроде и не нужно объявлять

Но где-то это объявлено иначе откуда программа это слово взяла?

Добавлено через 4 минуты
А, у Вас написано

Delphi

1	Series1[0]

Или уберите цифру 1, или пишите

Delphi

1	Series1.Add(0);

@wolf777 · 28.04.2017, 15:25 **[ТС]**

Сообщение от Puporev

Но где-то это объявлено иначе откуда программа это слово взяла?

ну получается тогда series, объявляется в типе, так как при создании компонента, мы задаем линии (series), а они определяются в типе, так как type Определяет новую категорию переменной или процесса.

Delphi

type
  TFrmToklGrafik = class(TForm)
    ButtonExe: TButton;
    ButtonExit: TButton;
    ChartRsr: TChart;
    Series1: TLineSeries;
    Series2: TLineSeries;
    Series3: TLineSeries;
    Series4: TLineSeries;
    Series5: TLineSeries;
    Timer1: TTimer;
    procedure ButtonExeClick(Sender: TObject);
    procedure ButtonExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);

ну как мне правильно прописать эти процедуры?

Delphi

procedure TFrmToklGrafik.FormCreate(Sender: TObject);
begin
TChart.Series1[0].Add(0);
TChart.Series1[0].Add(10);
TChart.Series1[0].Add(4);
TChart.Series1[0].Add(14);
TChart.Series1[0].Add(-4);
TChart.Series1[0].Add(0);
Timer1.Interval:=70;
Timer1.Enabled:=True;
end;
 
procedure TFrmToklGrafik.Timer1Timer(Sender: TObject);
begin
TChart.Series1[0].Series1Color:=RGB(RandomRange(0, 255), RandomRange(0, 255), RandomRange(0, 255));
end;

ругается на Series1, пишет необъявлен идентификатор series1

@Puporev · 28.04.2017, 15:30

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
series1.Add(0);
series1.Add(10);
series1.Add(4);
series1.Add(14);
series1.Add(-4);
series1.Add(0);
end;

@YuryK · 28.04.2017, 15:40

Сообщение от wolf777

переделал под свою процедуру

славненько так "переделал"

TChart. - это что?

@wolf777 · 28.04.2017, 15:46 **[ТС]**

Сообщение от Puporev

Или уберите цифру 1, или пишите

прописал как Вы сказали

Delphi

procedure TFrmToklGrafik.FormCreate(Sender: TObject);
begin
TChart.Series1.Add(0);
TChart.Series1.Add(10);
TChart.Series1.Add(4);
TChart.Series1.Add(14);
TChart.Series1.Add(-4);
TChart.Series1.Add(0);
Timer1.Interval:=70;
Timer1.Enabled:=True;
end;
 
procedure TFrmToklGrafik.Timer1Timer(Sender: TObject);
begin
TChart.Series1.Series1Color:=RGB(RandomRange(0, 255), RandomRange(0, 255), RandomRange(0, 255));
end;

выдает ошибку 'Tchart' does not contain a member named 'Series1' переводчик (Не содержит члена с именем)

Добавлено через 1 минуту

Сообщение от YuryK

славненько так "переделал"
TChart. - это что?

Tchart это компонент

Добавлено через 56 секунд

Сообщение от Puporev

Delphi
procedure TForm1.FormCreate(Sender: TObject);
begin
series1.Add(0);
series1.Add(10);
series1.Add(4);
series1.Add(14);
series1.Add(-4);
series1.Add(0);
end;

вооо так работает пасибки

@YuryK · 28.04.2017, 16:01

Сообщение от wolf777

Tchart это компонент

это класс компонента. А компонент - ChartRsr
выже сами привели код, где видно какие компоненты у вас на форме

Delphi

TFrmToklGrafik = class(TForm)
    ButtonExe: TButton;
    ButtonExit: TButton;
    ChartRsr: TChart;
    Series1: TLineSeries;
    Series2: TLineSeries;
    Series3: TLineSeries;
    Series4: TLineSeries;
    Series5: TLineSeries;
    Timer1: TTimer;

@wolf777 · 28.04.2017, 17:30 **[ТС]**

ребят а как сделать чтоб мигала только красным линия series1? а не цветами перебора

@Puporev · 28.04.2017, 17:36

Заведи глобальную переменную var k:integer;
В таймере считай ее inc(k)
при нечетных цвет красный, при четных цвет фона.

@wolf777 · 28.04.2017, 17:50 **[ТС]**

Delphi

procedure TFrmToklGrafik.Timer1Timer(Sender: TObject);
begin
Series1.Color:=RGB(RandomRange(0, 255), RandomRange(0, 255), RandomRange(0, 255));
end;

а с этим как быть?

тут ведь RandomRange он перебирает диапазон, а как сделать чтоб статичный цвет был?

Сообщение от Puporev

Заведи глобальную переменную var k:integer;
В таймере считай ее inc(k)
при нечетных цвет красный, при четных цвет фона.

Delphi

procedure TFrmToklGrafik.Timer1Timer(Sender: TObject);
 var k:integer; 
begin
Series1.Color:=RGB(RandomRange(0, 255), RandomRange(0, 255), RandomRange(0, 255));
end;

а с этим как быть? сделаю я например условие, четных не четных, ну статично могу сделать так

Series1.Color:=#FF0000; // ну будет просто красный, а как сделать чтоб мигал именно красный? а не перебором цветов

@Puporev · 28.04.2017, 17:59

Delphi

var Form1: TForm1;
    k:integer;
..............................................
procedure TFrmToklGrafik.Timer1Timer(Sender: TObject);
begin
inc(k);
if odd(k) then Series1.Color:=clRed
else Series1.Color:=clBtnFace;
end;

@wolf777 · 28.04.2017, 23:48 **[ТС]**

все получилось, как хотел)))))

@Puporev · 29.04.2017, 09:12

В Делфи 7 у Series нет свойства Color, поэтому мигающий график написал так.

Delphi

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TLineSeries;
    Timer1: TTimer;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure grafik(c:TColor);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  k:integer;
  c:TColor;
implementation
 
{$R *.dfm}
procedure TForm1.grafik(c:TColor);
var x:real;
begin
x:=-pi;
while x<=pi do
 begin
  series1.AddXY(x,sin(x),'',c);
  x:=x+0.01;
 end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=false;
c:=clRed;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
grafik(c);
Timer1.Enabled:=true;
Timer1.Interval:=100;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var c:TColor;
begin
inc(k);
if odd(k) then c:=clRed else c:=clBtnFace;
series1.Clear;
grafik(c);
end;
 
end.

@GoodWeather · 29.04.2017, 15:06

Сообщение от wolf777

ведь RandomRange он перебирает диапазон

Нет. Это случайное число из диапазона. То есть здесь делается тупо случайный цвет. Неужели вы не догадались поменять это на просто нужный вам цвет?

Сообщение от Puporev

В Делфи 7 у Series нет свойства Color

Я же приводил в #2 код - SeriesColor. А k надо бы в приватных полях формы объявлять.

Добавлено через 5 минут

Delphi

...
  private
    { Private declarations }
    CntSeriesHighlight: Integer;
...
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=False;
DoubleBuffered:=True;
Chart1.DoubleBuffered:=True;
Series1.Add(0); // Chart1.Series[0].Add(0);
Series1.Add(10); // Chart1.Series[0].Add(10);
Series1.Add(4); // Chart1.Series[0].Add(4);
Series1.Add(14); // Chart1.Series[0].Add(14);
Series1.Add(-4); // Chart1.Series[0].Add(-4);
Series1.Add(0); // Chart1.Series[0].Add(0);
Timer1.Interval:=300;
Timer1.Enabled:=True;
end; 
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Inc(CntSeriesHighlight);
if Odd(CntSeriesHighlight) then
    Series1.SeriesColor:=clRed
else
    Series1.SeriesColor:=clLime;
end;

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	28.04.2017, 17:36	11
	Заведи глобальную переменную var k:integer; В таймере считай ее inc(k) при нечетных цвет красный, при четных цвет фона. 0

@wolf777 1 / 1 / 2 Регистрация: 13.03.2012 Сообщений: 382
		1
	Мигающий график в TChart. 28.04.2017, 13:41. Показов 1702. Ответов 15 Метки нет (Все метки) нужно сделать чтоб в компоненте TChart мигала линия, как такое сделать? 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	28.04.2017, 15:40	7
	Сообщение от wolf777 переделал под свою процедуру славненько так "переделал" TChart. - это что? 0

@wolf777 1 / 1 / 2 Регистрация: 13.03.2012 Сообщений: 382
	28.04.2017, 17:30 [ТС]	10
	ребят а как сделать чтоб мигала только красным линия series1? а не цветами перебора 0

@wolf777 1 / 1 / 2 Регистрация: 13.03.2012 Сообщений: 382
	28.04.2017, 23:48 [ТС]	14
	все получилось, как хотел))))) 0

Мигающий график в TChart.

Решение