Конференция VBStreets

**Unstates** » 13.12.2003 (Сб) 15:37

Никак не могу сделать так чтоб графики строились по введенной функции в какой ни будь textbox.

**hCORe** » 13.12.2003 (Сб) 16:35

Смотри сюда: http://bbs.vbstreets.ru/viewtopic.php?t=4491
В этой теме и примеры есть, и все остальное.

А построение произвольной функции - дело сложное и неблагодарное :cry:

. Может быть кто-нибудь напишет анализатор текстов, который позволял бы функцию из алгебраического в VBшный вид перевести :?:

Вот тогда бы было здорово :wink:

**Boris_BGB** » 13.12.2003 (Сб) 16:36

Например:
Строим график y=ax
На форме кнопка Command1

Код: Выделить всё: Dim x As Double Dim y As Double Const a As Byte = 2 Private Sub Command1_Click() For x = 200 To 600 y = a * x Form1.PSet (x, y) Next x End Sub

А вот формула у тебя наверное только фиксированная будет. Но можно ещё сделать привязку TextBox'a к константам и переменным.

**Vovik** » 13.12.2003 (Сб) 16:39

Могу подкинуть идейку (иди индейку) прочитай из Текстбокса текст в какую-нибудь строку; Потом анализируй её: ищи всё до знаков (-*+/) это будет первое число. Если один из этих знаков первый, то ищи второй, т.к. знак отнесётся к первому числу. Потом всё распихивай по строкам и в зависимости от знаков строй! :wink:

**Urvin** » 13.12.2003 (Сб) 16:42

hCORe писал(а):А построение произвольной функции - дело сложное и неблагодарное . Может быть кто-нибудь напишет анализатор текстов, который позволял бы функцию из алгебраического в VBшный вид перевести Вот тогда бы было здорово

Eval'уаторов уже кучи написаны. Большие кучи!

**Unstates** » 13.12.2003 (Сб) 17:44

Ну индейка хорошая Vovok, но как мне функции смотреть.

**Boris_BGB** » 13.12.2003 (Сб) 18:00

Это нужно либо на нейросетях, либо долгим и извилистым IF'ом.

**v-adix** » 14.12.2003 (Вс) 11:06

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

**#HammeR#** » 01.01.2004 (Чт) 12:17

Подключаеш Microsoft Script control 1.0 (msscript.ocx)
Добавляеш script contol на форму, и...

for x = -10 to 10
a=replace$(text1,"x",x) - ' для замены икса в формуле на число
y = scriptcontrol1.eval(a)
' рисуем наиденую точку
pset (x,y)
next x

' если в text1 введено sin(x),то мы получаем 20 точек синусоиды