График в Delphi

[thebrownie]

Народ прошу помощи задание написано в самой программе( немагу разобраться с углом а), так же надо сделать зум и цифры на графике.
Помогите пожалуйста.
Ps график циклоиды.

[Rin]

Есть такая функция TextOut называется. В любом поисковике найдёшь эту функцию и её параметры. А вот с зумом будет посложнее : нужно прикрутить к Timage два scrollBar(вертикальный и горизонтальный), потом при изменения зума увеличивать/уменьшать все переменные , которые отвечают за отображение графика и координат, на определённую константу. Ну и каким-то образом при движении скроллбаров показывать определённую область графика при увеличенном зуме. При уменьшенном зуме можно блокировать скроллбары вовсе. Я б помог, да только кровать уже ждёт.
Если вопрос будет актуален завтра, то помогу, чем смогу.

[thebrownie]

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

Есть такая функция TextOut называется. В любом поисковике найдёшь эту функцию и её параметры. А вот с зумом будет посложнее : нужно прикрутить к Timage два scrollBar(вертикальный и горизонтальный), потом при изменения зума увеличивать/уменьшать все переменные , которые отвечают за отображение графика и координат, на определённую константу. Ну и каким-то образом при движении скроллбаров показывать определённую область графика при увеличенном зуме. При уменьшенном зуме можно блокировать скроллбары вовсе. Я б помог, да только кровать уже ждёт.
Если вопрос будет актуален завтра, то помогу, чем смогу.

спс я примерно знал в теории что надо сделать а вот сделать немагу да и времени немного, буду признателен если поможешь.

[Rin]

Черновая программа, там нужно ещё подкорректировать её немного. И эта корректировка ложится на твои молодые плечи =).
А так, вывод циферок на графике и зум с scrollBar'ами есть. Зато защиты от дурака нет. Думаю , справишься. Если не сможешь, то отпиши в личные сообщения. Как сделать из черновика чистовик я знаю, но хочу , чтобы Ты подумал.
Теория:
Чтобы увеличить изображение, нам нужно всё(график, ось ординат, ось абсцисс, деления ) умножить на какую-то величину. Для этого у нас появляется переменная zoom. Но тогда мы не увидим всего графика, а лишь часть, т.к. другая часть уйдёт за горизонт нашего imgraf. Для того, чтобы увидеть другую часть графика, мы будем имитировать передвижение с помощью scrollBar и dy,dx - отношения размеров TImage к нашему зуму(назовём это отношение доля) .

dx:=imgraf.Width div zoom;
dy:=imgraf.Height div zoom;

Перерисовывая нашу циклоиду с вычитанием из координат каждой точки ДОЛИ, умноженной на позицию scrollBar мы выводим определённую часть циклоиды

x:=zoom*(R*a-b*sin(a))-(dx*scrollBar1.Position);
y:=zoom*(R-b*cos(a))-(dy*scrollBar2.Position);

А нижеприведённым кодом мы высчитываем количество делений (не долей) у scrollBar.

scrollBar1.Max:=round((imgraf.Width*zoom)/dx);
scrollBar2.Max:=round((imgraf.Height*zoom)/dy);

Ответ на нижеизложенный комментарий.
Пожалуйста. Заходите ещё.

[thebrownie]

Спс огромное

[Di-em]

Многоуважаемый Rin,у меня почти аналогичная проблема , скачал график у thebrownie поменял его ф-ию на свою и график не строится . Я нулевой программист , но мне очень нужно сдать зачёт , прошу твоей помощи...Если согласен помочь пиши в личку ф-ию + исходник скину.

[Rin]

Пиши лучше функцию сюда.

[FrEeZaRiO]

Вот я тоже скачал у thebrownie ! переделал под свое задание:


вот переделанная под себя работа!

не знаю что за ошибка вылетает! Вроде все нормально! Посмотрите пожалуйста! Буду очень признателен!

[Rin]

у тебя там переполнение кажись случается, т.к. числитель намного больше знаменателя будет уже при х=10 , а=5 , b=100.

[FrEeZaRiO]

а что Rin предложишь сделать? ограничения поставить! при любых значениях не очень бодро все получаеся! а так в целом нормально переделал? должен по идее работать?