PROGRAMA TRANSMISOR SERIAL CON PIC 16F84A

PROGRAMA TRANSMISOR SERIAL CON PIC 16F84A

program transmisor_serial
'Declaramos variables
DIM NUMERO, DATOS , ENVIAR AS BYTE

'Tiempo demuestreo
SUB PROCEDURE TIEMPO
DELAY_MS(200)
END SUB
main:
'Declaramos puertos
TRISA = %1100
TRISB = %11111111
'limpiamos puertos de salidaPORTA.0 = 0
PORTA.1 = 0
'condiciones iniciales
NUMERO = 0
DATOS = 0
'Inicio del programa MENU
INICIO:
' condiciones si se presiona un boton'Boton 1
IF PORTB = %00000001 THEN
TIEMPO
DATOS = 0
GOTO TRANSMISION
END IF
'Boton 2
IF PORTB = %00000010 THEN
TIEMPO
DATOS = 1
GOTO TRANSMISION
END IF'Boton 3
IF PORTB = %00000100 THEN
TIEMPO
DATOS = 2
GOTO TRANSMISION
END IF
'Boton 4
IF PORTB = %00001000 THEN
TIEMPO
DATOS = 3
GOTO TRANSMISION
END IF
'Boton5
IF PORTB = %00010000 THEN
TIEMPO
DATOS = 4
GOTO TRANSMISION
END IF
'Boton 6
IF PORTB = %00100000 THEN
TIEMPO
DATOS = 5
GOTO TRANSMISION
END IF
'Boton 7
IF PORTB =%01000000 THEN
TIEMPO
DATOS = 6
GOTO TRANSMISION
END IF
'Boton 8
IF PORTB = %10000000 THEN
TIEMPO
DATOS = 7
GOTO TRANSMISION
END IF
'Boton 9
IF RA2_BIT = 1 THENTIEMPO
DATOS = 8
GOTO TRANSMISION
END IF
'Boton 10
IF RA3_BIT = 1 THEN
TIEMPO
DATOS = 9
GOTO TRANSMISION
END IF
GOTO INICIO

'Programa transmision
TRANSMISION:'arranque
portA.1 = 0
'transmision del tren (DATOS de reloj)
FOR NUMERO = 0 TO DATOS
PORTA.0 = 0
DELAY_MS(200)
portA.1 = 1
PORTA.0 = 1DELAY_MS(100)
PORTA.0 = 0
DELAY_MS(200)

NEXT NUMERO
'repetir el tren de pulsos
GOTO INICIO
end.


PROGRAMA DE RECEPTOR SERIAL CON PIC 16F84A

program Receptor...