application.vhd

3层电梯的控制

library ieee;
use ieee.std_logic_1164.all;

ENTITY Application IS
	PORT(AppelPalier1,AppelPalier2,AppelPalier3,AppelPalier4 	: IN	STD_LOGIC;
		CapteurEtage1,CapteurEtage2,CapteurEtage3,CapteurEtage4 : IN	STD_LOGIC;
		Porteouverte,clk                    : IN	STD_LOGIC;
        Arret,Reprise                       : IN    STD_LOGIC;
        ActionMontee1,ActionDescente1   	: OUT	STD_LOGIC);

END Application;

use work.ascenseur.all;

ARCHITECTURE Masolution OF Application IS
	SIGNAL ActionMontee,ActionDescente : STD_LOGIC;

BEGIN
Commande : cabine port map(AppelPalier1,AppelPalier2,AppelPalier3,AppelPalier4,
                           CapteurEtage1,CapteurEtage2,CapteurEtage3,CapteurEtage4,
                           Porteouverte,ActionMontee,ActionDescente,clk);
Mem: securite port map(ActionMontee,ActionDescente,ActionMontee1,ActionDescente1,Arret,Reprise);
END Masolution;