Estudiante Ingeniería

PID-ADC-DAC
INCLUDE "modedefs.bas" 'MODO DE COMUNICACION SERIAL
DEFINE OSC 20 'SE DEFINE OSCILADOR EXTERNO DE 20MHz

'================================================================'CONFIGURACION ADC Y PUERTOS
'================================================================
TRISA=%1 'SE CONFIGURA EL PUERTO A.0 COMO ENTRADA
ADCON1=%00001110 'EL PUERTO A.0 ESCONVERSOR A/D LOS DEMÁS SON DIGITALES
Trisb=0 'TODOS LOS PINES DEL PUERTO B SON DE SALIDA
portb=%00000000 'ENCERAR EL PUERTO B

ADCON0=%10000001 'CONFIGURANDO EL CANAL 0 PARA LA CONVERSIÓN AFOSC/32
PAUSEUS 50 'ESPERA PARA CONFIGURAR EL CANAL

ledok VAR porta.5 'DECLARANDO VARIABLES Y CAMBIANDO DE NOMBRE AL PIN A.5
datopc VAR WORD
datoadc VAR WORD 'DATO CONVERTIDO POREL ADC
datodac VAR WORD 'DATO A CONVERTIR POR EL DAC
datodacnum VAR WORD
n VAR BYTE

datoadc=0 'CONDICION INICIAL DE VARIABLES DE CONEXION
datodac=0'================================================================
'TEST DE FUNCIONAMIENTO PIC
'================================================================
FOR n=1 to 3
HIGH ledok:PAUSE 100 'LEDPARPADEA 3 VECES PARA INDICAR FUNCIONAMIENTO
LOW ledok:PAUSE 100
NEXT

'================================================================
'PROGRAMA PRINCIPAL'================================================================
loop:
SERIN portc.7,T9600,datopc 'ESPERAR INSTRUCCION DEL PC (PUERTO C.7)
IF datopc="A" THEN
GOSUB leer_adc 'SI LA PC ENVIA "A" LEER ADCENDIF

IF datopc="D" THEN
GOSUB escribir_dac 'SI LA PC ENVIA "D" ESCRIBIR DAC
ENDIF

GOTO loop

'------------------------------------------------------------------'LECTURA DEL ADC
'------------------------------------------------------------------
leer_adc:
SEROUT portc.6,T9600,[#datoadc] 'ENVIAR EL DATO CONVERTIDO HACIA LA PC
ADCON0.2=1 'INICIAR...