Как да се направи графика
Кажи ми как да се построява графика в Делфи на даден funktsii.I принцип е възможно да се направи това, като се използват стандартните инструменти на Delphi
см. TChart компонент
> По принцип е възможно да се направи това, като се използват стандартните инструменти
> Delphi
то със сигурност е възможно!
> Prompt както в Делфи да се изгради схема за дадена функция
Берес TCavas и боя.
Canvas.MoveTo (х, у); движение на дадена точка
Canvas.LineTo (х, у); Онлайн в даден момент
И това е възможно по-подробно и в Делфи, че съм нов
Трябва да се изгради sinusoydu Мисля Canvas.LineTo не работи, но може би греша
> Трябва да се изгради sinusoydu Мисля Canvas.LineTo
> Няма да работи, но може би греша
Изглежда, - за да се кръсти.
Prompt където компонент бъде TCavas
Никога TCanvas компонент не е (и няма да).
как тя не се вписва.
което трябва да се изчисли на графика
т.е. като този
ходове водят към началото на MoveTo чертожната
Canvas.MoveTo (0, Canvas.height)
след това изготвя графиката в цикъла на неговата функция
Защото: = 0-800 направи
# XA0; започне # XA0; # XA0; # XA0; # XA0; # XA0; # XA0;
# XA0; Canvas.LineTo (I, Sin (I));
# XA0; край;
Пс. Надявам се, че имам право на мозъка работи
TCanvas (магистър отново блъсна в мен), за да бъде в почти всяка визуален компонент. но е по-добре да се използва кутия с бои
> Бъдете в практиката TCanvas (отново се блъсна в майстор на мен)
> Всеки визуален компонент. но е по-добре да се използва кутия с бои
TCanvas - същността на HDC. Има наистина много визуални компоненти (но не всички). Не всички от него на публични места.
Грешен, е права линия,
> Грешен, е права линия
нима
Canvas.LineTo (I, кръг (Sin (I) х 100));
И ако все още се отнасят до TChart?
Аргументът, трябва да бъде в радиани
изхвърли на графиката във формуляра, кликнете два пъти prav.knopkoy, кликнете добавите изберете вида на графиката и експеримент
Пример синусов, когато се появи прозорец:
процедура TForm1.FormActivate (Sender: TObject);
Var
К: цяло число;
започвам
за к: = 0 до 20 направи
Chartl.SeriesList [0] .AddXY (к, грях (к * пи / 10), "", clRed);
приключи;
стандарт.
Това е кодът на DRKB. Обръща графика на функцията.
процедура TForm1.Button3Click (Sender: TObject);
Var х, у: масив [1..50] на двойно;
# XA0; и: цяло число;
# XA0; scalex, scaley, ymin, Ymax, xmin, Xmax: двойно;
започвам
# XA0, защото: = 1 до 50 направи
# XA0; # XA0; започне
# XA0; # XA0; # XA0 у [п]: = грях (I * 0.5);
# XA0; # XA0; # XA0 х [п]: = I;
# XA0; # XA0; край;
# XA0; xmin: = х [1];
# XA0; Xmax: = х [1];
# XA0; ymin: = Y [1];
# XA0; Ymax: = Y [1];
# XA0, защото: = 2 до 50 направи
# XA0; # XA0; започне // или използване ymin: = MINVALUE (у); и т.н.
# XA0; # XA0; # XA0; ако Y [Ь]
# XA0; # XA0; # XA0, ако х [п]
# XA0; # XA0; край;
# XA0; scalex: = paintbox1.Width / (Xmax - xmin);
# XA0; scaley: = paintbox1.Height / (Ymax - ymin);
# XA0; с paintbox1.canvas направя
# XA0; # XA0; започне
# XA0; # XA0; # XA0; moveto (TRUNC (scalex * (х [1] - xmin)), paintbox1.height - TRUNC (scaley * (у [1] - ymin)));
# XA0; # XA0; # XA0, защото: = 2 до 50 направи
# XA0; # XA0; # XA0; # XA0; Lineto (TRUNC (scalex * (х [п] - xmin)), paintbox1.height - TRUNC (scaley * (у [Ь] - ymin)));
# XA0; # XA0; край;
приключи;
MoveTo / LineTo по-добре да се замени Windows.PolyPolyLine
Памет: 0.75 MB
Време: 0.046 гр
Свързани статии