Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];

Вниз

Как сделать чтоб работала моя процедура   Найти похожие ветки 

 
nevalex   (2003-05-13 15:41) [0]

Юзверь вводит в edit1 фунцию (sin например) и кликает на бутон с таким обработчиком fun(paintbox1.canvas,edit1.text)

а вот и сама процедура

procedure FUNC(Canv:Tcanvas;fun:string);
var x1:real;
n:integer;
begin
Canv.MoveTo(0,200);
for n:=1 to 360 do
begin
x1:=n/pi;
Canv.LineTo(round(x1*10),(round(FUN(x1)*100+200)));
end;


СПаСИбО


 
evvcom   (2003-05-13 15:49) [1]

пОжАлУйСтА


 
evvcom   (2003-05-13 15:56) [2]

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


 
nevalex   (2003-05-13 16:08) [3]

В поиске не чего существеного не нашел
может кто нибудь объяснит как ... [я не про происк :)]


 
Dms   (2003-05-13 16:20) [4]

:)


 
Думкин   (2003-05-16 06:54) [5]

Рисуешь на TPainBox - он рисунок не сохраняет.
Или замени на TImage или посади рисование на onPaint or WM_Paint.
Или сообщи что именно не работает - с этого и надо в общем-то начинать.


 
Separator   (2003-05-16 07:40) [6]

Если я правильно понял, то > nevalex © хочет строить график функций (например sin).


 
Palladin   (2003-05-16 07:54) [7]

если бы еще правильно вопрос читали то просекли бы что он эту функцию в TEdit вводить хочет


 
Думкин   (2003-05-16 08:02) [8]

> Palladin © (16.05.03 07:54)
Не - тут ясно. Да - промахнулся - такой дикости не заметил.
Но - можно. Только тогда надо будет с процедурными типами сделать.


 
Separator   (2003-05-16 08:31) [9]

Если я ещё правильней понял, то ему надо строить график введенной функции.
Допустим Edit1.Text = "sin(x)", то должен строиться график y = sin(x) и т.д.
Короче нужно писать разбор формулы с одной переменной, а потом по ней строить график.

> nevalex ©
Это так?


 
nevalex   (2003-05-16 18:22) [10]

Да!!!Но как это сделать?


 
circul   (2003-05-16 23:07) [11]

>nevalex © (16.05.03 18:22)
Да!!!Но как это сделать?

Бери строку, определяй, какая в ней функция, какие параметры, и строй график. Делов-то...


 
Separator   (2003-05-17 05:59) [12]


> nevalex © (16.05.03 18:22)

Если честно, то это сложный вопрос, так как тебе нужно написать свой нтерпритаор для разбора формул. А постройка графика, это очень легко. Я тебе кое-что по этому вопросу выслал на почту


 
Думкин   (2003-05-17 08:26) [13]

Разбирать - необязательно. Тут надо вопрос точнее формулировать - если функции стандартные - то делается на уровне Case.
Если нет - то смотри выше - точнее надо формулировать.


 
nevalex   (2003-05-17 18:53) [14]

>Separator ©
Спасибо , это вроде то что мне надо (покрайней мере для начала)

>Думкин ©
Конечно нет,т.е функции не стандартные но одной переменной



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

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

Наверх




Память: 0.47 MB
Время: 0.008 c
4-13519
Ahmad K
2003-04-04 17:21
2003.06.05
Автозаполнение и-нет форм


1-13130
demonyator
2003-05-25 01:52
2003.06.05
Длина строки символов в пикселях...


11-13112
Grande
2002-08-29 16:01
2003.06.05
MCK не компиллируется под Delphi7


14-13429
Style
2003-05-19 09:49
2003.06.05
DelphiChallenge: Завершен 1-й тур соревнований.


1-13147
Opera
2003-05-26 10:58
2003.06.05
Сравнение





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский