Hallo,
ich möchte ein Programm schreiben, mit dem man mathematische Funktionen zeichnen kann. Ich habe schon viel herumprobiert, und gegoogelt. Leider nichts gefunden. Evt. habe ich etwas übersehen. Unter VB 06 habe ich einen Code geschrieben der funktioniert. Nun würde ich den gerne in VB 08 schreiben. Im Vb 06 kann man durch den Syntax .PSet(<x-Koordinate>,<y-Koordinate>) Punkte in eine PictureBox zeichnen. Im 08 gibt es diese Syntax leider nicht mehr. Falls jemand den Befehl für die 08-Version kennt bitte mir sagen. Nachfolgender Code funktioniert unter 06.
Public Class Form1
Private Sub cmd_berechnen_Click()
Dim a, b, c, hoehe, breite, schritt, x, y As Double
a = Val(txt_a.Text)
b = Val(txt_b.Text)
c = Val(txt_c.Text)
hoehe = Val(txt_hoehe.Text)
breite = Val(txt_breite.Text)
zeichenflaeche.Scale (-breite / 2, hoehe / 2)-(breite / 2, -hoehe / 2)
zeichenflaeche.Line (-breite / 2, 0)-(breite / 2, 0)
zeichenflaeche.Line (0, hoehe / 2)-(0, -hoehe / 2)
schritt = breite / 10000
For x = (-breite / 2) To (breite / 2) Step schritt
y = a * x ^ 2 + b * x + c
zeichenflaeche.PSet(x, y)
Next
End Sub
End Class
Wie kann man außerdem das Koordinatensystem in VB08 zeichnen?
Hoffentlich kann mir jemand helfen.
Danke im voraus.
End Sub
End Class
ich möchte ein Programm schreiben, mit dem man mathematische Funktionen zeichnen kann. Ich habe schon viel herumprobiert, und gegoogelt. Leider nichts gefunden. Evt. habe ich etwas übersehen. Unter VB 06 habe ich einen Code geschrieben der funktioniert. Nun würde ich den gerne in VB 08 schreiben. Im Vb 06 kann man durch den Syntax .PSet(<x-Koordinate>,<y-Koordinate>) Punkte in eine PictureBox zeichnen. Im 08 gibt es diese Syntax leider nicht mehr. Falls jemand den Befehl für die 08-Version kennt bitte mir sagen. Nachfolgender Code funktioniert unter 06.
Public Class Form1
Private Sub cmd_berechnen_Click()
Dim a, b, c, hoehe, breite, schritt, x, y As Double
a = Val(txt_a.Text)
b = Val(txt_b.Text)
c = Val(txt_c.Text)
hoehe = Val(txt_hoehe.Text)
breite = Val(txt_breite.Text)
zeichenflaeche.Scale (-breite / 2, hoehe / 2)-(breite / 2, -hoehe / 2)
zeichenflaeche.Line (-breite / 2, 0)-(breite / 2, 0)
zeichenflaeche.Line (0, hoehe / 2)-(0, -hoehe / 2)
schritt = breite / 10000
For x = (-breite / 2) To (breite / 2) Step schritt
y = a * x ^ 2 + b * x + c
zeichenflaeche.PSet(x, y)
Next
End Sub
End Class
Wie kann man außerdem das Koordinatensystem in VB08 zeichnen?
Hoffentlich kann mir jemand helfen.
Danke im voraus.
End Sub
End Class