Graph zeichnen mit VB 2008

Hallo,

ich möchte mit VB 2008 Express einen Funktionsgraphen zeichnen und habe dafür folgendes Codefragment gefunden.

Leider weiß ich nicht wie ich die Variable R deklarieren muss.

Vielleicht hat jemand eine Idee.


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e _ As System.EventArgs) Handles Button1.Click

Using g As Graphics = PaAusgabe.GreateGraphic

Dim Punkte(100) As PointF
For i As Short = 0 To 100
Punkte(i).X = R.Next(1, PaAusgabe.width)
Punkte(i).Y = R.Next(1, PaAusgabe.Height)
Next

g.DrawCurve(Pens.Red, Punkte)
End Using
End Sub

 

Kann es sein das bei deinem Code noch nen ganzes Stück fehlt ?

Außerdem was ist bitte PaAusgabe.GreateGraphic

Da R.Next(1, PaAusgabe.width) so aussieht als würde es sich da um Zahlen handeln, würde ich es mit Integer versuchen.

 

Ich denke eher, dass R irgendein Objekt oder sowas ist, welches die Funktion ausrechnet.

Allerdings sieht das eigentlich aus, da y scheinbar völlig unabhängig von x berechnet wird.

Normalerweise sollte man bei sowas eigentlich ein Zählvariable x über den darzustellenden Bereich laufen lassen und dann für jedes x laut Funktionsgleichung das entsprechende y ausrechnen.

Aus x und y baut man dann einen Punkt zusammen (also skaliert und verschiebt den irgendwie so, dass der ins Panel an die gewünschte Stelle kommt) und malt den in das Panel.

Oder, wie in Deinem Codefragment, sammelt alle Punkte und ruft dann dieses DrawCurve() auf, vielleicht arbeitet das etwas effizienter.

 

Man könnte ja auch einfach das Chart Control nutzen. Liegt eben dran was man vor hat.