【正文】 于右轉(zhuǎn)燈亮的時(shí)間，南北方向右轉(zhuǎn)燈亮。 tnbph=dxnbprth。 tnbpl=dxnbprtl。 tdxh=dxnbrth。 tdxl=dxnbrtl。 tdxph=dxnbprth。 tdxpl=dxnbprtl。 東西方向人行道倒計(jì)時(shí)時(shí)間等 于紅燈亮的時(shí)間，人行道東西方向紅燈亮。 light=10000100001010 。 東西方向紅燈亮，人行道紅燈亮；南北方向右轉(zhuǎn)燈亮，人行道紅燈亮。 when 1001=tnbh=dxnbyth。 tnbl=dxnbytl。南北方向倒計(jì)時(shí)時(shí)間等于黃燈亮的時(shí)間，南北方向黃燈亮。 tnbph=dxnbprth。 tnbpl=dxnbprtl。 tdxh=dxnbrth。 tdxl=dxnbrtl。 tdxph=dxnbprth。 tdxpl=dxnbprtl。 light=10000100010010 。 東西方向紅燈亮，人行道紅燈亮；南北方向黃燈亮，人行道紅燈亮。 when 1010=tnbh=dxnblth。 tnbl=dxnbltl。南北方向倒計(jì)時(shí)時(shí)間等于左轉(zhuǎn)燈亮的時(shí)間，南北方向左轉(zhuǎn)燈亮。 tnbph=dxnbprth。 tnbpl=dxnbprtl。 tdxh=dxnbrth。 tdxl=dxnbrtl。 tdxph=dxnbprth。 tdxpl=dxnbprtl。 light=10000100000110。 東西方向紅燈亮，人行道紅燈亮；南北方向左轉(zhuǎn)燈亮，人行道紅燈亮。 when 1011=tnbh=dxnbyth。 tnbl=dxnbytl。南北方向倒計(jì)時(shí)時(shí)間等于黃燈亮的時(shí)間，南北方向黃燈亮。 tnbph=dxnbprth。 tnbpl=dxnbprtl。 tdxh=dxnbrth。 tdxl=dxnbrtl。 tdxph=dxnbprth。 tdxpl=dxnbprtl。 light= 10000100010010。 東西方向紅燈亮，人行道紅燈亮；南北方向黃燈亮，人行道紅燈亮。 s=＂ 0000＂ when others = tdxh=dxnbgth。 tdxl=dxnbgtl。 其它情況，空操作。 tdxph=dxnbprth。 tdxpl=dxnbprtl。 tnbh=dxnbrth。 tnbl=dxnbrtl。 tnbph=dxnbpgth。 tnbpl=dxnbpgtl。 light=01000101000001。 end case。 else s=s。否則亮燈狀態(tài)不變。 end if。 if tdx/=1 then 東西方向計(jì)時(shí)器的值不等于 1時(shí)，計(jì)時(shí)器作減法計(jì)數(shù)。 if tdxl=0 then tdxl=1001。 tdxh=tdxh1。 else tdxl=tdxl1。 tdxh=tdxh。 end if。 end if。 if tdxp/=1 then 東西方向人行道計(jì)時(shí)器的值不等于 1時(shí)，計(jì)時(shí)器作減法計(jì)數(shù)。 if tdxpl=0 then tdxpl=1001。 tdxph=tdxph1。 else tdxpl=tdxl1。 tdxph=tdxph。 end if。 end if。 if tnb/=1 then 南北方向計(jì)時(shí)器的值不等于 1時(shí)，計(jì)時(shí)器作減法計(jì)數(shù)。 if tnbl=0 then tnbl=1001。 tnbh=tnbh1。 else tnbl=tnbl1。 tnbh=tnbh。 end if。 end if。 if tnbp/=1 then 南北方向人行道計(jì)時(shí)器的值不等于1時(shí)，計(jì)時(shí)器作減法計(jì)數(shù)。 if tnbpl=0 then tnbpl=1001。 tnbph=tnbph1。 else tnbpl=tnbpl1。 tnbph=tnbph。 end if。 end if。 end if。 end if。 END IF。 end process。 dxr0=light(13)。 dxg0=light(12)。 dxy0=light(11)。 dxri0=light(10)。 dxl0=light(9)。 dxpr0=light(8)。 dxpg0=light(7)。 nbr0=light(6)。 nbg0=light(5)。 nby0=light(4)。 nbri0=light(3)。 nbl0=light(2)。 nbpr0=light(1)。 nbpg0=light(0)。 end beh。 設(shè)計(jì)說明 倒計(jì)時(shí)電路（文件名為 ）由狀態(tài)機(jī)，東西與南北方向計(jì)時(shí)器，亮燈信號輸出等部分組成。各信號燈的亮燈時(shí)間在定義段由賦值語句進(jìn)行預(yù)置，便于修改。亮燈時(shí)間采用8421BCD碼。 EN信號則實(shí)現(xiàn)正常情況和特殊情況下狀態(tài)機(jī)以及計(jì)時(shí)器的工作模式控制。其中dx表示東西方向， nb表示南北方向， g綠燈， y黃燈， r紅燈， l左轉(zhuǎn)燈， ri 右轉(zhuǎn)燈， p表示人行道， t表示倒計(jì)時(shí)顯示剩余時(shí)間；如 dxnbgth、 dxnbgtl分別表示東 西南北方向綠燈亮?xí)r間的高位和底位， tdxh倒計(jì)時(shí)顯示東西方向所亮燈剩余時(shí)間的高位。 顯示電路源程序 library ieee。 use 。 entity ltout is port(en,clk:in std_logic。 dxr0,dxg0,dxy0,dxri0,dxl0,dxpr0,dxpg0:in std_logic。 nbr0,nbg0,nby0,nbri0,nbl0,nbpr0,nbpg0:in std_logic。 tdx:in std_logic_vector(6 downto 0)。 tdxp:in std_logic_vector(8 downto 0)。 tnb:in std_logic_vector(6 downto 0)。 tnbp:in std_logic_vector(8 downto 0)。 dxr,dxg,dxy,dxri,dxl,dxpr,dxpg:out std_logic。 nbr,nbg,nby,nbri,nbl,nbpr,nbpg:out std_logic。 dxt:out std_logic_vector(6 downto 0)。 dxpt:out std_logic_vector(8 downto 0)。 nbt:out std_logic_vector(6 downto 0)。 nbpt:out std_logic_vector(8 downto 0))。 end ltout。 architecture be of ltout is begin dxr=en or dxr0。 dxg=not en and dxg0。 dxy=not en and dxy0。 dxri=not en and dxri0。 dxl=not en and dxl0。 dxpr=en or dxpr0。 dxpg=not en and dxpg0。 nbr=en or nbr0。 nbg=not en and nbg0。 nby=not en and nby0。 nbri=not en and nbri0。 nbl=not en and nbl0。 nbpr=en or nbpr0。 nbpg=not en and nbpg0。 dxt=tdx when en=39。039。 else (clkamp。clkamp。clkamp。clkamp。clkamp。clkamp。clk)and tdx。 dxpt=tdxp when en=39。039。 else (clkamp。clkamp。clkamp。clkamp。clkamp。clkamp。clkamp。clkamp。clk)and tdxp。 nbt=tnb when en=39。039。 else (clkamp。clkamp。clkamp。clkamp。clkamp。clkamp。clk)and tnb。 nbpt=tnbp when en=39。039。 else (clkamp。clkamp。clkamp。clkamp。clkamp。clkamp。clkamp。clkamp。clk)and tnbp。 end be。 設(shè)計(jì)說明 顯示控制電路（文件名為 ）通過 EN和 CLK信號對電路的輸出信號進(jìn)行選通控制，以實(shí)現(xiàn)正常情況和特殊情況下的不同顯示模式。 頂層模塊源程序 library ieee。頂層 use 。 entity jtd is port(ini, clk,spe:in std_logic。 端口說明。 dxr,dxg,dxy,dxri,dxl,dxpr,dxpg:out std_logic。 nbr,nbg,nby,nbri,nbl,nbpr,nbpg:out std_logic。 dxt:out std_logic_vector(6 downto 0)。 dxpt:out std_logic_vector(8 downto 0)。 nbt:out std_logic_vector(6 downto 0)。 nbpt:out std_logic_vector(8 downto 0))。 end jtd。 architecture rtl of jtd is ponent ctrl 對元件 CTRL進(jìn)行說明。 port(clk,spe:in std_logic。 en:out std_logic)。 end ponent。 ponent