TODOPIC

Mecatrónica => Robótica => Mensaje iniciado por: Frank_bot en 27 de Mayo de 2014, 07:31:40

Título: Problemas con Comunicación Serial Pic a Pic
Publicado por: Frank_bot en 27 de Mayo de 2014, 07:31:40

Saludos:
Antes de empezar, agradezco por toda la ayuda que puedan brindar  ((:-))
Estamos diseñando un proyecto que trata de simular el manejo de una planta de incubación de huevos, pero lo debemos realizar con mínimo dos Pic´s. El detalle es que el primer Pic es el cerebro y solo recibe los datos de entrada, los almacena en una variable y adicional esa misma variable debe ser enviado a un segundo Pic para que este realice los trabajos especificados. Adicional debe ir conectado a un puerto serial de PC y a través de Hyperterminal, visualizar lo que se esta realizando en ese momento (el segundo pic tiene almacenada esa información).

Primer Pic:

include "modedefs.bas" ;Libreria com serial
DEFINE OSC 4 ;Oscilador
x var byte ; Variable para CSerial
y var byte ; Variable CSerial

led var portb.4

X = y

x=0 ;Encerar variable
trisb=%00001111 ;Entradas y salidas PortB
portb=0;Encerar PortB

inicio:
  SERIN portb.1,N2400,x ;Dato recibido y almacenado
  SEROUT portb.2,N2400,[y] ; Dato recibido y enviado al siguiente
  if x="a" then
  High led
  else
  low led
  endif
goto inicio

Segundo Pic:

include "modedefs.bas"
DEFINE OSC 4
Y var byte
trisb=%00000010
portb=0

inicio:
  serin portb.1,N2400,y
 
  if y="b" then Temp
  if Y= "c" then VEN
  if Y= "d" then NIL
  if Y= "e" then SOLID
  if y= "f" then izquierda
  if y= "g" then encenderled
   
goto inicio

Temp:
  serout portb.2,N2400,["TEMPERATURA",$0a,$0d]
  pause 20
goto inicio

izquierda:
  serout portb.2,N2400,["mover izquierda",$0a,$0d]
  pause 20
goto inicio

encenderled:
  high portb.0
  serout portb.2,N2400, ["encendido led",$0a,$0d]
pause 10

NIL:
 serout portb.2,N2400,["Niquelina Encendida",$0a,$0d]
 pause 20
goto inicio
VEN:                                                 
 serout portb.2,N2400,["Ventilador Encendido",$0a,$0d]
 pause 20
goto inicio

SOLID:                                                 
 serout portb.2,N2400,["Vent - Niquel Apagados",$0a,$0d]
 pause 20
goto inicio
end

No entendemos en donde estamos fallando o si debemos cambiar la manera en que estamos programando. Como les comentaba, lo mas importante es que se realice la comunicación entre los dos Pic´s y la información de lo que se este realizando se pueda visualizar en la Pc a través del Hyperterminal.

Cualquier comentario o critica constructiva es Bienvenida.
Muchas Gracias

Título: Re: Problemas con Comunicación Serial Pic a Pic
Publicado por: dogflu66 en 05 de Junio de 2014, 07:51:26

Desconozco la lógica interna de tu lenguaje, pero en el mío habría que configurar el pin  Portb.2 como salida.