LCD gráfico con un nokia 5125

cuy9000 dijo:

No era el cableado, era el LCD, estaba recontra malogrado, asi que... después de gritarle como 1/2 hora al que me lo vendió, me lo cambió. Y ahora si funciona, lástima que no tenga una camara digital, pero mañana me consigo una.
Ahora viene la parte de SW, he estado probando el LCDHype y esta un poco complicado, pero de hecho lo explotaré.

Gracias por la ayuda CygnusX.

Saludos.

Haz clic para expandir...

#Header
 %DefVar(IncTsys=0)
 %Param.RenderMode(Simple)
#EndHeader

#GfxMode
 %Graph.LoadBitmap(torre%IncTsys().bmp,0,0,0,0,128,64,0,NONE)
 %Assign(IncTsys,%Inc(%IncTsys(),1))
 %If( %IncTsys() = 2)Then
 { %Assign(IncTsys,0) }Else
 {}
#EndGfxMode

GerardoxD dijo:

Hola, soy nuevo aqui, ojala que respondan, tengo el siguiente problema

tengo un lcd de nokia 5190, conectado al lpt1, pero este no responde, las conexiones estan de acuerdo a la guia, pero el LcdHype no manda graficos al LCD, ahora con el port driver que se descarga de la pagina de LCDHype no logro configurar el puerto 278, 378 que admiten a este lcd, ¿que puedo hacer?

Haz clic para expandir...

GerardoxD dijo:

Gracias por ayudarme

tengo todo lo que me dices, scripts apropiados,programas, etc.
en cuanto al LCD, antes de hacer las conexiones lo probe en el celular y funciono impecablemente, las conexiones las revisé con un tester y estan bien, hasta pense que podia ser problema de que hubiera estado defectuoso el puerto paralelo, pero este funciona bien, esta configurado en EPP pero nada con el LCD.

aqui adjunto una foto del LCD, el circuito no se lo corte por ahora, porque quiero hacerlo cuando funcione bien

http://img139.imageshack.us/my.php?image=imagen001fd6.jpg
yo creo que el fallo esta en la configuracion del puerto con el programa dlport I/O, ya que da una direccion de puerto diferente a la que soporta el controlador del LCDHype, la direccion de puerto que envia es 272 en vez de 278, que es la mas cercana, y 376 en vez de 378, que son las direcciones que controla el LCDHype.
tambien al escribir manualmente la direccion del puerto, por ejemplo, 378, automaticamente la cambia por 376, y es lo mismo con las demas direcciones.
Todo esto lo he probado en los dos pc que tengo en mi casa pero en ninguno resulta.
¿Que puedo hacer para que me reconozca esos dos puertos?
¿hay algun otro programa que dispongas que haga lo mismo que el dlport I/O?

De antemano gracias y nos vemos!

Haz clic para expandir...

cuy9000 dijo:

La verdad que esta bien chevere tu script, pero te cuento que estoy teniendo unos dolores de cabeza con respecto a los cables que están unidos al PCB. Te explico, los cables están soldados, pero pierden el contacto, es decir, a veces funciona pero despues no. Trataré de hacer algo al respecto.
Luego para poner la iluminación me comentaste que use resistencias variables de 300 ohms de 1/2 watt...y al molex rojo y negro, ¿esta bien que use esa resistencia con los leds verdes, osea con los leds de fábrica?

Una cosa mas, que me recomiendas en lugar de usar el MBM5 ya que las lecturas de temperatura no son muy correctas que digamos, lo que pasa es que el MBM5 no tiene soporte para mi mainboard (Biostar M4P80).

Saludos

Haz clic para expandir...

GerardoxD dijo:

He entrado en la Bios y he configurado la salida del puerto paralelo en 378, pero sigue igual

Haz clic para expandir...

cuy9000 dijo:

CygnusX, la verdad que te felicito por ser tan ilustrativo y por la paciencia que tienes. Gracias nuevamente.

Te cuento que estuve viendo scripts de un pequeño tutorial (en español).. se trata de unos BMP que son ventiladores y supuestamente se mueve en el LCD (animación), pero no me salió bien o no se que me salió mal. No se si estaría permitido hacer un link a esa página para que veas la idea.

