Haz una pregunta
  Foros de Electrónica » Diseño digital » Microcontroladores y sistemas embebidos
Foros Registrarse ¿Olvidaste tu contraseña?

Temas similares

06/08/2006 #1


Comunicación USART de PIC a PIC
Holas... Necesito realizar la comunicación via USART entre dos pics q estan separados a una distancia de al menos 50 metros! Ustedes creen q es posible que la señal enviada desde un pic pueda sin alteraciones hasta el otro extremo donde esta ubicado el 2do pic? En caso q no llegue la señal, q alternativa se pueda aplicar para lograr la comunicación entre ambos?

....Gracias de antemano
15/08/2006 #2


Hola, tal vez si utilizas par trensado puede funcionar ya que tiene poca perdida, o si no puedes conectarle un MAX232 a cada microcontrolador para que funcione como buffer, son economicos.
22/08/2006 #3


hola, esta dificil una comunicacion RS232 por la distancia, podrias pensar en un sistema inalambrico que te alcance esa distancia!....
05/09/2006 #4


Re: COMUNICACION USART DE PIC A PIC
Turkito dijo:
Holas... Necesito realizar la comunicación via USART entre dos pics q estan separados a una distancia de al menos 50 metros! Ustedes creen q es posible que la señal enviada desde un pic pueda sin alteraciones hasta el otro extremo donde esta ubicado el 2do pic??? En caso q no llegue la señal, q alternativa se pueda aplicar para lograr la comunicación entre ambos????......

....Gracias de antemano
Usa RS485, un integrado como el MAX485 o DS75176 son económicos, se conectan directamente al PIC y puedes hacer lo que quieres. 50 mts o mas.

Saludos
06/09/2006 #5


Re: COMUNICACION USART DE PIC A PIC
maunix dijo:
Turkito dijo:
Holas... Necesito realizar la comunicación via USART entre dos pics q estan separados a una distancia de al menos 50 metros! Ustedes creen q es posible que la señal enviada desde un pic pueda sin alteraciones hasta el otro extremo donde esta ubicado el 2do pic??? En caso q no llegue la señal, q alternativa se pueda aplicar para lograr la comunicación entre ambos????......

....Gracias de antemano
Usa RS485, un integrado como el MAX485 o DS75176 son económicos, se conectan directamente al PIC y puedes hacer lo que quieres. 50 mts o mas.

Saludos
Absolutamente de acuerdo, sin embargo el standard del RS485 es hasta unos 100 metros. Espero que la distancia no supere los 90 metros para una comunicación 100% eficiente
06/09/2006 #6


Re: COMUNICACION USART DE PIC A PIC
shougo dijo:
maunix dijo:
Turkito dijo:
Holas... Necesito realizar la comunicación via USART entre dos pics q estan separados a una distancia de al menos 50 metros! Ustedes creen q es posible que la señal enviada desde un pic pueda sin alteraciones hasta el otro extremo donde esta ubicado el 2do pic??? En caso q no llegue la señal, q alternativa se pueda aplicar para lograr la comunicación entre ambos????......

....Gracias de antemano
Usa RS485, un integrado como el MAX485 o DS75176 son económicos, se conectan directamente al PIC y puedes hacer lo que quieres. 50 mts o mas.

Saludos
Absolutamente de acuerdo, sin embargo el standard del RS485 es hasta unos 100 metros. Espero que la distancia no supere los 90 metros para una comunicación 100% eficiente
¿De dónde sacas esa limitante? No tengo aquí la norma, pero fíjate esto:

http://en.wikipedia.org/wiki/EIA-485
EIA-485 only specifies electrical characteristics of the driver and the receiver. It does not specify or recommend any data protocol. EIA-485 enables the configuration of inexpensive local networks and multidrop communications links. It offers high data transmission speeds (35 Mbit/s up to 10 m and 100 kbit/s at 1200 m). Since it uses a differential balanced line over twisted pair (like EIA-422), it can span relatively large distances (up to 4000 feet or just over 1200 metres).
06/09/2006 #7


