Juego de Luces con Pic Basic Pro y PIC 16F84A con WHILE-WEND Entrada007

Por | 0:59 Deja Un Comentario
Se utiliza cuando deseamos mantener la ejecución de un programa, las instrucciones entre WHILE Y WEND se ejecutaran hasta que se cumpla la condición, para finalizar o iniciar.
WHILE condición
                                               Instrucciones
WEND
En este caso la condición debe cumplirse para que se ejecuten las tareas.
Si no se cumple la condición, las instrucciones dentro de WHILE no se ejecutaran y pasara a la siguiente instrucción.
‘*********************************PROGRMA*****************************
'Juego de Luces con Pic Basic Pro y  PIC 16F84A con WHILE-WEND
'Un poco de seudocodigo
'1. definir el programa y los puertos a usar
'2. si el boton 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
p var byte

TRISA = 000001
TRISB = %11000001

luces:
PORTB = 0

WHILE PORTA.0 = 1
x = 500

FOR i = 1 TO 25 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

                                                                                              FOR p = 1 TO 1 STEP 1
                                                                                              HIGH PORTB.5
                                                                                              PAUSE x
                                                                                              LOW PORTB.5
                                                                                              PAUSE x
                                                                                              x = x-2

                                                                                             
                                                              
                                                                                              NEXT p
                                              
                                                                              NEXT o

                                                               NEXT n

                                               NEXT m

                NEXT i  

WEND
‘***************************************FIN***********************************

De nuestro proyecto anterior podemos remplazar el IF por un while y funcionara igual, el uso de cada estructura dependerá del programador. 



0 comentarios:

Publicar un comentario