PROYECTOS » pulsadores de tarjeta
'****************************************************************
'* Name : UNTITLED.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2022 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* 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