Ahora estuve experimentando con el LCDHype con el plugin de winamp, configuré el spectrum analyzer de modo que se viera fluído, pero me dí con la sorpresa que tenía usando 50% del rendimiento del PC sin mencionar que hubo un incremento en la temperatura de 10 grados, en total el microprocesador estaba a 62 grados centígrados, me imagino que habrá que optimizar el código del plugin o no se, pero quisiera saber si esto es así o solamente me pasa a mí.

Saludos.

Haz clic para expandir...

#Header
 %DefVar(IncTsys=0)
 %Param.RenderMode(Simple)
#EndHeader

#GfxMode
 %Graph.LoadBitmap(fan%IncTsys().bmp,0,0,0,0,128,64,0,NONE)
 %Assign(IncTsys,%Inc(%IncTsys(),1))
 %If( %IncTsys() = 3)Then
 { %Assign(IncTsys,0) }Else
 {}
#EndGfxMode

 %Param.RenderMode(Simple)

#Header
%Graph.LoadBitmap('p4a.bmp',0,0,0,0,83,47,0,NONE)
%DefVar(desdeinicio,Local=0)
%DefVar(temp,Local=0)
%DefVar(minus,Local=0)
%DefVar(Xmin=0)
%DefVar(Xmax=83)
%DefVar(Ymin=0)
%DefVar(Ymax=47)
%DefVar(base1=21)
%DefVar(base2=53)
/dibuja eje Y, Xmin/
%Graph.Pen(%Xmin(),%Ymin(),1)
%Graph.LineTo(%Xmin(),%Ymax(),1)
/dibuja eje Y, Xmax/
%Graph.Pen(%Xmax(),%Ymin(),1)
%Graph.LineTo(%Xmax(),%Ymax(),1)
/dibuja eje X, Ymin/
%Graph.Pen(%Xmin(),%Ymin(),1)
%Graph.LineTo(%Xmax(),%Ymin(),1)
/dibuja eje intermedio X, Ymin/
%Graph.Pen(%Xmin(),23,1)
%Graph.LineTo(%Xmax(),23,1)
/dibuja eje X, Ymax/
%Graph.Pen(%Xmin(),%Ymax(),1)
%Graph.LineTo(%Xmax(),%Ymax(),1)
%DefVar(IncTsys=-1)
%Graph.Font('Terminal',5,1)
%Graph.SetInvertArea(0,0,84,48)
%Param.RenderMode(Simple)
#EndHeader

#GfxMode
%Common.ChangeScreen(17100,16)
%Graph.SetRefreshArea(0,0,83,47)
/contador de actualizaciones de pantalla/
%Assign(IncTsys,%Inc(%IncTsys(),1))
%Format.Offset(Horizontal,59)
%Format.Offset(Vertical,2)"CPU:"%UsePlugin('mbm\mbm.dll',mbmTemperature2)
/Calculo de punto final de temperatura/
%Graph.Pen(%IncTsys(),%base1(),1)
%Assign(base1,%Dec(37,%UsePlugin('mbm\mbm.dll',mbmTemperature2)))
/Trazo final/
%Graph.LineTo(%IncTsys(),%base1(),1)
%Common.CreateNewLine()
%Format.Offset(Horizontal,73)
%Format.Offset(Vertical,17)
%UsePlugin('mbm\mbm.dll',mbmTemperature1)
%Common.CreateNewLine()
%Format.Offset(Horizontal,54)
%Format.Offset(Vertical,-6)"CASE:"
%Graph.Pen(%IncTsys(),%base2(),1)
%Assign(base2,%Dec(69,%UsePlugin('mbm\mbm.dll',mbmTemperature1)))
/%LCD.Gfx_SetPixel(%IncTsys(),%base2(),1)/
%Graph.LineTo(%IncTsys(),%base2(),1)
%Common.CreateNewLine()
%Format.Offset(Horizontal,30)
%Format.Offset(Vertical,-29)"CPU:"%System.CPU(Usage)
%Common.CreateNewLine()
%Format.Offset(Horizontal,1)
%Format.Offset(Vertical,17)
%UsePlugin('mbm\mbm.dll',mbmMHZ) "MHz"
%Common.CreateNewLine()
%Format.Offset(Horizontal,1)
%Format.Offset(Vertical,-29)
%Assign(desdeinicio,%System.Uptime())
%Assign(temp,%Trunc(%Div(%desdeinicio(),3600000),8))
%Dec(%temp(),%Dec(%temp(),%Trunc(%temp())))"h"
%Assign(minus,%Mul(60,%Dec(%temp(),%Trunc(%temp()))))
%Trunc(%minus())"m"
%Common.CreateNewLine()
%Format.Offset(Horizontal,32)
%Format.Offset(Vertical,17)
"px:" %IncTsys()
#EndGfxMode

