Parque de estacionamento automatizado
Parque de estacionamento automatizado Parque de estacionamento automatizado
Relatório da Prova de Aptidão Profissional – Bruno Barbosa SerPrint 2, "A inicializar..." Wait 10 ms Exit Sub End Sub '''Escreve no LCD da entrada a mensagem aguarde Sub EscreveAguardeEntrada SerSend 1, 254 SerSend 1, 192 SerPrint 1, " Aguarde... " Wait 10 ms Exit Sub End Sub '''Escreve no LCD da saída a mensagem aguarde Sub EscreveAguardeSaida SerSend 2, 254 SerSend 2, 192 SerPrint 2, " Aguarde... " Wait 10 ms Exit Sub End Sub '''Limpa a segunda linha do LCD da entrada Sub LimpaSegundaEntrada SerSend 1, 254 SerSend 1, 192 SerPrint 1, " " Wait 10 ms Exit Sub End Sub '''Limpa a segunda linha do LCD da saída Sub LimpaSegundaSaida SerSend 2, 254 SerSend 2, 192 SerPrint 2, " " Wait 10 ms Exit Sub - 22 -
Relatório da Prova de Aptidão Profissional – Bruno Barbosa End Sub '''Analisa o estado dos lugares de estacionamento do parque Sub AnalisaParque 'Inicializa variável de estado do parque EstadoParque = 0 'Seleciona e analisa lugar 1 Set PORTC.6 Off Set PORTC.5 Off Set PORTC.4 Off Wait 1 10us If PORTC.3 = On Then Set EstadoParque.0 On Else Set EstadoParque.0 Off End If Wait 1 10us 'Seleciona e analisa lugar 2 Set PORTC.6 On Set PORTC.5 Off Set PORTC.4 Off Wait 1 10us If PORTC.3 = On Then Set EstadoParque.1 On Else Set EstadoParque.1 Off End If Wait 1 10us 'Seleciona e analisa lugar 3 Set PORTC.6 Off Set PORTC.5 On Set PORTC.4 Off Wait 1 10us If PORTC.3 = On Then Set EstadoParque.2 On Else - 23 -
- Page 1 and 2: Escola Secundária Afonso Lopes Vie
- Page 3 and 4: Relatório da Prova de Aptidão Pro
- Page 5 and 6: Relatório da Prova de Aptidão Pro
- Page 7 and 8: Relatório da Prova de Aptidão Pro
- Page 9 and 10: Relatório da Prova de Aptidão Pro
- Page 11 and 12: Relatório da Prova de Aptidão Pro
- Page 13 and 14: Relatório da Prova de Aptidão Pro
- Page 15 and 16: Relatório da Prova de Aptidão Pro
- Page 17 and 18: Relatório da Prova de Aptidão Pro
- Page 19 and 20: Relatório da Prova de Aptidão Pro
- Page 21 and 22: EscreveNomeDoParque EscreveIniciali
- Page 23 and 24: Relatório da Prova de Aptidão Pro
- Page 25 and 26: Relatório da Prova de Aptidão Pro
- Page 27: Relatório da Prova de Aptidão Pro
- Page 31 and 32: Relatório da Prova de Aptidão Pro
- Page 33 and 34: Relatório da Prova de Aptidão Pro
- Page 35 and 36: Relatório da Prova de Aptidão Pro
- Page 37 and 38: Relatório da Prova de Aptidão Pro
- Page 39 and 40: LD 271, LD 271 H, LD 271 L, LD 271
- Page 41 and 42: Silicon NPN Phototransistor BPW77N
- Page 43 and 44: 8-INPUT MULTIPLEXER The TTL /MSI SN
- Page 45 and 46: SN54/74LS151 GUARANTEED OPERATING R
- Page 47 and 48: 012345678 9 !"# 0$%'$()*(+, 0123456
- Page 49 and 50: 0233456789767997322 !"#$ %&'()(+)(
- Page 51 and 52: 0233456789767997322 !"#$ %&'()+, !
- Page 53 and 54: @ABCDEGHIDEE@ABCEJBK@LIMBDNOPIQRSTC
- Page 55: @AABCDEFH 23456789767 IJKLMKNMPQKNK
Relatório da Prova <strong>de</strong> Aptidão Profissional – Bruno Barbosa<br />
End Sub<br />
'''Analisa o estado dos lugares <strong>de</strong> <strong>estacionamento</strong> do parque<br />
Sub Analisa<strong>Parque</strong><br />
'Inicializa variável <strong>de</strong> estado do parque<br />
Estado<strong>Parque</strong> = 0<br />
'Seleciona e analisa lugar 1<br />
Set PORTC.6 Off<br />
Set PORTC.5 Off<br />
Set PORTC.4 Off<br />
Wait 1 10us<br />
If PORTC.3 = On Then<br />
Set Estado<strong>Parque</strong>.0 On<br />
Else<br />
Set Estado<strong>Parque</strong>.0 Off<br />
End If<br />
Wait 1 10us<br />
'Seleciona e analisa lugar 2<br />
Set PORTC.6 On<br />
Set PORTC.5 Off<br />
Set PORTC.4 Off<br />
Wait 1 10us<br />
If PORTC.3 = On Then<br />
Set Estado<strong>Parque</strong>.1 On<br />
Else<br />
Set Estado<strong>Parque</strong>.1 Off<br />
End If<br />
Wait 1 10us<br />
'Seleciona e analisa lugar 3<br />
Set PORTC.6 Off<br />
Set PORTC.5 On<br />
Set PORTC.4 Off<br />
Wait 1 10us<br />
If PORTC.3 = On Then<br />
Set Estado<strong>Parque</strong>.2 On<br />
Else<br />
- 23 -
Change language