\SN/ n@m dijo:
) para que me dijeras si se puede hacer (dado que soy un neofito (o un newbie :muerto: )en el tema de electronica).
Gracias, espero que mi proyecto de ideasrisipio dijo:
Dogo_ARG dijo:Hola CygnusX
Como va eso master????
bueno como antes te habia preguntado si se podia hacer un lcd con este celu ahora te posteo las fotos del celu (no se si estan bien tomadas las hice con el celu nuevo
Desde ya te agradezco todo lo que haces y la paciencia que nos tenes a nosotros que te bombardeamos de preguntas pero como vos sos el que sabe de esto ....:rolleyes
Fijate si podes ver las fotos sino avisame asi pido prestada una camara digital y sako mejores foto.
Graciasssssssssssssssssssss
metro dijo:Je je je
Ya compré un 5125 dañado (con la pantalla buen) para hacerle su respectivo "tratamiento"
Apenas tenga avances les cuento como me va.
De nuevo, gracias Cygnus por tan buenos aportes =)
. Suerte
%UsePlugin('atitool\atitool.dll',Código)#Header
%Graph.LoadBitmap('ATi9600XT2.bmp',0,0,0,0,128,64,0,NONE)
%Graph.Font('Terminal',7,1)
%Graph.SetTextArea(0,0,128,64)
%Common.SetPriority(5000)
%Param.RenderMode(Simple)
%DefVar(IncTsys=9)
%DefVar(baseGPU=55)
#EndHeader
#GfxMode
%Common.ChangeScreen(585000,30)
" ATi 9600 XT "
%Common.CreateNewLine()
"Core: "%UsePlugin('atitool\atitool.dll',10)"MHz-"%UsePlugin('atitool\atitool.dll',0)"C"
%Common.CreateNewLine()
" Placa: "%UsePlugin('atitool\atitool.dll',1)" C"
%Assign(IncTsys,%Inc(%IncTsys(),1))
/linea de tiempo de la temperatura del chip de la VGA/
%Graph.Pen(%IncTsys(),%baseGPU(),1)
%Assign(baseGPU,%Dec(128,%Trunc(%Mul(%UsePlugin('atitool\atitool.dll',0),3))))
%Graph.LineTo(%IncTsys(),%baseGPU(),1)
#EndGfxMode
, y como ocurre en la escuela, los cambios para el de nokia se los dejo de tarea y asi van practicando.#Header
%Graph.LoadBitmap('sys.bmp',0,0,0,0,128,64,0,NONE)
%Graph.Font('Terminal',5,1)
%Graph.SetTextArea(0,0,128,64)
%Common.SetPriority(10000)
%Param.RenderMode(Simple)
%DefVar(IncTsys=61)
%DefVar(baseCPU=28)
%DefVar(baseVGA=55)
%Graph.SetInvertArea(63,1,126,27)
%Graph.SetInvertArea(63,38,126,62)
#EndHeader
#GfxMode
%Common.ChangeScreen(650000,31)
%Common.CreateNewLine()
"D345\"%UsePlugin('mbm\mbm.dll',mbmMHZ1)"MHz Tamb:"%UsePlugin('mbm\mbm.dll',mbmTemperature5)"\CPU:"%UsePlugin('mbm\mbm.dll',mbmTemperature2)"C"
%Common.CreateNewLine()
"Fsb:"%Trunc(%Div(%UsePlugin('mbm\mbm.dll',mbmMHZ1),23))" MHz"
%Common.CreateNewLine()
"Vcore:"%UsePlugin('mbm\mbm.dll',mbmVoltage1)"V"
%Assign(IncTsys,%Inc(%IncTsys(),1))
/linea de tiempo de la temperatura del CPU/
%Graph.Pen(%IncTsys(),%baseCPU(),1)
%Assign(baseCPU,%Dec(43,%Trunc(%Div(%UsePlugin('mbm\mbm.dll',mbmTemperature2),1))))
%Graph.LineTo(%IncTsys(),%baseCPU(),1)
%Common.CreateNewLine()
%Format.Offset(Vertical,15)
"ATi 9600 XT "%UsePlugin('atitool\atitool.dll',0)"C"
%Common.CreateNewLine()
"Core:"%UsePlugin('atitool\atitool.dll',10)"MHz"
%Common.CreateNewLine()
"TMin:"%UsePlugin('atitool\atitool.dll',2)"\"%UsePlugin('atitool\atitool.dll',5)"C"
%Common.CreateNewLine()
"TMax:"%UsePlugin('atitool\atitool.dll',3)"\"%UsePlugin('atitool\atitool.dll',6)"C"
/linea de tiempo de la temperatura del chip de la VGA/
%Graph.Pen(%IncTsys(),%baseVGA(),1)
%Assign(baseVGA,%Dec(80,%Trunc(%Mul(%UsePlugin('atitool\atitool.dll',0),1))))
%Graph.LineTo(%IncTsys(),%baseVGA(),1)
#EndGfxMode
CygnusX dijo:Dogo_ARG
La única forma de saber si funciona el LCD del Ericsson es conectándolo según el diagrama. Desconozco que otros modelos montan el chip Phillips PCF8548 no estoy muy familiarizado con ellos. Lo que te puedo decir es que traté de montar un A2218z que físicamente es idéntico al A2618 y no tuve éxito
Lo atractivo de este LCD es que es ligeramente mas grande que el de nokia. Podrías hacer la prueba haber si funciona
Dogo_ARG dijo:Mi problema CygnusX es que no se cual conexion hacer dado que el a 26 tiene 5 conectores y a 1228d tiene 7 conectores y no se cuales dejar afuera (sin conexion).
Es por eso que te preguntaba si habia alguna forma de saber cual es cual de las conexiones del LCD (medirla con un tester o algo asi )
Me parece que voy a terminar comprando un LCD y ponerlo y no me vuelvo tan loko
Gracias
, aqui es donde mi conocimiento se acaba pues al no saber cual es el chip-driver del LCD, no sabemos cual es el V+ y el GND, y mucho menos voltaje/amperaje que necesita el LCD para funcionar, en una de esas se corre el riesgo de quemar el LCD sin saber si funciona o no!
total ahora si no se como conectarlo estoy en lo mismo no te parece? jijijijij
metro dijo:
. Como por el trabajo a veces me ausento hasta por un par de semanas, pues no hay quien vigile los proyectos y por una u otra causa siempre al regresar los he encontrado con fallas, dos o tres rotos, en fin. Hasta ahora que me decidí a fijar el LCd en un lugar en el que ya no le pueden hacer daño XD, ya ha superado la prueba de una semana =)
metro dijo:Yo llevo como 3 horas y apenas tengo el LCD con su PCB recortado, no más!!!
%System.ReadFile('unidad\archivo.txt',comando)#Header
%Graph.SetTextArea(0,0,128,64)
%Graph.SetTextArea(0,0,128,64)
%Param.RenderMode(Simple)
%Common.SetPriority(10000)
%Graph.LoadBitmap('pic.bmp',0,0,0,0,128,64,0,NONE)
%Graph.Font('Terminal',6,1)
#EndHeader
#GfxMode
"Numero de lineas: "%System.ReadFile('C:\lista.txt',FileSize)
%Common.CreateNewLine()
%System.ReadFile('C:\lista.txt',0)
%Common.CreateNewLine()
%System.ReadFile('C:\lista.txt',1)
%Common.CreateNewLine()
%System.ReadFile('C:\lista.txt',2)
%Common.CreateNewLine()
%System.ReadFile('C:\lista.txt',3)
%Common.CreateNewLine()
%System.ReadFile('C:\lista.txt',4)
%Common.CreateNewLine()
%System.ReadFile('C:\lista.txt',5)
%Common.CreateNewLine()
%System.ReadFile('C:\lista.txt',6)
%Common.CreateNewLine()
%System.ReadFile('C:\lista.txt',7)
#EndGfxMode%System.ReadFile('C:\lista.txt',5)
#Header
%Graph.SetTextArea(0,0,128,64)
%Graph.SetTextArea(0,0,128,64)
%Param.RenderMode(Simple)
%Common.SetPriority(10000)
%Graph.LoadBitmap('pic.bmp',0,0,0,0,128,64,0,NONE)
%Graph.Font('Terminal',6,1)
#EndHeader
#GfxMode
"Numero de lineas: "%System.ReadFile('C:\lista.txt',FileSize)
%Common.CreateNewLine()
%System.ReadFile('C:\lista.txt',0)
%Graph.Font('Terminal',5,1)
%Common.CreateNewLine()
%System.ReadFile('C:\lista.txt',1)
%Common.CreateNewLine()
%System.ReadFile('C:\lista.txt',2)", "
%System.ReadFile('C:\lista.txt',3)", "
%System.ReadFile('C:\lista.txt',4)", "
%Common.CreateNewLine()
%System.ReadFile('C:\lista.txt',5)", "
%System.ReadFile('C:\lista.txt',6)", "
%System.ReadFile('C:\lista.txt',7)
#EndGfxMode
#Header
%Graph.SetTextArea(0,0,128,64)
%Graph.SetTextArea(0,0,128,64)
%Param.RenderMode(Simple)
%Common.SetPriority(10000)
%Graph.LoadBitmap('pic.bmp',0,0,0,0,128,64,0,NONE)
%Graph.Font('Terminal',6,1)
%DefVar(Total=0)
%DefVar(Parcial=0)
#EndHeader
#GfxMode
"Numero de lineas: "%System.ReadFile('C:\numeros.txt',FileSize)
%Common.CreateNewLine()
"Los numeros son:"
%Common.CreateNewLine()
%System.ReadFile('C:\numeros.txt',2)", "
%Assign(Parcial,%System.ReadFile('C:\numeros.txt',2))
%Assign(Total,%Inc(%Total(),%Parcial()))
%System.ReadFile('C:\numeros.txt',3)", "
%Assign(Parcial,%System.ReadFile('C:\numeros.txt',3))
%Assign(Total ,%Inc(%Total(),%Parcial()))
%System.ReadFile('C:\numeros.txt',4)", "
%Assign(Parcial,%System.ReadFile('C:\numeros.txt',4))
%Assign(Total ,%Inc(%Total(),%Parcial()))
%System.ReadFile('C:\numeros.txt',5)" y "
%Assign(Parcial,%System.ReadFile('C:\numeros.txt',5))
%Assign(Total ,%Inc(%Total(),%Parcial()))
%System.ReadFile('C:\numeros.txt',6)
%Assign(Parcial,%System.ReadFile('C:\numeros.txt',6))
%Assign(Total ,%Inc(%Total(),%Parcial()))
%Common.CreateNewLine()
"La suma total es: " %Total()
#EndGfxMode
#Header
%Graph.SetTextArea(0,0,128,64)
%Graph.SetTextArea(0,0,128,64)
%Param.RenderMode(Simple)
/Salto cada hora/
/%Common.SetPriority(3600000)/
%DefVar(lineas=0)
%DefVar(lineainicial=0)
%DefVar(linea=0)
%DefVar(TA=0)
%DefVar(TR=0)
%DefVar(HR=0)
%Graph.Font('Terminal',6,1)
%Graph.LoadBitmap('clima.bmp',0,0,0,0,128,64,0,NONE)
#EndHeader
#GfxMode
/Actualizacion cada hora/
%Common.ChangeScreen(3600000,33)
%Assign(lineas, %System.ReadFile('D:\clima1.txt',FileSize))
%Assign(lineainicial,%Dec(%lineas(),11))
%Assign(linea,%Inc(%lineainicial(),0))" "
%System.ReadFile('D:\clima1.txt',%linea())
%Common.CreateNewLine()" "
%Assign(linea,%Inc(%lineainicial(),1)) "%System.ReadFile('D:\clima1.txt',%linea())
%Common.CreateNewLine()
%Assign(linea,%Inc(%lineainicial(),5))
%Format.Offset(Horizontal,7)
%Format.Offset(Vertical,5)
"Humedad: "%System.ReadFile('D:\clima1.txt',%linea())
/%Assign(HR,%System.ReadFile('D:\clima1.txt',%linea()))/
%Common.CreateNewLine()
/Condición/
%Assign(linea,%Inc(%lineainicial(),10))
%Format.Offset(Horizontal,26)
%Format.Offset(Vertical,7)
%Param.EnableScrolling(Horizontal,Ticker,2,76)
%System.ReadFile('D:\clima1.txt',%linea())
/Ciudad/
%Common.CreateNewLine()
%Format.Offset(Horizontal,20)
%Format.Offset(Vertical,9)
%Assign(linea,%Inc(%lineainicial(),2))
%Param.EnableScrolling(Horizontal,Ticker,2,89)
%System.ReadFile('D:\clima1.txt',%linea())
%Common.CreateNewLine()
%Assign(linea,%Inc(%lineainicial(),3))
/"TAmbiente: "%System.ReadFile('D:\clima1.txt',%linea())"C"/
%Assign(TA,%System.ReadFile('D:\clima1.txt',%linea()))
%Assign(TA,%Trunc(%TA()))
%Graph.Font('Terminal',5,1)
%Format.Offset(Horizontal,-28)
%Format.Offset(Vertical,-52)
%TA()" C"
%Format.Bar(Vertical,3,38,0,35,%TA(),0,0,8,12)
%Assign(linea,%Inc(%lineainicial(),4))
/"TRocio: "%System.ReadFile('D:\clima1.txt',%linea())"C"/
%Assign(TR,%System.ReadFile('D:\clima1.txt',%linea()))
%Assign(TR,%Round(%TR()))
%Common.CreateNewLine()
%Format.Offset(Horizontal,90)
%Format.Offset(Vertical,-8)
%TR()" C"
%Format.Bar(Vertical,3,38,0,35,%TR(),0,0,116,12)
#EndGfxMode
) voy a adaptarlos a estas dimensiones para disfrutar mejor el LCd de nokia
