Скачать: CL | DM;

Добрый день хотелось бы попросить о помощи   Найти похожие ветки 

← →
Maxim Homutov   (2002-04-04 14:09) [0]

Хотелось бы узнать естьли у кого нибудь исходник рисующий график последовательного треугольного импульса

---

← →
MBo ©   (2002-04-04 14:51) [1]

Поясни. Вроде осциллографа? TChart не подойдет?

---

← →
Maxim Homutov   (2002-04-04 14:55) [2]

Да вроде него радимого и TChat пойдет

---

← →
MBo ©   (2002-04-04 15:02) [3]

В чем конкретно проблемы?

---

← →
Maxim Homutov   (2002-04-04 15:14) [4]

Мне нужно сделать программу которая показывала осцеллограму нескольких периодических видео сигналов.

---

← →
MBo ©   (2002-04-04 15:22) [5]

надо говорить конкретнее - что именно не умеешь

по таймеру добавляешь в Series1 Chart-а очередное значение.
Чтобы выглядело как осциллограф, при достижении определенного Series1.Count уничтожаешь первую точку.

---

← →
Maxim Homutov   (2002-04-04 15:27) [6]

конкретней не получается описать эти сигналы

---

← →
MBo ©   (2002-04-04 15:36) [7]

например, каждый раз меняешь нелокальную переменную
Aboolean:=not Aboolean;
if Aboolean then Y:=1 else Y:=-1;
и добавляешь Series1.AddXY(X {время или номер}, Y);

---

← →
Maxim Homutov   (2002-04-04 16:04) [8]

Я извеняюсь за наглость ну хотелось бы узнань нет у вас готового исходника

---

← →
MBo ©   (2002-04-04 16:16) [9]

примерно так
var Form1:TForm1;
Aboolean:Boolean;
Cnt:integer;

procedure TForm1.Timer1Timer(Sender:TObject);
begin
Aboolean:=not Aboolean;
Inc(CNt);
if Aboolean then Y:=1 else Y:=-1;
Series1.AddXY(Cnt,Y);
While Series1.Count>100 do
Series1.Delete(0);
end;

---

← →
Maxim Homutov   (2002-04-04 16:35) [10]

Спасибо за помощь ну это нето что мне нужно
мне хотелось бы по реальний

---

← →
MBo ©   (2002-04-04 16:56) [11]

поищи Varian Software Workshop там есть Scope

---

← →
Maxim Homutov   (2002-04-04 17:01) [12]

СПАСИБО

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.007 c