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...
Code:
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
Bookmarks