Otra forma es utilizando optoacopladores. serie similar al 485 o sea comunicacion por corriente que es mas inmune al ruido.
06/09/2006 #8


tiopepe123 dijo:
Otra forma es utilizando optoacopladores. serie similar al 485 o sea comunicacion por corriente que es mas inmune al ruido.
Los optoacopladores no eliminan el modo común, el RS485 sí.
07/09/2006 #9


Hola amigos gracais por las sugerencias.. Estoy utilizando RS-485 que como bien apunta mauricio puede alcanzar hasta 1200 m, sin embargo tengo un problema, no de hardware , sino con el software; necesitoi enviar 4 bytes de un pic hasta el otro, pero solamnete puedo enviar 3 sin ningun inconveniente, cuando envio el 4 byte sigue recibiendo 3 bytes pero aleatoriamente cualkiera de los 4, Estoy recibiendo los datos sin hacer uso de interrupciones debido a que las utilice pero me daba mas problemas aun, me recibia algunos caracteres falsos(ruido)....Que creen que pueda pasar ? algun problema de tiempos entre Tx y Rx???....bueno gracias de antemano por la colaboracion!
07/09/2006 #10


Turkito dijo:
Hola amigos gracais por las sugerencias.. Estoy utilizando RS-485 que como bien apunta mauricio puede alcanzar hasta 1200 m, sin embargo tengo un problema, no de hardware , sino con el software; necesitoi enviar 4 bytes de un pic hasta el otro, pero solamnete puedo enviar 3 sin ningun inconveniente, cuando envio el 4 byte sigue recibiendo 3 bytes pero aleatoriamente cualkiera de los 4, Estoy recibiendo los datos sin hacer uso de interrupciones debido a que las utilice pero me daba mas problemas aun, me recibia algunos caracteres falsos(ruido)....Que creen que pueda pasar ? algun problema de tiempos entre Tx y Rx???....bueno gracias de antemano por la colaboracion!
Pueden ser muchas cosas turkito,

¿puedes subir tu código?
07/09/2006 #11


Acá les envio el código!, fijense esta es la parte de Rx, la cual recibe los 4 bytes! para compararlos con 4 bytes,que corresponden a datos tomados desde 6 canales para conv A/D... Bueno con este código recibo 3 bytes perfectamente sin ningun inconveniente pero cuando trato de recibir el 4to byte me da problemas! sigue recibiendo 3 pero aleatorio cualkiera de los 4..Los 4 bytes los envio desde Tx uno tras otro seguidamente sin dar retraso!



Código:
 List p=18f458
 #include "p18f458.inc"

