Matematiske grafer i VB

Det vil jeg også gerne!!

Det skulle vist være simpelt. Hvis vi nu antager du har to VB funktioner, X(t) og Y(t) (en parametrisering af en eller anden kurve), så kunne det se sådan ud:

Sub Draw(ByVal Increment As Double)
  Dim X1 as Double, Y1 as Double
  Dim OldX as Double, OldY as Double
  Dim t As Double

  Picture1.Clear
  For t = 0 To 1 Step Increment
    X1 = X(t)
    Y1 = Y(t)
    If t = 0 Then
      Picture1.PSet (X1, Y1)
    Else
      Picture1.Line (OldX, OldY) - (X1, Y1)
    EndIf
    OldX = X1
    OldY = Y1
  Next t
End Sub

Her tegnes kurven så i en PictureBox, men det kunne selvfølgelig lige så godt være på en form eller noget tredie.

Du skal så bare sætte PictureBox'ens ScaleLeft, ScaleTop, ScaleWidth og ScaleHeight til værdiområdet for den konkrete kurve, således at du ikke skal til at omregne til pixels eller twips.

Eller har jeg helt misforstået spørgsmålet?