| Forum: VB.NET |
Thema:
Sinuskurve zeichnen |
Von:
Joerg Froehlich (
07.02.2005 21:58) |
Hallo zusammen,
ich versuche verzweifelt, eine "ansehnliche" Sinuskurve auf eine Form (z.B. 800 x 600 Pixel) zeichnen zu lassen, aber das sieht eher wie Kindergekritzel aus. Hat jemand eine bessere Lösung:
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
Dim MyPen As New Pen(Color.Black, 1)
Dim p(200) As Point
Dim i As Integer
For i = 0 To 200
p(i) = New Point(i * 2, (Math.Sin(i) + 1) * 20)
Next
e.Graphics.DrawLines(MyPen, p)
End Sub
Danke im voraus.
Lucky Joe
| Betreff |
Von |
Datum |
|
|
  |
Re: Sinuskurve zeichnen
| Hi,<br>die Funktion Sin, Cos, ... verwenden nicht 360° als Kreis, sondern 2*Pi.<br>Du mußt nicht von 0 bis 360 zählen sondern von 0 bis 6,28.<br>In Deinen Beispiel:<br>dim p(800) as point ' 800 Pixel... |
|
|
|
|
|
Klaas
Wedemeyer
|
08.02.2005 09:35 |
|
|
|
|
G.
Guest
|
08.02.2005 13:43 |
|
|
|
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
