Author: jsuijs
Date: Sun Mar 15 10:14:16 2009
New Revision: 850
Added:
trunk/include/external/lcd/lcd_backlight.jal
Log:
Added: trunk/include/external/lcd/lcd_backlight.jal
==============================================================================
--- (empty file)
+++ trunk/include/external/lcd/lcd_backlight.jal Sun Mar 15 10:14:16 2009
@@ -0,0 +1,42 @@
+--
--------------------------------------------------------------------------
+-- Title: lcd_backlight.jal
+-- Author: Joep Suijs, Copyright (c) 2009, all rights reserved.
+-- Adapted-by:
+-- Compiler: >=2.4g
+--
+-- This file is part of jallib (http://jallib.googlecode.com)
+-- Released under the BSD license
(http://www.opensource.org/licenses/bsd-license.php)
+--
+-- Description:
+-- Provides standard interface to backlight of (directly connected) lcd.
+--
+-- Sources:
+--
+-- Notes:
+--
+--
--------------------------------------------------------------------------
+
+;procedure lcd_backlight_variable(byte in value) is
+;end procedure
+
+--
----------------------------------------------------------------------------
+-- lcd_backlight - turn backlite on/off
+--
----------------------------------------------------------------------------
+procedure lcd_backlight(bit in onoff) is
+ if(defined(lcd_backlight_variable) == true) then
+ if (onoff) then
+ lcd_backlight_variable(255)
+ else
+ lcd_backlight_variable(0)
+ end if
+ return
+ end if
+
+ if(defined(lcd_bl) == true) then
+ if (defined(lcd_bl_inverted) == true) then
+ lcd_bl = ! onoff
+ else
+ lcd_bl = onoff
+ end if
+ end if
+end procedure
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"jallib" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/jallib?hl=en
-~----------~----~----~----~------~----~------~--~---
