Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > как зделать чтобы ур-е: y=x^2 стало dblY=dblX^2?

Автор: NTFS666 30.11.2006, 19:14

Всем привет!

Код

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

Автор: Akina 1.12.2006, 01:32

Код

' .........

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

Ты об этом?