electrónica - pulsadores de tarjeta

PROYECTOS » pulsadores de tarjeta

2

6

10

14

3

7

11

15

4

8

12

16

5

9

13

17

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

'* Name : UNTITLED.BAS *

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

'* Date : 17/02/2022 *

'* Version : 1.0 *

'* Notes : *

'* : *

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

DEFINE OSC 4

'DIFINICION DE VARIABLES'

T VAR WORD

'DIFINICION DE ALIAS'

DER VAR PORTB.4

IZQ VAR PORTB.5

'ESTADOS INICIALES'

TRISA=133 'DIRECCION DE REG TRIS A'

TRISB=134 'DIRECCION DE REG TRIS A'

POKE 133,0 '00000000'

POKE 134,48 '00110000'

POKE 6,0 'ESTADO INICIAL APAGADO TODO PUERTO B'

T=200

'PROGRAMA PRINCIPAL'

DERECHA:

HIGH PORTB.0 'ACTIVA LED L9

PAUSE T 'ESPERA T SEGUNDO

LOW PORTB.0 'DESACTIVA L9

HIGH PORTB.1 'ACTIVA LED L8

PAUSE T 'ESPERA T SEGUNDO

LOW PORTB.1 'DESACTIVA L8

HIGH PORTB.2

PAUSE T 'ESPERA T SEGUNDO

LOW PORTB.2 'DESACTIVA L6

HIGH PORTB.3

PAUSE T 'ESPERA T SEGUNDO

LOW PORTB.3 'DESACTIVA L7

IF IZQ=0 THEN IZQUIERDA

GOTO DERECHA

IZQUIERDA:

HIGH PORTB.3 'ACTIVA LED L9

PAUSE T 'ESPERA T SEGUNDO

LOW PORTB.3 'DESACTIVA L9

HIGH PORTB.2 'ACTIVA LED L8

PAUSE T 'ESPERA T SEGUNDO

LOW PORTB.2 'DESACTIVA L8

HIGH PORTB.1

PAUSE T 'ESPERA T SEGUNDO

LOW PORTB.1 'DESACTIVA L6

HIGH PORTB.0

PAUSE T 'ESPERA T SEGUNDO

LOW PORTB.0 'DESACTIVA L7

IF DER=0 THEN DERECHA

GOTO IZQUIERDA

END