a) Conecta el motor de la puerta
de entrada. Espera 2 segundos y para (tiempo de apertura).
Se enciende el semáforo verde.
Esta operación puede mejorarse colocando unos detectores
de barrera abierta, barrera cerrada (finales de carrera) utilizando
otras entradas a la placa.
para abreentrada
conecta 1 ; conexión motor 1
conecta 5 ; inversión motor 1
segundos 2
semaforoverde
apaga 1
apaga 5
fin
b) Conecta el motor de la puerta de salida. Espera
2 segundos y para (tiempo de apertura).
Esta operación puede mejorarse colocando unos detectores
de barrera abierta, barrera cerrada (finales de carrera)
utilizando otras entradas a la placa.
para abresalida
conecta 2 ; conexión motor 2
conecta 6 ; inversión motor 2
segundos 2
apaga 2
apaga 6
fin
c) Se encarga de controlar el número de
plazas ocupadas y libres, y abrir y cerrar las puertas automáticamente
en función de los sensores de las entradas.
Si se activa el sensor de la puerta de entrada, se abre
la barrera, si quedan plazas libres. En caso contrario da
un mensaje de “parking completo”.
Si se activa el sensor de la puerta de salida, se abre la
barrera de salida y se descuenta un coche del interior.
para actualizar
si (entrada 1)="VERDADERO [sisino (:ocupadas=10) [
actualizaestatico "nplazas [PARKING COMPLETO]
][
haz "ocupadas :ocupadas+1
abreentrada
segundos 2
cierraentrada
actualizaestatico "nplazas :ocupadas
]
]
si (entrada 2)="VERDADERO [haz "ocupadas :ocupadas-1
abresalida
segundos 2
cierrasalida
actualizaestatico "nplazas :ocupadas
]
actualizar
fin
d) Conecta el motor de la puerta de entrada en
el sentido inverso. Espera 2 segundos (tiempo de cierre)
y para. Se enciende el semáforo rojo.
para cierraentrada
conecta 1 ; conexión motor 1
apaga 5 ; no inversión motor 1
semafororojo
segundos 2
apaga 1
apaga 5
fin
e) Conecta el motor de la puerta de salida en
el sentido inverso. Espera 2 segundos (tiempo de cierre)
y para.
para cierrasalida
conecta 2 ; conexión motor 2
apaga 6 ; inversión motor 2
segundos 2
apaga 2
fin
f) Crea una ventana, como la de la figura, que permite
abrir y cerrar las barreras de entrada y salida manualmente.
Además informa del número de plazas ocupadas
en el parking.
para parking
borratexto
haz "ocupadas 0
semafororojo
borraventana "enconor
borraventana "trabajoan
creaventana "trabajo "parking [Control de un parking
de 10 plazas] 200 1 180 120 []
creaestatico "parking "plazas [Número de
plazas ocupadas] 40 2 120 10
creaestatico "parking "nplazas :ocupadas 86 22
85 10
creaboton "parking "abreentra [Abrir Entrada]
8 40 75 20 [abreentrada]
creaboton "parking "cierraentra [Cerrar Entrada]
95 40 75 20 [cierraentrada]
creaboton "parking "Abresalida [Abrir Salida]
8 70 75 20 [abresalida]
creaboton "parking "Cierrasali [Cerrar Salida]
95 70 75 20 [cierrasalida]
creaboton "parking "cerrar [Cerrar Ventana] 57
95 65 10 [borraventana "parking]
actualizar
fin
g) Conecta el semáforo rojo y apaga el verde.
para semafororojo
conecta 4
apaga 3
fin
h) Conecta el semáforo verde y apaga el
rojo.
para semaforoverde
conecta 3
apaga 4
fin