.::COMUNICACIÓN SERIAL PIC A PIC::.

MATPIC.COM

COMUNICACIÓN SERIAL PIC A PIC

 

logo matpic

Nuevo Sistema de calificación automática de exámenes de opción múltiple.

Nuevo Sistema de conteo vehicular v1.0

Nuevo Chat vía comunicación rs-232.

Nuevo Seguimiento de color con envío de datos vía rs-232.

Nuevo Medición de distancias con una cámara web y un puntero láser

Nuevo Seguir rostro usando una webcam en MATLAB.

Nuevo Reconocimiento de género por voz usando MATLAB.

Nuevo MATLAB reconoce forma y color

Nuevo Ecualizador de Audio con MATLAB - SIMULINK.

Nuevo Sistema de seguridad SPYCAM con MATLAB

Nuevo Seguimiento de color con MATLAB.

Nuevo Seguimiento de objeto con MATLAB.

Nuevo Reconocimiento de formas con MATLAB.

Nuevo Simulink - modulaciones y de modulaciones digitales.

Nuevo GUI para procesamiento de imágenes.

Nuevo Adquisición de señales ECG.

Nuevo Restauración de imágenes degradadas por ruido

COMUNICACIÓN SERIAL PIC A PIC

Para realizar la comunicación serial entre dos pics se usará la función serin para el caso de datos de recepción y serout para el caso de transmisión.

La sintaxis de la función serin es:

Serin pin, velocidad, variable

La sintaxis de la función serout es:

Serout pin, velocidad, [variable]

En PBP es necesario incluir la librería modedefs.bas cuando se realiza comunicación serial.

El programa para el micro transmisor es:

include "modedefs.bas"
trisb=0
portb=0
serout portb.0,T2400,["A"]
end

El programa para el micro receptor es:

include "modedefs.bas"
entrada var byte
trisb=1
serin portb.0,T2400,entrada
end

La velocidad T2400 significa: 2400 baudios en valores sin invertir (True).

La siguiente figura muestra el resultado de la simulación de este programa:

serial1

Es necesario establecer la velocidad de envío del virtual terminal a 2400.

Mejorando un poco el programa, se enviará una palabra y luego una secuencia de números. Modificamos el programa de transmisión de la siguiente manera:

include "modedefs.bas"
n var byte
trisb=0
portb=0
serout portb.0,T2400,["INICIO"]
pause 500
for n=1 to 10
serout portb.0,T2400,[#n]
pause 500
next
serout portb.0,T2400,["FIN"]
end

Para el programa de recepción se añade un LCD para mostrar los datos recibidos por el micro de recepción:

include "modedefs.bas"
define lcd_dreg portb
define lcd_dbit 4
define lcd_rsreg portb
define lcd_rsbit 3
define lcd_ereg portb
define lcd_ebit 2

entrada var byte
trisb=1
while 1
serin portb.0,T2400,entrada
lcdout $fe,1,"MATPIC.com"
lcdout $fe,$c0,entrada
wend
end

El resultado de estos programas lo muestra la siguiente figura:

serial2

 

 

 

©2014 MATPIC

Prohibida cualquier copia parcial o total del contenido de esta web