Retour à Art digitale et designage

la façon de déterminer le contraire de l'hexagone de valeurs de couleur?

  • blink182av
  • Guru
  • Guru
  • No Avatar
  • Inscription: Juin 27, 2005
  • Messages: 1261
  • Loc: New York
  • Status: Offline

Message Octobre 30th, 2005, 5:25 pm

-decimal? Lol?
  • Anonymous
  • Bot
  • No Avatar
  • Inscription: 25 Feb 2008
  • Messages: ?
  • Loc: Ozzuland
  • Status: Online

Message Octobre 30th, 2005, 5:25 pm

  • reaper
  • Proficient
  • Proficient
  • Avatar de l’utilisateur
  • Inscription: Avr 05, 2005
  • Messages: 435
  • Loc: europe
  • Status: Offline

Message Novembre 10th, 2005, 8:54 am

Ok les gars je pensais que je n'en avait pas besoin, après tout, mais il montre i toujours besoin de savoir comment cela se fait mais je ne peux pas comprendre * t & s de cette situation.

Isnt il une seule pièce de logiciel qui peut cracher à la face de la valeur pour moi, quand j'entre dans une certaine valeur?
  • xamix
  • Graduate
  • Graduate
  • No Avatar
  • Inscription: Nov 07, 2005
  • Messages: 154
  • Status: Offline

Message Novembre 10th, 2005, 6:53 pm

http://www.artofwebdesign.co.uk/index.php?pg=rgbtohsl
http://www.artofwebdesign.co.uk/index.php?pg=hsltorgb
http://www.artofwebdesign.co.uk/colourcalculator.php


http://www.geocities.com/seedytheteck/c ... osite.html
  • reaper
  • Proficient
  • Proficient
  • Avatar de l’utilisateur
  • Inscription: Avr 05, 2005
  • Messages: 435
  • Loc: europe
  • Status: Offline

Message Novembre 11th, 2005, 7:45 am

MERCI! Xamix qui semble très utile.
  • uberblue
  • Born
  • Born
  • No Avatar
  • Inscription: Déc 06, 2006
  • Messages: 1
  • Status: Offline

Message Décembre 6th, 2006, 8:20 pm

