Differenz in Prozent ausrechnen

  • VB.NET

Es gibt 22 Antworten in diesem Thema. Der letzte Beitrag () ist von menorca.

    @ menorca Mach mal ne leere Form, drei Button (Create, Save, Load), ein Chart und ein leeres DataGridView.
    Daten in Chart und DGV

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private MyTable As DataTable
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. Me.MyTable = Me.InitDataTable()
    5. Me.InitData()
    6. End Sub
    8. Private Function InitDataTable() As DataTable
    9. Dim table = New DataTable("TestDaten")
    11. ' für das DGV
    12. table.Columns.Add(New DataColumn("Coordinate", GetType(Double)))
    13. table.Columns.Add(New DataColumn("Value", GetType(Double)))
    14. Return table
    15. End Function
    17. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    18. ' Hier werden die Daten bereitgestellt:
    19. For i As Integer = 0 To 100
    20. Dim newRow As DataRow = Me.MyTable.NewRow()
    21. newRow(0) = i
    22. newRow(1) = Math.Sin(i / 10)
    23. Me.MyTable.Rows.Add(newRow)
    24. Next
    26. Me.ShowData()
    27. End Sub
    29. Private Sub InitData()
    30. ' DataSource löschen
    31. Me.MyTable.Clear()
    32. Me.DataGridView1.DataSource = Nothing
    33. Me.Chart1.DataSource = Nothing
    35. ' uninitialisiert => dynamische xy-Skalierung
    36. Me.Chart1.ChartAreas(0).AxisX.Maximum = Double.NaN
    37. Me.Chart1.ChartAreas(0).AxisX.Minimum = Double.NaN
    38. Me.Chart1.ChartAreas(0).AxisY.Maximum = Double.NaN
    39. Me.Chart1.ChartAreas(0).AxisY.Minimum = Double.NaN
    41. Me.Chart1.ChartAreas(0).AxisX.Title = "Coordinate"
    42. Me.Chart1.ChartAreas(0).AxisY.Title = "Value"
    43. End Sub
    45. Private Sub ShowData()
    46. Me.Chart1.DataSource = Me.MyTable
    47. Me.Chart1.Series(0).XValueMember = Me.MyTable.Columns(0).ToString()
    48. Me.Chart1.Series(0).YValueMembers = Me.MyTable.Columns(1).ToString()
    49. Me.Chart1.DataBind()
    51. Me.DataGridView1.DataSource = Me.MyTable
    53. ' letzte Zeile anzeigen
    54. Me.DataGridView1.CurrentCell = Me.DataGridView1.Item(0, Me.DataGridView1.Rows.Count - 2)
    55. End Sub
    57. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    58. Me.MyTable.WriteXml("c:\Temp\test.xml")
    59. Me.InitData()
    60. End Sub
    62. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    63. Try
    64. Me.MyTable.ReadXml("c:\Temp\test.xml")
    65. Me.ShowData()
    66. Catch ex As Exception
    67. MessageBox.Show("no or wrong data available")
    68. End Try
    69. End Sub
    70. End Class

    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!

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

Facebook