PDA

View Full Version : hserin problems



HELDERFERRAZ
- 11th February 2006, 00:41
Hello, I want to now how receive a string with hserin, the probleme is that for the fist time I receive just right but in next one the array does not have the information correct, please help me...


'ACTIVAR REGISTO PARA RECEBER DADOS
DEFINE HSER_RCSTA 90H

'ACTIVAR REGISTO PARA ENVIAR DADOS
DEFINE HSER_TXSTA 24H

'DEFENIR BAUD RATE
DEFINE HSER_BAUD 9600

'ACTIVAR O REGISTO SPRBG
DEFINE HSER_SPBRG 25

'LIMPAR O ERRO
DEFINE HSER_CLROERR 1


'ACTIVAR O LCD
'DEFINE LCD_DREG PORTD
'DEFINE LCD_BITS 8
'DEFINE LCD_LINES 2
'ADCON = %00000111
CMCON=7

'TRISC = %10000000
CHAR VAR BYTE [8]
C VAR BYTE [8]
I VAR BYTE
PAUSE 2000

INICIO:
PAUSE 2000
LCDOUT $FE, $1,"AT"
PAUSE 2000

HSEROUT ["AT",13]
HSERIN 5000,INICIO,[STR CHAR\8]
Lcdout $fe,$1,CHAR(0),CHAR(1),CHAR(2),CHAR(4),CHAR(5),CHA R(6),CHAR(7),CHAR(8)' Clear LCD screen
PAUSE 2000

LCDOUT $FE, $1,"HELLO1"
PAUSE 8000

HSEROUT ["AT",13]
HSERIN 5000,INICIO,[STR C\8]
Lcdout $fe,$1,C(0),C(1),C(2),C(4),C(5),C(6),C(7),C(8)' Clear LCD screen
PAUSE 2000

LCDOUT $FE, $1,"HELLO2"



GOTO INICIO
END