0 Usuarios y 1 Visitante están viendo este tema.
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.
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?