repeat 'loop indefinately
if numChars > 20
repeat i from 0 to 19 'increment in
MoveTo(20-i, row)
repeat txt from 0 to i
char := byte[@_theText][txt]
LCD.STR(@char)
waitcnt(clkfreq / _delay + cnt)
Clear
waitcnt(clkfreq / _delay + cnt)
repeat i from 1 to (numChars - 19) 'full line
MoveTo(1, row)
repeat txt from i to (i + 19)
char := byte[@_theText][txt]
LCD.STR(@char)
waitcnt(clkfreq / _delay + cnt)
Clear
waitcnt(clkfreq / _delay + cnt)
repeat i from (numChars-18) to numChars 'increment out
MoveTo(1, row)
repeat txt from i to numChars
char := byte[@_theText][txt]
LCD.STR(@char)
waitcnt(clkfreq / _delay + cnt)
Clear
waitcnt(clkfreq / _delay + cnt)
[/php]
vs [html] tags
[html]PUB main | col, loop, row, char, txt, i, start, end
repeat 'loop indefinately
if numChars > 20
repeat i from 0 to 19 'increment in
MoveTo(20-i, row)
repeat txt from 0 to i
char := byte[@_theText][txt]
LCD.STR(@char)
waitcnt(clkfreq / _delay + cnt)
Clear
waitcnt(clkfreq / _delay + cnt)
repeat i from 1 to (numChars - 19) 'full line
MoveTo(1, row)
repeat txt from i to (i + 19)
char := byte[@_theText][txt]
LCD.STR(@char)
waitcnt(clkfreq / _delay + cnt)
Clear
waitcnt(clkfreq / _delay + cnt)
repeat i from (numChars-18) to numChars 'increment out
MoveTo(1, row)
repeat txt from i to numChars
char := byte[@_theText][txt]
LCD.STR(@char)
waitcnt(clkfreq / _delay + cnt)
Clear
waitcnt(clkfreq / _delay + cnt)
So I played around some last night with making a custom BBCode tag for formatting spin code [spin][/spin] in an effort to duplicate the Prop IDE. Well, it's not coming along so good.
Comments
[php]PUB main | col, loop, row, char, txt, i, start, end
LCD.start(_rxPin, _txPin, 0, 19_200)
waitcnt(clkfreq /2 + cnt)
Clear
row := 2
numChars := strsize(@_theText)
repeat 'loop indefinately
if numChars > 20
repeat i from 0 to 19 'increment in
MoveTo(20-i, row)
repeat txt from 0 to i
char := byte[@_theText][txt]
LCD.STR(@char)
waitcnt(clkfreq / _delay + cnt)
Clear
waitcnt(clkfreq / _delay + cnt)
repeat i from 1 to (numChars - 19) 'full line
MoveTo(1, row)
repeat txt from i to (i + 19)
char := byte[@_theText][txt]
LCD.STR(@char)
waitcnt(clkfreq / _delay + cnt)
Clear
waitcnt(clkfreq / _delay + cnt)
repeat i from (numChars-18) to numChars 'increment out
MoveTo(1, row)
repeat txt from i to numChars
char := byte[@_theText][txt]
LCD.STR(@char)
waitcnt(clkfreq / _delay + cnt)
Clear
waitcnt(clkfreq / _delay + cnt)
[/php]
vs [html] tags
[html]PUB main | col, loop, row, char, txt, i, start, end
LCD.start(_rxPin, _txPin, 0, 19_200)
waitcnt(clkfreq /2 + cnt)
Clear
row := 2
numChars := strsize(@_theText)
repeat 'loop indefinately
if numChars > 20
repeat i from 0 to 19 'increment in
MoveTo(20-i, row)
repeat txt from 0 to i
char := byte[@_theText][txt]
LCD.STR(@char)
waitcnt(clkfreq / _delay + cnt)
Clear
waitcnt(clkfreq / _delay + cnt)
repeat i from 1 to (numChars - 19) 'full line
MoveTo(1, row)
repeat txt from i to (i + 19)
char := byte[@_theText][txt]
LCD.STR(@char)
waitcnt(clkfreq / _delay + cnt)
Clear
waitcnt(clkfreq / _delay + cnt)
repeat i from (numChars-18) to numChars 'increment out
MoveTo(1, row)
repeat txt from i to numChars
char := byte[@_theText][txt]
LCD.STR(@char)
waitcnt(clkfreq / _delay + cnt)
Clear
waitcnt(clkfreq / _delay + cnt)
[/html]