4. Contador de 0 a 9 (MikroBasic)

4. Contador de 0 a 9 (MikroBasic)

Diagrama de Circuito

Código para el Pic

'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'//Título: Manejo de Display conteo de 0 a 9
'//Versión:mikroBasic 4.60
'//Autor: Samuel Ramsbott
'//Correo: habacuc.electronics@gmail.com
'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'//Descripción: Conteo automático con un display 7 Segmentos de cátodo común
'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
program MKB4
' Declaración de variables
dim conteo as byte[10]
main:
' Programa Principal
     conteo[0] = 111111
     conteo[1] = 000110
     conteo[2] = %01011011
     conteo[3] = %01001111
     conteo[4] = %01100110
     conteo[5] = %01101101
     conteo[6] = %01111101
     conteo[7] = 000111
     conteo[8] = %01111111
     conteo[9] = %01100111

     trisb = 000000          ' Configura PORTB como salida

  while true
        portb = conteo[0]
        delay_ms(1000)
        portb = conteo[1]
        delay_ms(1000)
        portb = conteo[2]
        delay_ms(1000)
        portb = conteo[3]
        delay_ms(1000)
        portb = conteo[4]
        delay_ms(1000)
        portb = conteo[5]
        delay_ms(1000)
        portb = conteo[6]
        delay_ms(1000)
        portb = conteo[7]
        delay_ms(1000)
        portb = conteo[8]
        delay_ms(1000)
        portb = conteo[9]
        delay_ms(1000)
  wend
end.

Compartir en Google Plus

About habacuc.electronics

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.