libraryieee;useieee.std_logic_1164.all;useieee.std_logic_arith.all;useieee.std_logic_unsigned.all;--------------------------------------------------------------------entityexp20isport(Clk:instd_logic;--時鐘輸入K:instd_logic_vector(7downto0);--序列輸入Start:instd_logic;--輸入：啟動檢測ledag:outstd_logic_vector(6downto0);sel:outstd_logic_vector(2downto0);--結果輸出led:outstd_logic);endexp20;--------------------------------------------------------------------architecturebehaveofexp20issignalm_Count:integerrange0to15;signalStart_Flag:std_logic;signalError_Num:std_logic_vector(3downto0);signalABC:std_logic_vector(7downto0);signalm_Result:std_logic_vector(7downto0);signalled_count:std_logic_vector(6downto0);signalsel_count:std_logic_vector(2downto0);beginABC<="11001100";--待檢測序列值process(Clk)beginif(Clk'eventandClk='1')thenif(Start='0')thenStart_Flag<='1';elsif(m_Count>=7)thenStart_Flag<='0';endif;endif;endprocess;process(Clk)--計數(shù)器累加beginif(Clk'eventandClk='1')thenif(Start='0')thenm_Count<=0;elsif(Start_Flag='1')thenm_Count<=m_Count+1;elsem_Count<=15;endif;endif;endprocess;process(Clk)--波形判斷beginif(Clk'eventandClk='1')thenif(Start='0')thenError_Num<="0000";elsif(m_Count<=7andK(m_Count)/=ABC(m_Count))thenError_Num<=Error_Num+1;endif;endif;endprocess;process(Clk)--波形判斷beginif(Clk'eventandClk='1')thenif(Start='0')thenm_Result(7downto4)<="0000";elsif(m_Count=8)thenif(Error_Num="0000")thenm_Result(7downto4)<="1000";elsem_Result(7downto4)<="0000";endif;endif;m_Result(3downto0)<=Error_Num;endif;endprocess;process(Clk)--顯示位選beginif(Clk'eventandClk='1')thensel_count<=sel_count+1;endif;sel<=sel_count;endprocess;process(Error_Num)--顯示譯碼begincaseerror_numiswhen"0000"=>led_count<="0111111";--'0'when"0001"=>led_count<="0000110";--'1'when"0010"=>led_count<="1011011";--'2'when"0011"=>led_count<="1001111";--'3'when"0100"=>led_count<="1100110";--'4'when"0101"=>led_count<="1101101";--'5'when"0110"=>led_count<="1111101";--'6'when"0111"=>led_count<="0000111";--'7'when"1000"=>led_count<="1111111";--'8'when"1001"=>led_count<="1101111";--'9'when"1010"=>led_count<="1000000";--'-'whenothers=>led_count<="0000000";--全滅endcase;ledag<=led_count;endprocess;process(Error_Num)--檢測數(shù)據(jù)是否正確beg