Funktions-Graph ausgeben mit VB6

Hallo,


habe mit VB 6 ein Programm zum Berechnen von quadratischen Funktionen geschrieben und möchte jetzt den Graph mit Koordinatenkreuz (auf dem Bildschirm) ausgeben.

Kann mir jemand an Hand eines Beispieles erläutern,wie man so etwas machen kann ???


Danke

 

Kannst du das besser beschreiben?

 

Hallo,

Ein Koordinatenkreuz besteht aus einer waagerechten x-Achse und einer senkrechten y-Achse.
Auf beiden Achsen werden Zahlen aufgetragen.
Z.B. von -5 bis 5.
Der Schnittpunkt beider Achsen ist null.
Betrachtet man nun z.B. die Funktion y=x² und setzt für x verschiedene Werte ein,so erhält man verschiedene y-Werte.
Z.B. für x=2 ist y=4
für x=3 ist y=9
Trägt man diese Punkte (also x und y) in das Koordinatenkreuz ein und verbindet die Punkte miteinander,erhält man den Graph der Funktion.Also
hier y=x².
Ich muss also ein Koordinatenkreuz zeichnen können und ich muss den Graph zeichnen können,der sich daraus ergibt,dass best. x-Werten auf der X-Achse über eine Funktion (hier:y=x²) best. y-Werte auf der y-Achse zugeordnet werden.

 

Nur wenn ich das richtig verstanden habe:

Also eine Form erstellen. Darauf eine "Picturebox" setzen. Eigenschaft "Autoredraw=True". Eigentschaft "Drawwidth=WERT" 1=1pixel

so Jetzt zu dem Graph.

Picturebox1.PSet (X,Y)

so setzt du ein Punkt in das graph.

Um eine Linie zu ziehen zb:

Dim i as long
for i = 0 to GewünschteLänge
Picture1.PSet(0,i)
next i

Dies zieht ein Linie von Oben nach unten an der Linken Seite des Picturebox. Eben weil die "0" Left(links) ist und das "i" die Height(höhe). Je höher die Zahl "0" wird desto mehr Rechts wird die linie sein. Desto höher i wird desto mehr nach unten geht die Linie.

Dies würde eine Schräge Linie Ziehen
Picture1.autoredraw = true
picture1.drawwidth = 10
Dim i As Long
Dim o As Long
o = 1000
For i = 0 To 1000
Picture1.PSet (o, i)
o = o - 1
Next i
Geholfen?

 

Hallo,

könnte mir jemand freundlicherweise erklären,wie man so Etwas mit Visual Basic 2008 Express Edition machen kann ???

Danke