Ejemplo basico del uso de los flags

[kilopondio]

Hola chicos!.

Necesito un ejemplo sencillo de como se usan los flags para entender mejor el concepto.

Gracias

Saludos


Kilo

[KALLITOS]

Hola kilopondio, los flags son indicadores de eventos que los puedes usar segun te convenga. Un ejemplo es el uso de flag para utilizarlo como antirebote de un pulsador.

Código: Visual Basic

1. define osc 4
2. flag_pulsador      var      bit
3. valor              var     byte
4.  
5. valor = 0                   'se mostrara en el puerto B
6. flag_pulsador = 0        'valga la rebusnancia es un flag
7.  
8. trisa = 255                'puerto A como entradas
9. trisb = 0                   ' puerto B como salidas
10. portb = valor             'carga del puerto b con valor
11.  
12. inicio:                          'etiqueta para bucle infinito
13.  
14. if(porta.0 = 0) then                    'si se presiona el pulsador
15.    if(flag_pulsador = 0) then        'si la tecla ha sido soltada con anterioridad
16.        flag_pulsador = 1               'con el flag indicamos que la tecla ya ha sido presionada
17.        valor = valor + 1               'sumamos 1
18.        portb = valor                   'mostramos la acumulacion
19.    endif
20. else
21.     flag_pulsador = 0                 'indica que el pulsador ha sido soltado
22. endif
23. goto inicio                              'bucle infinito

Saludos

[kilopondio]

Gracias hermano!.Fuiste muy claro!.

Un abrazo!


Kilo

Hola kilopondio, los flags son indicadores de eventos que los puedes usar segun te convenga. Un ejemplo es el uso de flag para utilizarlo como antirebote de un pulsador.

Código: Visual Basic

1. define osc 4
2. flag_pulsador      var      bit
3. valor              var     byte
4.  
5. valor = 0                   'se mostrara en el puerto B
6. flag_pulsador = 0        'valga la rebusnancia es un flag
7.  
8. trisa = 255                'puerto A como entradas
9. trisb = 0                   ' puerto B como salidas
10. portb = valor             'carga del puerto b con valor
11.  
12. inicio:                          'etiqueta para bucle infinito
13.  
14. if(porta.0 = 0) then                    'si se presiona el pulsador
15.    if(flag_pulsador = 0) then        'si la tecla ha sido soltada con anterioridad
16.        flag_pulsador = 1               'con el flag indicamos que la tecla ya ha sido presionada
17.        valor = valor + 1               'sumamos 1
18.        portb = valor                   'mostramos la acumulacion
19.    endif
20. else
21.     flag_pulsador = 0                 'indica que el pulsador ha sido soltado
22. endif
23. goto inicio                              'bucle infinito

Saludos