PBP 16F876A 2 Way Communication

[Charles Linquis]

Something like -


LoopTop:

If PIR1.5 = 1 THEN ' Check to see if Character was received
HSERIN[Char] ' Grab the character out of the UART
HSEROUT [ADVAL] ' Send the last A/D value
ENDIF

ADCIN 1, ADVAL ' Continuously sample the A/D

GOTO LoopTop

;---------------------------------------------------------------

PIR1.5 will be set (to "1") whenever ANY character has been received
in the USART. HSERIN grabs that character and sets PIR1.5 to "0" at
the same time. Then it sends the A/D value out.

If no character is received, the A/D converter converts merrily along...

[mister_e]

http://www.picbasic.co.uk/forum/show...1&postcount=11

[dmugan]

Thank you Charles Linquis and Mister E. Both of your suggestions were helpful. I have incorporated your suggestions in the program below, but I get an error when the compiler reaches the HSERIN command.

ERROR Line 38: Expected '['.

I have tried many different ways to confugure the HSERIN command, but always get this or sometimes additional errors. Any suggestions?

Thanks again for your help.

DEFINE ADC_BITS 10
DEFINE ADC_CLOCK 3
DEFINE ADC_SAMPLEUS 10
adcVar VAR WORD
TRISA = %11111111
ADCON1 = %10000010
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_BAUD 9600
DEFINE HSER_CLOERR 1
PAUSE 005

main:
If PIR1.5 = 1 THEN
HSERIN[char]
HSEROUT [DEC adcvar, 10, 13]
ENDIF
ADCIN 0, adcVar
PAUSE 50
GOTO main

[mat janssen]

I think you forgot to declare "char"
char var byte

[Ioannis]

And put a space before '['

Ioannis