#Header
%LCD.Gfx_SetTextArea(0,0,84,48)
%Common.SetPriority(1000)
/insert header code here/
%DefVar(hora,Local=0)
#EndHeader
#TextMode
/insert textmode script code here/
#EndTextMode
#GfxMode
/Script elaborado por James Andrade
(jaeranpi) Caqueta-Colombia/
%Graph.Font('Arial',7,1,Bold,)
%Assign(hora,%Dec(%System.GetDateTime(hh),12))
%If((%System.GetDateTime(hh) > 12) )
Then{ %hora() %System.GetDateTime(:nn:ss) " pm }
Else{ %System.GetDateTime(h:nn:ss) " am }
#EndGfxMode
#Header
%LCD.Gfx_SetTextArea(0,0,84,48)
%Common.SetPriority(1000)
/insert header code here/
%DefVar(hora,Local=0)
%DefVar(min,Local=0)
%DefVar(seg,Local=0)
#EndHeader
#TextMode
/insert textmode script code here/
#EndTextMode
#GfxMode
%Format.AlignCenter()
/Script elaborado por James Andrade
(jaeranpi) Caqueta-Colombia/
%Graph.Font('Arial',8,1,Bold,)
/%Graph.LoadBitmap('vist.bmp',0,0,0,0,84,48,0,NONE )/
%Assign(hora,%Dec(%System.GetDateTime(hh),12))
%If((%System.GetDateTime(hh) > 12) )
Then{ %hora() %System.GetDateTime(:nn:ss) " pm }
Else{ %System.GetDateTime(h:nn:ss) " am }
%Assign(min,%System.GetDateTime(nn:ss))
%If((%min() = 00:00) OR False)Then{ %Common.PlaySound('C:\WINDOWS\Media\bigben.wav')
}Else{ }
#EndGfxMode
cuy9000 dijo:Alguien sabe si este mod corre en windows vista??
CygnusX dijo:Al parecer si funciona en windows Vista, solo que la ayuda es el único sistema que no funciona, quizás debido a la forma en la que trabajan ahora los archivos de ayuda de la nueva versión del sistema operativo.
Respuesta del diseñador del LCDHype
Como siempre es cosa de probar. Aun no tengo un sistema de computo para experimentar, pero en cuanto me sea posible hacerme ya estaremos en medio de los experimentos.
farkas dijo: