AAA pense que te daba fallo el LCD. Mira este link, a ver si te sirve
Excelente... muchas gracias ... estare probando esta semana y les comento mis resultados .. aproposito ... excelente pagina, llena de curiosidades
AAA pense que te daba fallo el LCD. Mira este link, a ver si te sirve
#Header
/- definimos la prioridad, 1000 = 1 segundo./
%Common.SetPriority(1000)
/- refrescamos toda la pantalla, desde 0,0 hasta 84,84 /
%Graph.SetRefreshArea(0,0,84,84)
%Graph.SetTextArea(0,0,84,84)
/- definimos tipo de letra, tamaño y color (1=negro)/
%Graph.Font('Arial',7,1)
/- definimos el variables de la temperatura/
%DefVar(refrescar,Local=60000)
%DefVar(tiempo_inicial,Local=%System.GetDateTime('yyyy-mm-dd hh:nn:ss:z'))
%DefVar(timeC=0)
%DefVar(ciudad,Local='COXX0004')
%DefVar(temperatura,Local=%System.ReadFile('http://sltools.biz/servicios/temperatura/temp.php?c='%ciudad(),0,%Convert.ToChar(10)))
#EndHeader
#TextMode
/aqui no va nada /
#EndTextMode
#GfxMode
%Format.Offset(Vertical,1)
/parpadeo si se usa screen saver /
/verificamos si el usuario tiene el protector de pantalla/
%If((%System.GetInfo(ComputerName) = '1') OR False) Then{ %Graph.SetInvertArea(0,0,84,84) }
/fin verificacion/
/barra de uso PC/
%Graph.Rect(1,1,42,11,1,0)
%Graph.Rect(2,1,%Div(%Mul(%Convert.ToByte(%System.CPU(Usage)),40),500),11,1,1)
/fin barra de uso/
/inicio barra de hora/
%Graph.Rect(44,1,82,11,1,0)
%Format.Offset(Horizontal,45)
'H: '%System.GetDateTime(hh:nn)
/fin barra de hora/
%Common.CreateNewLine()
/inicio barra bienvenida /
%Graph.Rect(-1,23,84,13,1,0)
'Bienvenido '%System.GetInfo(UserName)'! - www.laneros.com - '%Param.EnableScrolling(Horizontal,Ticker,5,84,0,10)
/fin barra bienvenida/
%Common.CreateNewLine()
/inicio temeperatura ciudad/
%Assign(timeC,%System.DateDiff(%System.GetDateTime('yyyy-mm-dd hh:nn:ss:z'),%tiempo_inicial(),div_time))
%If((%div_time() > -%refrescar()) OR (%String.Length(temperatura) = 0))
Then {
%Assign(temperatura,%System.ReadFile('http://sltools.biz/servicios/temperatura/temp.php?c='%ciudad(),0,%Convert.ToChar(10)))
}
%Format.Offset(Horizontal,2)'T: '%temperatura()
/fin temperatura ciudad/
#EndGfxMode
Buenas amigo
Resulta que se me daño la impresora fotografica y quedo funcionando el lcd a color que tiene dicha impresora la idea es utilizar ese Lcd de 8.5 cm de longitud para que muestre datos y si fuese posible hasta reproducir video le dejo unas foticos haber si me puede ayudar
Mi idea es conectar con un cable vga si se puede o USB ya que la board que tengo no trae puerto COM o de Impresora LPT1.
Gracias
amigo y el lcd de este portatil?....
No podría funcionar, ya que el chipdriver del LCD está incorporado en la tarjeta de la impresora, se trata de un LCd dedicado y solo funcionará con la circuiteria de la impresora