Sub Main(parms)
'RGB led script
'Versie 1.1
'Enver Tanriverdi
'http://www.hashop.nl

Dim ComP
Dim HSD
Dim LDC
Dim Color
Dim CC

ComP=(Left(parms,2))
HSD =(mid(parms,3,2))
LDC = (mid(parms,5,4))
Color= (mid(parms,9))

Select case Color
	case "red"
		CC= "FF0000"
	case "green"
		CC = "00FF00"
	case "blue"
		CC = "0000FF"
	case "off"
		CC = "000000"	
	case "white"
		CC = "FFFFFF"
	case "turquoise"
		CC = "40E0D0"
	case "yellow"
		CC = "FF7F00"
	case "magenta"
		CC = "E000FF"		
	case "orange"
		CC = "FF1F00"		
	case "ltred"
		CC = "FF1F0F"
	case "salmon"
		CC = "FF1F01"
	case "ltorange"
		CC = "FF3001"
	case "gold"
		CC = "FF3000"
	case "ltyello"
		CC = "FFB400"
	case "khaki"
		CC = "E06001"
	case "ltgreen"
		CC = "4FFF01"
	case "greenyellow"
		CC = "C0FF01"
	case "ltcyan"
		CC = "1FFFFF"
	case "aquamarine"
		CC = "1FFF60"
	case "cyan"
		CC = "00FFC8"
	case "ltblue"
		CC = "2F7FFF"
	case "ltmagenta"
		CC = "FF1FFF"
	case "violet"
		CC = "7F10FF"
	case "skyblue"
		CC = "0F3FFF"
	case else
		hs.writelog "RGB", "parameter not matched"
End Select

RGB1 = "&H"+(Left(cc,2))
RGB2 = "&H"+(mid(cc,3,2))
RGB3 = "&H"+(mid(cc,5,2))

if CC <> "" then
	hs.SendToComport ComP, chr(&H01) & chr(LDC) & chr(&H00) & chr(&H03) & chr(RGB1) & chr(RGB2) & chr(RGB3)
	hs.SetDeviceString HSD, Color
	'hs.writelog "RGB Com", Comport
	'hs.writelog "RGB Led", LDC
	'hs.writelog "RGB Device", HSD
	hs.writelog "RGB " +HSD, Color	
else
	hs.writelog "RGB " +HSD, "No color to send"
end if

End Sub