28029 Parallax Inc, 28029 Datasheet - Page 312

• Manufacturer Part Number: 28029
• Description: KIT PARTS SMART SENSORS W/TEXT
• Manufacturer: Parallax Inc

Specifications of 28029

• Accessory Type: Parts Kit
• Product: Microcontroller Accessories
• Lead Free Status / RoHS Status: Contains lead / RoHS non-compliant
• For Use With/related Products: BASIC Stamp® or Javelin Modules
• Lead Free Status / RoHS Status: Lead free / RoHS Compliant, Contains lead / RoHS non-compliant
• Other names: 28029PAR

Page 300 · Smart Sensors and Applications
' -----[ Subroutine - Def_Vert_Bar_Char ]-------------------------------------
' Defines a vertical bar graph character based on the value variable
' (0 to 15) and the custChar variable, which selects the Parallax Serial
' LCD's custom characters between 0 and 7.
Def_Vert_Bar_Char:
' -----[ Subroutines - Horizontal_Placement ]---------------------------------
' Places the vertical bar graph at one of the Parallax 2X16 LCD's sixteen
' vertical columns.
ENDIF
RETURN
' Start define custom character
SEROUT LcdPin, T9600,
' Select a row map for the custom character based on value.
rowMap = %1111111100000000 >> (value & %1111)
' Send 8 bytes, each defining a dotted row in the custom character.
' row is determined by examining a bit in the rowMap variable, and then
' sending %11111 if the bit is 1, or %00000 if the bit is 0.
FOR index = 0 TO 7
NEXT
RETURN
value = 1
custChar = 2
GOSUB Def_Vert_Bar_Char
line = Line0
GOSUB Horizontal_Placement
value = 15
custChar = 3
GOSUB Def_Vert_Bar_Char
line = Line1
GOSUB Horizontal_Placement
value = 16
IF rowMap.LOWBIT(index) = 1 THEN
ELSE
ENDIF
SEROUT 14, 84, [%11111]
SEROUT 14, 84, [%00000]
[Define + custChar]
The cursor variable can set the horizontal location to
' Line 0 display
' Line 1 Display
' Restore value
' Repeat 7 times, index counts
' Examine next bit in rowMap
' If 1, send %11111
' Otherwise, send %00000
' Return from subroutine.
Each