Cuenta atrás de diez a cero con pic 16F84A

[comandos52]

program contagem_regressiva

    Trisa=0
    Trisb=%00100000

   main:

    portb.0=0
    portb.1=0
    portb.2=0
    portb.3=0
    portb.4=0
    portb.6=0
    portb.7=0
    if portb.5=0 then
    portb.5=1
    goto dez
    else
    goto main
    end if

     zero:
    portb.7=0
    portb.0=(1)
    portb.1=(1)
    portb.2=(1)
    portb.3=(1)
    portb.4=(1)
    portb.6=(1)

    delay_ms(1000)
    portb.7=0
    portb.0=(0)
    portb.1=(0)
    portb.2=(0)
    portb.3=(0)
    portb.4=(0)
    portb.6=(0)
    porta.2=1
    delay_ms(2000)
    porta.2=0
    goto main

   um:


    portb.0=0
    portb.3=0
    portb.4=0
    portb.6=0
    portb.7=0
    portb.1=(1)
    portb.2=(1)

    delay_ms(1000)
    
   goto zero

   dois:
   portb.2=0
   portb.6=0
   portb.0=(1)
   portb.1=(1)
   portb.3=(1)
   portb.4=(1)
   portb.7=(1)

   delay_ms(1000)

    goto um

    tres:
    portb.4=0
    portb.6=0
    portb.0=(1)
    portb.1=(1)
    portb.2=(1)
    portb.3=(1)
    portb.7=(1)

   delay_ms(1000)

    goto dois

   quatro:
    portb.0=0
    portb.3=0
    portb.4=0
    portb.1=(1)
    portb.2=(1)
    portb.6=(1)
    portb.7=(1)

    delay_ms(1000)


    goto tres

    cinco:
    portb.1=0
    portb.4=0
    portb.0=(1)
    portb.2=(1)
    portb.3=(1)
    portb.6=(1)
    portb.7=(1)

   delay_ms(1000)


    goto quatro

    seis:
    portb.1=0
    portb.0=(1)
    portb.2=(1)
    portb.3=(1)
    portb.4=(1)
    portb.6=(1)
    portb.7=(1)

   delay_ms(1000)


    goto cinco

   sete:
    portb.3=0
    portb.4=0
    portb.6=0
    portb.7=0
    portb.0=(1)
    portb.1=(1)
    portb.2=(1)

   delay_ms(1000)


    goto seis

    oito:
    portb.0=(1)
    portb.1=(1)
    portb.2=(1)
    portb.3=(1)
    portb.4=(1)
    portb.6=(1)
    portb.7=(1)

   delay_ms(1000)


    goto sete


     nove:
    portb.4=0
    portb.0=(1)
    portb.1=(1)
    portb.2=(1)
    portb.3=(1)
    portb.6=(1)
    portb.7=(1)

   delay_ms(1000)

    goto oito

    dez:

    portb.7=0
    portb.0=(1)
    portb.1=(1)
    portb.2=(1)
    portb.3=(1)
    portb.4=(1)
    portb.6=(1)
    porta.3=(1)

    delay_ms(1000)
    porta.3=(0)

    goto nove

    end.

[NoSepComo]

Pero cual es el problema que te da?

[comandos52]

 

la pregunta es ... alguien sabe de este programa en mikroBasic de una manera más fácil? o lo que es bueno? Estoy aprendiendo solo en mikroBasic, está funcionando bien, pero me pregunto si usted tiene una manera más fácil?

[/b]