Hola que tal, bueno hoy quisiera dejarles este pequeño programa que hice cuando comenzaba con la programación en pic basic pro. Se trata de un dado electrónico con el pic16f628a, pero a diferencia de los que eh visto este utiliza un display de 7 segmentos. Se aprieta un botón y muestra un número “aleatorio” entre 1 y 6 y este permanece hasta que se vuelve a apretar el botón , el programa no es la gran cosa ni mucho menos, pero espero le pueda servir a alguien, en especial a los novatos en la programación von pbp.
El archivo que adjunto contiene los archivos .pbp y .hex por si alguien solo quiere cargarlo y verlo funcionar de inmediato, además adjunto una imagen de las conexiones.
el programa es el siguiente:
El archivo que adjunto contiene los archivos .pbp y .hex por si alguien solo quiere cargarlo y verlo funcionar de inmediato, además adjunto una imagen de las conexiones.
el programa es el siguiente:
Código:
DEFINE OSC 4
CMCON = 7
TRISA = %00000010
TRISB = %00000000
B1 VAR PORTA.1
X VAR BYTE
Y VAR BYTE
X = 0
PORTB = %00110000
PAUSE 300
PORTB = %01011011
PAUSE 300
PORTB = %01001111
PAUSE 300
PORTB = %01100110
PAUSE 300
PORTB = %01101101
PAUSE 300
PORTB = %01111101
PAUSE 300
PORTB = %00000000
INICIO:
IF B1== 1 THEN
PAUSE 25
GOSUB Dado
ENDIF
GOTO INICIO
Dado:
WHILE B1==1
X = X+1
IF X == 6 THEN
X = 0
ENDIF
WEND
lookup X,[48,91,79,102,109,125 ],Y
PORTB=Y
RETURN
Adjuntos
Última edición: