Frage von Thorben653, 29

Parabelzeichner in VB?

Hallo. Ich habe vor (nur als herrausvorderung) ein Programm mit VB zu erstellen, welches einfache Parabeln Darstellen kann. Der code dazu ist der hier: Public Class Form1

Dim noLabel As Integer = 1
Dim rnd As New Random
Dim LabelNA As String
Dim LabelLOX As Integer
Dim LabelLOY As Integer
Dim clicks As Integer
Dim Berechnungen As Integer
Dim Mode As Integer
Dim berechnungen2 As Integer
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    Mode = "0"
    clicks = 0
    A()
    'Timer.Enabled = True
End Sub


Private Function A()
    clicks = clicks + 1
        Berechnungen = "800"
        berechnungen2 = "800"

        If Not clicks > Berechnungen Then
            Dim nLabel As New PictureBox
            With nLabel
                .Name = "Label" & noLabel
                .Image = My.Resources.clear
                .Size = New System.Drawing.Size(2, 2)
                .Location = New Point(XS.Text * 10000 + 400, YS.Text * 10000 + 300)
                .Visible = True
            End With
            XS.Text = XS.Text + 0.00001
            YS.Text = YS.Text + -MQ.Text * XS.Text ^ 2
            Controls.Add(nLabel)
            status.Text = noLabel
            noLabel += 1
            A()
        Else

            If Not clicks - Berechnungen > berechnungen2 Then
                If Mode = 1 Then
                    Dim nLabel As New PictureBox
                    With nLabel
                        .Name = "Label" & noLabel
                        .Image = My.Resources.clear
                        .Size = New System.Drawing.Size(2, 2)
                        .Location = New Point(XS.Text * 10000 + 400, YS.Text * 10000 + 300)
                        .Visible = True
                    End With
                    XS.Text = XS.Text - 0.00001
                    YS.Text = YS.Text + -MQ.Text * XS.Text ^ 2
                    Controls.Add(nLabel)
                    status.Text = noLabel
                    noLabel += 1
                    A()
                Else
                    YS.Text = 0
                    XS.Text = 0
                    Mode = 1
                    A()
                End If
            Else

                YS.Text = 0
                XS.Text = 0
            End If
        End If





        Return Nothing
End Function

End Class

Mein problem ist, dass zwar eine Parabel entsteht, diese aber nicht echt ist und erst zul angsam ansteigt, und dann zu schnell. Hat jemand eine lösung?

Antwort
von SuperIch1998, 20

Ist das denn VB.NET oder VB6/älter?

Kommentar von geri3d ,
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

schliesst VB6/älter aus...

Keine passende Antwort gefunden?

Fragen Sie die Community

Weitere Fragen mit Antworten