LCD gráfico con un nokia 5125

oie
¿Que hago para que me muestre las temperaturas con el plugin Speedfan?

esta es mi linea de comandos

#Header
%LCD.Gfx_SetTextArea(0,0,84,48)
%Common.SetPriority(100)
%DefVar(speedfan=
"CPU : " %UsePlugin('speedfan\speedfan.dll',getTemp,2) " Cø"
%Common.CreateNewLine()
"SYS : " %UsePlugin('speedfan\speedfan.dll',getTemp,1) " Cø"
%Common.CreateNewLine()
"HDD : " %UsePlugin('speedfan\speedfan.dll',getTemp,3) " Cø"
%Common.CreateNewLine()
"CPU : " %UsePlugin('speedfan\speedfan.dll',getFan,0) " RPM"
%Common.CreateNewLine()
"SYS : " %UsePlugin('speedfan\speedfan.dll',getFan,1) " RPM")
#EndHeader
#GfxMode
%LCD.Gfx_SetFont('Lucida Console',7,1)
%Param.RenderMode(Simple)
%speedfan()
#EndGfxMode

y esto es lo que aparece

http://img84.imageshack.us/my.php?image=pantalla1bk9.png
 
cuy9000 dijo:
CygnusX, he puesto una foto, pero no logre sacarla de cerca porque se veia borrosa, pero ahi esta mi LCD funcionando ademas de unos celulares que estoy pensando en canibalizar :p . En la foto aparece un Nokia 3321, tu crees que se pueda hacer funcionar con el LCDHype?, tambien aparece un motorola T193, un alcatel BF41L y el sony ericsson que no pienso desarmar porque lo estoy usando XD. Ojala se pueda hacer algo con estos celulares porque estaba pensando en botarlos.

Saludos.
Haz clic para expandir...

Que bien!, te felicito por el LCD en funcionamiento xD. Como has dicho posts atrás, le hará falta un protector para que no se te vaya a dañar!.

Respecto a tu duda con la barra del winamp, eso se corrige, cargando una imagen en blanco al principio del código del programa

Código: 
#GfxMode
%Graph.LoadBitmap('blanco84_48.bmp',0,0,0,0,84,48,0,NONE)

Con eso actualizas la pantalla al iniciar la pista siguiente.

