usart-bluetooth problem

[murat44]

hi;
i solved my problem when i checked wiring between pic and bluetooth module. then i succeed to send some data from pic to pc. everything works fine; but when it comes to send sth from pc to module, i fail i think there can be two reason for this.
one: low voltage level for pic-18f452 (data line-3,3 v)
two: codes...
what do you think?

thanks...

DEFINE OSC 4


DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_EREG PORTD
DEFINE LCD_EBIT 5
DEFINE LCD_RSREG PORTD
DEFINE LCD_RSBIT 6
DEFINE LCD_RWREG PORTD
DEFINE LCD_RWBIT 4
DEFINE LCD_BITS 4
DEFINE LCD_Lines 2


DEFINE HSER_RCSTA 90h'%10010000  
DEFINE HSER_TXSTA 24h'%00100100
DEFINE HSER_CLROERR 1
DEFINE HSER_BAUD 9600 
DEFINE HSER_SPBRG 25 

A VAR WORD
symbol LED=PORTE.1

TRISA.0=1
TRISC.7=1
TRISC.6=0
TRISE.1=0  

LCDOUT $FE,1
LED=1:
PAUSE 2000:
LED=0
PAUSE 1000
A=0
LCDOUT $FE,1,"HELLO"
pause 2000

MAIN:          
HSERIN [A]
LCDOUT $FE,1, "A: ", DEC A
PAUSE 1000
GOTO MAIN

 
End

[Tabsoft]

I would suggest the following items.
1. Change your "A" variable to a byte instead of a word since asynchronous serial ports transmit and receive ASCII characters which are bytes not words.
A var byte

2. Check the manual on HSERIN and use the timeout and label options with your command to help debug the issue.
Maybe something like this....

MAIN:

HSERIN 100, timesup, [A]
LCDOUT $FE, 1
LCDOUT $80, "A: ", Dec A
PAUSE 1000
GOTO MAIN

timesup:

LCDOUT $FE, 1
LCDOUT $FE, $80, "Timed Out!"
PAUSE 2000
GOTO MAIN

END


Regards,