Manual

User’s Manual
Scott Edwards Electronics, Inc.
1939 S. Frontage Road, Suite F, Sierra Vista, AZ 85635 USA
ph: 520-459-4802 • fax: [phone] • www.seetron.com
BPP-420 • v4.0 • 2/03 • pg 7
Program Examples
Any computer/programming language that can produce serial output (2400 or 9600 bps, N81) can talk
to the BPP-420. The examples here are in BASIC, chosen because of its popularity and readability.
You may download these and other program listings from www.seetron.com.
' Program: 420DEMO.BAS (Demonstrate 4x20 Serial LCD with BASIC Stamp I)
' This program demonstrates many of the features of the 4x20 Serial
' LCD Module from Scott Edwards Electronics, Inc. Set the module to
' 2400 bps (S1: both switches down). Connect the serial input
' of the module to Stamp pin 0, GND to GND and +5V to +5V.
' Run this program.
' ===========Define names for LCD instructions==========
SYMBOL noCurs = 4 ' Make cursor invisible.
SYMBOL ulCurs = 5 ' Show underline cursor.
SYMBOL clrLCD = 12 ' Clear entire LCD screen.
SYMBOL posCmd = 16 ' Position cursor.
SYMBOL clrCol = 17 ' Clear column.
SYMBOL bell = 7 ' Ring bell.
SYMBOL wedge = 128 ' Wedge-shaped symbol.
SYMBOL bksp = 8 ' Backspace.
SYMBOL bigNums = 2 ' Begin big numbers.
' =================Begin demonstration=================
pause 1000 ' Wait a sec.
serout 0,n2400,(clrLCD) ' Clear the screen.
for b2 = 0 to 79
serout 0,n2400,(wedge) ' Fill screen with wedges.
next
pause 1000 ' Wait 1 second.
serout 0,n2400,(posCmd,68) ' Move to position 4 (64+4= 68).
for b2 = 1 to 12 ' Clear a 12-character swath with
pause 350 ' ...the clear-column feature.
serout 0,n2400,(clrCol,bell) ' Ring bell (if available) each loop.
next
' Turn on the underline cursor, move to pos. 26, and show message.
serout 0,n2400,(ulCurs,posCmd,90,"4x20 LCD")
pause 1000 ' Wait 1 second.
for b2 = 1 to 8
pause 100 ' Backspace to erase message.
serout 0,n2400,(bksp,bell) ' Ring bell (if available) each loop.
next
pause 1000 ' Wait 1 second.
serout 0,n2400,(noCurs) ' Turn cursor off.
' Print the numbers 0 to 99 in big numbers in the middle of
' the screen. Pause a half second between numbers.
for b2 = 0 to 99
serout 0,n2400,(posCmd,70,bigNums,#b2)
pause 500
next b2
END ' Finished.