Roseandthistle
New Member
Hi all. I'm nearing the completion of my project. I desperatly need help with a bargraph. I found a code for basic Stamp by Scott Edwards, that I'm trying to convert to Picaxe. The simulator is showing a syntax error on line 64. Can someone help clarify? I am trying to display an ADC input so that when the input decreases the bargraph increases. Thanks
Code:
*******************************
; ***** Sample Header File *****
; *******************************
; Filename: Horizontal Bargraph
; Date:
; File Version:
; Written by:Scott Edwards
; Function:
; Last Revision:
; Target PICAXE:
; *******************************
#PICAXE 28X2
'#COM 4
#SLOT NUMBER 0
#FREQ M4
SYMBOL BR = T9600
SYMBOL CGRAM = 64
SYMBOL BARPOS = 136
SYMBOL WIDTH = 10
SYMBOL MAXBAR = WIDTH * 3
SYMBOL FULBAR = 3
SYMBOL BASBAR = 0
SYMBOL GRAF = W0
SYMBOL BARS = W10
SYMBOL BAL = W11
SYMBOL PAD = W12
SYMBOL BALF =W13
SYMBOL CNT = BARS
SYMBOL ROW = BAL
SYMBOL CHAR = PAD
LET ADCSETUP = 0
PAUSE 1000
READADC10 0,GRAF
GOSUB LOADBITPATS
SEROUT A.3,BR,(254,0X01)
serout A.3,BR,(254,128,"POWER")
AGAIN:
GOSUB GETPOTVAL
serout A.3,BR,(254,BARPOS)
GOSUB BARGRAPH
GOTO AGAIN
'SUBROUTINES
GETPOTVAL:
READADC10 0,GRAF
BARGRAPH:
BARS = GRAF MAX MAXBAR /3
BAL = GRAF MAX MAXBAR//3
BALF = BAL MAX 1
PAD = WIDTH - BARS+BALF
SEROUT A.3, BR,(FULBAR/ BARS,BAL+BASBAR / BALF,""/ PAD)
RETURN
LOADBITPATS:
SEROUT A.3, BR, (136,CGRAM)
FOR CNT = 0 TO 3
LOOKUP CNT,(0,%10000,%10100,%10101),CHAR
FOR ROW = 0 TO 7
SEROUT A.3, BR, (CHAR)
NEXT
NEXT
RETURN