Salve a tutti. Il mio problema e' quello di poter
caricare su di una variabile Y una funzione. Ho provato a farlo inserendo la funzione da una textBox ma al massimo riesco ad ottenere solo il valore numerico della funzione. Non riesco a farla eseguire come quando la imposto ad Y da codice.
Ecco quello che ho fatto:
Private Sub Command1_Click()
On Error Resume Next
' Traccia la funzione matematica.
DrawWidth = 1
ForeColor = vbBlue
For X = xmin To xmax + 35 Step xstep * (Text1.Text / 1000)
'se al posto di Y = Text2.Text scrivo Y = x^2-9
'va bene ma cosė no
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'
'-----------------------------------------'
Y = Text2.Text
'-------------------------'
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'
PSet (X, Y)
Next X
' Spiega cosa sta per essere visualizzato.
ForeColor = vbBlack
CurrentX = ScaleLeft
CurrentY = ScaleTop
Print "f(x) = " & Y
end sub
'-------------------------------------------
grazie in anticipi!
Ultima modifica effettuata da dormix il 07/06/2007 alle 17:11 |