Hallo zusammen,
ich möchte einen Graphen mit Drawcurve zeichnen lassen. Soweit so gut. Ich habe auch ein PointF-Array mit x und y Werten gefüllt aber irgendwie wird nichts gezeichnet.
Hab das PointF-Array mir auch mal in einer Listbox ausgeben lassen um zu überprüfen ob die Werte in Ordnung sind.
Ich hoffe ihr könnt mir helfen. Danke im vorraus.
ich möchte einen Graphen mit Drawcurve zeichnen lassen. Soweit so gut. Ich habe auch ein PointF-Array mit x und y Werten gefüllt aber irgendwie wird nichts gezeichnet.
Hab das PointF-Array mir auch mal in einer Listbox ausgeben lassen um zu überprüfen ob die Werte in Ordnung sind.
Ich hoffe ihr könnt mir helfen. Danke im vorraus.
VB.NET-Quellcode
- 'Festlegung wo der Graph "Graph1" abgebildet wird
- Dim GraphVT As System.Drawing.Graphics = PB_Graph1.CreateGraphics
- 'Definition des Stiftes "StiftfuerGraph1" als blauen Pen
- Dim Stift1 As New System.Drawing.Pen(System.Drawing.Color.Blue)
- 'Point-Array dimensionieren in dem alle berechneten Punkte abgespeichert werden
- Dim Punkte(50) As PointF
- If R2 = 0 Then
- I = 0.5 * M * (R1 ^ 2) 'Vollzylinder
- ElseIf R2 <> 0 Then
- I = 0.5 * M * (R1 ^ 2 + R2 ^ 2) 'Hohlzylinder
- End If
- a = ((g * Math.Sin(Winkel)) / (1 + (I / (M * R1 ^ 2))))
- ListBox2.Items.Add(Math.Round((a), 4) & " m/s²")
- ListBox2.Items.Add(Math.Round((I), 4) & " J")
- Dim H2 As Double = 0
- 'For H2 = 0 To H Step (H / 50)
- Dim i1 As Integer
- For i1 = 0 To 50
- H2 = i1 * (H / 50)
- v = Math.Sqrt((2 * g * H2) / (1 + (I / (M * R1 ^ 2))))
- E_pot = M * g * (H - H2)
- E_kin = 0.5 * M * (v ^ 2)
- w = Math.Sqrt(((2 * M * g * (H2)) / I) - ((M * (v ^ 2)) / I))
- E_rot = 0.5 * I * w ^ 2
- t = v / a
- Punkte(i1).X = Math.Round(t * 15)
- Punkte(i1).Y = Math.Round(v * 15)
- End With
- Next i1
- For o = 0 To 50
- ListBox4.Items.Add(Punkte(o))
- Next
- 'Kurve mit Drawcurve zeichnen lassen; Syntax:(Stift, Punktearray)
- GraphVT.DrawCurve(Stift1, Punkte)