V1     equ 0x100  ; Registro para guardar ADRESH del conv AD..corresponidente a V1
V1H    equ 0x101
V1L    equ 0x102 
V2     equ 0x103  ;Registro para guardar ADRESH del conv AD..corresponidente a V2
V2H    equ 0x104
V2L    equ 0x105
V3     equ 0x106  ;Registro para guardar ADRESH del conv AD..corresponidente a V3
V3H    equ 0x107
V3L    equ 0x108
I1     equ 0x109  ;Registro para guardar ADRESH del conv AD..corresponidente a I1
I1H    equ 0x10A  
I1L    equ 0x10B
I2     equ 0x10C  ;Registro para guardar ADRESH del conv AD..corresponidente a I2
I2H    equ 0x10D
I2L    equ 0x10E
I3     equ 0x10F  ;Registro para guardar ADRESH del conv AD..corresponidente a I3
I3H    equ 0x110
I3L    equ 0x111
COUNT  equ 0x112 ; Registro contador para retardo y espera del tiempo de adquisición
A1     equ 0x113 ; W1 byte menos significativo(1)
A2     equ 0x114 ; W1 byte (2)
A3     equ 0x115 ; W1 Byte (3)
A4     equ 0x116 ; W1 byte(4):
B1     equ 0x117 ; W2 byte menos significativo (1)
B2     equ 0x118 ; W2 byte (2)
B3     equ 0x119 ; W2 byte (3)
B4     equ 0x11A ; W2 byte (4).
C1     equ 0x11B ; W3 byte menos significativo (1)
C2     equ 0x11C ; W3 byte (2)
C3     equ 0x11D ; W3 byte (3)
C4     equ 0x11E ; W3 byte (4).
AUX1   equ 0x11F ; Suma W1+W2(A+B).byte (1).
AUX2   equ 0x120 ; suma W1+W2 (A+B).byte (2)
AUX3   equ 0x121 ; suma W1+W2 (A+B).byte (3)
AUX4   equ 0x122 ; suma W1+W2 (A+B).byte (4).
D1     equ 0x123 ; WT byte (1) .
D2     equ 0x124 ; WT byte (2)
D3     equ 0x125 ; WT byte (3)
D4     equ 0x126 ; WT byte (4). 
CARRY  equ 0x127 ; Registro de acarreo para la suma (A+B) W1+W2
ACARREO equ 0x128; Registro de acarreo para la suma de (AUX + C)= WT.  
BCD_0    equ  0x129
BCD_1    equ  0x12A 
BCD_2    equ  0x12B
BCD_3    equ  0x12C  ; Registros para almacenar dato BCD de 8 digitos..Este dato corresponde a la potencia Total q se enviará Via USART
MSNIB    equ  0x12D  ; registro para conteo de bits en la conv BIN to BCD
LSNIB   equ  0x12E
delay   equ  0x12F
PDel0   equ  0x130
PDel1   equ  0x131
PDel2   equ  0x132
data1 equ 0x133
data2 equ 0x134
data3 equ 0x135
data4 equ 0x136
conta equ 0x137
DATO  equ 0x138

 ORG 0x0000
 goto INICIO
; org 0x0008
 ;goto inter
 ORG 0X001A

TX_DATO   bcf   PIR1,TXIF
          movwf TXREG
          
          banksel TXSTA
TX_DAT    clrwdt
          btfss   TXSTA,TRMT
          goto    TX_DAT
          return

RECIBE			movf	RCREG,W		;Limpia el registro receptor
				bcf	PIR1,RCIF	;Restaura el flag del receptor
Leer_Car_Wait	clrwdt
				btfss	PIR1,RCIF	;Se ha recibido un carácter ?
				goto	Leer_Car_Wait	;Todavía no, esperar
				movf	RCREG,W		;Si, leer el carácter
				movwf	DATO	;Salvarlo
				return


;***************************
INICIO 
         clrwdt 
		 banksel PORTC        
         clrf     PORTC
         clrf     PORTB
         clrf     PORTD
         clrf     TRISB ; PUERTA B COMO SALIDA
         clrf     TRISD ; PUERTA D COMO SALIDA
         movlw    b'10111111'
         movwf    TRISC  ; RC7/RX como entrada, RC6/TX como salida.
         movlw    b'00100100'
         movwf    TXSTA       ; TX ON, modo asincrono 8 bits 
         movlw     .25
         movwf    SPBRG       ; 9600 baudios con Fosc=4Mhz...asincrono
         bsf      PIE1,RCIE    ; habilita interrupción en la recepción
         movlw    b'10010000'
         movwf    RCSTA         ; USART ON , recepción continua,sincrono
         bsf      INTCON,PEIE   ;HAB INTERRUPCION DE PERIFERICOS
         bsf      INTCON,GIE    ; ACTIVA INTERRUPCIONES GLOBALES
         clrf conta

;loop     clrwdt
 ;        goto loop     
           
;*************  PROGRAMA PRINCIPAL *****************************
;*************CONVERSION DE CANAL CERO(0) ANALOGICO************

           
           movlw   0xFF    
           movwf   TRISA      ; Pines PortA como entradas
           movlw   b'00000001'
           movwf   TRISE      ; ----RE0 ENTRADA Y RE1 RE2 COMO SALIDAS----
;*////////////////////////////////////// 

