Publicado por: laurabec en 23 de Agosto de 2004, 04:45:00
;************************************************************
; Programa para mostrar la funcionalidad de USART.
;
; Puerto B conectado a 8 LEDs.
; Cuando el PIC16F876 recive una palabra a traves de USART,
; el valor es mostrado en los LEDs y retransmitido hacia el host.
; 9600 baudios, 1 bit de stop y sin paridad
;
list p=16f876
include <P16f876.INC>
PORTB EQU 0x06
PORTC EQU 0X07
TRISB EQU 0x86
TRISC EQU 0x87
SPBRG EQU 0x99
TXSTA EQU 0x98
RCSTA EQU 0x18
PIR1 EQU 0x0C
PIE1 EQU 0x8C
INTCON EQU 0x0B
STATUS EQU 0x03
RCREG EQU 0x1A
TXREG EQU 0x19
PDel0 EQU 0x22
PDel1 EQU 0x23
PDel2 EQU 0x24
;************************************************************
; Vectores de reset y de interrupción
org 0x00 ; vector de reset
goto Start
org 0x04 ; vector de interrupcion
goto IntVector
;************************************************************
org 0x05
Start
clrf PORTB
clrf PORTC
bsf RCSTA,SPEN ; Se activa la USART
bsf STATUS,5 ; Cambia al banco 1
clrf TRISB ; Configura el puerto B como salidas
movlw b"10011111" ;RC7/Rx entrada,
movwf TRISC ;RC6/Tx salida y RC5 Salida.
movlw .25 ; 9600 baud @4MHz
movwf SPBRG
movlw b"10100100" ; Habilita la transmision
movwf TXSTA ; Asíncrono, alta velocidad, reloj interno
bcf STATUS,5 ; Cambia al banco 0
movlw b"10010000" ;Habilita puerto serie y recepción contínua
movwf RCSTA
bcf PIR1,RCIF ; Buffer de recepción de USART vacío
bsf STATUS,5
bsf PIE1,RCIE ; Habilita la interrupción de transmisión de USART
bcf STATUS,5
movlw b"11000000" ;Habilitacion para las
movwf INTCON ;interrupciones generales y perifericas
;************************************************************
; Main loop
Main
goto Main ;espera aqui hasta que salte la interrupción
;************************************************************
; rutina de interrupción
IntVector
btfss PIR1,RCIF ; Testeamos si se produce una interrupción en USART
; Indica si la transferencia se ha completado
goto OtherInt ; No, se produce otro tipo de interrupción
movlw 06h
andwf RCSTA,W ; Chequeamos los bits FERR y OERR de RCSTA para ver
; si se ha producido algún error durante la recepción
btfss STATUS,Z ; Chequeamos el bit de error de STATUS
goto RcvError ; Error encontrado
movf RCREG,W ; Toma datos entrantes
movwf PORTB ; Muestra el resultado en el puertoB
call DEMORA
;movwf TXREG ; Transmisión
clrf PORTB ;Borra el dato en PortB
goto ISREnd
RcvError
bcf RCSTA,CREN ; Deshabilita recepción contínua y borra el error
bsf RCSTA,CREN ; Habilita de nuevo recepción contínua
movlw 0FFh ; Ilumina todos los leds
movwf PORTB
goto ISREnd
OtherInt
goto $
ISREnd
retfie
DEMORA movlw .14 ; 1 set numero de repeticion (C)
movwf PDel0 ; 1 |
PLoop0 movlw .72 ; 1 set numero de repeticion (B)
movwf PDel1 ; 1 |
PLoop1 movlw .247 ; 1 set numero de repeticion (A)
movwf PDel2 ; 1 |
PLoop2 nop ; 1 clear watchdog
decfsz PDel2, 1 ; 1 + (1) es el tiempo 0 ? (A)
goto PLoop2 ; 2 no, loop
decfsz PDel1, 1 ; 1 + (1) es el tiempo 0 ? (B)
goto PLoop1 ; 2 no, loop
decfsz PDel0, 1 ; 1 + (1) es el tiempo 0 ? (C)
goto PLoop0 ; 2 no, loop
PDelL1 goto PDelL2 ; 2 ciclos delay
PDelL2 nop ; 1 ciclo delay
return ; 2+2 Fin.
end
Publicado por: T0ni0 en 23 de Agosto de 2004, 05:13:00
Pues el codigo está bien, se ve en los LEDs no lo he comprovado si es el número o no pero si se ve un cambio, para recibir el dato en el PC he tenido que cambiar de sitio la instrucción de enviar y si me llega al hyperterminal.así ha quedado todo:
;************************************************************
; Programa para mostrar la funcionalidad de USART.
;
; Puerto B conectado a 8 LEDs.
; Cuando el PIC16F876 recive una palabra a traves de USART,
; el valor es mostrado en los LEDs y retransmitido hacia el host.
; 9600 baudios, 1 bit de stop y sin paridad
;
list p=16f876
include <P16f876.INC>
PDel0 EQU 0x22
PDel1 EQU 0x23
PDel2 EQU 0x24
;************************************************************
; Vectores de reset y de interrupción
org 0x00 ; vector de reset
goto Start
org 0x04 ; vector de interrupcion
goto IntVector
;************************************************************
org 0x05
Start
clrf PORTB
clrf PORTC
bsf RCSTA,SPEN ; Se activa la USART
bsf STATUS,5 ; Cambia al banco 1
clrf TRISB ; Configura el puerto B como salidas
movlw b"10011111" ;RC7/Rx entrada,
movwf TRISC ;RC6/Tx salida y RC5 Salida.
movlw .25 ; 9600 baud @4MHz
movwf SPBRG
movlw b"10100100" ; Habilita la transmision
movwf TXSTA ; Asíncrono, alta velocidad, reloj interno
bcf STATUS,5 ; Cambia al banco 0
movlw b"10010000" ;Habilita puerto serie y recepción contínua
movwf RCSTA
bcf PIR1,RCIF ; Buffer de recepción de USART vacío
bsf STATUS,5
bsf PIE1,RCIE ; Habilita la interrupción de transmisión de USART
bcf STATUS,5
movlw b"11000000" ;Habilitacion para las
movwf INTCON ;interrupciones generales y perifericas
;************************************************************
; Main loop
Main
goto Main ;espera aqui hasta que salte la interrupción
;************************************************************
; rutina de interrupción
IntVector
btfss PIR1,RCIF ; Testeamos si se produce una interrupción en USART
; Indica si la transferencia se ha completado
goto OtherInt ; No, se produce otro tipo de interrupción
movlw 06h
andwf RCSTA,W ; Chequeamos los bits FERR y OERR de RCSTA para ver
; si se ha producido algún error durante la recepción
btfss STATUS,Z ; Chequeamos el bit de error de STATUS
goto RcvError ; Error encontrado
movf RCREG,W ; Toma datos entrantes
movwf PORTB ; Muestra el resultado en el puertoB
movwf TXREG ; Transmisión
call DEMORA
clrf PORTB ;Borra el dato en PortB
goto ISREnd
RcvError
bcf RCSTA,CREN ; Deshabilita recepción contínua y borra el error
bsf RCSTA,CREN ; Habilita de nuevo recepción contínua
movlw 0FFh ; Ilumina todos los leds
movwf PORTB
goto ISREnd
OtherInt
goto $
ISREnd
retfie
DEMORA movlw .14 ; 1 set numero de repeticion (C)
movwf PDel0 ; 1 |
PLoop0 movlw .72 ; 1 set numero de repeticion (B)
movwf PDel1 ; 1 |
PLoop1 movlw .247 ; 1 set numero de repeticion (A)
movwf PDel2 ; 1 |
PLoop2 nop ; 1 clear watchdog
decfsz PDel2, 1 ; 1 + (1) es el tiempo 0 ? (A)
goto PLoop2 ; 2 no, loop
decfsz PDel1, 1 ; 1 + (1) es el tiempo 0 ? (B)
goto PLoop1 ; 2 no, loop
decfsz PDel0, 1 ; 1 + (1) es el tiempo 0 ? (C)
goto PLoop0 ; 2 no, loop
PDelL1 goto PDelL2 ; 2 ciclos delay
PDelL2 nop ; 1 ciclo delay
return ; 2+2 Fin.
end
Si no te funciona comentanos que es lo que te hace a ti, ah!!! si pones el include del PIC No hace falta definir los registros internos, veras que en el codigo lo he borrado y PORTB etc... lo compila igualmente
Publicado por: laurabec en 23 de Agosto de 2004, 06:14:00
//---------------------------------------------------------------------------
#include <vcl.h>
#include <iostream.h>
#pragma hdrstop
#define NOMBRE1 "COM1"
#define NOMBRE2 "COM2"
//---------------------------------------------------------------------------
#pragma argsused
int main(int argc, char* argv[])
{
char datos [1000];
DWORD escritos;
BOOL finalizado = false;
OVERLAPPED over;
//Abrimos puerto
HANDLE puerto = CreateFile(NOMBRE2,GENERIC_WRITE,0, NULL,OPEN_EXISTING,FILE_FLAG_OVERLAPPED,NULL);
if(puerto== INVALID_HANDLE_VALUE){
DWORD e=GetLastError();
return e;
}
over.hEvent=CreateEvent(NULL,TRUE,FALSE,NULL);
if (over.hEvent == NULL)
{
cout<<"No se accede a recurso de S.O "<<endl;
return -1;
}
//Configuración del puerto de TRANSMISIÓN
DCB midcb;
DWORD e1=GetCommState(puerto, &midcb);
if(e1==0){
DWORD e=GetLastError();
CloseHandle(puerto);
return e1;
}
midcb.BaudRate=CBR_9600;
midcb.fParity = TRUE;
midcb.Parity=EVENPARITY;
midcb.StopBits=ONESTOPBIT;
midcb.ByteSize=8;
e1=SetCommState(puerto,&midcb);
if(e1==0){
CloseHandle(puerto);
DWORD e2=GetLastError();
return e2;
}
//Escribimos los datos
BOOL recibido=WriteFile(puerto,"HOLA",4, &escritos, &over);
if (recibido == 0)
{
do {
BOOL berror = GetOverlappedResult(puerto, &over, &escritos, false);
DWORD error = GetLastError();
if (berror == 0)
{
if ((error == ERROR_IO_INCOMPLETE) || (error != ERROR_IO_PENDING))
{
cout << "La operación de escritura asíncrona no ha finalizado aún "<<endl;
}
else
{
cout << "Error en el proceso de I/O "<<endl;
return -2;
}
}
else
{
cout << "Operación finalizada correctamente "<<endl;
finalizado = true;
CloseHandle(over.hEvent);
}
} while (finalizado == false);
}
//Liberamos el puerto de lectura
CloseHandle(puerto);
return 0;
}
//---------------------------------------------------------------------------
Publicado por: laurabec en 23 de Agosto de 2004, 06:17:00
Publicado por: T0ni0 en 23 de Agosto de 2004, 06:41:00
Lo primero comprobar el hardware, utilizas una placa de evaluación o una hecha por ti?
Probar comunicación serie del PC (ya sea tu código o utilizando Hyperterminal de windows) probar que envia y recibe
luego lo pruebas todo junto ok?
Publicado por: laurabec en 23 de Agosto de 2004, 09:21:00
la placa la hice yo...........según un esquema al igual al q hay en esta dirección http://informatica.uv.es/iiguia/SBM/lsbm_p5.pdf.las conexiones ya las comprobe y si q están bien!!!
mañ pruebo con lo del hiperterminal y os cuento! muxas gracias por todo!!
Publicado por: laurabec en 23 de Agosto de 2004, 09:24:00
http://informatica.uv.es/iiguia/SBM/lsbm_p4.pdf
es q ando a uvas!
Publicado por: T0ni0 en 23 de Agosto de 2004, 09:36:00
Con esto lo vuelves a probar, muchas veces solo con el puenta ya puede ser que no te funcione nada ok?
Publicado por: gabotronic en 26 de Agosto de 2004, 06:41:00
Saludos
Publicado por: laurabec en 26 de Agosto de 2004, 06:44:00
Publicado por: elabuelillo en 10 de Noviembre de 2004, 17:13:00
Hola,
estoy empezando a manejar la comunicacion serie con el 16f876 y tampoco soy capaz de comunicarme con él. Utilizo un programa de Vbasic que ya he probado con el 16f84a y funcionaba perfectamente. El mismo programa no es capaz de enviar ni un byte al pic. Me podeis dar alguna pista de que estaria haciendo mal.
Os paso la parte de codigo de visual.¿quizá hay otra version más nueva del MScomm?
Private Sub cmdEnviar_Click()
a = CByte(opcion)
byte0 = Chr$(a)
B = CByte(vel)
byte1 = Chr$(B)
C = CByte(angulo)
byte2 = Chr$(C)
d = CByte(0)
byte3 = Chr$(d)
comTelefono.PortOpen = True
comTelefono.Output = byte0
comTelefono.PortOpen = False
"Retardo
"comTelefono.PortOpen = True
"comTelefono.Output = byte1
"comTelefono.PortOpen = False
"Retardo
"comTelefono.PortOpen = True
"comTelefono.Output = byte2
"comTelefono.PortOpen = False
"Retardo
"comTelefono.PortOpen = True
"comTelefono.Output = byte3
"Retardo
"comTelefono.PortOpen = False
End Sub
En mi PC solo pude comunicar a 4800 bps cosa que no se puede hacer con el 16f876 con 4Mhz. Tambien he visto en vuestros programas que utilizais .25 para el SPBRG a 9600 y 4Mhz, según el catálogo que tengo este parámetro es para 2400 baudios para ese reloj.