quarta-feira, 17 de outubro de 2001

Fade de Texto em ASP

Hahahaha, dpois q tudo q me falam que dá pra fazer isto com CSS, bom agora q já ta feito ...
Hehehehe, espero q sirva para alguem.


Nivel  - Intermediário


<%


' Uma produção dos estudios Half Malf


' Obrigado aos amigos "Underground",
' "Voodoo", "Th3V1rus","ED+","Hand Full", "Xanddinho"
' q constantemente tiram as minhas dúvidas.


' str Variavel a ser "FADEADA"


' R1 A quantidade de vermelho inicial ( 0 - 255 )
' G1 A quantidade de verde inicial    ( 0 - 255 )
' B1 A quantidade de Azul inicial     ( 0 - 255 )


' R2 A quantidade de vermelho final ( 0 - 255 )
' G2 A quantidade de verde final    ( 0 - 255 )
' B2 A quantidade de Azul final     ( 0 - 255 )


function fadeText(str, R1, G1, B1, R2,G2, B2)
   
 Dim htmlTxtxt, X
 
    if str = "" Then Exit function
 
    R2 = ((R2 - R1) / Len(str))
    G2 = ((G2 - G1) / Len(str))
    B2 = ((B2 - B1) / Len(str))
   
 For X = 0 To Len(str) - 1
     R = Abs(Int(R1 + (R2 * X)))
     G = Abs(Int(G1 + (G2 * X)))
     B = Abs(Int(B1 + (B2 * X)))
     
  htmlTxt = htmlTxt & "<FONT color="
     htmlTxt = htmlTxt & Chr(34) & "#"
     
  if R < 17 Then htmlTxt = htmlTxt & "0"
      htmlTxt = htmlTxt & Hex(R)
     if G < 17 Then htmlTxt = htmlTxt & "0"
      htmlTxt = htmlTxt & Hex(G)
     if B < 17 Then htmlTxt = htmlTxt & "0"
      htmlTxt = htmlTxt & Hex(B)
      htmlTxt = htmlTxt & Chr(34)
      htmlTxt = htmlTxt & ">"
      htmlTxt = htmlTxt & Mid(str, X + 1, 1)
      htmlTxt = htmlTxt & "</FONT>"
    Next
 
    fadeText = htmlTxt
 
    End function
%>
 


<%= fadeText("ASP4Developers ASP4Developers ASP4Developers", 0,0,0,255,255,255) %>


 



Esta matéria foi postada originalmente no ASP4Developers por Ismael Nobre (site), que na época era "Analista.
Quer me contratar ?
Cel. 96420687". Hoje, vai saber...

3 comentários:

the handful of nothing disse...

[Enviado originalmente em 21/mai/2002 11:46:53]:

handful é com 1 'L'
e se alguem usar isso eu juro que mato = )

Usar server pra gerar 'efeitos' no cliente é algo tosco

the handful of nothing disse...

[Enviado originalmente em 21/mai/2002 11:47:54]:

Putz...

Alguem viu isso? podia melhorar esse sistema de comments ein?

: /

the handful of nothing disse...

[Enviado originalmente em 21/mai/2002 11:48:38]:

ai.. existe um espaço entre a barra e o br
<br />>