;*****INICIA RECEPCION DE DATOS DESDE TX*******************

BUCLE                       CALL 	            RECIBE   ; recibe byte 1
		CALL    TX_DATO  ; envia para visualizar en PC
		clrwdt
		call    RECIBE ; recibe byte 2
        CALL TX_DATO
        CLRWDT
        CALL RECIBE  ; recibe byte 3
        CALL TX_DATO
        clrwdt
       ; CALL RECIBE ; recibe byte 4
        ;CALL TX_DATO

           
           movlw   b'10001001';            
           movwf   ADCON1     ; AD justificado a la derecha.pines AN0-AN5 como pines 
           clrwdt
           movlw   b'01000001'
           movwf   ADCON0      ; HAB A/D.CANAL 0. Fosc/8
           bcf     PIR1,ADIF ; Borra el flag de fin de conv AD
           banksel COUNT     ; ubicacion en el banco de COUNT
           movlw   0x30
           movwf   COUNT       ; carga 0x06 al registro COUNT
LOOP       decfsz  COUNT,f    ; decrementa y guarda en COUNT y salta si COUNT=0
           goto    LOOP        ; ESPERA TIEMPO DE ADQUISICION
           banksel ADCON0
           bsf     ADCON0,GO  ; da la orden de INICIO de CONVERSION
ADC_WAIT   CLRWDT
           btfss   PIR1,ADIF ;  Fin de conversión?
           goto    ADC_WAIT   ; aún no!
           call    MOV_V1     ; subrutina para mover  el valor obtenido al registro V1

;******** CONVERSIÓN DE CANAL 1 ANALÓGICO***************
           banksel ADCON0
           movlw   b'01001001' 
           movwf   ADCON0 ; HAB A/D . canal 1. Fosc /8
           bcf     PIR1,ADIF ; borra flag  de fin de conc AD
           banksel COUNT
           movlw   0x30
           movwf   COUNT
LOOP1      decfsz  COUNT,f ; decrementa COUNT y guarda en COUNT. salta si COUNT =0
           goto    LOOP1    ; ESPERA TIEMPO DE ADQUISICION
           banksel ADCON0
           bsf     ADCON0,GO; orden de inicio de conversión.
ADC_WAIT1  CLRWDT
           btfss   PIR1,ADIF ; fin de conversión?
           goto    ADC_WAIT1 ; aún no!
           call    MOV_I1    ; subrutina para mover  el valor obtenido al registro I1
;**********CONVERSION DE  CANAL 2 ANALOGICO***************
           banksel ADCON0
           movlw   b'01010001' 
           movwf   ADCON0 ; HAB A/D . canal 2. Fosc /8
           bcf     PIR1,ADIF ; borra flag  de fin de conc AD
           banksel COUNT
           movlw   0x30
           movwf   COUNT
LOOP2      decfsz  COUNT,f ; decrementa COUNT y guarda en COUNT. salta si COUNT =0
           goto    LOOP2    ; ESPERA TIEMPO DE ADQUISICION
           banksel ADCON0
           bsf     ADCON0,GO; orden de inicio de conversión.
ADC_WAIT2  CLRWDT
		   btfss   PIR1,ADIF ; fin de conversión?
           goto    ADC_WAIT2 ; aún no!
           call    MOV_V2     ; subrutina para mover  el valor obtenido al registro V2
;**************CONVERSIÓN DE CANAL 3 ANALÓGICO********************
           banksel ADCON0
           movlw   b'01011001' 
           movwf   ADCON0 ; HAB A/D . canal 3. Fosc /8
           bcf     PIR1,ADIF ; borra flag  de fin de conc AD
           banksel COUNT
           movlw   0x30
           movwf   COUNT
LOOP3      decfsz  COUNT,f ; decrementa COUNT y guarda en COUNT. salta si COUNT =0
           goto    LOOP3    ; ESPERA TIEMPO DE ADQUISICION
           banksel ADCON0
           bsf     ADCON0,GO; orden de inicio de conversión.
