颜色值进制转换
专业的和非专业程序员在编程时都碰到过颜色值的表达式。特别是在编制网页和设计界面时，都要选择颜色。各语言的颜色值表达式就两种，十六进制的颜色值hex$和十进制的RGB格式。现成的调色板颜色表也是这两种格式。写代码时会遇到写颜色值码，就会用到这两种颜色值的转换。基础的方法是十进制转十六进制，反过来十六进制转十进制二种方法。颜色值是分3段来转换的，若是aRGB格式分4段。
每段只需要 0-255 <转换> 00 － ff。
颜色值表达格式：
hex = 0xff7dff       RGB=(255,125,255)
hex = # ff7dff        RGB=(255,125,255)
aHex = 0xff7d7dff    aRGB=(255,125,125,255)

今写了二个进制转换函数：
十进制转十六进制 dec2hex ()
十六进制转十进制 hex2dec ()

以及二个颜色值转换函数：
十六进制颜色值转RGB(r, g, b) ：hex2RGB ()
RGB颜色值转为十六进制颜色值：RGB2hex ()

 

 

 

hex2RGB (){  //十六进制颜色值转RGB(r, g, b)
 //输入十六进制颜色值转换为十进制RGB格式颜色值
 //例： color$="0xffe992" ;  格式输入颜色值字串

        print "颜色值字串 = ",color$ ;
    get$=subString (color$, 2, 2);
       hex2dec () ;
       R=dec ;
    get$=subString (color$, 4, 2);
       hex2dec () ;
       G=dec ;
    get$=subString (color$, 6, 2);
       hex2dec () ;
       B=dec ;
    print "RGB = ", "( ",R," , ",G," , ",B," )" ;    //输出
       print "  " ;
}//hex2RGB ()

test (){    //测试十六进制颜色值转换
//十六进制颜色值转为RGB
    clearOutput ();
    color$="0xffe992" ;    //格式输入颜色值字串
        hex2RGB () ;
    color$="0x007d7d" ;    //格式输入颜色值字串
        hex2RGB () ;

    color$="0x00abff" ;    //格式输入颜色值字串
        hex2RGB () ;
 //反转 > 
       print "反转   > " ;
       RGB2hex ();
    color$="0x807aff" ;    //格式输入颜色值字串
        hex2RGB () ;
 //反转 > 
        print "反转   > " ;
        RGB2hex ();
}//test ()

RGB2hex (){
//RGB颜色值转为十六进制颜色值
 string ss, ss1, ss2, ss3 ; 
    //传入 R=255 ;  G=128 ; B=128 ; 
   //**** dec To hex  and show hex
    dec=R ;  dec2hex() ;  ss1=hex ;
    dec=G ;  dec2hex() ;  ss2=hex ;
    dec=B ;  dec2hex() ;  ss3=hex ;  
         ss="0x"+ss1+ss2+ss3 ;
    print "RGB = ", "( ",R," , ",G," , ",B ," )" ;
    print "十六进制颜色值 = ", ss ;
    print "  ";
}//RGB2hex ()

test16 (){    //测试RGB转换十六进制颜色值
    clearOutput ();
     R=255 ;  G=128 ; B=128 ;
     RGB2hex ();

     R=55 ;  G=98 ; B=255 ;
     RGB2hex ();
     R=155 ;  G=255 ; B=25 ;
     RGB2hex ();
     R=255 ;  G=233 ; B=146 ;
     RGB2hex ();

}//test16 ()

  

//二个函数：
//十进制转十六进制 dec2hex ()
//十六进制转十进制 hex2dec ()

dec2hex (){    
//十进制非负整数int dec 转为十六进制值 hex $
 string hx$ ;
  hx$="0123456789ABCDEF" ;
        hex="";     //init 输出串

 DecToHex :
  //** do calculate until dec=0, return hex
      k=dec-dec/16*16 ;  //k=dec Mod 16, k=dec % 16
      dec=dec/16 ;            //整除，dec\16
      hex=subString (hx$, k,1)+hex ;  
           if (dec>0) goto DecToHex ;
      //return string hex 
}//dec2hex ()

hex2dec (){  
//传入十六进制数转换为十进制数
//传入 string  get$ 输出 int dec 
        nlen=len (get$);      //字串长度
        dec=0 ;                 //init 置初值 0
 //开始计算 >
      for (i=0; i<nlen; i++){
             a$=subString (get$, i, 1);
 //字符串转为数值的方法很多，我采用最简单直观的写法，字母大小写都可以。
        if (a$=="0") k=0 ;
        if (a$=="1") k=1 ;
        if (a$=="2") k=2 ;
        if (a$=="3") k=3 ;
        if (a$=="4") k=4 ;
        if (a$=="5") k=5 ;
        if (a$=="6") k=6 ;
        if (a$=="7") k=7 ;
        if (a$=="8") k=8 ;
        if (a$=="9") k=9 ;
        if (a$=="A"||a$=="a") k=10 ;
        if (a$=="B"||a$=="b") k=11 ;
        if (a$=="C"||a$=="c") k=12 ;
        if (a$=="D"||a$=="d") k=13 ;
        if (a$=="E"||a$=="e") k=14 ;
        if (a$=="F"||a$=="f") k=15 ;
         kn=nlen-i-1 ;     //高权位起降幂计算
         dec=dec+(int)(k*pow(16,kn)) ;   //乘方累加
              }       // return dec
 }//hex2dec ()

//**** End ****