帶時間顯示的交通燈課程設計PLC

1、 綜合成績優(yōu)秀 良好 優(yōu)秀 良好 不及格 教師簽名批改日期2021年 月 日 PLC 課程設計報告院系 電子與電氣工程學院 專業(yè) 電氣工程及其自動化 班級 電氣3081 學號3082110123姓名 周曉文 2021年1月課題名稱：帶時間顯示的交通燈課題分值:10分1、 控制要求：信號燈守兩個啟動按鈕控制，當SB1按下后，信號燈系統(tǒng)執(zhí)行夜間工作模式，兩車道黃燈以2秒為周期不停閃爍。當SB2按下后，信號等系統(tǒng)執(zhí)行白天模式，具體要求如下。南北紅燈維持25秒，在南北紅燈亮的同時東西綠燈也亮，并維持20秒。到20秒時，東西綠燈也亮，閃亮3秒后熄滅。在東西綠燈熄滅時，東西黃燈亮，并維持2秒。到2秒后，東

2、西黃燈熄滅，東西紅燈亮，同時南北紅燈熄滅，綠燈亮。東西紅燈維持30秒。南北綠燈維持25秒，然后閃亮3秒后熄滅，這時南北紅燈亮，東西綠燈亮。周而復始。按下停止按鈕SB3后，全部燈熄滅。白天工作方式必須完成兩種時間顯示模式：1） 兩個LED組合顯示南北紅燈倒計時時間東西紅燈時間不顯示。2） 分別用一個LED顯示東西、南北紅燈倒計時時間自行將工作周期壓縮至個位數(shù)。2、 控制系統(tǒng)設計分析輸入輸出點統(tǒng)計序號元器件用途1SB12SB23總停開關5模式轉換開關6南北綠燈7南北黃燈8南北紅燈9東西綠燈10東西黃燈11東西紅燈12數(shù)碼管G14數(shù)碼管F15數(shù)碼管E16數(shù)碼管D17數(shù)碼管C18數(shù)碼管B19數(shù)碼管A2

3、0東西夜間黃燈21南北夜間黃燈三 PLC系統(tǒng)硬件配置槽號12345模塊選擇PS307 5ACPU314-2DPSM321 DC 24V 16點SM322DO 24V16點I/O點范圍六、PLC程序設計library ieee;use ieee.std_logic_1164.all;use ieee.std_logic_unsigned.all;entity sheji3 isport(clk,ck:in std_logic; sel:in std_logic_vector(1 downto 0); sm:out std_logic_vector(6 downto 0); duan:out st

4、d_logic_vector(5 downto 0);end sheji3;architecture art of sheji3 is signal cnt:std_logic_vector(3 downto 0); signal temp:integer range 0 to 5; signal x:std_logic_vector(3 downto 0); signal y:std_logic_vector(3 downto 0) beginp1:process(clk) begin if(clk'event and clk='1') then case sel i

5、s when "00"=>if(cnt>="0100")then cnt<="0000" else cnt<=cnt+1; end if; when "01"=>if(cnt=>"1000" or cnt="0001" or cnt="0011" or cnt="0101" or cnt="0111")then cnt<="0000" else cnt&l

6、t;=cnt+2; end if; when "10"=>if(cnt>="1001" or cnt="0000" or cnt="0010" or cnt="0100" or cnt="0110" or cnt="1000")then cnt<="0001" else cnt<=cnt+2; end if; when"11"=>if(cnt>"0101" or

7、 cnt="0001" or cnt="0000")then cnt<="0101" else cnt<=cnt-1; end if; when others=>cnt<="1111" end case; y<=cnt; end if;end process p1; p2:process(ck)begin if(ck'event and ck='1')then case temp is when 0=>duan<="000001"

8、 x<=y; when 1=>duan<="000010" x<=y; when 2=>duan<="000100" x<=y; when 3=>duan<="001000" x<="00"&sel; when 4=>duan<="010000" x<="00"&sel; when others=>duan<="100000" x<="

9、00"&sel; end case; temp<=temp+1; end if; end process p2;p3:process(x) begin case x is when"0000"=>sm<="1111110" when"0001"=>sm<="0110000" when"0010"=>sm<="1101101" when"0011"=>sm<="1111001" when"0100"=>sm<="0110011" when"0101"=>sm<="1011011" when"0110"=>sm<="1011111" when"0111"=>sm<="1110000" when"1000"=>