Respecto a los móviles, ni te esfuerces en desarmarlos, ninguno vale para el proyecto:(

El 3321 aunque es un nokia, es hermano del 2220 y del 3320. Estos aunque tienen 8 pines (tipo 1), montan un LCD Driver distinto al PCD8544, de esos ya han pasado por mis manos y pues ni el trabajo vale la peno con ellos:confused:

PIPE8A respecto a tu consulta, ¿ya has colocado desde el bios el LPT en modo ECP?, debes hacerlo asi para que el LCd no se apague.

Es posible que haya un pin haciendo un falso contacto, aunque ya lo has hecho vuelve a cerciorarte. Ahh y por cierto los clips de sujesión deben estar algo flojos trata de cerrarlos un poco más para que la goma conductiva haga buen contacto sobre el PCB.

Si el problema persiste, quiere decir que tu puerto paralelo, está entregando mas amperaje del que necesita el LCD para funcionar. Colca una resistencia variable de 1 k en el GND del LCd y varíala hasta que ya no aparezcan mas distorsiones o apaganoes del LCD.

Confío en la primer solución. Si falla, pon el LPT en modo EPP primero como V1.7 y si vuelve a fallar luego como EPP v1.9.

Si aun asi hay problemas, la corriente se puede normalizar si conectas un segundo LCd por el mismo cable, es decir en paralelo. Esta medida es la mejor cuando hay exceso de corriente en el LPT.

Uff por el LCDHype no se cmo empezar jeje, no me atrevo a hacer una guía ya que pues no tengo tantos conocimientos, pero dejame ver si puedo hacer algo aunque sea como introducción
 
GerardoxD dijo:
noooooooooo
esa foto no
me ekivoke jajajajaja xd
:p
era esta otra



ojala me ayuden

y no pesken la otra foto de mi sister xD
Haz clic para expandir...

No te preocupes, puedes editar el post y borrar la foto que no quieres que se vea:p

Bueno ya he revisado el Speedfan, no por sencillo deja de ser bueno xD.
Código: 
#Header
  %Common.SetPriority(1000)
  %Param.RenderMode(Simple)
  %Graph.Font('Terminal',7,1)
#EndHeader

#GfxMode
%Graph.SetTextArea(0,0,84,48)
"Temperaturas"
%Common.CreateNewLine()
" TGabinete: "%UsePlugin('speedfan\speedfan.dll',getTemp,2)
%Common.CreateNewLine()
"      TCPU: "%UsePlugin('speedfan\speedfan.dll',getTemp,3)
%Common.CreateNewLine()
%Common.CreateNewLine()
"Ventiladores"
%Common.CreateNewLine()
"   Chipset: "%UsePlugin('speedfan\speedfan.dll',getFan,0)" rpm"
%Common.CreateNewLine()
" Dispersor: "%UsePlugin('speedfan\speedfan.dll',getFan,2)" rpm"
#EndGfxMode

Esta es una forma rápida para hacer el Script. Ojo: debes tener activo el SpeedFan

Tal como haz hecho el script no está bien, ya que no se te actualizará la información en pantalla.

Los scripts cuentan con dos secciones: la primera es el encabezado
Código: 
#Header
  %Common.SetPriority(1000)
  %Param.RenderMode(Simple)
  %Graph.Font('Terminal',5,1)
#EndHeader
Las instrucciones que colocas allí solo se harán una vez, al principio del script. COnviene poner allí instrucciones como prioridad, un dibujo, el tipo de letra, el tipo de renderizado, en fin, instrucciones que solo se hacen una vez.

La segunda parte es el cuerpo

Código: 
#GfxMode
%Graph.SetTextArea(0,0,84,48)
"Temperaturas"
%Common.CreateNewLine()
" TGabinete: "%UsePlugin('speedfan\speedfan.dll',getTemp,2)
%Common.CreateNewLine()
"      TCPU: "%UsePlugin('speedfan\speedfan.dll',getTemp,3)
%Common.CreateNewLine()
%Common.CreateNewLine()
"Ventiladores"
%Common.CreateNewLine()
"   Chipset: "%UsePlugin('speedfan\speedfan.dll',getFan,0)" rpm"
%Common.CreateNewLine()
" Dispersor: "%UsePlugin('speedfan\speedfan.dll',getFan,2)" rpm"
#EndGfxMode

Solo debes poner el número correcto de sensor y claro que cambiar por el nombre que desees jeje

En el cuerpo del script van todas las instrucciones de manejo de información, uso de plugins, etc. En general van instrucciones que permiten el cambio de letra, posición en el LCd, barras horizontales, barras verticales, etc

Espero que esto te ayude por lo menos para ir empezando
 
  • Me gusta
Reacciones: 2 personas
CygnusX, la verdad no se donde poner la linea que me dijiste, he creado el bmp en blanco como me dices pero la programacion y yo no congeniamos mucho.

mi codigo es este:

#Header
%Param.RenderMode(Simple)
/%Common.SetPriority(100)/
%Graph.SetTextArea(0,0,84,48)
/%Graph.LoadBitmap('blanco84_48.bmp',0,0,0,0,84,48,0,NONE)/
%Graph.Font('Franklin Gothic Medium',7,1)
#EndHeader
#TextMode
/insert textmode script code here/
#EndTextMode
#GfxMode
%Graph.LoadBitmap('blanco84_48.bmp',0,0,0,0,84,48,0,NONE)
%Format.Offset(Horizontal,24)
%Format.Offset(Vertical,-3)
%Format.Time(%Mul(%WinAmp.TrackPos(),1000),'m:ss')" \ "
%Format.Time(%Mul(%WinAmp.TrackLength(),1000),'m:ss')
%Common.CreateNewLine()
%Format.Bar(Horizontal,84,1,0,%WinAmp.TrackLength(),%WinAmp.TrackPos(),1,1,0,7)
%Common.CreateNewLine()
%Format.Offset(Vertical,-10)
%Param.EnableScrolling(Horizontal,Ticker,1,84,1)" -- "
%WinAmp.Artist()
%Common.CreateNewLine()
%Format.Offset(Vertical,-4)
%Param.EnableScrolling(Horizontal,Ticker,1,84,1)" -- "
%WinAmp.Title()
%WinAmp.SpecAnalyzer(FFT,PeakedBars,21,20,90,1,0.5,3,1,0,28)
/%Common.ChangeScreen(10000,Next)/
#EndGfxMod

Que mala onda que los celulares que tengo no sirven, los desechare :(

Otra mas: Existe un script que capture el ancho de banda, osea el download y upload en tiempo real, porque estuve viendo la funcion PacketsIn y PacketsOut, y eso no es lo que quiero mostrar.

Saludos.
Cuy
 
cuy9000 dijo:
CygnusX, la verdad no se donde poner la linea que me dijiste, he creado el bmp en blanco como me dices pero la programacion y yo no congeniamos mucho.

mi codigo es este:

Código: 
#Header
%Param.RenderMode(Simple)
/%Common.SetPriority(100)/
%Graph.SetTextArea(0,0,84,48)
/%Graph.LoadBitmap('blanco84_48.bmp',0,0,0,0,84,48,0,NONE)/
%Graph.Font('Franklin Gothic Medium',7,1)
#EndHeader

#GfxMode
%Graph.LoadBitmap('blanco84_48.bmp',0,0,0,0,84,48,0,NONE)
%Format.Offset(Horizontal,24)
%Format.Offset(Vertical,-3)
%Format.Time(%Mul(%WinAmp.TrackPos(),1000),'m:ss')" \ "
%Format.Time(%Mul(%WinAmp.TrackLength(),1000),'m:ss')
%Common.CreateNewLine()
%Format.Bar(Horizontal,84,1,0,%WinAmp.TrackLength(),%WinAmp.TrackPos(),1,1,0,7)
%Common.CreateNewLine()
%Format.Offset(Vertical,-10)
%Param.EnableScrolling(Horizontal,Ticker,1,84,1)" -- "
%WinAmp.Artist()
%Common.CreateNewLine()
%Format.Offset(Vertical,-4)
%Param.EnableScrolling(Horizontal,Ticker,1,84,1)" -- "
%WinAmp.Title()
%WinAmp.SpecAnalyzer(FFT,PeakedBars,21,20,90,1,0.5,3,1,0,28)
/%Common.ChangeScreen(10000,Next)/
#EndGfxMode

Que mala onda que los celulares que tengo no sirven, los desechare :(

Otra mas: Existe un script que capture el ancho de banda, osea el download y upload en tiempo real, porque estuve viendo la funcion PacketsIn y PacketsOut, y eso no es lo que quiero mostrar.

Saludos.
Cuy
Haz clic para expandir...

Ya estuve probando tu script del winamp y funciona tal como lo tienes!!!!!! el mapa de bits debe ser guardado como monocromático en la carpeta de scripts. No como BMP normal, ni grises ni de 24 bits, nada debe ser monocromático

Me he permitido corregir el script (solo borré unas lineas) y lo he adjuntado tal cual en la réplica de tu comentario. El cuerpo para LCD´s de texto o de caracteres no funciona en los scripts para LCD´s gráficos asi que se puede eliminar sin problemas.

Diagnóstico: Revisa la imagen BMP :p y guardala como monocromática y ya irá bien!

Respecto a tu pregunta relativa a la red ya se a que te refieres. Directamente no hay una instrucción pero esas dos que mencionaste sirven para hecer un código para "medir" el Upload y el Download.

Haber si me captas, no te describo ya que de algunas cosas pues no me acuerdo:confused: y la verdad la explicación se me ha perdido de vista xD:

Esta es una opcion en forma de barras horizontales (la he ajustado para que muestre el ancho de banda de 56K o sea linea telefónica, que es como me conecto a la red)

Código: 
#Header
 %Common.SetPriority(1000)
 %DefVar(C=1)
 %DefVar(Start=%System.Uptime())
 %DefFunc(Time=%System.Uptime())
 %DefVar(RTime=0) 
 %DefFunc(GetDL=%System.Network(%C(),PacketsIn))
 %DefVar(DL=%System.Network(%C(),PacketsIn))
 %DefVar(DLRatio=0) 
 %DefFunc(GetUL=%System.Network(%C(),PacketsOut))
 %DefVar(UL=%System.Network(%C(),PacketsOut))
 %DefVar(ULRatio=0) 
 %Graph.Font('Tahoma',7,1)
 %Param.RenderMode(Simple)
#EndHeader
#GfxMode
%Graph.LoadBitmap('blanco.bmp',0,0,0,0,84,48,0,NONE)
%Assign(RTime,%Dec(%Time(),%Start()))
/velocidad de descarga/
%Assign(DLRatio,%Dec(%GetDL(),%DL()))
%Assign(DL,%GetDL())
%Assign(DLRatio,%Mul(%DLRatio(),1000))
%Assign(DLRatio,%Div(%DLRatio(),%RTime()))
%Assign(DLRatio,%Round(%Div(%DLRatio(),1024)))
/velocidad de carga/
%Assign(ULRatio,%Dec(%GetUL(),%UL()))
%Assign(UL,%GetUL())
%Assign(ULRatio,%Mul(%ULRatio(),1000))
%Assign(ULRatio,%Div(%ULRatio(),%RTime()))
%Assign(ULRatio,%Round(%Div(%ULRatio(),1024)))
%Assign(Start,%Time())
/output download and upload ratio values/ 
%Format.Offset(Vertical,21)
%Format.AlignRight()
%DLRatio()" "
%Format.Bar(Horizontal,60,11,0,25,%DLRatio(),1,1,10,21)
%Common.CreateNewLine()
%Format.AlignRight()
%Format.Offset(Vertical,1)
%ULRatio()" "
%Format.Bar(Horizontal,60,11,0,25,%ULRatio(),1,1,10,33)
#EndGfxMode

El bmp puede ser uno en blanco o el de tu diseño personal.

Ahora recordemos como funciona la barra horizontal:
Código: 
/%Format.Bar(horizontal, largo pixeles,ancho pixeles,?,valor maximo, variable,ancho de marco de la barra externa, ancho de marco dela barra del valor mostrado, valor X, valor Y)/
%Format.Bar(Horizontal,83,10,0,100,10,1,1,0,0)
En el script anterior yo he puesto esto en la barra horizontal de descarga o "download"
Código: 
%Format.Bar(Horizontal,60,11,0,25,%DLRatio(),1,1,10,21)

En este caso para que se vea por completo la vel de transferencia digamos de una red casera o de tu conexion a la red si es de 128 kbps o más, el valor 25 indica el valor máximo de la barra, si tu velocidad promedio es de digamos 200 kbps, entonces el valor en lugar de 25 será 200 (aplica igual para la segunda barra la de "upload" o de subida a la red)

Hay una segunda representación está basada en la anterior de barras pero permite ver ambas velocidades en forma de lineas. Con la instruccion "priority", puedes definir el intervalo de tiempo al que quieres que se muestre el siguiente valor gráfico. En las gráficas están en funcion del tiempo. No son muy dificiles una vez que les tomas el modo :D
Can ayuda del cambio de pantalla consigues que se borre la pantalla y se reinicie el script

Código: 
#Header
%Graph.LoadBitmap('p6.bmp',0,0,0,0,83,47,0,NONE)
 %DefVar(C=1)
 %DefVar(Start=%System.Uptime())
 %DefFunc(Time=%System.Uptime())
 %DefVar(RTime=0) 
 %DefFunc(GetDL=%System.Network(%C(),PacketsIn))
 %DefVar(DL=%System.Network(%C(),PacketsIn))
 %DefVar(DLRatio=0) 
 %DefFunc(GetUL=%System.Network(%C(),PacketsOut))
 %DefVar(UL=%System.Network(%C(),PacketsOut))
 %DefVar(ULRatio=0) 
 %DefVar(Xmin=0)
 %DefVar(Xmax=83)
 %DefVar(Ymin=0)
 %DefVar(Ymax=47)
 %DefVar(base1=21)
 %DefVar(base2=45)
/dibuja eje Y, Xmin/
%Graph.Pen(%Xmin(),%Ymin(),1)
%Graph.LineTo(%Xmin(),%Ymax(),1)
/dibuja eje Y intermedio, Xmax/
%Graph.Pen(72,%Ymin(),1)
%Graph.LineTo(72,%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,71,47)
/%Common.SetPriority(5000)/
%Param.RenderMode(Simple)
#EndHeader

#GfxMode
/Tiene 70 pxs/
%Common.ChangeScreen(14800,03)
%Graph.SetRefreshArea(0,0,83,47)
%Assign(RTime,%Dec(%Time(),%Start()))
/velocidad de descarga/
%Assign(DLRatio,%Dec(%GetDL(),%DL()))
%Assign(DL,%GetDL())
%Assign(DLRatio,%Mul(%DLRatio(),1000))
%Assign(DLRatio,%Div(%DLRatio(),%RTime()))
%Assign(DLRatio,%Round(%Div(%DLRatio(),20480)))
/velocidad de carga/
%Assign(ULRatio,%Dec(%GetUL(),%UL()))
%Assign(UL,%GetUL())
%Assign(ULRatio,%Mul(%ULRatio(),1000))
%Assign(ULRatio,%Div(%ULRatio(),%RTime()))
%Assign(ULRatio,%Round(%Div(%ULRatio(),20480)))
%Assign(Start,%Time())
/output download and upload ratio values/ 
%Format.Offset(Vertical,3)
%Format.Offset(Horizontal,75)
%DLRatio()
/contador de actualizaciones de pantalla/
%Assign(IncTsys,%Inc(%IncTsys(),1))
%Graph.Pen(%IncTsys(),%base1(),1)
%Assign(base1,%Dec(21,%DLRatio()))
%Graph.LineTo(%IncTsys(),%base1(),1)
%Common.CreateNewLine()
%Format.Offset(Vertical,17)
%Format.Offset(Horizontal,75)
%ULRatio()
%Graph.Pen(%IncTsys(),%base2(),1)
%Assign(base2,%Dec(45,%ULRatio()))
%Graph.LineTo(%IncTsys(),%base2(),1)
%LCD.Gfx_SetPixel(%IncTsys(),%base2(),1)
#EndGfxMode

El archivo p6.bmp es el diseño que quieras (adjunto la capptura de la vista previa del LCd)

Para que se ajusten las lineas al nivel que quieres, basta con modificar estas dos lineas
Código: 
Para el "download"
%Assign(DLRatio,%Round(%Div(%DLRatio(),20480)))
Para el "upload"
%Assign(ULRatio,%Round(%Div(%ULRatio(),20480)))

En mi caso estos divisores me indican el valor pero en Mbps (vaya por la red de casa)

Dependiendo del los picos máximos que tengas, deberás aumentar o disminuir el valor 20480 en ambas lineas, si das valores mas altos, como es un divisor, obtendras picos mas pequeños y si lo reduces los picos serán mas grandes.

Ufff espero que esto te ayude:p
 

Archivos adjuntos

  • red barras.JPG
    red barras.JPG
    7.6 KB · Visitas: 122
  • redlineas.JPG
    redlineas.JPG
    6.9 KB · Visitas: 125
:p

Uno mas para diversión xD con el Winamp

En este Script podemos ver un vumeter analógico. Especificamente monitorea la salida izquierda de audio cuando estamos usando el winamp!

Código: 
#Header
 %DefVar(Xcentro=35)
 %DefVar(Ycentro=40)
 %DefVar(r=20)
 %DefVar(X=11)
 %DefVar(Y=24)
 %DefVar(Porc=0)
 %DefVar(Ang=0)
 %DefVar(Angcos=0)
 %Graph.SetTextArea(0,0,128,64) 
 %Graph.Font('Terminal',5,1) 
 %Param.RenderMode(Simple)
#EndHeader

#GfxMode
%Graph.LoadBitmap('vu.bmp',0,0,0,0,128,64,0,NONE)
 /Porcentaje/
 %Assign(Porc,%Mul(%Div(%WinAmp.VU(2,Left),300),100))
 /%Porc()/
 /Angulo/
 %Common.CreateNewLine()
 %Assign(Ang,%Mul(%Porc(),1.8))
 /%Ang()/
 /Angulo cos corregido/
 %Assign(Angcos,%Dec(180,%Ang()))
 /"  "%Angcos()/
 /X/
 %Common.CreateNewLine()
 %Assign(X,%Round(%Mul(%r(),%Cos(%Angcos()))))
 /%X()/
 /X'/
 %Assign(X,%Inc(%X(),%Xcentro()))
 /"x= "%X()/
 /Y/
 %Assign(Y,%Round(%Mul(%r(),%Sin(%Ang()))))
 /"y= "%Y()/
 %Assign(Y,%Dec(%Ycentro(),%Y()))
 /"y= "%Y()/
 %Graph.Pen(%Xcentro(),%Ycentro(),1)
 %Graph.LineTo(%X(),%Y(),1)
#EndGfxMode

Intencionalmente he dejado los comentarios de lo que hace cada linea, potencialmente este script permite ver en forma análoga, el uso del CPU, la temperatura, las RPM´s de los ventiladores, el uso de los discos duros, en fin, son tantas que se me escapan de la memoria:confused:

Adjunto el bmp (que debe ser editado y guardado en la carpeta de scripts como bmp monocromático). Aunque es de 128x64 se puede reducir a 84x48 sin afectar nada el resultado.

Adjunto una vista previa del LCDHype y una foto de como se ve en el LCD:p :p
 

Archivos adjuntos

  • vu1.JPG
    vu1.JPG
    5.6 KB · Visitas: 131
  • vu.bmp
    1.1 KB · Visitas: 134
  • vu2.JPG
    vu2.JPG
    47.6 KB · Visitas: 132
  • vu3.JPG
    vu3.JPG
    48.1 KB · Visitas: 117
Bueno y ya para dejar uno más!!!

Como ven me he estado aplicando con los scripts, ya que había dejado este aspecto algo abandonado.

Este es para un LCD más grande: 128x64 pxs
Código: 
#Header
 %DefVar(XLcentro=22)
 %DefVar(YLcentro=57)
 %DefVar(r=20)
 %DefVar(XL=11)
 %DefVar(YL=24)
 %DefVar(PorcL=0)
 %DefVar(AngL=0)
 %DefVar(AngcosL=0)
 %DefVar(RXcentro=102)
 %DefVar(YcRro=57)
 %DefVar(r=20)
 %DefVar(RX=11)
 %DefVar(RY=24)
 %DefVar(PR=0)
 %DefVar(AR=0)
 %DefVar(AcoR=0)
 %Graph.SetTextArea(0,0,128,64) 
 %Graph.Font('Terminal',5,1) 
 %Param.RenderMode(Simple)
#EndHeader

#GfxMode
%Graph.LoadBitmap('vu.bmp',0,0,0,0,128,64,0,NONE)
 /Salida Izquierda/
 /Porcentaje/
 %Assign(PorcL,%Mul(%Div(%WinAmp.VU(2,Left),300),100))
 /%PorcL()/
 /Angulo/
 %Common.CreateNewLine()
 %Assign(AngL,%Mul(%PorcL(),1.8))
 /%AngL()/
 /Angulo cos corregido/
 %Assign(AngcosL,%Dec(180,%AngL()))
/ "  "%AngcosL()/
 /X/
 %Common.CreateNewLine()
 %Assign(XL,%Round(%Mul(%r(),%Cos(%AngcosL()))))
/ %XL() /
  /X'/
 %Assign(XL,%Inc(%XL(),%XLcentro()))
 /" x="%XL()/
 /Y/
 %Assign(YL,%Round(%Mul(%r(),%Sin(%AngL()))))
 /"y= "%Y()/
 %Assign(YL,%Dec(%YLcentro(),%YL()))
 /"y= "%Y()/
 %Graph.Pen(%XLcentro(),%YLcentro(),1)
 %Graph.LineTo(%XL(),%YL(),1)
 /Salida derecha/
 /Porcentaje/
 %Assign(PR,%Mul(%Div(%WinAmp.VU(2,Left),300),100))
 /"  " %PR()/
 /Angulo/
 %Assign(AR,%Mul(%PR(),1.8))
 /%AR()/
 /Angulo cos corregido/
 %Assign(AcoR,%Dec(180,%AR()))
 /"  "%AcoR()/
 /RX/
 %Assign(RX,%Round(%Mul(%r(),%Cos(%AcoR()))))
 %Assign(RX,%Inc(%RX(),%RXcentro()))
 /" XR:"%RX()/
  /Y/
 %Assign(RY,%Round(%Mul(%r(),%Sin(%AR())))) 
 %Assign(RY,%Dec(%YcRro(),%RY()))
 /" YR:"%RY()/
 %Graph.Pen(%RXcentro(),%YcRro(),1)
 %Graph.LineTo(%RX(),%RY(),1)
 %WinAmp.SpecAnalyzer(FFT,PeakedBars,14,20,50,5,0.5,2,1,2,8)
 %WinAmp.SpecAnalyzer(FFT,PeakedBars,14,20,50,5,0.5,2,1,82,8)
 %Graph.Font('Tahoma',7,1)
 %Format.Offset(Vertical,-2)
 %Format.Offset(Horizontal,51)
 %System.GetDateTime(hh:nn)
 %Common.CreateNewLine()
 %Format.Time(%Mul(%WinAmp.TrackPos(),1000),'mm:ss')
 %Format.Offset(Vertical,5)
 %Format.Offset(Horizontal,51)
 %Common.CreateNewLine()
 %WinAmp.TrackNo()
 %Format.Offset(Vertical,5)
 %Format.Offset(Horizontal,56)
 %Format.Bar(Horizontal,22,4,0,%WinAmp.TrackLength(),%WinAmp.TrackPos(),0,0,51,57) 
#EndGfxMode

Adjunto el bmp para el script, asi como una captura de la vista previa del Winamp y una foto del LCD con el script funcionando:p
 

Archivos adjuntos

  • vu5.JPG
    vu5.JPG
    19.2 KB · Visitas: 143
  • vu6.JPG
    vu6.JPG
    50.5 KB · Visitas: 111
  • vu.bmp
    1.1 KB · Visitas: 111
CygnusX, hay un programita que te permite crear BMP de manera facil, no me acuerdo como se llama, lo tenia, pero lo borre accidentalmente. Es un archivo .exe y cuando lo cargas salen unas rejillas con botones a los lados. O sino que programa me recomiendas para hacer mis pantallas para el LCD

Gracias
 
cuy9000 dijo:
Ya lo encontre, se llamaba FastLCD
Haz clic para expandir...

Uff! tanto buscarle xD ya te tenía la respuesta jejeje ese si asi es!

Pero dime como vas con el LCD, te han funcionado los scripts?, espero que ya no tengas problemas técnicos xD:p y que ya estes pensando en el soporte del LCD

Cuenta, cuenta xD
 
metro dijo:
Preeeegunta LCD-Master :p
Un NOKIA 3320 me serviría para esto?
Es que me lo puedo conseguir para desbaratar, pero, como pa estar más seguros?
Thks!!
Haz clic para expandir...

Gracias pero no llego a tanto xD.

Respecto al celular: la unica forma de saberlo es desmontandolo, ya que este móvil puede montar el PCD8544 que funciona para ser conectado por el paralelo o bien puede montar un LCd no compatible.

El LCD que sirve es el que tiene montado el auricular en el mismo soporte que monta al LCD y al teclado.

El que no sirve, viene solo con teclado

Ojalá y sea del tipo que si sirve:p

PD: puedo decirte que el tipo de LCd que no sirve: no monta los ganchillos de conexión, y es aun mas dificil de soldar. Ya he intentado usar los modelos: 2220, 3360 y no logré ver nada:( pues traen un LCD driver diferente.
 

Archivos adjuntos

  • no sirve.JPG
    no sirve.JPG
    38.6 KB · Visitas: 139
  • si sirve.JPG
    si sirve.JPG
    12.2 KB · Visitas: 133
Thks!!
Pue4s, sin desbarates mayores, PARECE que si viene todo el PCB con teclado y auricular "onBoard" :p, voy a conseguirme un destornilladorcito thor para poder desarmarlo a fondo y os cuento.
Thks again!!
 
Todo bien CygnusX, pero.. en los scripts que me enviaste usas el plugin del MBM, yo estoy usando el speedfan porque si tiene soporte para mi mainboard, pero despues todo, absolutamente todo esta yendo bien. Lo unico que me falta es ponerle su casita al LCD :p .

Gracias por todo CygnusX.

Saludos.
 
¿como sabes cual plugin es apropiado para cada mainboard?
porque yo he ocupado el mbm5 y el speedfan y ninguno me muestra datos

la mainboard que tengo es una MSI PX8 neo-v con chipset p4x533 para pentiun 4

en lo demas mi lcd funciona perfecto

aqui dejo un pequeño script

#Header
%Graph.SetTextArea(0,0,84,48)
%Common.SetPriority(100)
%Param.RenderMode(Simple)
#EndHeader

#GfxMode
%UsePlugin('follow\follow.dll','Mouse')
#EndGfxMode

se usa con el Follow plugin 1.0
se descarga de la pagina del LCDHype

a mi me gustó

saludos
 
GerardoxD dijo:
¿como sabes cual plugin es apropiado para cada mainboard?
porque yo he ocupado el mbm5 y el speedfan y ninguno me muestra datos

la mainboard que tengo es una MSI PX8 neo-v con chipset p4x533 para pentiun 4

en lo demas mi lcd funciona perfecto

aqui dejo un pequeño script

#Header
%Graph.SetTextArea(0,0,84,48)
%Common.SetPriority(100)
%Param.RenderMode(Simple)
#EndHeader

#GfxMode
%UsePlugin('follow\follow.dll','Mouse')
#EndGfxMode

se usa con el Follow plugin 1.0
se descarga de la pagina del LCDHype

a mi me gustó

saludos
Haz clic para expandir...

Me di cuenta porque cuando instale el MBM5 me mostraba valores fuera de la realidad: 100 grados centigrados, etc. Ademas que no tenia soporte para mi mainboard (Biostar M4), pero cuando instale el Speedfan si me mostraba valores noemales en CPU's Pentium 4: 48 grados, etc.

Ahora, no todas las mainboards tienen soporte para estos programas.

Saludos
 
cuy9000 dijo:
Me di cuenta porque cuando instale el MBM5 me mostraba valores fuera de la realidad: 100 grados centigrados, etc. Ademas que no tenia soporte para mi mainboard (Biostar M4), pero cuando instale el Speedfan si me mostraba valores noemales en CPU's Pentium 4: 48 grados, etc.

Ahora, no todas las mainboards tienen soporte para estos programas.

Saludos
Haz clic para expandir...

En efecto, es una pena que el MBM se haya quedado sin actualizar, aunque cubre muchas placas las nuevas no tienen soporte. El Speedfan es el que se a ido actualizando, pero pues no tiene muchas cosas.

Asi mismo el LPT es otro que esta por extinguirse:(. El uso de placas PCI con puerto LPT extra no van bien con el LCDHype. Otros programas de gestión como el LCStudio si pueden soportar placas PCI.

Pero todo parece indicar que un LCD por USB es el paso mas seguro, pero desafortunadamente los LCD´s de Cristal, son dificiles de conseguir, por lo menos en México:( .
 
Yo tengo una duda, m board es una asrock y el speed fan siempre me a dado lectura de temperatura del procesador de entre 60 y 69 grados, me parece muchisimo, pero ahora que tengo el everest este me da temperaturas de 21 grados en el procesador y cuando juego un buen rato maximo se sube a 40 grados, ahora mi duda es esta, abro el speed fan y me da esas temperaturas muy altas, pero si lo dejo abierto y corro el everest este me muestra 21 grados y lo extraño es que el speed fan enseguida se baja a 21 grados, mostrandome los mismos datos que el everest, esto porque sucede????
 
risipio dijo:
Yo tengo una duda, m board es una asrock y el speed fan siempre me a dado lectura de temperatura del procesador de entre 60 y 69 grados, me parece muchisimo, pero ahora que tengo el everest este me da temperaturas de 21 grados en el procesador y cuando juego un buen rato maximo se sube a 40 grados, ahora mi duda es esta, abro el speed fan y me da esas temperaturas muy altas, pero si lo dejo abierto y corro el everest este me muestra 21 grados y lo extraño es que el speed fan enseguida se baja a 21 grados, mostrandome los mismos datos que el everest, esto porque sucede????
Haz clic para expandir...

Desafortunadamente, los sensores de las placas base no son digamos lo último o lo mas moderno, hablando tanto en calidad como en eficiencia. Y si a eso le agregas que los programas de monitoreo tienen fallas de programación pues tenemos el perfecto caldo de cultivo para este tipo de cosas.

Curiosamente, hasta hace unos dias el Everest me daba lecturas de temperatura bastante parejas con las del MBM. He tenido la oportunidad de construir un sensor de temperatura para la PC, con el que puedo monitorear las verdaderas temperaturas que hay en el sistema.

Se me ha ocurrido instalar el Speedfan para ver como funciona el LCDHype y como por arte de magia el Everest y el MBM ya no dan los mismos valores :?.

Es mas el Speedfan me indica que el disco duro tiene nada frescos 250ºC !!!!, mientras que el Everest muestra 25ºC. Por lo que puedo deducir el código que permite interpretar los sensores en el Speedfan aun tiene fallos, no puedo decir que el Everest está al 100%, pues es suceptible de "caerse".

Eso mi amigo es solo indicativo de que los programas aun tienen mucho que mejorarse. Me da que la sugerencia ancestral del dedómetro aun es el sensor mas eficiente que existe! xD

Ya en serio, la unica opción que nos queda es confiar que la PC anda bien sean cuales sean sus temperaturas siempre y cuando no tenga inestabilidades ni reinicios o cuelgues extraños:confused:
 

Los últimos mensajes

Los últimos temas

Arriba Pie
Atrás