RGB Lighting

1 '->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->-> 2 '-> Color LEDs - 10 Colors 3 '->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->-> 4 5 Dim red, orange, amber, yellow, darkgreen, green, blue, darkblue, purple, white 6 7 red = 10 8 orange = 9 9 amber = 8 10 yellow = 7 11 darkgreen = 6 12 green = 5 13 blue = 4 14 darkblue = 3 15 purple = 2 16 white = 1 17 18 Sub SetLightColor(n, col, stat) 19 Select Case col 20 Case red 21 n.color = RGB(18, 0, 0) 22 n.colorfull = RGB(255, 0, 0) 23 Case orange 24 n.color = RGB(18, 3, 0) 25 n.colorfull = RGB(255, 64, 0) 26 Case amber 27 n.color = RGB(193, 49, 0) 28 n.colorfull = RGB(255, 153, 0) 29 Case yellow 30 n.color = RGB(18, 18, 0) 31 n.colorfull = RGB(255, 255, 0) 32 Case darkgreen 33 n.color = RGB(0, 8, 0) 34 n.colorfull = RGB(0, 64, 0) 35 Case green 36 n.color = RGB(0, 18, 0) 37 n.colorfull = RGB(0, 255, 0) 38 Case blue 39 n.color = RGB(0, 18, 18) 40 n.colorfull = RGB(0, 255, 255) 41 Case darkblue 42 n.color = RGB(0, 8, 8) 43 n.colorfull = RGB(0, 64, 64) 44 Case purple 45 n.color = RGB(128, 0, 128) 46 n.colorfull = RGB(255, 0, 255) 47 Case white 48 n.color = RGB(255, 252, 224) 49 n.colorfull = RGB(193, 91, 0) 50 Case white 51 n.color = RGB(255, 252, 224) 52 n.colorfull = RGB(193, 91, 0) 53 End Select 54 If stat <> -1 Then 55 n.State = 0 56 n.State = stat 57 End If 58 End Sub