seri haberleşme

[bahdiyarusta]

merhaba,

bluethot modül ile led kontrolü yapmaya çalışıyorum, burda modülden 1 bilgisi geldiğinde ledi yak 3 bilgisi geldiğinde ledi söndür demek istiyorum, 9600 bund hızı, gelen bilgiyi de ekranda görmek istiyorum, bunu en basit şekilde yapmaya çalışıyorum, lcd de gelen bilgiyi göremiyorum, daha önce seri iletişim uygulamam yok, yardımlarınızı beklıyourm, teşekkürler
burda benim komutlarım,

DEFINE OSC 4
DEFINE LCD_DREG     PORTB       
DEFINE LCD_DBIT     4           
DEFINE LCD_RSREG    PORTB       
DEFINE LCD_RSBIT    1           
DEFINE LCD_RWREG    PORTB       
DEFINE LCD_RWBIT    2           
DEFINE LCD_EREG     PORTB       
DEFINE LCD_EBIT     3           
DEFINE LCD_LINES    4           
DEFINE LCD_BITS     2 
ALICI VAR BYTE
ALICI=0
PORTA=0
PORTB=0
LCDOUT $FE,1,  "     SISTEM    "
LCDOUT $FE,$C0,"    BASLIYOR   "
PAUSE 1000           
BASLA:
SERIN2 PORTA.0,9600,[ALICI]
LCDOUT $FE,1,"BILGI:",#ALICI
LCDOUT $FE,$C0,"OKUNUYOR"
IF ALICI=1 THEN HIGH PORTA.1
IF ALICI=3 THEN LOW PORTA.1
PAUSE 60
GOTO BASLA
END