MANEJO DE 4 DISPLAYS DE 7 SEGMENTOS SIN EL CI. 7447 (ROTULACIÓN).
Barrido de 4 Displays con PIC 16F628a
PROGRAMA :
cmcon=7 ;convierte todo el puerto A en digital
trisb=0 ;convierte todos los pines del puerto B en salidas
trisa=0 ;convierte todos los pines del puerto A en salidas
x VAR BYTE ;crea la variable x de tamaño 255
texto:
FOR x=1 TO 20 ; repeticiones de este segmento
porta=14 :portb=8 ;pA%1110 y pB01000 forma la letra A
PAUSE 5
porta=13 :portb=71 ;pA%1101 y pB%1000111 forma la letra L
PAUSE 5
porta=11 :portb=64 ;pA%1011 y pB%1000000 forma la letra O
PAUSE 5
porta=7 :portb=9 ;pA%0111 y pB01001 forma la letra H
PAUSE 5
NEXT
FOR x=1 TO 20 ; repeticiones de este segmento
porta=14 :portb=127 ;pA%1110 y pB%1111111 apaga el display
PAUSE 5
porta=13 :portb=8 ;pA%1101 y pB01000 forma la letra A
PAUSE 5
porta=11 :portb=71 ;pA%1011 y pB%1000111 forma la letra L
PAUSE 5
porta=7 :portb=64 ;pA%0111 y pB%1000000 forma la letra O
PAUSE 5
NEXT
FOR x=1 TO 20 ; repeticiones de este segmento
porta=14 :portb=9 ;pA%1110 y pB01001 forma la letra H
PAUSE 5
porta=13 :portb=127 ;pA%1101 y pB%1111111 apaga el display
PAUSE 5
porta=11 :portb=8 ;pA%1011 y pB01000 forma la letra A
PAUSE 5
porta=7 :portb=71 ;pA%0111 y pB%1000111 forma la letra L
PAUSE 5
NEXT
FOR x=1 TO 20 ; repeticiones de este segmento
porta=14 :portb=64 ;pA%1110 y pB%1000000 forma la letra O
PAUSE 5
porta=13 :portb=9 ;pA%1101 y pB01001 forma la letra H
PAUSE 5
porta=11 :portb=127 ;pA%1011 y pB%1111111 apaga el display
PAUSE 5
porta=7 :portb=8 ;pA%0111 y pB01000 forma la letra A
PAUSE 5
NEXT
FOR x=1 TO 20 ; repeticiones de este segmento
porta=14 :portb=71 ;pA%1110 y pB%1000111 forma la letra L
PAUSE 5
porta=13 :portb=64 ;pA%1101 y pB%1000000 forma la letra O
PAUSE 5
porta=11 :portb=9 ;pA%1011 y pB01001 forma la letra H
PAUSE 5
porta=7 :portb=127 ;pA%0111 y pB%1111111 apaga el display
PAUSE 5
NEXT
goto texto
END
CIRCUITO:
dudas ==> Twitter: @calo_320
carlos91r@gmail.com
