Parque de estacionamento automatizado
Parque de estacionamento automatizado
Parque de estacionamento automatizado
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Relatório da Prova <strong>de</strong> Aptidão Profissional – Bruno Barbosa<br />
#<strong>de</strong>fine PS2_CLK PORTB.1<br />
#<strong>de</strong>fine PS2_DAT PORTB.2<br />
;Variables<br />
Dim Estado<strong>Parque</strong> As byte<br />
Dim EsperaSaida As bit<br />
Dim Contador As byte<br />
Dim Key_Co<strong>de</strong> As byte<br />
Dim Key_Char As byte<br />
Dim PIN(8)<br />
Dim DataCount As byte<br />
Dim PIN_Ok As bit<br />
Dim PIN_Co<strong>de</strong> As string * 8<br />
InitSer 1, r2400, 1+WaitForStart, 8, 1, None, Invert<br />
InitSer 2, r2400, 1+WaitForStart, 8, 1, None, Invert<br />
'Inatialise variables<br />
DataCount = 0<br />
PIN_Co<strong>de</strong> = "2345"<br />
EsperaSaida = 0<br />
'Direcionalida<strong>de</strong> dos pinos<br />
Dir PORTA.0 Out<br />
Dir PORTA.1 Out<br />
Dir PORTA.5 In<br />
Dir PORTC.0 Out<br />
Dir PORTC.1 Out<br />
Dir LED_VRM Out<br />
Dir PORTC.7 In<br />
DIR PS2_CLK In<br />
DIR PS2_DAT In<br />
'Aguarda inicialização dos LCDs<br />
Wait 500 ms<br />
'Limpa LCDs e escreve mensagem inicial<br />
LimpaLCDEntrada<br />
LimpaLCDSaida<br />
- 14 -
Change language