ADC_WAIT3  CLRWDT
           btfss   PIR1,ADIF ; fin de conversión?
           goto    ADC_WAIT3 ; aún no!
           call    MOV_I2     ; subrutina para mover  el valor obtenido al registro I2
;*******CONVERSIÓN CANAL 4 ANALÓGICO*****************************
          banksel ADCON0
           movlw   b'01100001' 
           movwf   ADCON0 ; HAB A/D . canal 4. Fosc /8
           bcf     PIR1,ADIF ; borra flag  de fin de conc AD
           banksel COUNT
           movlw   0x30
           movwf   COUNT
LOOP4      decfsz  COUNT,f    ; decrementa COUNT y guarda en COUNT. salta si COUNT =0
           goto    LOOP4      ; ESPERA TIEMPO DE ADQUISICION
           banksel ADCON0
           bsf     ADCON0,GO  ; orden de inicio de conversión.
ADC_WAIT4  CLRWDT
           btfss   PIR1,ADIF  ; fin de conversión?
           goto    ADC_WAIT4  ; aún no!
           call    MOV_V3     ; subrutina para mover  el valor obtenido al registro V3
;******CONVERSION CANAL 5 ANALÓGICO*********************************
           banksel ADCON0
           movlw   b'01101001' 
           movwf   ADCON0    ; HAB A/D . canal 5. Fosc /8
           bcf     PIR1,ADIF ; borra flag  de fin de conc AD
           banksel COUNT
           movlw   0x30
           movwf   COUNT
LOOP5      decfsz  COUNT,f   ; decrementa COUNT y guarda en COUNT. salta si COUNT =0
           goto    LOOP5      ; ESPERA TIEMPO DE ADQUISICION
           banksel ADCON0
           bsf     ADCON0,GO  ; orden de inicio de conversión.
ADC_WAIT5  CLRWDT
           btfss   PIR1,ADIF  ; fin de conversión?
           goto    ADC_WAIT5  ; aún no!
           call    MOV_I3     ; subrutina para mover  el valor obtenido al registro 

