[Quellcode] BinärUhr

[Quellcode] BinärUhr

Dies ist nur der Quellcode für den Timer, um die Lichter blinken zu lassen o.0

Private Sub Light_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Light.Tick
Dim Hour As Integer = DateTime.Now.Hour
Dim Minute As Integer = DateTime.Now.Minute
Dim Sekunde As Integer = DateTime.Now.Second
Normal()
Select Case Hour
Case 0 : H8.BackColor = Color.Lime : H16.BackColor = Color.Lime
Case 1 : H1.BackColor = Color.Lime
Case 2 : H2.BackColor = Color.Lime
Case 3 : H1.BackColor = Color.Lime : H2.BackColor = Color.Lime
Case 4 : H4.BackColor = Color.Lime
Case 5 : H1.BackColor = Color.Lime : H4.BackColor = Color.Lime
Case 6 : H2.BackColor = Color.Lime : H4.BackColor = Color.Lime
Case 7 : H1.BackColor = Color.Lime : H2.BackColor = Color.Lime : H4.BackColor = Color.Lime
Case 8 : H8.BackColor = Color.Lime
Case 9 : H1.BackColor = Color.Lime : H8.BackColor = Color.Lime
Case 10 : H2.BackColor = Color.Lime : H8.BackColor = Color.Lime
Case 11 : H1.BackColor = Color.Lime : H2.BackColor = Color.Lime : H8.BackColor = Color.Lime
Case 12 : H4.BackColor = Color.Lime : H8.BackColor = Color.Lime
Case 13 : H1.BackColor = Color.Lime : H4.BackColor = Color.Lime : H8.BackColor = Color.Lime
Case 14 : H2.BackColor = Color.Lime : H4.BackColor = Color.Lime : H8.BackColor = Color.Lime
Case 15 : H1.BackColor = Color.Lime : H2.BackColor = Color.Lime : H4.BackColor = Color.Lime : H8.BackColor = Color.Lime
Case 16 : H16.BackColor = Color.Lime
Case 17 : H1.BackColor = Color.Lime : H16.BackColor = Color.Lime
Case 18 : H2.BackColor = Color.Lime : H16.BackColor = Color.Lime
Case 19 : H1.BackColor = Color.Lime : H2.BackColor = Color.Lime : H16.BackColor = Color.Lime
Case 20 : H4.BackColor = Color.Lime : H16.BackColor = Color.Lime
Case 21 : H1.BackColor = Color.Lime : H4.BackColor = Color.Lime : H16.BackColor = Color.Lime
Case 22 : H2.BackColor = Color.Lime : H4.BackColor = Color.Lime : H16.BackColor = Color.Lime
Case 23 : H1.BackColor = Color.Lime : H2.BackColor = Color.Lime : H4.BackColor = Color.Lime : H16.BackColor = Color.Lime
Case 24 : H8.BackColor = Color.Lime : H16.BackColor = Color.Lime
End Select
Select Case Minute
Case 1 : M1.BackColor = Color.Blue
Case 2 : M2.BackColor = Color.Blue
Case 3 : M1.BackColor = Color.Blue : M2.BackColor = Color.Blue
Case 4 : M4.BackColor = Color.Blue
Case 5 : M1.BackColor = Color.Blue : M4.BackColor = Color.Blue
Case 6 : M2.BackColor = Color.Blue : M4.BackColor = Color.Blue
Case 7 : M1.BackColor = Color.Blue : M2.BackColor = Color.Blue : M4.BackColor = Color.Blue
Case 8 : M8.BackColor = Color.Blue
Case 9 : M1.BackColor = Color.Blue : M8.BackColor = Color.Blue
Case 10 : M2.BackColor = Color.Blue : M8.BackColor = Color.Blue
Case 11 : M1.BackColor = Color.Blue : M2.BackColor = Color.Blue : M8.BackColor = Color.Blue
Case 12 : M4.BackColor = Color.Blue : M8.BackColor = Color.Blue
Case 13 : M1.BackColor = Color.Blue : M4.BackColor = Color.Blue : M8.BackColor = Color.Blue
Case 14 : M2.BackColor = Color.Blue : M4.BackColor = Color.Blue : M8.BackColor = Color.Blue
Case 15 : M1.BackColor = Color.Blue : M2.BackColor = Color.Blue : M4.BackColor = Color.Blue : M8.BackColor = Color.Blue
Case 16 : M16.BackColor = Color.Blue
Case 17 : M1.BackColor = Color.Blue : M16.BackColor = Color.Blue
Case 18 : M2.BackColor = Color.Blue : M16.BackColor = Color.Blue
Case 19 : M1.BackColor = Color.Blue : M2.BackColor = Color.Blue : M16.BackColor = Color.Blue
Case 20 : M4.BackColor = Color.Blue : M16.BackColor = Color.Blue
Case 21 : M1.BackColor = Color.Blue : M4.BackColor = Color.Blue : M16.BackColor = Color.Blue
Case 22 : M2.BackColor = Color.Blue : M4.BackColor = Color.Blue : M16.BackColor = Color.Blue
Case 23 : M1.BackColor = Color.Blue : M2.BackColor = Color.Blue : M4.BackColor = Color.Blue : M16.BackColor = Color.Blue
Case 24 : M8.BackColor = Color.Blue : M16.BackColor = Color.Blue
Case 25 : M1.BackColor = Color.Blue : M8.BackColor = Color.Blue : M16.BackColor = Color.Blue
Case 26 : M2.BackColor = Color.Blue : M8.BackColor = Color.Blue : M16.BackColor = Color.Blue
Case 27 : M1.BackColor = Color.Blue : M2.BackColor = Color.Blue : M8.BackColor = Color.Blue : M16.BackColor = Color.Blue
Case 28 : M4.BackColor = Color.Blue : M8.BackColor = Color.Blue : M16.BackColor = Color.Blue
Case 29 : M1.BackColor = Color.Blue : M4.BackColor = Color.Blue : M8.BackColor = Color.Blue : M16.BackColor = Color.Blue
Case 30 : M2.BackColor = Color.Blue : M4.BackColor = Color.Blue : M8.BackColor = Color.Blue : M16.BackColor = Color.Blue
Case 31 : M1.BackColor = Color.Blue : M2.BackColor = Color.Blue : M4.BackColor = Color.Blue : M8.BackColor = Color.Blue : M16.BackColor = Color.Blue
Case 32 : M32.BackColor = Color.Blue
Case 33 : M1.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 34 : M2.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 35 : M1.BackColor = Color.Blue : M2.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 36 : M4.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 37 : M1.BackColor = Color.Blue : M4.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 38 : M2.BackColor = Color.Blue : M4.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 39 : M1.BackColor = Color.Blue : M2.BackColor = Color.Blue : M4.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 40 : M8.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 41 : M1.BackColor = Color.Blue : M8.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 42 : M2.BackColor = Color.Blue : M8.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 43 : M1.BackColor = Color.Blue : M2.BackColor = Color.Blue : M8.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 44 : M4.BackColor = Color.Blue : M8.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 45 : M1.BackColor = Color.Blue : M4.BackColor = Color.Blue : M8.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 46 : M2.BackColor = Color.Blue : M4.BackColor = Color.Blue : M8.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 47 : M1.BackColor = Color.Blue : M2.BackColor = Color.Blue : M4.BackColor = Color.Blue : M8.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 48 : M16.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 49 : M1.BackColor = Color.Blue : M16.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 50 : M2.BackColor = Color.Blue : M16.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 51 : M1.BackColor = Color.Blue : M2.BackColor = Color.Blue : M16.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 52 : M4.BackColor = Color.Blue : M16.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 53 : M1.BackColor = Color.Blue : M4.BackColor = Color.Blue : M16.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 54 : M2.BackColor = Color.Blue : M4.BackColor = Color.Blue : M16.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 55 : M1.BackColor = Color.Blue : M2.BackColor = Color.Blue : M4.BackColor = Color.Blue : M16.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 56 : M8.BackColor = Color.Blue : M16.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 57 : M1.BackColor = Color.Blue : M8.BackColor = Color.Blue : M16.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 58 : M2.BackColor = Color.Blue : M8.BackColor = Color.Blue : M16.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 59 : M1.BackColor = Color.Blue : M2.BackColor = Color.Blue : M8.BackColor = Color.Blue : M16.BackColor = Color.Blue : M32.BackColor = Color.Blue
Case 60 : M4.BackColor = Color.Blue : M8.BackColor = Color.Blue : M16.BackColor = Color.Blue : M32.BackColor = Color.Blue
End Select
Select Case Sekunde
Case 1 : S1.BackColor = Color.Cyan
Case 2 : S2.BackColor = Color.Cyan
Case 3 : S1.BackColor = Color.Cyan : S2.BackColor = Color.Cyan
Case 4 : S4.BackColor = Color.Cyan
Case 5 : S1.BackColor = Color.Cyan : S4.BackColor = Color.Cyan
Case 6 : S2.BackColor = Color.Cyan : S4.BackColor = Color.Cyan
Case 7 : S1.BackColor = Color.Cyan : S2.BackColor = Color.Cyan : S4.BackColor = Color.Cyan
Case 8 : S8.BackColor = Color.Cyan
Case 9 : S1.BackColor = Color.Cyan : S8.BackColor = Color.Cyan
Case 10 : S2.BackColor = Color.Cyan : S8.BackColor = Color.Cyan
Case 11 : S1.BackColor = Color.Cyan : S2.BackColor = Color.Cyan : S8.BackColor = Color.Cyan
Case 12 : S4.BackColor = Color.Cyan : S8.BackColor = Color.Cyan
Case 13 : S1.BackColor = Color.Cyan : S4.BackColor = Color.Cyan : S8.BackColor = Color.Cyan
Case 14 : S2.BackColor = Color.Cyan : S4.BackColor = Color.Cyan : S8.BackColor = Color.Cyan
Case 15 : S1.BackColor = Color.Cyan : S2.BackColor = Color.Cyan : S4.BackColor = Color.Cyan : S8.BackColor = Color.Cyan
Case 16 : S16.BackColor = Color.Cyan
Case 17 : S1.BackColor = Color.Cyan : S16.BackColor = Color.Cyan
Case 18 : S2.BackColor = Color.Cyan : S16.BackColor = Color.Cyan
Case 19 : S1.BackColor = Color.Cyan : S2.BackColor = Color.Cyan : S16.BackColor = Color.Cyan
Case 20 : S4.BackColor = Color.Cyan : S16.BackColor = Color.Cyan
Case 21 : S1.BackColor = Color.Cyan : S4.BackColor = Color.Cyan : S16.BackColor = Color.Cyan
Case 22 : S2.BackColor = Color.Cyan : S4.BackColor = Color.Cyan : S16.BackColor = Color.Cyan
Case 23 : S1.BackColor = Color.Cyan : S2.BackColor = Color.Cyan : S4.BackColor = Color.Cyan : S16.BackColor = Color.Cyan
Case 24 : S8.BackColor = Color.Cyan : S16.BackColor = Color.Cyan
Case 25 : S1.BackColor = Color.Cyan : S8.BackColor = Color.Cyan : S16.BackColor = Color.Cyan
Case 26 : S2.BackColor = Color.Cyan : S8.BackColor = Color.Cyan : S16.BackColor = Color.Cyan
Case 27 : S1.BackColor = Color.Cyan : S2.BackColor = Color.Cyan : S8.BackColor = Color.Cyan : S16.BackColor = Color.Cyan
Case 28 : S4.BackColor = Color.Cyan : S8.BackColor = Color.Cyan : S16.BackColor = Color.Cyan
Case 29 : S1.BackColor = Color.Cyan : S4.BackColor = Color.Cyan : S8.BackColor = Color.Cyan : S16.BackColor = Color.Cyan
Case 30 : S2.BackColor = Color.Cyan : S4.BackColor = Color.Cyan : S8.BackColor = Color.Cyan : S16.BackColor = Color.Cyan
Case 31 : S1.BackColor = Color.Cyan : S2.BackColor = Color.Cyan : S4.BackColor = Color.Cyan : S8.BackColor = Color.Cyan : S16.BackColor = Color.Cyan
Case 32 : S32.BackColor = Color.Cyan
Case 33 : S1.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 34 : S2.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 35 : S1.BackColor = Color.Cyan : S2.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 36 : S4.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 37 : S1.BackColor = Color.Cyan : S4.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 38 : S2.BackColor = Color.Cyan : S4.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 39 : S1.BackColor = Color.Cyan : S2.BackColor = Color.Cyan : S4.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 40 : S8.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 41 : S1.BackColor = Color.Cyan : S8.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 42 : S2.BackColor = Color.Cyan : S8.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 43 : S1.BackColor = Color.Cyan : S2.BackColor = Color.Cyan : S8.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 44 : S4.BackColor = Color.Cyan : S8.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 45 : S1.BackColor = Color.Cyan : S4.BackColor = Color.Cyan : S8.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 46 : S2.BackColor = Color.Cyan : S4.BackColor = Color.Cyan : S8.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 47 : S1.BackColor = Color.Cyan : S2.BackColor = Color.Cyan : S4.BackColor = Color.Cyan : S8.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 48 : S16.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 49 : S1.BackColor = Color.Cyan : S16.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 50 : S2.BackColor = Color.Cyan : S16.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 51 : S1.BackColor = Color.Cyan : S2.BackColor = Color.Cyan : S16.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 52 : S4.BackColor = Color.Cyan : S16.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 53 : S1.BackColor = Color.Cyan : S4.BackColor = Color.Cyan : S16.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 54 : S2.BackColor = Color.Cyan : S4.BackColor = Color.Cyan : S16.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 55 : S1.BackColor = Color.Cyan : S2.BackColor = Color.Cyan : S4.BackColor = Color.Cyan : S16.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 56 : S8.BackColor = Color.Cyan : S16.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 57 : S1.BackColor = Color.Cyan : S8.BackColor = Color.Cyan : S16.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 58 : S2.BackColor = Color.Cyan : S8.BackColor = Color.Cyan : S16.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 59 : S1.BackColor = Color.Cyan : S2.BackColor = Color.Cyan : S8.BackColor = Color.Cyan : S16.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
Case 60 : S4.BackColor = Color.Cyan : S8.BackColor = Color.Cyan : S16.BackColor = Color.Cyan : S32.BackColor = Color.Cyan
End Select
End Sub


xDDDDDDDDDDDD