?? dianti.vhd
字號:
LIBRARY IEEE;
SE IEEE.STD_LOGIC_1164.ALL;
SE IEEE.STD_LOGIC_UNSIGNED.ALL;
SE IEEE.STD_LOGIC_ARITH.ALL;
NTITY dianti IS
PORT(CLKIN:IN STD_LOGIC; --2 Hz時鐘輸入信號
UPIN:IN STD_LOGIC; --樓層上升請求鍵
DOWNIN:IN STD_LOGIC; --樓層下降請求鍵
ST_CH:IN STD_LOGIC;
--結合DIRECT完成樓層選擇的鍵入
CLOSE:IN STD_LOGIC; --提前關門輸入鍵
DELAY:IN STD_LOGIC; --延遲關門輸入鍵
RUN_STOP:IN STD_LOGIC; --電梯運行的開關鍵
LAMP:OUT STD_LOGIC; --電梯運行或停止指示鍵
RUN_WAIT:OUT STD_LOGIC_VECTOR(3 DOWNTO 0);
--結合LAMP指示電梯運行或等待時間
ST_OUT:OUT STD_LOGIC_VECTOR(3 DOWNTO 0); --電梯所在樓層指示數碼管
DIRECT:OUT STD_LOGIC_VECTOR(3 DOWNTO 0)); --樓層選擇指示數碼管
END ENTITY DTKZQ;
RCHITECTURE ART OF DTKZQ IS
SIGNAL UR,DR:STD_LOGIC_VECTOR(16 DOWNTO 1);
-上升或下降樓層請求寄存器
IGNAL DIR,LIFTOR:STD_LOGIC_VECTOR(3 DOWNTO 0);
-樓選指示及樓層數計數器
IGNAL WAI_T:STD_LOGIC_VECTOR(2 DOWNTO 0);
-運行或等待計數器
IGNAL DIVID,HAND:STD_LOGIC;
--時鐘2分頻和樓選復位變量
IGNAL LADD:STD_LOGIC_VECTOR(1 DOWNTO 0);
-電梯運行狀態變量
IGNAL CLOSEX,DELAYX,LAMP0:STD_LOGIC;
-提前關門及延遲變量
BEGIN
-內部信號值的輸出
IRECT<=DIR+1;
ST_OUT<=LIFTOR+1;
RUN_WAIT<='0'&WAI_T;
P0:PROCESS(CLKIN) IS
BEGIN
IF (CLKIN'EVENT AND CLKIN='1') THEN
LAMP<=LADD(1);
END IF;
END PROCESS P0;
HAND<=WAI_T(2)AND (NOT WAI_T(1))AND WAI_T(0);
LOSEX<=CLOSE AND (NOT LADD(1));
ELAYX<=DELAY AND (NOT LADD(1));
-分頻及樓選信號產生進程
1:PROCESS(CLKIN)
EGIN
IF (CLKIN'EVENT AND CLKIN='1') THEN
DIVID<=NOT DIVID;
IF (DIR="1111") THEN DIR<="0000";
ELSE DIR<=DIR+1;
END IF;
END IF;
END PROCESS;
--樓層請求寄存器的置位與復位進程
2:PROCESS(UR, DR, UPIN, DOWNIN, ST_CH, LIFTOR, WAI_T, RUN_STOP, HAND)
VARIABLE NUM,T:INTEGER RANGE 0 TO 15 ;
BEGIN
NUM:=CONV_INTEGER(LIFTOR)+1;
T:=CONV_INTEGER(DIR)+1;
IF (RUN_STOP='1') THEN
IF (((T>NUM)AND (ST_CH='1'))OR (UPIN='1'))THEN
CASE T IS
WHEN 1 => UR(1)<='1';
WHEN 2 => UR(2)<='1';
WHEN 3 => UR(3)<='1';
WHEN 4 => UR(4)<='1';
WHEN 5 => UR(5)<='1';
WHEN 6 => UR(6)<='1';
WHEN 7 => UR(7)<='1';
WHEN 8 => UR(8)<='1';
WHEN 9 => UR(9)<='1';
WHEN 10 => UR(10)<='1';
WHEN 11 => UR(11)<='1';
WHEN 12 => UR(12)<='1';
WHEN 13 => UR(13)<='1';
WHEN 14 => UR(14)<='1';
WHEN 15 => UR(15)<='1';
WHEN 16 => UR(16)<='1';
WHEN OTHERS=>NULL;
END CASE;
ELSIF (HAND='1')THEN
CASE NUM IS
WHEN 1 => UR(1)<='0';
WHEN 2 => UR(2)<='0';
WHEN 3 => UR(3)<='0';
WHEN 4 => UR(4)<='0';
WHEN 5 => UR(5)<='0';
WHEN 6 => UR(6)<='0';
WHEN 7 => UR(7)<='0';
WHEN 8 => UR(8)<='0';
WHEN 9 => UR(9)<='0';
WHEN 10 => UR(10)<='0';
WHEN 11 => UR(11)<='0';
WHEN 12 => UR(12)<='0';
WHEN 13 => UR(13)<='0';
WHEN 14 => UR(14)<='0';
WHEN 15 => UR(15)<='0';
WHEN 16 => UR(16)<='0';
WHEN OTHERS=>NULL;
END CASE;
END IF;
IF (((T<NUM)AND (ST_CH='1'))OR(DOWNIN='1')) THEN
CASE T IS
WHEN 1 => DR(1)<='1';
WHEN 2 => DR(2)<='1';
WHEN 3 => DR(3)<='1';
WHEN 4 => DR(4)<='1';
WHEN 5 => DR(5)<='1';
WHEN 6 => DR(6)<='1';
WHEN 7 => DR(7)<='1';
WHEN 8 => DR(8)<='1';
WHEN 9 => DR(9)<='1';
WHEN 10 => DR(10)<='1';
WHEN 11 => DR(11)<='1';
WHEN 12 => DR(12)<='1';
WHEN 13 => DR(13)<='1';
WHEN 14 => DR(14)<='1';
WHEN 15 => DR(15)<='1';
WHEN 16 => DR(16)<='1';
WHEN OTHERS=>NULL;
END CASE;
ELSIF (HAND='1') THEN
CASE NUM IS
WHEN 1 => DR(1)<='0';
WHEN 2 => DR(2)<='0';
WHEN 3 => DR(3)<='0';
WHEN 4 => DR(4)<='0';
WHEN 5 => DR(5)<='0';
WHEN 6 => DR(6)<='0';
WHEN 7 => DR(7)<='0';
WHEN 8 => DR(8)<='0';
WHEN 9 => DR(9)<='0';
WHEN 10 => DR(10)<='0';
WHEN 11 => DR(11)<='0';
WHEN 12 => DR(12)<='0';
WHEN 13 => DR(13)<='0';
WHEN 14 => DR(14)<='0';
WHEN 15 => DR(15)<='0';
WHEN 16 => DR(16)<='0';
WHEN OTHERS=>NULL;
END CASE;
END IF;
ELSE
UR<="0000000000000000";
DR<="0000000000000000";
END IF;
END PROCESS;
-電梯運行次態的控制進程
3:PROCESS(UR,DR,LIFTOR,LADD,WAI_T,RUN_STOP
BEGIN
IF (RUN_STOP='1') THEN
IF (WAI_T="110") THEN
IF ((UR OR DR)="0000000000000000") THEN
LADD(1)<='0'; --初始狀態
ELSE
CASE LIFTOR IS
WHEN "0000"=>IF ((UR(1)OR DR(1))>'0') THEN LADD(1)<='0'; --等待狀態
ELSE LADD<="11"; --上升狀態
END IF;
WHEN "0001"=>IF ((UR(2)OR DR(2))>'0') THEN LADD(1)<='0'; --等待狀態
ELSIF ((( LADD(0)='1')AND ((UR(16 DOWNTO 3)
OR DR(16 DOWNTO 3))>"00000000000000"))
OR((UR(1)OR DR(1))='0')) THEN
LADD <="11"; --上升狀態
ELSE LADD<="10"; --下降狀態
END IF;
WHEN "0010"=>IF ((UR(3) OR DR(3))>'0') THEN LADD(1)<='0';
ELSIF ((( LADD(0)='1')AND ((UR(16 DOWNTO 4)
OR DR(16 DOWNTO 4))>"0000000000000"))
OR((UR(2 DOWNTO 1)
OR DR(2 DOWNTO 1))="00")) THEN LADD<="11";
ELSE LADD<="10";
END IF;
WHEN "0011"=>IF ((UR(4) OR DR(4))>'0') THEN LADD(1)<='0';
ELSIF (((LADD(0)='1')AND ((UR(16 DOWNTO 5)
OR DR(16 DOWNTO 5))>"000000000000"))
OR((UR(3 DOWNTO 1)
OR DR(3 DOWNTO 1))="000")) THEN LADD<="11";
ELSE LADD<="10";
END IF;
WHEN "0100"=>IF ((UR(5) OR DR(5))>'0') THEN LADD(1)<='0';
ELSIF (((LADD(0)='1')AND ((UR(16 DOWNTO 6)
OR DR(16 DOWNTO 6))>"00000000000"))
OR((UR(4 DOWNTO 1)
OR DR(4 DOWNTO 1))="0000")) THEN LADD<="11";
ELSE LADD<="10";
END IF;
WHEN "0101"=>IF ((UR(6) OR DR(6))>'0') THEN LADD(1)<='0';
ELSIF (((LADD(0)='1')AND ((UR(16 DOWNTO 7)
OR DR(16 DOWNTO 7))>"0000000000" ))
OR((UR(5 DOWNTO 1)
OR DR(5 DOWNTO 1))="00000")) THEN LADD<="11";
ELSE LADD<="10";
END IF;
WHEN "0110"=>IF ((UR(7) OR DR(7))>'0') THEN LADD(1)<='0';
ELSIF (((LADD(0)='1')AND ((UR(16 DOWNTO 8)
OR DR(16 DOWNTO 8))>"000000000"))
OR((UR(6 DOWNTO 1)
OR DR(6 DOWNTO 1))="000000"))
THEN LADD<="11";
ELSE LADD<="10";
END IF;
WHEN "0111"=>IF ((UR(8) OR DR(8))>'0') THEN LADD(1)<='0';
ELSIF (((LADD(0)='1')AND ((UR(16 DOWNTO 9)
OR DR(16 DOWNTO 9))>"00000000" ))
OR((UR(7 DOWNTO 1)
OR DR(7 DOWNTO 1))="0000000"))
THEN LADD<="11";
ELSE LADD<="10";
END IF;
WHEN "1000"=>IF ((UR(9) OR DR(9))>'0') THEN LADD(1)<='0';
ELSIF ((( LADD(0)='1')AND ((UR(16 DOWNTO 10)
OR DR(16 DOWNTO 10))>"0000000" ))
OR((UR(8 DOWNTO 1)
OR DR(8 DOWNTO 1))="00000000"))
THEN LADD<="11";
ELSE LADD<="10";
END IF;
WHEN "1001"=>IF ((UR(10) OR DR(10))>'0') THEN LADD(1)<='0';
ELSIF ((( LADD(0)='1')AND ((UR(16 DOWNTO 11)
OR DR(16 DOWNTO 11))>"000000" ))
OR((UR(9 DOWNTO 1)
OR DR(9 DOWNTO 1))="000000000"))
THEN LADD<="11";
ELSE LADD<="10";
END IF;
WHEN "1010"=>IF ((UR(11) OR DR(11))>'0') THEN LADD(1)<='0';
ELSIF (((LADD(0)='1')AND ((UR(16 DOWNTO 12)
OR DR(16 DOWNTO 12)) >"00000"))
OR((UR(10 DOWNTO 1)
OR DR(10 DOWNTO 1))="0000000000"))
THEN LADD<="11";
ELSE LADD<="10";
END IF;
WHEN "1011"=>IF ((UR(12) OR DR(12))>'0') THEN LADD(1)<='0';
ELSIF ((( LADD(0)='1')AND ((UR(16 DOWNTO 13)
OR DR(16 DOWNTO 13))>"0000" ))
OR((UR(11 DOWNTO 1)
OR DR(11 DOWNTO 1))="00000000000"))
THEN LADD<="11";
ELSE LADD<="10";
END IF;
WHEN "1100"=>IF ((UR(13) OR DR(13))>'0') THEN LADD(1)<='0';
ELSIF ((( LADD(0)='1')AND ((UR(16 DOWNTO 14)
OR DR(16 DOWNTO 14))>"000" ))
OR((UR(12 DOWNTO 1)
OR DR(12 DOWNTO 1))="000000000000"))
THEN LADD<="11";
ELSE LADD<="10";
END IF;
WHEN "1101"=>IF ((UR(14) OR DR(14))>'0') THEN LADD(1)<='0';
ELSIF ((( LADD(0)='1')AND ((UR(16 DOWNTO 15)
OR DR(16 DOWNTO 15))>"00" ))
OR((UR(13 DOWNTO 1)
OR DR(13 DOWNTO 1))="0000000000000"))
THEN LADD<="11";
ELSE LADD<="10";
END IF;
WHEN "1110"=>IF ((UR(15)OR DR(15))>'0') THEN LADD(1)<='0';
ELSIF ((( LADD(0)='1')AND ((UR(16)OR DR(16))>'0'))
OR ((UR(14 DOWNTO 1)
OR DR(14 DOWNTO 1))="00000000000000"))
THEN LADD<="11";
ELSE LADD<="10";
END IF;
WHEN "1111"=>IF ((UR(16) OR DR(16))>'0') THEN LADD(1)<='0';
ELSE LADD<="10";
END IF;
WHEN OTHERS=>NULL;
END CASE;
END IF;
END IF;
ELSE LADD<="00";
END IF;
END PROCESS;
--電梯運行樓層計數及提前/延遲關門控制進程
4:PROCESS(WAI_T,LADD,CLOSEX,DELAYX,DIVID)
BEGIN
IF (DIVID'EVENT AND DIVID='1') THEN
IF (WAI_T="000" OR CLOSEX='1') THEN WAI_T<="110";
ELSE
IF (DELAYX='0')THEN WAI_T<=WAI_T-1;
ELSE WAI_T<="010";
END IF;
IF (LADD="11") THEN LIFTOR<=LIFTOR+1;
ELSIF (LADD="10") THEN LIFTOR<=LIFTOR-1;
END IF;
END IF;
END IF;
END PROCESS;
END ARCHITECTURE ART;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -