VPX Functions
Lights
RGB Lighting
1min
VisualBasic
'->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->
'-> Color LEDs - 10 Colors
'->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->->
Dim red, orange, amber, yellow, darkgreen, green, blue, darkblue, purple, white
red = 10
orange = 9
amber = 8
yellow = 7
darkgreen = 6
green = 5
blue = 4
darkblue = 3
purple = 2
white = 1
Sub SetLightColor(n, col, stat)
Select Case col
Case red
n.color = RGB(18, 0, 0)
n.colorfull = RGB(255, 0, 0)
Case orange
n.color = RGB(18, 3, 0)
n.colorfull = RGB(255, 64, 0)
Case amber
n.color = RGB(193, 49, 0)
n.colorfull = RGB(255, 153, 0)
Case yellow
n.color = RGB(18, 18, 0)
n.colorfull = RGB(255, 255, 0)
Case darkgreen
n.color = RGB(0, 8, 0)
n.colorfull = RGB(0, 64, 0)
Case green
n.color = RGB(0, 18, 0)
n.colorfull = RGB(0, 255, 0)
Case blue
n.color = RGB(0, 18, 18)
n.colorfull = RGB(0, 255, 255)
Case darkblue
n.color = RGB(0, 8, 8)
n.colorfull = RGB(0, 64, 64)
Case purple
n.color = RGB(128, 0, 128)
n.colorfull = RGB(255, 0, 255)
Case white
n.color = RGB(255, 252, 224)
n.colorfull = RGB(193, 91, 0)
Case white
n.color = RGB(255, 252, 224)
n.colorfull = RGB(193, 91, 0)
End Select
If stat <> -1 Then
n.State = 0
n.State = stat
End If
End Sub
Updated 25 Mar 2024
Did this page help you?