; ****LLAMA A LAS SUBRUTINAS PARA MULTIPLICAR LOS RESULTADOS DE V*I Y OBTENER LA POTENCIA TOTAL
           call    MULT       ; subrutina de acondicionamiento de la señal.. se multiplica V*100 e I*200 para obtener un máx
                              ; de 220V y 1A(por cada mv respectivamente.
           call    OBT_A      ; Multiplica V1H-L*I1H-L---->A =W1         
           call    OBT_B      ; Mutiplica  V2H-L*I2H-L---->B =W2
           call    OBT_C      ; Multiplica V3H-L*I3H-L---->C =W3
           call    OBT_AUX    ; suma W1+W2(a+b)->AUX
           call    OBT_Wtotal ; suma Aux+C-> D  
           banksel ADCON0
           CLRWDT
           
         
           goto    BUCLE     ; INICIA LA RECEPCION Y CONVERSION DE DATOS EN CADA CANAL NUEVAMENTE




;*********************************************************************
; ******************* SUBRUTINAS *************************************** 
MOV_V1                          ;========= Mueven a V1,V2,V3 e I1 I2 I3 el valor obtenido en ADRESL==========
         banksel ADRESL         ;=================se garantiza un valor max de 255 a traves del hardware (1.2Vinmax)===
         movff   ADRESL,V1; ADRESL->V1
         return  ; retorna a la siguiente instrucción, ubicada despues de la llamada a subrutina

MOV_I1   
         banksel ADRESL
         movff   ADRESL, I1; ADRESL->I1
         return

MOV_V2   
         banksel ADRESL
         movff   ADRESL, V2; ADRESL->V2
         return

MOV_I2   
         banksel ADRESL
         movff   ADRESL,I2; ADRESL->I2
         return  ; retorna a la siguiente instrucción, ubicada despues de la llamada a subrutina
 
MOV_V3   
         banksel ADRESL
         movff   ADRESL,V3;  ADRESL->V3
         return  ; retorna a la siguiente instrucción, ubicada despues de la llamada a subrutina

MOV_I3   
         banksel ADRESL
         movff   ADRESL,I3; ADRESL->I3
         return  ; retorna a la siguiente instrucción, ubicada despues de la llamada a subrutina


;********************************************************************
MULT    
        banksel V1
        movlw   .96  ; *********************    ADvoltaje*48*2 debido a la resolución!
        mulwf   V1 ; V1*96  -> PRODH_L          ; ADintensidad *48 
        banksel PRODH                           ; al multiplicar V*I se obtiene W en unidades de ((mW)).... 
        movff   PRODH,V1H ; PRODH->V1H          ; 
        movff   PRODL,V1L ; PRODl->V1L           
        banksel I1
        movlw   .48  ;*******************
        mulwf   I1    ; I1*48 -> PRODH_L
        banksel PRODH
        movff   PRODH,I1H ; PRODH->I1H
        movff   PRODL,I1L ; PRODL-> I1L
;****************************V2(48*2) e I2(48)**************************************
        banksel V2
        movlw   .96; *********************
        mulwf   V2 ; V2*96-> PRODH_L
        banksel PRODH
        movff   PRODH,V2H ; PRODH->V2H
        movff   PRODL,V2L ; PRODL->V2L
        banksel I2
        movlw   .48   ;*******************
        mulwf   I2 ; I2*48 -> PRODH_L
        banksel PRODH
        movff   PRODH,I2H ; PRODH->I2H
        movff   PRODL,I2L ; PRODL->I2L
;***************************V3(48*2) e I3(48)********************************
        banksel V3
        movlw   .96; *********************
        mulwf   V3 ; V3*96-> PRODH_L
        banksel PRODH
        movff   PRODH,V3H ; PRODH->V3H
        movff   PRODL,V3L ; PRODl->V3L
        banksel I3
        movlw   .48    ;*******************
        mulwf   I3 ; I3*48 -> PRODH_L
        banksel PRODH
        movff   PRODH,I3H ; PRODH->I3H
        movff   PRODL,I3L ; PRODL-> I3L


       return ; fin de subrutina
;====== SUBRUTINA PARA OBTENER A=W1(V1H_L * I1H_L) A4 MSbyte============

OBT_A
       banksel V1L
       movf     V1L,W
       mulwf    I1L
       movff    PRODH,A2
       movff    PRODL,A1
       movf     V1H,W
       mulwf    I1H
       movff    PRODH,A4
       movff    PRODL,A3
   
      movf      V1L ,W
      mulwf     I1H
 
       movf     PRODL,W
       addwf    A2
       movf     PRODH,W
       addwfc   A3
       clrf     WREG
       addwfc   A4
       
       movf     V1H,W
       mulwf    I1L

       movf     PRODL,W
       addwf    A2
       movf     PRODH,W
       addwfc    A3,1
       clrf     WREG
       addwfc   A4

 return; fin de subrutina

;====SUBRUTINA PARA OBTENER B=W2(V2H_L * I2H_L)  B4 MSByte======
OBT_B
       banksel V2L
       movf     V2L,W
       mulwf    I2L
       movff    PRODH,B2
       movff    PRODL,B1
       movf     V2H,W
       mulwf    I2H
       movff    PRODH,B4
       movff    PRODL,B3
   
      movf      V2L ,W
      mulwf     I2H
 
       movf     PRODL,W
       addwf    B2
       movf     PRODH,W
       addwfc    B3
       clrf     WREG
       addwfc   B4
       
       movf     V2H,W
       mulwf    I2L

       movf     PRODL,W
       addwf    B2
       movf     PRODH,W
       addwfc    B3
       clrf     WREG
       addwfc   B4

 return; fin de subrutina

;==SUBRUTINA PARA OBTENER C=W3 (V3H_L * I3H_L) C4 MSByte =============
OBT_C
       banksel V3L
       movf     V3L,W
       mulwf    I3L
       movff    PRODH,C2
       movff    PRODL,C1
       movf     V3H,W
       mulwf    I3H
       movff    PRODH,C4
       movff    PRODL,C3
   
      movf      V3L ,W
      mulwf     I3H
 
       movf     PRODL,W
       addwf    C2
       movf     PRODH,W
       addwfc    C3
       clrf     WREG
       addwfc   C4
       
       movf     V3H,W
       mulwf    I3L

       movf     PRODL,W
       addwf    C2
       movf     PRODH,W
       addwfc    C3
       clrf     WREG
       addwfc   C4

 return; fin de subrutina





;***********-----Aux=A+B------- *********************
OBT_AUX  
         banksel CARRY
         clrf    CARRY
         banksel A1
         movf    A1,W
         addwf   B1,W
         movwf   AUX1
         btfsc   STATUS,C   ; acarreo?
         goto    INC_CARRY1 ; Si!
UNO      movf    A2,W       ; NO
         addwf   B2,W  
         movwf   AUX2
         btfsc   STATUS,C ; ACARREO?
         goto    INC_CARRY2 ; si!
DOS      movf    A3, W
         addwf   B3,W
         movwf   AUX3
         btfsc   STATUS,C; acarreo?
         goto    INC_CARRY3 ;SI!
TRES     movf    A4,W
         addwf   B4,W
         movwf   AUX4
         btfsc   STATUS,C; acarreo?
         incf    CARRY
         goto    FINISH

INC_CARRY1 incf A2
           btfsc STATUS,Z; acarreo?
           incf A3 ; si!
           goto UNO ; NO
INC_CARRY2 incf A3
           btfsc STATUS,Z; acarreo?
           incf A4
           goto DOS
INC_CARRY3 incf A4
           btfsc STATUS,Z ; acarreo?
           incf CARRY
           goto TRES 
FINISH     return

;****************------D=Aux+C=Wtotal--------***********************
OBT_Wtotal
           banksel AUX1
           movf AUX1,W
           addwf C1, W
           movwf D1
           btfsc STATUS,C ; acarreo?
           goto CARRY1
ONE        movf AUX2,W
           addwf C2,W
           movwf D2
           btfsc STATUS,C; ACARREO?
           goto CARRY2
TWO        movf AUX3, W
           addwf C3,W
           movwf D3
           btfsc STATUS,C
           goto CARRY3
THREE      movf AUX4,W
           addwf C4,W
           movwf D4
           btfsc STATUS,C; acarreo?
           incf ACARREO 
           goto FIN

CARRY1    incf AUX2
          btfsc STATUS,Z; acarreo?
          incf AUX3
          goto ONE
 
CARRY2    incf AUX3
          btfsc STATUS,Z; acarreo?
          incf AUX4
          goto TWO

CARRY3    incf AUX4
          btfsc STATUS,Z; acarreo?
          incf ACARREO
          goto THREE

FIN       return 
           

 end ; fin del programa
23/05/2009 #12


hola como puedo comunicar dos pics con comunicacion serial
ayuda!
23/05/2009 #13

Avatar de Meta

Si programas uno que tenga entrada y salida iguales, los dos PIC en Clon al menos la comunicación, puedes hacerlo por método del RS232 COM.

www.pic16f84a.org te explica todo. Ya tiene librería hecha tanto de la comunicación asíncrona como los mensajes que envía desde el PIC.

Para comunicarse con PIC es mejor el I2C y SPI porque van más rápido.
Archivos Adjuntos
Tipo de Archivo: rar rs232_166.rar (26,0 KB (Kilobytes), 735 visitas)
23/05/2009 #14


muchas gracias meta pero yo estoy acostumbrado a programar en lenguaje C en especial CCS C compiler

saludos
Respuesta
¿Tienes una mejor respuesta a este tema? ¿Quieres hacerle una pregunta a nuestra comunidad y sus expertos? Registrate

Foros de Electrónica » Diseño digital » Microcontroladores y sistemas embebidos

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO ©2011, Crawlability, Inc.