Pasar Color de tipo RGB con la función Hex() de VBScript
Un código muy útil para los programador y diseñadores. Muy fácil su uso, y muy interesante el resultado.
¿Cuantas veces quieren hacer un gráfico que tenga el mismo color que su página web? Con esto convierten
el color RGB a Hex, y asi pueden hacerlo mucho más exacto.
Hay que completar todos los campos
Veamos el código de nuestro ejemplo a continuación. Ver la función Hex() y la comprobación de datos.
<FORM ACTION="vereje.asp?eje=19" METHOD="post">
Color 1: <INPUT SIZE="3" MAXLENGTH="3" NAME="color1"><BR>
Color 2: <INPUT SIZE="3" MAXLENGTH="3" NAME="color2"><BR>
Color 3: <INPUT SIZE="3" MAXLENGTH="3" NAME="color3"><BR><BR>
<INPUT TYPE="Submit" VALUE="Transformar">
</FORM>
<% 'Pedimos los datos al FORM.
color1 = Trim (Request.Form("color1"))
color2 = Trim (Request.Form("color2"))
color3 = Trim (Request.Form("color3")) 'Si alguno está vacío, muestro un mensaje.
If color1 = "" or color2 = "" or color3 = "" then
response.Write "<B>Hay que completar todos los campos</B>"
Else 'Compruebo que todos esten dentro del rango válido.
If color1 <> "" AND color2 <> "" AND color3 <> "" AND color1 <= 255 AND color2 <= 255 AND color3 <= 255 then 'Hago los cambio de RGB a Hex con la funcion de VBScript.
Rcolor1 = hex(color1)
Gcolor2 = hex(color2)
Bcolor3 = hex(color3) 'Si pusieron un dato de un sólo digito, lo completo para siempre mostrar el código de 6 digitos.
If len(Rcolor1) = 1 then Rcolor1 = "0" & Rcolor1
If len(Gcolor2) = 1 then Gcolor2 = "0" & Gcolor2
If len(Bcolor3) = 1 then Bcolor3 = "0" & Bcolor3 'Ahora muestro el dato y el color.
%>
<TABLE BORDER="1" WIDTH="200" BORDERCOLOR="#37A6A3">
<TR><TD>Codigo: </TD><TD ALIGN="center" WIDTH="50%"><%= "#"& Rcolor1 & Gcolor2 & Bcolor3%></TD></TR>
<TR><TD>Color: </TD><TD WIDTH="50%" BGCOLOR="<%= Rcolor1 & Gcolor2 & Bcolor3 %>"></TD></TR>
</TABLE>
<%
Else 'Estos no están en el rango válido.
Response.Write "<B>No son todos datos válidos</B>"
End IF
End if
%>
