CB Repository

Global HEXR, HEXG, HEXB

Repeat
    //Draw background
	HEXColor($ff00ff) //Define a Color For the Circle below (do it here in order To show that the second HEXColor call does Not affect the Circle's Color)
	
    HEXColor(hexa$, True)	//The optional parameter (True) makes HEXColor() to only return the RGB components And Not To call Color command
    ClsColor HEXR,HEXG,HEXB //The RGB components are returned in these Global variables.
    
	Circle ScreenWidth()-50,ScreenHeight()-50,50

    //Draw foreground
	Color 255-HEXR,255-HEXG,255-HEXB //Foreground Color is inverted from background Color
	hexa = Input("Hex Color: ")
	Text 0,15, "Input six characters [0-F] To define a Hex Color."
	Text 0,30, "Current Color in RGB: "+HEXR+", "+HEXG+", "+HEXB
	
	DrawScreen
Forever





Function HEX2DEC(hexa$)
	value = 0
	For i = 1 To Len(hexa)
		dec = InStr("0123456789ABCDEF", Upper(Mid(hexa,i,1)))-1
		If dec >= 0 Then value = value * 16 + dec
		//If dec = -1 Then $hexa is Not a valid Hex chacter And is simply omitted
	Next i
	Return value
EndFunction

Function HEXColor(hexa$, return_only=0)
	If IsNumeric(hexa) Then
		dec = hexa
	Else
		dec = HEX2DEC(hexa)
	EndIf
	HEXR = dec / 256^2
	HEXG = RoundDown(dec / 256) Mod 256
	HEXB = dec Mod 256
	If Not return_only Then Color HEXR,HEXG,HEXB
EndFunction

Function IsNumeric(value$)
    If CountWords(value,".") > 2 Then Return False //Values like 12.34.56 should not be considered as numeric
    If Right(value,1) = "." Then Return False //A number cannot end with a dot. For example 34. is incorrect number. Numbers starting with a dot are allowed.
    
	For i = 1 To Len(value)
		ascii = Asc(Mid(value,i,1))
		If (ascii < 48 Or ascii > 57) And ascii <> 46 Then Return False //46: a Dot, 48-57: numbers 0-9
	Next i
	Return True
EndFunction