Parque de estacionamento automatizado
Parque de estacionamento automatizado Parque de estacionamento automatizado
Relatório da Prova de Aptidão Profissional – Bruno Barbosa Set EstadoParque.2 Off End If Wait 1 10us 'Seleciona e analisa lugar 4 Set PORTC.6 On Set PORTC.5 On Set PORTC.4 Off Wait 1 ms If PORTC.3 = On Then Set EstadoParque.3 On Else Set EstadoParque.3 Off End If Wait 1 10us 'Seleciona e analisa lugar 5 Set PORTC.6 Off Set PORTC.5 Off Set PORTC.4 On Wait 1 10us If PORTC.3 = On Then Set EstadoParque.4 On Else Set EstadoParque.4 Off End If Wait 1 10us 'Seleciona e analisa lugar 6 Set PORTC.6 On Set PORTC.5 Off Set PORTC.4 On Wait 1 10us If PORTC.3 = On Then Set EstadoParque.5 On Else Set EstadoParque.5 Off End If Wait 1 10us - 24 -
Relatório da Prova de Aptidão Profissional – Bruno Barbosa 'Seleciona e analisa lugar 7 Set PORTC.6 Off Set PORTC.5 On Set PORTC.4 On Wait 1 10us If PORTC.3 = On Then Set EstadoParque.6 On Else Set EstadoParque.6 Off End If Wait 1 10us 'Seleciona e analisa lugar 8 Set PORTC.6 On Set PORTC.5 On Set PORTC.4 On Wait 1 10us If PORTC.3 = On Then Set EstadoParque.7 On Else Set EstadoParque.7 Off End If Wait 1 ms Exit Sub End Sub '''Lê teclado numérico Sub ReadKeyCode Key_Code = 0 'Se o teclado não responder em 200us, a rotina termina Contador = 0 Do While PS2_CLK = On If Contador > 20 Then Exit Sub End If Wait 1 10us Contador = Contador + 1 Loop - 25 -
- 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 and 28: Relatório da Prova de Aptidão Pro
- Page 29: 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 />
'Seleciona e analisa lugar 7<br />
Set PORTC.6 Off<br />
Set PORTC.5 On<br />
Set PORTC.4 On<br />
Wait 1 10us<br />
If PORTC.3 = On Then<br />
Set Estado<strong>Parque</strong>.6 On<br />
Else<br />
Set Estado<strong>Parque</strong>.6 Off<br />
End If<br />
Wait 1 10us<br />
'Seleciona e analisa lugar 8<br />
Set PORTC.6 On<br />
Set PORTC.5 On<br />
Set PORTC.4 On<br />
Wait 1 10us<br />
If PORTC.3 = On Then<br />
Set Estado<strong>Parque</strong>.7 On<br />
Else<br />
Set Estado<strong>Parque</strong>.7 Off<br />
End If<br />
Wait 1 ms<br />
Exit Sub<br />
End Sub<br />
'''Lê teclado numérico<br />
Sub ReadKeyCo<strong>de</strong><br />
Key_Co<strong>de</strong> = 0<br />
'Se o teclado não respon<strong>de</strong>r em 200us, a rotina termina<br />
Contador = 0<br />
Do While PS2_CLK = On<br />
If Contador > 20 Then<br />
Exit Sub<br />
End If<br />
Wait 1 10us<br />
Contador = Contador + 1<br />
Loop<br />
- 25 -