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.
EscreveNomeDo<strong>Parque</strong><br />
EscreveInicializacao<br />
Relatório da Prova <strong>de</strong> Aptidão Profissional – Bruno Barbosa<br />
'Inicialização das barreiras<br />
Set LED_VRM On<br />
Loop1:<br />
' Aguarda que a barreira luminosa <strong>de</strong> estrada esteja <strong>de</strong>sobstruída<br />
If PORTA.5 = 1 Then<br />
Goto Loop1<br />
End If<br />
For contador = 1 To 100<br />
'Fecha a cancela <strong>de</strong> entrada<br />
PulseOut PORTC.0, 235 10us<br />
Wait 20 ms<br />
Next<br />
Loop2:<br />
' Aguarda que a barreira luminosa <strong>de</strong> saída esteja <strong>de</strong>sobstruída<br />
If PORTC.7 = 1 Then<br />
Goto Loop2<br />
End If<br />
For contador = 1 To 100<br />
Next<br />
'Fecha a cancela <strong>de</strong> saída<br />
PulseOut PORTC.1, 235 10us<br />
Wait 20 ms<br />
' Outros procedimentos iniciais<br />
LimpaLCDEntrada<br />
LimpaLCDSaida<br />
EscreveNomeDo<strong>Parque</strong><br />
Set LED_VRM Off<br />
'Rotina principal do programa<br />
Main:<br />
Analisa<strong>Parque</strong><br />
- 15 -