Juego de Luces con Pic Basic Pro y PIC 16F84A con FOR-NEXT Entrada006

Por | 20:29 Deja Un Comentario
FORT- NEXT se encarga de generar un bucle finito, ósea repite un número determinado de veces las instrucciones dentro de este comando.
                FOR conteo = inicio TO final STEP incremento o decremento
                               Instrucciones
                NEXT conteo
Todo mejor con un ejemplo:
Este ejemplo consiste en generar un juego de luces con 4 leds los cuales se encenderán y apagaran en secuencia, a medida que transcurre el tiempo la frecuencia de encendido aumenta.   

'**********************PROGRAMA*******************'
'Juego de Luces con Pic Basic Pro y  PIC 16F84A con FOR-NEXT
'Un poco de seudocódigo
'1. definir el programa y los puertos a usar
'2. si el botón es activado
'3. dar un tiempo de 500 a X
'4. for para pulso pin 1
'               4.1 for pulso pin 2
'                              4.2 for pulso pin 3
'                                              4.3 for pulso pin 4                          
'5. Repetir programa
i var byte
x var byte
m var byte
n var byte
o var byte

TRISA = 000001
TRISB = %11000001

Luces:
PORTB = 0

IF PORTA.0 = 1 THEN

x = 500

                FOR i = 1 TO 50 STEP 1

                               HIGH PORTB.1
                               PAUSE x
                               LOW PORTB.1
                               PAUSE x
                               x = x-4
                               m= 1

                                               FOR m = 1 TO 1 STEP 1

                                               HIGH PORTB.2
                                               PAUSE x
                                               LOW PORTB.2
                                               PAUSE x
                                               x = x-2
                                               n = 1

                                                               FOR n = 1 TO 1STEP 1
                                                               HIGH PORTB.3
                                                               PAUSE x
                                                               LOW PORTB.3
                                                               PAUSE x
                                                               x = x-2
                                                               o = 1

                                                                              FOR o = 1 TO 1 STEP 1
                                                                              HIGH PORTB.4
                                                                              PAUSE x
                                                                              LOW PORTB.4
                                                                              PAUSE x
                                                                              x = x-2
                                              
                                                                              NEXT o

                                                               NEXT n

                                               NEXT m

                NEXT i

ENDIF


GOTO Luces
'****************************FIN*****************************'
 Juego de Luces led con Pic Basic Pro y  PIC 16F84A con FOR-NEXT
No olvidar que cada pin de los microcntroladores tienen un maximo de corriente aprox de 5mA por pin verificar datasheet de cada microcntrolador. 



0 comentarios:

Publicar un comentario