Farbwechselalgorithmus

    • VB.NET

      Farbwechselalgorithmus

      Ich bin im Moment sehr beschäftigt, aber wollte euch eine Kleinigkeit zur Verfügung stellen.

      Guck auf die Animation und du siehst was du kriegst.
      Du kannst jeden Hintergrund eines Steuerelements animieren, setze einfach die Hintergrundfarbe am Anfang auf rot.
      Sowohl der Ablauf, als auch die Stopanimation läuft flüssig.



      Wichtig: Benutze keinen transparencykey auf eurer Form, sonst wird das für eine Farbenframe komisch aussehen.

      Schlechter Beispielcode

      VB.NET-Quellcode

      1. Dim x, x2 As Threading.Thread
      2. Dim colorChangeTest As SmoothColorChangeAlgorithm
      4. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      5. x = New Threading.Thread(AddressOf colorChangeTest.startChanging)
      6. x.Start()
      7. End Sub
      9. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
      10. x2 = New Threading.Thread(AddressOf colorChangeTest.stopChanging)
      11. x2.Start()
      12. End Sub
      14. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      15. colorChangeTest = New SmoothColorChangeAlgorithm(Panel1, 0, SmoothColorChangeAlgorithm.switchSpeed.fast)
      16. End Sub
      18. Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
      19. Try
      20. x.Abort()
      21. x2.Abort()
      22. Catch
      23. End Try
      24. End Sub


      Code:

      VB.NET-Quellcode

      1. Public Class SmoothColorChangeAlgorithm
      2. #Region "Color table"
      3. Private colArray() As Color = New Color() {Color.FromArgb(255, 0, 0), _
      4. Color.FromArgb(255, 128, 0), _
      5. Color.FromArgb(255, 255, 0), _
      6. Color.FromArgb(128, 255, 0), _
      7. Color.FromArgb(0, 255, 0), _
      8. Color.FromArgb(0, 255, 128), _
      9. Color.FromArgb(0, 255, 255), _
      10. Color.FromArgb(0, 128, 255), _
      11. Color.FromArgb(0, 0, 255), _
      12. Color.FromArgb(128, 0, 255), _
      13. Color.FromArgb(255, 0, 255), _
      14. Color.FromArgb(255, 0, 128)}
      15. #End Region
      17. #Region "Helper"
      18. Private changeStop As Boolean
      19. Private changeDelay, sleepDelay, changeIndex As Integer
      20. Private target As Control
      21. Private swtSpd As switchSpeed = switchSpeed.fast
      23. Public Enum switchSpeed As Integer
      24. chilling = 50
      25. slow = 20
      26. normal = 10
      27. fast = 5
      28. End Enum
      30. Private Delegate Sub setColorDelegate(ByVal color As Color)
      32. Private Sub setColor(ByVal color As Color)
      33. target.BackColor = color
      34. End Sub
      35. #End Region
      37. #Region "Constructor"
      38. Public Sub New(ByVal target As Control)
      39. Me.target = target
      40. Me.sleepDelay = 2000
      41. Me.swtSpd = switchSpeed.normal
      42. End Sub
      44. Public Sub New(ByVal target As Control, ByVal sleepDelay As Integer)
      45. Me.target = target
      46. Me.sleepDelay = sleepDelay
      47. Me.swtSpd = switchSpeed.normal
      48. End Sub
      50. Public Sub New(ByVal target As Control, ByVal sleepDelay As Integer, ByVal switchSpeed As switchSpeed)
      51. Me.target = target
      52. Me.sleepDelay = sleepDelay
      53. Me.swtSpd = switchSpeed
      54. End Sub
      55. #End Region
      57. #Region "Core"
      58. Public Sub startChanging()
      59. changeStop = False
      60. setColor(colArray(0))
      61. changeIndex = 1
      62. Dim d As setColorDelegate = AddressOf setColor
      63. Do While changeStop = False
      64. Dim changeR, changeG, changeB As Single
      65. If target.BackColor.R < colArray(changeIndex).R Then
      66. changeR = -((colArray(changeIndex).R - target.BackColor.R) / 128)
      67. Else
      68. changeR = (target.BackColor.R - colArray(changeIndex).R) / 128
      69. End If
      70. If target.BackColor.G < colArray(changeIndex).G Then
      71. changeG = -((colArray(changeIndex).G - target.BackColor.G) / 128)
      72. Else
      73. changeG = (target.BackColor.G - colArray(changeIndex).G) / 128
      74. End If
      75. If target.BackColor.B < colArray(changeIndex).B Then
      76. changeB = -((colArray(changeIndex).B - target.BackColor.B) / 128)
      77. Else
      78. changeB = (target.BackColor.B - colArray(changeIndex).B) / 128
      79. End If
      80. For changeIndex As Integer = 1 To 127 Step 1
      81. Dim newR As Double = target.BackColor.R - changeR
      82. If newR > 255 Then
      83. newR += changeR + changeR
      84. End If
      85. Dim newg As Double = target.BackColor.G - changeG
      86. If newg > 255 Then
      87. newg += changeG + changeG
      88. End If
      89. Dim newb As Double = target.BackColor.B - changeB
      90. If newb > 255 Then
      91. newb += changeB + changeB
      92. End If
      93. If changeStop = True Then Exit Do
      94. Dim col As Color = Color.FromArgb(newR, newg, newb)
      95. d.BeginInvoke(col, Nothing, Nothing)
      96. Threading.Thread.Sleep(swtSpd)
      97. Next
      98. d.BeginInvoke(colArray(changeIndex), Nothing, Nothing)
      99. If changeStop = True Then Exit Do
      100. Threading.Thread.Sleep(sleepDelay)
      101. changeIndex += 1
      102. If changeIndex = 12 Then changeIndex = 0
      103. Loop
      104. End Sub
      106. Public Sub stopChanging()
      107. changeStop = True
      108. Dim d As setColorDelegate = AddressOf setColor
      109. Do While target.BackColor <> Color.Red
      110. Dim newR As Double = target.BackColor.R
      111. Dim newG As Double = target.BackColor.G
      112. Dim newB As Double = target.BackColor.B
      113. If newR < 255 Then
      114. newR += 1
      115. End If
      116. If newG > 0 Then
      117. newG -= 1
      118. End If
      119. If newB > 0 Then
      120. newB -= 1
      121. End If
      122. Dim col As Color = Color.FromArgb(newR, newG, newB)
      123. d.BeginInvoke(col, Nothing, Nothing)
      124. Threading.Thread.Sleep(swtSpd)
      125. Loop
      126. End Sub
      127. #End Region
      128. End Class
      Bilder

      • ColorChange.gif

        1,21 MB, 236×319, 150 mal angesehen

    Facebook
    Telefonspende