Weiss jemand wie man bei Visual basic 2008 Schwingungen darstellt und überlagert. Bei der Aufgabe soll man zwei werte eingeben, die dann graphisch dargestellt werden und zum schluss sollen 2 Schwingungen Überlagert werden.Wenn mir bei der aufgabe jemand helfen könnte wäre das echt super
Schwingungen überlagern
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.
-
-
Hier ist meine Aufgabe. Macht mal.
Also:
Picturebox, Breite und Höhe zum Skalieren auslesen,
Achsen malen
Sinüsse berechnen, zeichnen.
In Deinem nächsten Post sende bitte etwas eigenen Code mit.Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert! -
habe schon etwas rumprobiert :Public Class Form1
Private Sub TextBox27_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox27.TextChanged
End Sub
Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim a As String = "f(t)"
Dim i As String = "t/s"
Dim yy As Integer = 400
Dim ft As Font = Me.Font
Dim g As Graphics = e.Graphics
g.DrawLine(Pens.Cyan, 200, yy, 200, 0)
g.DrawLine(Pens.Cyan, 0, yy - 200, 400, yy - 200)
For var As Integer = 0 To 400 Step 10
g.DrawString(i, ft, Brushes.Cyan, 380, yy - 190)
g.DrawLine(Pens.Cyan, var, yy - 202, var, 202)
g.DrawLine(Pens.Cyan, 202, yy - var, 198, yy - var)
g.DrawString(a, ft, Brushes.Cyan, 180, yy - 395)
Next
End Sub
Private Sub TabPage4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage4.Click
End Sub
Private Sub PictureBox3_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox3.Paint
Dim a As String = "f(t)"
Dim i As String = "t/s"
Dim yy As Integer = 400
Dim ft As Font = Me.Font
Dim g As Graphics = e.Graphics
g.DrawLine(Pens.Cyan, 200, yy, 200, 0)
g.DrawLine(Pens.Cyan, 0, yy - 200, 400, yy - 200)
For var As Integer = 0 To 400 Step 10
g.DrawString(i, ft, Brushes.Cyan, 380, yy - 190)
g.DrawLine(Pens.Cyan, var, yy - 202, var, 202)
g.DrawLine(Pens.Cyan, 202, yy - var, 198, yy - var)
g.DrawString(a, ft, Brushes.Cyan, 180, yy - 395)
Next
End Sub
Private Sub PictureBox2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox2.Paint
Dim a As String = "f(t)"
Dim i As String = "t/s"
Dim yy As Integer = 400
Dim ft As Font = Me.Font
Dim g As Graphics = e.Graphics
g.DrawLine(Pens.Cyan, 200, yy, 200, 0)
g.DrawLine(Pens.Cyan, 0, yy - 200, 400, yy - 200)
For var As Integer = 0 To 400 Step 10
g.DrawString(i, ft, Brushes.Cyan, 380, yy - 190)
g.DrawLine(Pens.Cyan, var, yy - 202, var, 202)
g.DrawLine(Pens.Cyan, 202, yy - var, 198, yy - var)
g.DrawString(a, ft, Brushes.Cyan, 180, yy - 395)
Next
End Sub
Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click
End Sub
Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
End Class Weiss halt nicht wie ich jetzt die Schwingungen darstellen soll oder mit welcher formel man so was macht. -
Mir sind die Anforderungen noch nicht klar: Soll dann in der Anzeige etwas herumwackeln, also tatsächlich schwingen, oder möchtest du ein LinienChart?
Oder ein Laufband-LinienChart?
Für Code gibts hier übrigens den "VB" - Button. Aber nur, wenn man nicht die Schnellantwort benutzt, sondern auf "Antworten" klickst. -
Fang zunächst so an:
Füge den Button1 hinzu und ergänze die Sub PictureBox1_Paint()
Spoiler anzeigen VB.NET-Quellcode
- Private myPoints As New List(Of Point) ' Klassen-Variable
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- poly.Clear()
- Dim w As Integer = PictureBox1.Width
- Dim scaleX As Double = 2.0 * Math.PI / w
- Dim scaleY As Double = PictureBox1.Height / 2 - 1
- Dim y As Double
- For i As Integer = 0 To w - 1
- y = (Math.Sin(i * scaleX) + 1) * scaleY
- myPoints.Add(New Point(i, CInt(y)))
- Next
- PictureBox1.Invalidate()
- PictureBox1.Update()
- End Sub
- Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
- ' alles bleibt stehen,
- ' das hier ist neu:
- If (myPoints.Count > 0) Then
- g.DrawLines(Pens.Black, myPoints.ToArray)
- End If
- End Sub
Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert! -
Ich möchte die schwingung als bild in einem Koordinatensystem darstellen .
ohne das es sich bewegt. es sollen auch nur sinus und kosinusschwingungen dargestellt werden.
oder ist es denn aufwendig weitere schwingungen darzustellen ??? da es ja unendlich viele gibt. ich hätte jetzt erst sinus und kosinis deklariert und dann versucht
mit einer formel weiter zu kommen. -
Nimm mein Beispiel und Du hast einen schönen Sinus.
Wenn Du die Mathematik beherrschst, ist der Rest ein Klax.Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert! -
-
-
schau mal hier rein: tutorials.de/net-cafe/310968-k…ol-fuer-sinus-kurven.html
muß du noch anpassen. -
Hinweis:
Die Abfrage ob
Sinus oder Cosinus
UND
Sinus-Phase oder Cosinus-Phase
ist ja wohl zuviel, da cos(x) = sin(x + pi/2) ist, also lediglich ein Phasenoffset von pi/2 vorliegt.Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert! -
N309 schrieb:
Bis jetzt bin ich so weit habe nun probleme die schwingungen darzustellen und wie ich generell nun weiter mache
Na, halt Werte eingeben, und daraus die anneren Werte berechnen - ich meine, so leere Tabellen bringen nicht viel. -
RodFromGermany schrieb:
Nimm mein Beispiel und Du hast einen schönen Sinus.
Wenn Du die Mathematik beherrschst, ist der Rest ein Klax.
Ich erwarte, dass ein solches Bild bei Dir zu sehen ist.Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert! -
-
Hast Du mein Codebeispiel in Post 5 nicht kapiert?Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert! -
-
Dann poste doch mal die Formeln, nach denen Du Schwingungen überlagern willst.Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert!
-
Ähnliche Themen
-
Chromosom - - Multimedia- und Spieleprogrammierung
-
3 Benutzer haben hier geschrieben
- Gast (8)
- RodFromGermany (7)
- ErfinderDesRades (2)