Live-Darstellung einer Funktion mit einer DGV

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Yanbel.

    Live-Darstellung einer Funktion mit einer DGV

    Hallo Mit HIlfe eines Timers und einer Datagridview kann ich die Entwicklung einer Funktion aufzeigen(In diesem Fall habe ich 3 Parameter). Allerdings ist der Code sehr Buggie, ich würde mich freuen wenn Jemand was auffällt was man besser machen könnte.


    VB.NET-Quellcode

    1. Dim rowscount As Integer
    2. Dim y As Integer = 0
    3. Dim x As Integer = 1
    4. Private Const viertel As Double = 0.25
    5. Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
    7. Timer2.Interval = 2000
    9. TextBox4.Text = y
    10. TextBox5.Text = x
    11. x += 5 'das ist die erste funktion also 1,6,11,16. usw
    12. y += 1 ' das ist sozusagen die x-achse der funktion mit 0,1,2,3,usw. Wurde einfach als y deklariert.
    14. TextBox6.Text = viertel * CInt(TextBox5.Text) ' das ist der dritte Parameter derFunktion, er viertelt immer den Wert von x
    16. If TextBox5.Text <= TextBox7.Text Then 'textbox 7 gibt den endwert, bis zu den ermittelt wird, soll ja nicht unendlich gehen
    18. Me.DataGridView1.Rows.Add(TextBox4.Text, TextBox6.Text, TextBox5.Text) 'hier werden die Werte der DGV hinzugefügt
    20. If rowscount = Nothing Then
    22. rowscount = 0
    24. End If
    26. DataGridView1.CurrentCell = DataGridView1.Rows(rowscount).Cells(2) 'hier wird die aktuelleste zeile der DGV markiert, was einfach übersichtlicher ist
    28. End If
    29. rowscount += 1
    30. Label8.Text = rowscount
    32. End Sub
    34. Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click, Button9.Click
    35. If sender Is Button7 Then
    36. Timer2.Start()
    37. ElseIf sender Is Button9 Then 'Timer starten und beenden
    38. Timer2.Stop()
    39. End If
    43. End Sub

    Ich würde nach 518 Posts im Forum noch Benennung von Variablen & Controls, Umgang mit Variablentypen, Trennung von GUI und Daten und ein paar andere Dinge mit auf die Liste setzen.

    Hier ein Beispiel. Hoffe mal ich habe alles richtig verstanden was du vorhast:


    Form

    VB.NET-Quellcode

    1. Private Property ResultList As New List(Of Coord)
    2. Private MaxValue As Integer
    4. Private Sub FunctionView_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. FormatDGV()
    6. End Sub
    8. Private Sub FormatDGV()
    9. DgvFunction.Columns.Clear()
    10. DgvFunction.DataSource = Nothing
    11. DgvFunction.AutoGenerateColumns = False
    12. DgvFunction.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None
    13. DgvFunction.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
    14. DgvFunction.AllowUserToResizeColumns = True
    15. DgvFunction.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
    16. DgvFunction.AllowUserToAddRows = False
    17. DgvFunction.AllowUserToDeleteRows = False
    18. DgvFunction.SelectionMode = DataGridViewSelectionMode.FullRowSelect
    19. DgvFunction.MultiSelect = False
    21. DgvFunction.Columns.Add(New DataGridViewTextBoxColumn With {.Name = "CurrentInterval", .DataPropertyName = "CurrentInterval", .Visible = True, .[ReadOnly] = True, .Width = 100, .HeaderText = "Index"})
    22. DgvFunction.Columns.Add(New DataGridViewTextBoxColumn With {.Name = "X", .DataPropertyName = "X", .Visible = True, .[ReadOnly] = True, .Width = 100, .HeaderText = "X"})
    23. DgvFunction.Columns.Add(New DataGridViewTextBoxColumn With {.Name = "QuarterX", .DataPropertyName = "QuarterX", .Visible = True, .[ReadOnly] = True, .Width = 100, .HeaderText = "X / 4"})
    24. DgvFunction.Columns.Add(New DataGridViewTextBoxColumn With {.Name = "Y", .DataPropertyName = "Y", .Visible = True, .[ReadOnly] = True, .Width = 100, .HeaderText = "Y"})
    26. DgvFunction.Columns("CurrentInterval").DefaultCellStyle = New DataGridViewCellStyle With {.Format = "#0", .NullValue = String.Empty, .Alignment = DataGridViewContentAlignment.MiddleLeft}
    27. DgvFunction.Columns("X").DefaultCellStyle = New DataGridViewCellStyle With {.Format = "#0", .NullValue = String.Empty, .Alignment = DataGridViewContentAlignment.MiddleLeft}
    28. DgvFunction.Columns("QuarterX").DefaultCellStyle = New DataGridViewCellStyle With {.Format = "#0.00", .NullValue = String.Empty, .Alignment = DataGridViewContentAlignment.MiddleLeft}
    29. DgvFunction.Columns("Y").DefaultCellStyle = New DataGridViewCellStyle With {.Format = "#0", .NullValue = String.Empty, .Alignment = DataGridViewContentAlignment.MiddleLeft}
    30. End Sub
    32. Private Sub FunctionCourse_Tick(sender As Object, e As EventArgs) Handles FunctionCourse.Tick
    33. DoWork()
    34. End Sub
    36. Private Sub DoWork()
    37. Dim NewCoord As New Coord With {.CurrentInterval = ResultList.Count}
    38. If NewCoord.QuarterX <= MaxValue Then
    39. TxtXValue.Text = NewCoord.X.ToString("#0")
    40. TxtYValue.Text = NewCoord.Y.ToString("#0")
    41. TxtQuarterX.Text = NewCoord.QuarterX.ToString("#0.00")
    42. ResultList.Add(NewCoord)
    43. DgvFunction.DataSource = Nothing
    44. DgvFunction.DataSource = ResultList
    45. LblRowCounter.Text = CStr(ResultList.Count) & " Zeilen"
    46. Else
    47. FunctionCourse.Stop()
    48. End If
    49. End Sub
    51. Private Sub BtnStart_Click(sender As Object, e As EventArgs) Handles BtnStart.Click
    52. If String.IsNullOrWhiteSpace(TxtMaxValue.Text) OrElse Integer.TryParse(TxtMaxValue.Text, MaxValue) Then
    53. MaxValue = 100
    54. TxtMaxValue.Text = CStr(MaxValue)
    55. End If
    56. FunctionCourse.Start()
    57. End Sub
    59. Private Sub BtnStop_Click(sender As Object, e As EventArgs) Handles BtnStop.Click
    60. FunctionCourse.Stop()
    61. End Sub



    Seperate Klasse

    VB.NET-Quellcode

    1. Public Class Coord
    3. Public Property CurrentInterval As Integer
    5. Public ReadOnly Property X As Integer
    6. Get
    7. Return CurrentInterval * 5 + 1
    8. End Get
    9. End Property
    11. Public ReadOnly Property Y As Integer
    12. Get
    13. Return CurrentInterval
    14. End Get
    15. End Property
    17. Public ReadOnly Property QuarterX As Double
    18. Get
    19. Return CDbl(X / 4)
    20. End Get
    21. End Property
    23. End Class


    Controls (da mehrfach hier im Forum gewünscht sogar mit Präfixen :D):
    TxtXValue = TextBox5
    TxtYValue = TextBox4
    TxtQuarterX = TextBox6
    TxtMaxValue = TextBox7
    DgvFunction = DataGridView1
    LblRowCounter = Label8
    BtnStop = Button7
    BtnStart = Button9
    FunctionCourse = Timer2

    Ein Computer wird das tun, was du programmierst - nicht das, was du willst.

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Yanbel“ ()

Facebook
Telefonspende