|
LCD
Animation ' My First BASIC Stamp program ' Hari Wiguna ' June 14, 2000 ' ' It displays some animated texts onto an LCD '=== Constants === N9600 con $4054 I con 254 CLR con 1 '=== Variables === tI var byte tJ var byte tCh var byte start: '=== Clear Screen === SEROUT 15, N9600, [I,CLR] PAUSE 500 '=== Slowly display Welcome To ===
for tI = 0 to 9
Lookup tI, ["Welcome to"], tCh
SEROUT 15, N9600, [tCh]
PAUSE 200
next
'=== Slide in: "eSellerate" on second row ===
for tI = 0 to 9
tCh = 207 - tI
SEROUT 15, N9600, [I,tCh,"eSellerate"]
PAUSE 50
next
'=== Spinners ===
for tJ = 0 to 4 ' Loop 4 times
for tI = 0 to 3
Lookup tI, ["|/-",205], tCh
SEROUT 15, N9600, [I,142,tCh]
SEROUT 15, N9600, [I,193,tCh]
PAUSE 150
next
next
GOTO start eSellerate is TradeMark of www.esellerate.net |