programacion

http://www.slideshare.net/AngelPerez53/comunicacin-bluet
http://www.trastejant.es/circuitos/bluetoothPic.html
http://mexatronica.blogspot.mx/2009/11/tutorial-para-uso-de-modulo-de.htmlBásicamente lo que hacemos es usar la comunicación serial que viene de fabrica en el microcontrolador (modulo USART), ya que de esta manera, el microcontrolador podrá realizar otras tareas aparte de recibirdatos seriales.

El microcontrolador tiene configurada su USART a 9600bps a 8bits, sin paridad. al igual que el modulo. Esta programado para recibir datos seriales uno por uno, y si le llega el datoASCII que corresponde al numero “1”, enciende uno de los LEDs si le llega el dato correspondiente a “2”, entonces enciende el otro LED, y si le llega el dato correspondiente a “A” apaga los dos LEDs.En seguida el código para el microcontrolador.

#INCLUDE

CBLOCK 0X20
NUM1, NUM2, NUM3, DATO ;declaración de registros
ENDC

ORG 0X00 ;declaro el origen del programa en la dirección dereset
GOTO INICIO ;voy al inicio real del programa
ORG 0X04 ;declaro el vector de interrupción

;******************C O D I G O D E I N T E R R U P C I O N************************************
MOVFRCREG,W
MOVWF TXREG
MOVWF DATO
BCF PIR1,RCIF
RETFIE
;*****************************************************************************************
;******************C O N F I G U R A C I O N D E P UE R T O S********************************
INICIO: BSF STATUS,RP0 ;CAMBIO A BANCO 1

BCF TRISB,3 ;CONFIGURO PORTB,3 Y PORTB,4 COMO SALIDA
BCF TRISB,4 ;PARA LOS LEDS INDICADORES

BSF TRISB,1;CONFIGURO PORTB,1 Y PORTB,2 PARA QUE
BSF TRISB,2 ;FUNCIONE EL MODULO USART

BCF STATUS,RP0 ;CAMBIO A BANCO 0

CALL USARTINI ;LLAMO A LA SUBRUTINA QUE CONFIGURA
;AL MODULO USART

START: MOVFDATO,W ;COLOCO EL CONTENIDO DEL REGISTRO
SUBLW "1" ;DATO EN W Y LO COMPARO CON UNA
BTFSS STATUS,Z ;LITERAL
GOTO NEXT ;SI NO ES IGUAL, VA A LA SIGUIENTE PREGUNTA
bsf PORTB,4 ;SI ES IGUAL, ENCIENDO...