Autor Tema: uso de Bluetooth hc-05  (Leído 463 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado jesus flores

  • PIC10
  • *
  • Mensajes: 17
uso de Bluetooth hc-05
« en: 08 de Marzo de 2017, 17:04:51 »
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

Desconectado T.E.I

  • PIC10
  • *
  • Mensajes: 18
Re:uso de Bluetooth hc-05
« Respuesta #1 en: 08 de Marzo de 2017, 23:34:51 »
buenas noches
espero y le sirva tengo algunas cosas al respecto cualquier cosa me informa para poder ayudarle

Desconectado jesus flores

  • PIC10
  • *
  • Mensajes: 17
Re:uso de Bluetooth hc-05
« Respuesta #2 en: 12 de Marzo de 2017, 15:13:42 »
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

Desconectado Stban

  • PIC12
  • **
  • Mensajes: 75
Re:uso de Bluetooth hc-05
« Respuesta #3 en: 21 de Marzo de 2017, 11:58:02 »
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.

Desconectado Stban

  • PIC12
  • **
  • Mensajes: 75
Re:uso de Bluetooth hc-05
« Respuesta #4 en: 21 de Marzo de 2017, 12:00:01 »
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


 

anything