TODOPIC

Microcontroladores PIC => Lenguaje Basic para microcontroladores PIC => Mensaje iniciado por: paris17 en 15 de Enero de 2017, 14:40:48

Título: Port A ,No responde (Pic16f628A)
Publicado por: paris17 en 15 de Enero de 2017, 14:40:48
Hola a tod@s ,eh estado haciendo un comunicación serial vía bluetooth con el HC-05 ,lo que pasa es que cuando mando los datos (los casos) (3,4,5,6)al pin RX de mi PIC ,estos datos mi uC , no los responde, mido con mi voltimetro y no me da ningun voltaje ,en cambio cuando mando datos en el PortB ,si nos responde con un 1 logico  ,cual es el problema ,o solo los datos se envian en el portB y solo estos pueden aceptar los datos enviados ?
Les envió mi codigo
Código: QBasic/QuickBASIC
  1. Device=16F628A  
  2. Xtal 20
  3. DECLARE Hserial_Baud= 9600 ' Set baud rate to 9600
  4. DECLARE Hserial_TXSTA= %00100100 ' Enable transmit and asynchronous mode
  5. DECLARE Hserial_RCSTA= %10010000 ' Enable continuous receive
  6. DECLARE Hserial_Clear= ON ' Clear the buffer before receiving
  7. DECLARE CCP1_Pin PORTB.3
  8. DIM CONTROL AS Word  
  9. DIM A AS Word  
  10. DelayMS 200 ' tiempo para estabilizar la alimentación
  11. INICIO:
  12. HSerIn 50,INICIO,[Dec CONTROL]
  13.             SELECT CASE CONTROL
  14.         CASE 1  
  15.             High PORTB.6:Low PORTB.0
  16.         CASE 2
  17.             Low PORTB.6:Low PORTB.0
  18.         CASE 3
  19.             High PORTA.0:Low PORTA.1
  20.         CASE 4
  21.             High PORTA.1:Low PORTA.0
  22.         CASE 5
  23.             High PORTA.2:Low PORTA.3
  24.         CASE 6
  25.             High PORTA.3:Low PORTA.2      
  26.         CASE 7
  27.             Low PORTA.0:Low PORTA.1:Low PORTA.2:Low PORTA.3
  28.         CASE 8
  29.              HPWM 1,200,2000
  30.         CASE 9
  31.              HPWM 1,226,2000
  32.         CASE 10
  33.              HPWM 1,254,2000  
  34.         CASE ELSE
  35.              FOR A=0 TO 20 STEP 1
  36.                 High PORTB.0 ' RB0 = 1
  37.                 DelayUS CONTROL ' Pausa en microsegundos
  38.                 Low PORTB.0 ' RB0 = 0
  39.                 DelayMS 20 ' Pausa de 20 milisegundos
  40.                 NEXT
  41.             EndSelect
  42. GOTO INICIO
Título: Re:Port A ,No responde (Pic16f628A)
Publicado por: KILLERJC en 15 de Enero de 2017, 15:24:10
Aunque puede ser una pista pero no se de BASIC, Asi que en adelante te queda investigar.

RA0 a RA3 son entradas analogicas apenas se resetea (arranca) el micro, deberias pasarlo a digitales.
El registro involucrado es CMCON y necesitas cargarle 0x07 para inhabilitarlo.

¿Existe alguna instruccion para esto?
¿Puedo modificar directamente el registro?

Eso te lo dejo a vos.
Pienso que es ese el motivo, aunque tampoco veo seteado ningun TRISx.
Título: Re:Port A ,No responde (Pic16f628A)
Publicado por: paris17 en 16 de Enero de 2017, 13:50:05
gracias Hermano ,ese era el problema ,tenía que desabilitar los comparadores en basic se usa CMCON=7  ((:-))