Conexión de shift register 74LS595 a 16F676

Cuando utilizamos un micro como el 16F676 los puertos disponibles deben aprovecharse al máximo, ya que su  número es reducido.
En este proyecto queremos medir una señal analógica (fotodiodo) y mostrar el valor en un display cuadruple de 7 segmentos.
Para ahorrarnos puertos podemos utilizar un registro de desplazamiento serial a paralelo (shift register) , en este caso el 74LS595, con el objeto de controlar los siete segmentos del display. La información se envia en modo serial al 74LS595 y este lo distribuye a los 7 segmentos. De esta forma en lugar de utilizar 7 pines utilizamos 3.

Los cuatro primeros pines del puerto C del micro se utilizan para seleccionar el display que corresponda, ya que vamos a utilizar multiplexado, es decir , seleccionamos un display y enviamos el dígito  respectivo, y asi en un ciclo sin fin.

A continuación tenemos el  programa en PICBASIC PRO:

'**************************************************************** '* Name : ana01.BAS * '* Author : JLG * '* Notice : Copyright (c) 2015 * '* Device : 16F676 * '* Date : 06/03/2015 * '* Version : 1.0 * '* Notes : Se lee valor analógico en pin A.4 y se envia * '* al shitf register por los pines A.0 A.1 y A.2 * '**************************************************************** @ __config _INTRC_OSC_NOCLKOUT & _WDT_ON & _MCLRE_ON & _CP_OFF Include "modedefs.bas" DEFINE SHIFT_PAUSEUS 0 ' Define ADCIN parameters Define ADC_BITS 10 ' Set number of bits in result Define ADC_CLOCK 3 ' Set clock source (3=rc) Define ADC_SAMPLEUS 50 ' Set sampling time in uS vars: DIGIT var byte A var word i var byte p var word v var word ' Definiciones para el shit register D2PIN Var PORTA.0 ' Shift data pin C2PIN Var PORTA.1 ' Shift clock pin L2PIN Var PORTA.2 ' Shift latch pin bvar Var byte init: TRISA = %011000 ' PORTA output except P3 (MCLR ) and P4 Analog TRISC = 0000 ' PORTC output CMCON = 7 ' No comparator ' 1 0 0 011 01 ADCON0 = %10001101 ' Right Justify VDD VRefer. N/A Canal AN3 ' 0 101 0000 ADCON1 = %01010000 ' N/A Fosc/16(4us a 4Mhz) N/A ANSEL = 001000 ' Se utiliza el Canal 3 ( PA.4 ) Define OSCCAL_1K 1 ' Set OSCCAL for 1K flash DEFINE OSC 4 ' 4 MHz OSC PORTA=0 PORTC=0 mainloop: p=0 for i= 1 to 10 adcin 3,V p = p + V gosub display next i a= p / 10 label: gosub display goto mainloop display: DIGIT = A dig 0 gosub look PORTC = %1000 pause 4 DIGIT = A dig 1 gosub look PORTC = %0100 pause 4 DIGIT = A dig 2 gosub look PORTC = 10 pause 4 DIGIT = A dig 3 gosub look PORTC = 01 pause 5 PORTC = 00 return look: Lookup DIGIT,[%01000000,%01111001,100100,110000,_ 011001,010010,000011,%01111000,_ 000000,011000,%01111111],bvar PORTC = 00 LOW L2PIN : Shiftout D2PIN, C2PIN, MSBFIRST,[bvar] HIGH L2PIN : LOW L2PIN return End    

La señal analógica proveniente del fotodiodo se lee diez veces para obtener un valor promedio.

Es importante comentar que se llama a la subrutina display en el lazo de lectura analógica ya que tenemos que refrescar el display.

La subrutina look determina que pines se encienden/apagan dependiendo del dígito a mostrar. Luego se utiliza la instaruccion Shifout para enviar el byte con la información al 74LS595. Los valores presentes en la instrucción Lookup corresponden a las conexiones entre las salidas del 74LS595 y los pines de los siete segmentos del display para cada dígito 0,1,2,3...9.

En la imagen el proyecto en protoboard: