Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работы с тригонометрическими функциями [D6, Win95/98]

XPatriot[d.m.b] © (2003-02-01 00:43:00)
Уважаемые Мастера, не подскажите ли вы как построить на форме функцию вида(например) y=sinx

uw (2003-02-01 13:10:00) [1]
Вообще-то я больше отвечал >Johnmen © (01.02.03 01:35).

Anatoly Podgoretsky (2003-02-01 11:37:00) [2]
Не понимаешь разницы между примером и реальной программой

uw (2003-02-01 10:28:00) [3]
>Юрий Зотов © (01.02.03 06:19

И ты поддерживаешь дурной стиль?!
Эта нарисованная функция нечто самостоятельное, которое захочется поместить на панель, сменить Brush, переместить, наконец. А так - программно замуровано.

Юрий Зотов (2003-02-01 06:19:00) [4]
procedure TForm1.FormPaint(Sender: TObject);
const
Y0 = 200;
YMax = 100;
XMax = 10 * Pi;
var
i: integer;
begin
with Canvas do
begin
MoveTo(0, Y0);
for i := 1 to ClientWidth do
LineTo(i, Y0 + Trunc(YMax * Sin(i * XMax / ClientWidth)))
end
end;

Pat (2003-02-01 02:04:00) [5]
TChart

Johnmen (2003-02-01 01:35:00) [6]
Зачем Image ? У формы есть свой Canvas, в нем и отрисовывать...

uw (2003-02-01 01:10:00) [7]
На форму кладешь TImage. У него есть Canvas, потом строишь по точкам с помощью MoveTo и LineTo.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »