Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Вниз

Добрый день хотелось бы попросить о помощи 


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]

СПАСИБО




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.07 c
7-46529           BiJi                  2002-01-21 14:29  2002.04.15  
Как в Delphi сделать меню как в эксплорер по правой кнопки мыши


3-46291           alexandervasjuk       2002-03-21 14:06  2002.04.15  
MySQL. Что день грядущий мне готовит?


3-46282           Art1                  2002-03-22 16:16  2002.04.15  
Помогите с изменением полей, плииииз.


1-46436           Socrat                2002-04-02 05:32  2002.04.15  
От чего зависит доступность кнопок печати в QuickReports Preview?


14-46518          phantom2040           2002-03-06 15:10  2002.04.15  
Округление в Delphi