Prog Em Basic

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

'* Name : UNTITLED.BAS *

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

'* Notice : Copyright (c) 2014 [select VIEW...EDITOR OPTIONS] *

'* : All Rights Reserved *

'* Date : 22/8/2014 *

'* Version : 1.0 *

'* Notes : *

'* : *

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

'CONFIGURAÇÃO DO REGISTRADOR TRIS

TRISA=%00111111

TRISB=%11110000

TRISC=%00100110

'DECLARAÇÃO DE VARIAVEIS

define led = portb.0

define led2 = portb.1

define led3 = portb.2

define led4 = portb.3

define led5 = portb.4

define led6 = portb.5

define led7 = portb.6

define led8 = portb.7

OSCCON=%01110111

OSCTUNE=%10000000

TECLA VAR word

SENHAMASTER VAR word

SENHA var word

SENHA2 VAR BYTE

SENHA3 VAR BYTE

SENHA4 VAR BYTE

X VAR BYTE

X1 VAR BYTE

X2 VAR BYTE

MOTOR_ABRE VAR PORTA.6

MOTOR_FECHA VAR PORTC.0

SENSOR_ABRE VAR PORTC.1

SENSOR_FECHA VAR PORTC.2

BEEP VAR PORTA.7

USUARIO VAR WORD

tempo var byte

tempo = 10

a var byte

b var byte

c var byte

d var byte

b1 var byte

a=1

b=2

c=3

d=4

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

'Programa principal

senha=23456

INICIO

gosub LE_TECLADO

gosub fnc

if tecla = senha then

high MOTOR_ABRE

pause tempo

endif

GOTO INICIO

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

LE_TECLADO

PORTB=%00000001

IF PORTB.6 = 1 THEN TECLA_4

IF PORTB.5 = 1 THEN TECLA_1

IF PORTB.7 = 1 THEN TECLA_7

IF PORTB.4 = 1 THEN TECLA_ASTERISTICO

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

PORTB=%00001000

IF PORTB.6 = 1 THEN TECLA_5

IF PORTB.5 = 1 THEN TECLA_2

IF PORTB.7 = 1 THEN TECLA_8

IF PORTB.4 = 1 THEN TECLA_0

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

PORTB=%00000100

IF PORTB.6 = 1 THEN TECLA_6

IF PORTB.5 = 1 THEN TECLA_3

IF PORTB.7 = 1 THEN TECLA_9

IF PORTB.4 = 1 THEN TECLA_SUSTENIDO

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

PORTB=%00000010

IF PORTB.5 = 1 THEN TECLA_LGT

IF PORTB.7 = 1 THEN TECLA_CLR

IF PORTB.4 = 1 THEN TECLA_FNC

LE_TECLADO_FINAL

RETURN

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

'SUB ROTINHAS DAS TECLAS

TECLA_1

TECLA = 1

GOTO LE_TECLADO_FINAL

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

TECLA_2

TECLA = 2

GOTO LE_TECLADO_FINAL

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