electrónica - proyecto secuencial

PROYECTOS » displey secuencia

1

5

9

14

2

6

10

15

3

7

12

16

4

8

13

17

'****************************************************************

'* Name : UNTITLED.BAS *

'* Author : [select VIEW...EDITOR OPTIONS] *

'* Date : 8/03/2022 *

'* Version : 1.0 *

'* Notes : *

'* : *

'****************************************************************

DEFINE OSC 4

'**DEFINICION DE ALIAS***

INCRE VAR PORTA.0 ' BOTON INCREMENTO DE TIEMPO

DECRE VAR PORTA.1 ' BOTON DECREMENTO DE TIEMPO

'**DEFINICION DE VARIABLES*

T VAR BYTE 'VARIABLE T

LED VAR BYTE 'VARIABLE SALIDA LED

VECES VAR WORD 'VARIABLE # VECES

'***ESTADOS INICIALES***

VECES=100 'VALOR INICIAL DE VECES

'***PROGRAMA PRINCIPAL**

INICIO:

FOR LED=0 TO 7 'BUCLE ACTIVACION DE SALIDAS

HIGH LED 'ACTIVA PORT.0....HASTA PORTB.7

GOSUB TIEMPO 'SALTO A RUTINA TIEMPO

LOW LED 'DESACTIVA PORTB.0....HASTA PORT.7

NEXT LED

GOTO INICIO 'RETORNO A ETIQUETA INICIO

TIEMPO:

IF INCRE=1 THEN GOSUB SUMAR 'SI ACTIVA BOTON INCRE, SALTA A SUMAR

IF DECRE=1 THEN GOSUB RESTAR 'SI ACTIVA BOTON DECRE, SALTA A RESTAR

FOR T=1 TO VECES 'BUCLE DE RETARDO DE 1 HASTA VALO VECES

PAUSE 5

SUMAR: 'RUTINA INCREMENTO DE TIEMPO

IF VECES>500 THEN RETURN 'CONDICION DE VECES NO MAYOR DE 500

VECES=VECES+25 'INCREMENTO DE VARIABLE EN 25

RETURN

RESTAR: 'RUTINA DECREMENTO DE TIEMPO

IF VECES<50 THEN RETURN 'CONDICION DE VECES NO MENOR DE 50

VECES=VECES-25 'DECREMENTO DE VARIABLE EN 25

RETURN

END