Contador ascendente BCD

Para hacer un contador ascendente con un botón se platea el siguiente código con las instrucciones antes vistas.

Device 16F84A ‘PIC a usar

Xtal 4          ‘Frecuencia de reloj

TRISB=0         ‘Puerto B como salida

TRISA=15        ‘Todo el puerto A como entrada

Dim CONTADOR As Byte   ‘Variable para usar el ciclo for

Symbol BOTON1 = PORTA.0   ‘BOTON1 va a ser PORTB.0

PORTB=0

INICIO:

If BOTON1 = 1 Then      ‘Se usarán condiciones IF para seleccionar

        DelayMS 100

CONTADOR = CONTADOR + 1

If CONTADOR > 9 Then CONTADOR=0

EndIf      

    PORTB=CONTADOR

GoTo INICIO         ‘Ir a inicio para hacerlo infinito

End

2 comentarios el “Contador ascendente BCD

Deja un comentario

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s