« 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
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
END
El montaje es el siguiente no olviden configurar el puerto virtual para que la velocidad sea de 2400 bauds
Los archivos estan adjuntos.
« Última modificación: 22 de Junio de 2010, 04:03:45 por shagrat »
En línea
Cuando análizas las variables y comprendes como interactuán, entenderas que el problema no es la electrónica, no es el sistema en sí, es que tu mente es un complejo inmenso que suele convertir lo más sencillo en lo más dificil, así que piensa antes de actuar y acuerdate, escucha al torpe e ignorante porque el también tiene su propia historia.