Je m'ennuyais / curieux si j'ai converti l'exemple ci-dessus pour PHP ASP classique. J'espère que cela va aider quelqu'un. Le code n'est pas le plus propre parce que j'ai utilisé un traducteur
( http://www.me-u.com/php-asp/ ) Et le nettoyer ça. Il était bien un peu de travail en fait, le traducteur était plutôt inutile.

Code: [ Select ]
<%

Function HexToDec(strHex)
 dim lngResult
 dim intIndex
 dim strDigit
 dim intDigit
 dim intValue

 lngResult = 0
 for intIndex = len(strHex) to 1 step -1
  strDigit = mid(strHex, intIndex, 1)
  intDigit = instr("0123456789ABCDEF", ucase(strDigit))-1
  if intDigit >= 0 then
   intValue = intDigit * (16 ^ (len(strHex)-intIndex))
   lngResult = lngResult + intValue
  else
   lngResult = 0
   intIndex = 0 ' stop the loop
  end if
 next

 HexToDec = lngResult
End Function


Dim start_colour

Function invert_colour(lv_start_colour)
    Dim lv_colour_red, lv_colour_green, lv_colour_blue, lv_new_red, lv_new_green, lv_new_blue, lv_new_colour
    lv_colour_red = HexToDec(Mid(lv_start_colour,1,2))
    lv_colour_green = HexToDec(Mid(lv_start_colour, 3, 2))
    lv_colour_blue = HexToDec(Mid(lv_start_colour, 5, 2))
    lv_new_red = Hex(255 - lv_colour_red)
    lv_new_green = Hex(255  - lv_colour_green)
    lv_new_blue = Hex(255 - lv_colour_blue)
    
    If Len(lv_new_red)=1 then
        lv_new_red = lv_new_red & "0"
    End If
    If Len(lv_new_green) = 1 then
        lv_new_green = lv_new_green & "0"
    End If
    If Len ( lv_new_blue ) = 1 then
        lv_new_blue = lv_new_blue '0'
    End If

    new_colour  = "#" & lv_new_red & lv_new_green & lv_new_blue
    invert_colour = new_colour
End Function


    start_colour  = "#ffa040"
    Response.Write "<table border=""0"" cellpadding=""1"" cellspacing=""2"" width=""200"">"
    Response.Write "<tr><td align=""center"" bgcolor=""" & start_colour & """><b><font color=""" & invert_colour(start_colour) & """>" & start_colour & "</font></b></td></tr>" & vbcrlf & vbcrlf
    Response.Write "<tr><td align=""center"" bgcolor=""" & invert_colour(start_colour) & """><b><font color=""" & start_colour & """>" & invert_colour(start_colour) & "</font></b></td></tr>" & vbcrlf & vbcrlf
    start_colour  = "#eeff99"
    Response.Write "<tr><td align=""center"" bgcolor=""" & start_colour & """><b><font color=""" & invert_colour(start_colour) & """>" & start_colour & "</font></b></td></tr>"& vbcrlf & vbcrlf
    Response.Write "<tr><td align=""center"" bgcolor=""" & invert_colour(start_colour) & """><b><font color=""" & start_colour & """>" & invert_colour(start_colour) & "</font></b></td></tr>" & vbcrlf & vbcrlf
    start_colour  = "#ff00ff"
    Response.Write "<tr><td align=""center"" bgcolor=""" & start_colour & """><b><font color=""" & invert_colour(start_colour) & """>" & start_colour & "</font></b></td></tr>" & vbcrlf & vbcrlf
    Response.Write "<tr><td align=""center"" bgcolor=""" & invert_colour(start_colour) & """><b><font color=""" & start_colour & """>" & invert_colour(start_colour) & "</font></b></td></tr>" & vbcrlf & vbcrlf
    Response.Write "</table>"
    
%>
  1. <%
  3. Function HexToDec(strHex)
  4.  dim lngResult
  5.  dim intIndex
  6.  dim strDigit
  7.  dim intDigit
  8.  dim intValue
  10.  lngResult = 0
  11.  for intIndex = len(strHex) to 1 step -1
  12.   strDigit = mid(strHex, intIndex, 1)
  13.   intDigit = instr("0123456789ABCDEF", ucase(strDigit))-1
  14.   if intDigit >= 0 then
  15.    intValue = intDigit * (16 ^ (len(strHex)-intIndex))
  16.    lngResult = lngResult + intValue
  17.   else
  18.    lngResult = 0
  19.    intIndex = 0 ' stop the loop
  20.   end if
  21.  next
  23.  HexToDec = lngResult
  24. End Function
  27. Dim start_colour
  29. Function invert_colour(lv_start_colour)
  30.     Dim lv_colour_red, lv_colour_green, lv_colour_blue, lv_new_red, lv_new_green, lv_new_blue, lv_new_colour
  31.     lv_colour_red = HexToDec(Mid(lv_start_colour,1,2))
  32.     lv_colour_green = HexToDec(Mid(lv_start_colour, 3, 2))
  33.     lv_colour_blue = HexToDec(Mid(lv_start_colour, 5, 2))
  34.     lv_new_red = Hex(255 - lv_colour_red)
  35.     lv_new_green = Hex(255  - lv_colour_green)
  36.     lv_new_blue = Hex(255 - lv_colour_blue)
  37.     
  38.     If Len(lv_new_red)=1 then
  39.         lv_new_red = lv_new_red & "0"
  40.     End If
  41.     If Len(lv_new_green) = 1 then
  42.         lv_new_green = lv_new_green & "0"
  43.     End If
  44.     If Len ( lv_new_blue ) = 1 then
  45.         lv_new_blue = lv_new_blue '0'
  46.     End If
  48.     new_colour  = "#" & lv_new_red & lv_new_green & lv_new_blue
  49.     invert_colour = new_colour
  50. End Function
  53.     start_colour  = "#ffa040"
  54.     Response.Write "<table border=""0"" cellpadding=""1"" cellspacing=""2"" width=""200"">"
  55.     Response.Write "<tr><td align=""center"" bgcolor=""" & start_colour & """><b><font color=""" & invert_colour(start_colour) & """>" & start_colour & "</font></b></td></tr>" & vbcrlf & vbcrlf
  56.     Response.Write "<tr><td align=""center"" bgcolor=""" & invert_colour(start_colour) & """><b><font color=""" & start_colour & """>" & invert_colour(start_colour) & "</font></b></td></tr>" & vbcrlf & vbcrlf
  57.     start_colour  = "#eeff99"
  58.     Response.Write "<tr><td align=""center"" bgcolor=""" & start_colour & """><b><font color=""" & invert_colour(start_colour) & """>" & start_colour & "</font></b></td></tr>"& vbcrlf & vbcrlf
  59.     Response.Write "<tr><td align=""center"" bgcolor=""" & invert_colour(start_colour) & """><b><font color=""" & start_colour & """>" & invert_colour(start_colour) & "</font></b></td></tr>" & vbcrlf & vbcrlf
  60.     start_colour  = "#ff00ff"
  61.     Response.Write "<tr><td align=""center"" bgcolor=""" & start_colour & """><b><font color=""" & invert_colour(start_colour) & """>" & start_colour & "</font></b></td></tr>" & vbcrlf & vbcrlf
  62.     Response.Write "<tr><td align=""center"" bgcolor=""" & invert_colour(start_colour) & """><b><font color=""" & start_colour & """>" & invert_colour(start_colour) & "</font></b></td></tr>" & vbcrlf & vbcrlf
  63.     Response.Write "</table>"
  64.     
  65. %>
  • CXLink
  • Expert
  • Expert
  • Avatar de l’utilisateur
  • Inscription: Nov 22, 2004
  • Messages: 684
  • Loc: ATL-GA
  • Status: Offline

Message Décembre 7th, 2006, 5:36 am

blink182av a écrit:
2,0 +2,0 = 4,0 :)


Good Job blink je suis d'accord avec vous. Axe m'ont jeté dans le cadre du taxi avant il a affiché le php.
Ma définition de la simple php est un peut-être deux lignes qui ne sont pas une ou deux pages. lol
Ma tête fait mal, je vais aller faire une sieste.

1, 2

Afficher de l'information

  • Total des messages de ce sujet: 21 messages
  • Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 30 invités
  • Vous ne pouvez pas poster de nouveaux sujets
  • Vous ne pouvez pas répondre aux sujets
  • Vous ne pouvez pas éditer vos messages
  • Vous ne pouvez pas supprimer vos messages
  • Vous ne pouvez pas joindre des fichiers
 
 

© 2011 Unmelted, LLC. Ozzu® est une marque déposée de Unmelted, LLC