28029 Parallax Inc, 28029 Datasheet - Page 286

• 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 274 · Smart Sensors and Applications
' -----[ Constants ]----------------------------------------------------------
T9600
LcdCls
LcdCr
LcdOff
LcdOn
Line0
Line1
Define
' -----[ Variables ]----------------------------------------------------------
custChar
index
dotLine
cursor
value
charCnt
line
' -----[ Initialization ]-----------------------------------------------------
PAUSE 100
SEROUT LcdPin, T9600, [LcdOn, LcdCls]
PAUSE 5
custChar = 3
dotLine = %11111
GOSUB Def_Horiz_Bar_Char
line = Line0
DEBUG "Enter values (0 to 80)", CR
' -----[ Main Routine ]-------------------------------------------------------
DO
LOOP
' -----[ Subroutine - Bar_Graph ]---------------------------------------------
Bar_Graph:
DEBUG ">"
DEBUGIN DEC value
GOSUB Bar_Graph
' Fill from left with black bars
CON
CON
CON
CON
CON
CON
CON
CON
VAR
VAR
VAR
VAR
VAR
VAR
VAR
84
12
13
21
22
128
148
248
Nib
Nib
Byte
Nib
Byte
Byte
Byte
' True, 8-bits, no parity, 9600
' Form feed -> clear screen
' Carriage return
' Turns display off
' Turns display on
' Line 0, character 0
' Line 1, character 0
' Address defines cust char 0
' Custom charcter selector
' Eeprom index variable
' 5-pixel dotted line
' Cursor placement
' Value to be graphed.
' Character counting variable
' Line0 or Line1
' Debounce power supply
' Initialize LCD
' 5 ms delay for clearing display
' Select Custom Character 3
' Black all pixels in each line
' Character define subroutine
' BarGraph on Line 0.
' Main loop
' Value from Transmit windowpane
' Display as bar graph
' Repeat main loop