Histogramm

    • VB.NET

      Histogramm

      Hi,

      ich habe für euch hier ein kleines Histogramm-Control mit beispiel im CMD-Style:

      VB.NET-Quellcode

      1. Imports System.Drawing.Drawing2D
      3. Public Class Form1
      4. Dim H As Histogramm = New Histogramm
      5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      6. With H
      8. .Size = New Size(500, 500)
      9. For I As Integer = 0 To 20
      10. .Werte.Add(Int(Rnd() * 100))
      11. Next
      12. .Location = New Point(0, 0)
      13. End With
      14. Me.Controls.Add(H)
      15. End Sub
      17. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      18. With H
      19. For I As Integer = 0 To 20
      20. H.Werte.Add(Int(Rnd() * 100))
      21. Next
      22. End With
      23. End Sub
      24. End Class
      25. Public Class Histogramm
      26. Inherits PictureBox
      27. Dim LineColor As Color = Color.Lime
      28. Dim StepX As Integer = 10
      29. Dim StepY As Integer = 10
      30. Dim GitterColor As Color = Color.DarkRed
      31. Dim BackgroundColor As Color = Color.Black
      32. Dim LastY As Integer
      33. Dim YMax As Integer = 0
      34. Dim RefreshTimer As Timer
      35. Public Werte As List(Of Integer)
      36. Sub New()
      37. Me.DoubleBuffered = True
      38. Me.RefreshTimer = New Timer
      39. Me.Werte = New List(Of Integer)
      40. Me.LastY = 0
      41. With Me.RefreshTimer
      42. .Interval = 1000
      43. .Enabled = True
      44. AddHandler .Tick, AddressOf NeuZeichnen
      45. End With
      46. End Sub
      47. Protected Overrides Sub OnPaint(ByVal pe As System.Windows.Forms.PaintEventArgs)
      48. 'MyBase.OnPaint(pe)
      49. With pe.Graphics
      50. .Clear(Me.BackgroundColor)
      51. For I As Integer = 0 To Me.Width Step StepX
      52. .DrawLine(New Pen(GitterColor), I, 0, I, Me.Height)
      53. Next
      54. For J As Integer = 0 To Me.Height Step StepY
      55. .DrawLine(New Pen(GitterColor), 0, J, Me.Width, J)
      56. Next
      57. Dim Y As Integer
      58. For Each Wert As Integer In Werte
      59. YMax = Math.Max(Math.Max(YMax, Wert), YMax)
      60. Next
      61. Dim X As Integer = 10
      62. Dim XOld As Integer = 0
      63. Dim YOld As Integer = LastY
      64. Form1.Text = Format(Me.Werte.Count)
      65. If Me.Werte.Count > 0 Then
      66. Select Case Me.Werte.Count
      67. Case 1
      68. Y = YOld
      69. .DrawLine(New Pen(LineColor), XOld, YOld, X, Y)
      70. XOld = X
      71. YOld = Y
      72. X = X + StepX
      73. Case Is >= 2
      74. YOld = CInt((Me.Height / YMax) * Werte(0))
      75. For W As Integer = 1 To Werte.Count - 1
      76. Y = CInt((Me.Height / YMax) * Werte(W))
      77. .DrawLine(New Pen(LineColor), XOld, YOld, X, Y)
      78. XOld = X
      79. YOld = Y
      80. X = X + StepX
      81. If X > Me.Width Then Exit For
      82. Next
      83. End Select
      84. LastY = Werte(Werte.Count - 1)
      85. End If
      86. If XOld < Me.Width Then
      87. .DrawLine(New Pen(LineColor), XOld, YOld, Me.Width, YOld)
      88. End If
      89. If Werte.Count > 0 Then
      90. Werte.RemoveAt(0)
      91. Else
      92. Me.YMax = 0
      93. End If
      94. End With
      95. End Sub
      96. Sub NeuZeichnen(ByVal sender As Object, ByVal e As EventArgs)
      97. Me.Refresh()
      98. End Sub
      99. End Class


      mfg

      gfcwfzkm

      PS: Weis jemand, wie man daraus ein richtiges Control in .dll Form macht?

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „gfcwfzkm“ ()

    Facebook
    Telefonspende