#Header 
/ %Common.SetPriority(2000) /

 %DefVar(Xorg=40) /origen comun de las manecillas/ 
 %DefVar(Yorg=30) 
 %DefVar(Xseg=0) /posicion de la punta del segundero/ 
 %DefVar(Yseg=0) 
 %DefVar(Xmin=0) /posicion de la punta del minutero/ 
 %DefVar(Ymin=0) 
 %DefVar(Xhor=0) /posicion de la punta del horario/ 
 %DefVar(Yhor=0) 
 %DefVar(Angs=0) /angulo segundero/ 
 %DefVar(AngM=0) /angulo minutero/ 
 %DefVar(AngH=0) /angulo horario/ 
 %DefVar(Seg=0) /tiempo en partes/ 
 %DefVar(Min=0) 
 %DefVar(Hor=0) 

 %DefFunc(AgujaSeg= 
  %Graph.Pen(%Xorg(),%Yorg(),1)%Assign(Angs,%Mul(%Seg(),5.99)) 
  %Assign(Xseg,%Mul(-1,%Round(%Mul(16,%Sin(%Angs()))))) 
  %Assign(Yseg,%Trunc(%Mul(16,%Cos(%Angs())))) 
  %Graph.LineTo(%Dec(%Xorg(),%Xseg()),%Dec(%Yorg(),%Yseg()),1) 
 ) 
 %DefFunc(AgujaMin= 
  %Graph.Pen(%Xorg(),%Yorg(),1) 
  %Assign(AngM,%Mul(%Min(),5.99)) 
  %Assign(Xmin,%Mul(-1,%Round(%Mul(15,%Sin(%AngM()))))) 
  %Assign(Ymin,%Trunc(%Mul(15,%Cos(%AngM())))) 
  %Graph.LineTo(%Dec(%Xorg(),%Xmin()),%Dec(%Yorg(),%Ymin()),2) 
 ) 
 %DefFunc(AgujaHor= 
  %Graph.Pen(%Xorg(),%Yorg(),1) 
  %Assign(AngH,%Mul(%Hor(),30)) 
  %Assign(Xhor,%Mul(-1,%Round(%Mul(8,%Sin(%AngH()))))) 
  %Assign(Yhor,%Trunc(%Mul(8,%Cos(%AngH())))) 
  %Graph.LineTo(%Dec(%Xorg(),%Xhor()),%Dec(%Yorg(),%Yhor()),2) 
 ) 
 %Param.RenderMode(Simple)
#EndHeader 

#GfxMode 
 %Graph.LoadBitmap('reloj.bmp',0,0,0,0,83,47,0,AND) 

 %Assign(Min,%System.GetDateTime(nn)) 
 %Assign(Seg,%System.GetDateTime(ss)) 
 %Assign(Hor,%System.GetDateTime(hh)) 

 %AgujaSeg() 
 %AgujaMin() 
 %AgujaHor() 
#EndGfxMode

cuy9000 dijo:

Excelente CygnusX, se agradece. Ahora mismo ya conecté los leds y mi LCD ya esta en operación, solo queda meterlo en el case, pero yo opté por hacer una pequeña caja y ahí ponerlo.

Bueno, con respecto al analizador del winamp, lo configuro de tal forma para que se vea lo mas fluído y cuando veo el uso de CPU, wow se va hasta 50%, creo que se debe a que pongo en el header %CommonSetPriority(1), luego lo puse en 1000 y se veía terrible, y si lo pongo en 100 me consume 24% de CPU, inclusive puse la linea de Render en Simple, pero bajo 2%. La verdad es que pienso que deben optimizar ese plugin

Mañana pruebo los scripts que pusiste

Saludos.

Haz clic para expandir...