LCD BARgraphs

[SteveB]

Here's some sample code (no fancy animations):

'DEFINE NEWHAVEN_DISPLAY 1   'uncomment if needed
INCLUDE "LCDbar_INC_MOD2.bas"

wCounter VAR WORD

    LCDOUT $FE, $01
    PAUSE 100

MAIN:
    FOR wCounter = 0 to 100
        PAUSE 50
        LCDOUT $FE, $80, DEC3 wCounter
    ;@  BARgraph   Value,   Row, Col, Width, Range, Style, RtoL
    @   BARgraph  _wCounter,   1,  5,    13,   100, lines, 0
    NEXT wCounter                                                             
    
    FOR wCounter = 100 to 0 STEP -1
        PAUSE 50
        LCDOUT $FE, $80, DEC3 wCounter
    ;@  BARgraph   Value,   Row, Col, Width, Range, Style, RtoL
    @   BARgraph  _wCounter,   1,  5,    13,   100, lines, 0
    NEXT wCounter

GOTO MAIN

[Darrel Taylor]

Nicely done Steve.

It works great.

[SteveB]

Thanks Darrel.