BasicMicroUK - Forums

'
{$STAMP BS2sx}
' {$PBASIC 2.5}
' =========================================================================
'
'   File...... Bar Graph (Simple).bs2
'   Purpose... Demostrate A Simple Bar Graph
'   Author.... Chris Savage -- Parallax, Inc.
'   E-mail.... csavage@parallax.com
'   Started... 10-09-2005
'   Updated... 10-11-2005
'
'
'
' =========================================================================


' -----[ Program Description ]---------------------------------------------

' This program shows how to draw a Simple Bar Graph Display on a Parallax
' 2X16 Serial LCD.  The subroutine needs only to know the highVal and the
' current index to display the Percent and Bar Graph.  Feel free to change
' the code to suit your own application.
'
' NOTE: This code includes other unused constants for the display so you
' have them, however if not used, these do not take up any memory in the
' BASIC Stamp, so they are good to have available.
'
' You can change the value of highVal and see how it affects things.
' highVal and index are Byte values and should never exceed 255.
'
' If you only want the BarGraph in the bottom of the display and not the
' numbers at the top, simply delete the first SEROUT line in the subroutine
' but be sure not to delete the line before it or the SEROUT after it.


' -----[ I/O Definitions ]-------------------------------------------------

'lCD             PIN     0               ' LCD Serial I/O Pin


' -----[ Constants ]-------------------------------------------------------

'LcdBkSpc        CON     $08             ' Move Cursor Left             8
'LcdRt           CON     $09             ' Move Cursor Right            9
'LcdLF           CON     $0A             ' Move Cursor Down 1 Line      10
LcdCls          CON     $0C             ' Clear LCD (Use PAUSE 5 After)   12
'LcdCR           CON     $0D             ' Move Pos 0 Of Next Line      13
LcdBLon         CON     $11             ' Backlight On               
'LcdBLoff        CON     $12             ' Backlight Off
'LcdOff          CON     $15             ' LCD Off
LcdOn1          CON     $16             ' LCD On; Cursor Off, Blink Off
'LcdOn2          CON     $17             ' LCD On; Cursor Off, Blink On
'LcdOn3          CON     $18             ' LCD On; Cursor On, Blink Off
'LcdOn4          CON     $19             ' LCD On; Cursor On, Blink On
LcdLine1        CON     $80             ' Move To Line 1, Column 0
LcdLine2        CON     $94             ' Move To Line 2, Column 0

LcdCC0          CON     $F8             ' Define Custom Char 0

Baud            CON     32              ' 19.2 Kbps (BS2)


' -----[ Variables ]-------------------------------------------------------

work            VAR     Byte            ' Work Variable
index           VAR     Byte            ' Current Value Of Count/Loop
highVal         VAR     Byte            ' Highest Value Expected
perCent         VAR     Byte            ' Percentage


' -----[ EEPROM Data ]-----------------------------------------------------

' Full Block Custom Character Data
CC0             DATA    LcdCC0, $1F, $1F, $1F, $1F, $1F, $1F, $1F, $1F
'write LcdCC0, $1F, $1F, $1F, $1F, $1F, $1F, $1F, $1F

' -----[ Initialization ]--------------------------------------------------
'lcdinit p0\p1\p7\p6\p5\p4\,p2         ?
  HIGH LCD                              ' Setup Serial Output Pin
  PAUSE 100                             ' Give LCD Time To Settle

Download_Chars:
  FOR index = 0 TO 8                    ' Download Custom Characters
    READ CC0 + index, work              ' Read EEPROM Data
    SEROUT LCD, Baud, [work]            ' Send To LCD CGRAM

   'lcdwrite p0\p1\p7\p6\p5\p4,p2 [cgram+0,{work},scrram+0]
 
 
  NEXT

  SEROUT LCD, Baud, [LcdOn1, LcdBLon]   ' Turn LCD Display & Backlight On
                                        ' Backlight Only On Backlit Models
  PAUSE 10                              ' Allow LCD Time To Settle

  highVal = 255                         ' You can change this value to any
                                        ' Non-Zero value

' -----[ Program Code ]----------------------------------------------------

Main:
  DO
    'SEROUT LCD, Baud, [LcdCls]            ' Clear LCD Screen
    PAUSE 10                              ' Must Follow CLS

    FOR index = 0 TO highVal              ' Count To highVal
      GOSUB Disp_Graph                    ' Update Display
      PAUSE 20                            ' Small Delay
    NEXT

    PAUSE 3000                            ' Wait 3 Seconds Then Repeat

  LOOP                                    ' Forever
  STOP


' -----[ Subroutines ]-----------------------------------------------------

Disp_Graph:
  perCent = ((index * 100) / highVal)     ' Calculate Percent Value
'  SEROUT LCD, Baud, [LcdLine1, DEC3 index, " / ",
'    DEC3 highVal, " = ", DEC perCent, "%"]
  SEROUT LCD, Baud, [LcdLine2, "0%", REP 0\(perCent / 10),
    REP 32\(10 - (perCent / 10)), "100%"]
  RETURN