VPF::как зделать чтобы ур-е: y=x^2 стало dblY=dblX^2?

NTFS666

Дата 30.11.2006, 19:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 30.11.2006

Репутация: нет
Всего: нет

Всем привет!

Код

Private Sub Command1_Click()

Dim dblX, dblI As Double

'Маштаб
Scale (-10, 10)-(10, -10)

'Промежуточные линии
For dblI = -10 To 10
Line (dblI, -10)-(dblI, 10), 555, B
Line (10, dblI)-(-10, dblI), 555, B
Next dblI

'ось ОХ
Line (-10, 0)-(10, 0), vbRed
For dblI = -10 To 10
PSet (dblI, 0)
Print dblI
Next dblI

'ось ОУ
Line (0, -10)-(0, 10), vbRed
For dblI = -10 To 10
PSet (0, dblI)
Print dblI
Next dblI

'Построение Графика
For dblX = -10 To 10 Step 0.01
PSet (dblX, dblX * dblX)
Next dblX

End Sub

Нужно пункт "построение графика" переделать так, что бы при вводе в строку А формулы пример: y=x^2 он её определял как dblY=dblX^2.

должно быть так. но незнаю как записать...

Код


'Построение Графика
For dblX = -10 To 10 Step 0.01
PSet (dblX, dblY)
Next dblX

Что делать? smile

Это сообщение отредактировал(а) NTFS666 - 30.11.2006, 19:16

Akina

Дата 1.12.2006, 01:32 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Код

' .........

Dim dblX As Double, dblY As Double, dblI As Double

' .........

'Построение Графика
For dblX = -10 To 10 Step 0.01
   dblY = dblX * dblX
   PSet (dblX, dblY)
Next dblX

Ты об этом?

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »