uso de Bluetooth hc-05

[jesus flores]

buen dia,he estado interesado en utilizar un modulo Bluetooth, ya realiza mi app en appinventor,pero la pregunta es como realizo el programa para el pic,con un pequeño ejemplo me ayudarian bastante, con solo encender y apagar un led,muchas gracias

[T.E.I]

buenas noches
espero y le sirva tengo algunas cosas al respecto cualquier cosa me informa para poder ayudarle

[jesus flores]

de antemano muchas gracias por la atencion prestada,una pregunta, que tipo de archivo es?, como lo habro y,sabes usarlo en microcode?;me guie de un libro para esto, pero algo tengo mal, me podrias ayudar?

define osc 4
cmcon=7
adcon1=6
dato var byte
symbol led=porta.0
TRISA=1
INICIO:
serin portC.7, T9600, dato
if dato=1 then led=1
if dato=2 then led=0
goto inicio
end

[Stban]

adjunto un ejemplo en proron ide:

Código: [Seleccionar]

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [EJM]                                             *
'*  Notice  : Copyright (c) 2015 [EJM]                          *
'*          : All Rights Reserved                               *
'*  Date    : 14/02/2015                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
' Seleccion MCU y oscilador
DEVICE = 18F2550
XTAL = 48
ALL_DIGITAL= TRUE

'Configuración de los puertos
TRISA=0:TRISB=0:TRISC=0
PORTA=0:PORTB=0:PORTC=0

'Configuración USART
DECLARE HSERIAL_BAUD = 38400
DECLARE HSERIAL_RCSTA = %10010000 ' Enable continuous receive
DECLARE HSERIAL_TXSTA = %00100000 ' Enable transmit and asynchronous mode
DECLARE HSERIAL_CLEAR = ON

'Configuración LCD
DECLARE LCD_RSPIN PORTB.1
DECLARE LCD_ENPIN PORTB.3
DECLARE LCD_DTPIN PORTB.4
DECLARE LCD_INTERFACE 4
DECLARE LCD_LINES 2
DECLARE LCD_TYPE 0

'variables
DIM DATO AS BYTE

PORTB.2=0  'pin R/W, modo W (escritura)
CLS : DELAYMS 30

DATO = 0

LOOP:
    'Recibe dato SERIAL
    HSERIN 10, LOOP1, [DATO]
    LOOP1:
    'MUESTRA DATOS EN LCD
    PRINT $FE,$80,"DATO:",DEC DATO,"  "
    PRINT $FE,$C0,"DATO:",DATO,"  "
    GOTO LOOP
       
END

Cualquier duda no dudes en preguntar, solo ten en cuenta que es un picmicro con usart.

Saludos.

[Stban]

otro ejemplo en picbasic pro:

Código: [Seleccionar]

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [EJM]                                             *
'*  Notice  : Copyright (c) 2016 [EJM]                          *
'*          : All Rights Reserved                               *
'*  Date    : 22/03/2016                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
cmcon = 7

DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 20h
DEFINE HSER_BAUD 9600
DEFINE HSER_CLROERR 1

trisa = 0
trisb = 0

pulso var byte
opcion var byte

pulso = 150
porta = 0
portb = 0
 
inicio:
hserin 5, continuar, [opcion]
continuar:
pulsout portb.0, pulso
PORTB.0 = 0
pause 7

If opcion = "a" and pulso < 225 Then pulso = pulso + 1
If opcion = "b" and pulso > 60 Then pulso = pulso - 1
goto inicio
end