TODOPIC
Microcontroladores PIC => Lenguaje Basic para microcontroladores PIC => Mensaje iniciado por: shagrat en 22 de Junio de 2010, 03:55:52
-
Buenas buenas,
aqui les dejo el código desarrollado en PIC BASIC PRO, y probado en proteus para la transmisión y recepción del puerto rs232 :P
Include "modedefs.bas";LIBRERIA DONDE INCLUYE EL MODULO DE ENVIO
DEFINE OSC 4 ;OSCILADOR 4 MHz
TRISA=%00000010; PIN 0 TX Y PIN 1 RX
TRISB=%00000000;SALIDA
PORTA=0;LIMPIAR PUERTO
PORTB=0;;LIMPIAR PUERTO
SO VAR PORTA.0;ASIGNACIÓN DEL PIN DE SALIDA
SI VAR PORTA.1;ASIGNACIÓN DEL PIN DE RECEPCION
I VAR BYTE;VARIABLE DE CONTEO
TEMP VAR BYTE;TEMPORAL DE DATOS
B0 var BYTE[20];ARREGLO PARA ENVIAR VARIOS DATOS
B0[0]="H"
B0[1]="O"
B0[2]="L"
B0[3]="A"
B0[4]=" "
B0[5]="M"
B0[6]="U"
B0[7]="N"
B0[8]="D"
B0[9]="O"
B0[10]=" "
INICIO:
;;;;ENVIO DE DATOS A 2400 BAUDIOS;;;
FOR I= 0 TO 10
TEMP=B0[I]
Serout SO,T2400,[TEMP];ENVIO POR EL PIN ASIGNADO A UNA VELOCIDAD DE 2400 BAUDS
pause 100;RETARDO
next i
Serin SI,T2400,B0;RECEPCIÓN A 2400 BAUDS
If B0!=" " Then MOSTRAR;ESPERAR A QUE EL USUARIO INGRESE O DIGITE UNA TECLA
;;IMPRIMA LO QUE EL USUARIO INGRESO;;
MOSTRAR:
TEMP=B0
Serout SO,T2400,[TEMP,13]; SE IMPRIME LO QUE EL USUARIO PULSO Y SE SALTA EL CARRO
pause 100
ENDEl montaje es el siguiente no olviden configurar el puerto virtual para que la velocidad sea de 2400 bauds
(http://i51.photobucket.com/albums/f351/dimmu_pds/txrx1684.jpg)
Los archivos estan adjuntos.
-
Gracias por compartir! :-/ :-/
Saludos!
-
muy bueno tu ejemplo; ahora debieras hacer con un pic que soporte rs232 y asi usas interrupciones y ves sus ventajas.
Saludos y gracias por compartir.
Atten.
Alexander Santana.
Barcelona-Venezuela.