Ir para o conteúdo

Criando Um Avatar Dinâmico


Criado por Patrique, Out 10 2010 00:41

Não há respostas para este tópico
  • Por favor, faça o login para responder

#1 Patrique

Patrique
  • Patrique
  • Colaborador
  • 13 Revisões

Revisou 10 outubro 2010 - 00:41

Vou passar aqui para vocês um code de minha autoria, aonde eu crio um avatar dinâmico.

Atualizem o navegador e vejam que a hora vai mudar... além disso coloquei para mudar a cor do texto e fundo e para exibir uma mensagem de acordo com a hora do dia.

Utilizei ASP... AspJpeg e Rewrite.

* O certo na mensagem é aparecer "Faltam" mais eu deixei falta por falta de espaço kkkk

O code é esse

<%
autor: Patrique Abdré (O Gostosão)
Perfil: http://forum.imasters.com.br/index.php?/user/31010-patrique/

Response.CacheControl="no-cache"
Response.AddHeader "Pragma","no-cache"
Response.Expires = 0

On Error resume Next

dias = DateDiff("d", Date(), #24/12/2010#)

Function Saudacao()
    Select Case Hour(now())
        Case 18,19,20,21,22,23,24,0,1,2,3,4,5 Saudacao = "BOA NOITE!" altura = 26 lado   = 18
        Case 6,7,8,9,10,11 Saudacao = "BOM DIA!" altura = 26 lado   = 24
        Case 12,13,14,15,16,17 Saudacao = "BOA TARDE!" altura = 26 lado   = 17
    End Select
End Function

RANDOMIZE
menor = 1
maior = 5
sorteado = Int((maior-menor+1)*Rnd+menor)

Select Case sorteado
   Case 1 CorLetra = &H2283AB
   Case 2 CorLetra = &H72024F
   Case 3 CorLetra = &H004B2A
   Case 4 CorLetra = &H7D2260
   Case 5 CorLetra = &H413770
End Select

Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open(Server.MapPath("base_"& sorteado &".jpg"))

Jpeg.Quality = 100

'LETRA SAUDAÇÃO
Jpeg.Canvas.Font.Color = CorLetra
Jpeg.Canvas.Font.Family = "verdana"
Jpeg.Canvas.Font.Size = 16
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.PrintText lado, altura, Saudacao()

'MENSAGEM FALTA
Jpeg.Canvas.Font.Color = &H000000
Jpeg.Canvas.Font.Family = "verdana"
Jpeg.Canvas.Font.Size = 12
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.PrintText 28, 50, "Falta "& dias &" dias"

'COMEMORAÇÃO
Jpeg.Canvas.Font.Color = &H990000
Jpeg.Canvas.Font.Family = "verdana"
Jpeg.Canvas.Font.Size = 12
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.PrintText 27, 64, "Para o Natal!"

'HORAS
Jpeg.Canvas.Font.Color = &H0000
Jpeg.Canvas.Font.Family = "verdana"
Jpeg.Canvas.Font.Size = 16
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.PrintText 37, 86, right("0" & hour(now),2) & ":" & right("0" & minute(now),2)

Response.ContentType = "image/jpg"

Response.Write jpeg.SendBinary

set Jpeg = Nothing
%>

O code rewrite ficara assim

RewriteRule natal\.jpg$ /imasters/natal.asp





1 usuário(s) está(ão) lendo este código

1 membro(s), 0 visitante(s) e 0 membros anônimo(s)