Parque de estacionamento automatizado
Parque de estacionamento automatizado
Parque de estacionamento automatizado
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Relatório da Prova <strong>de</strong> Aptidão Profissional – Bruno Barbosa<br />
Next<br />
Do forever<br />
Loop until PORTC.7 = 0<br />
Wait 5 s<br />
For contador = 1 To 50<br />
'Fecha a cancela <strong>de</strong> saída<br />
PulseOut PORTC.1, 235 10us<br />
Wait 20 ms<br />
Next<br />
LimpaLCDSaida<br />
Else<br />
SerSend 2, 254<br />
SerSend 2, 192<br />
SerPrint 2, " ***NEGADO*** "<br />
Wait 3 s<br />
LimpaSegundaSaida<br />
Wait 10 ms<br />
EscreveIntroduzirCodigo<br />
DataCount = 0<br />
Goto Loop3<br />
End If<br />
'Limpa registos feitos<br />
For Contador = 1 To 8<br />
PIN(Contador) = 0<br />
Next Contador<br />
DataCount = 0<br />
EsperaSaida = 0<br />
SerSend 2, 254<br />
SerSend 2, 192<br />
SerPrint 2, " "<br />
LimpaSegundaEntrada<br />
End If<br />
'Trata procedimentos da entrada<br />
If PORTA.5 = 1 and EsperaSaida = 0 Then<br />
If PORTC.7 = 1 Then<br />
EscreveAguar<strong>de</strong>Saida<br />
- 18 -
Change language