【文章內(nèi)容簡介】 T45M=00110000。DOUT45B=00110101。 WHEN010000=DOUT45M=00101001。DOUT45B=00110100。 WHEN010001=DOUT45M=00101000。DOUT45B=00110011。 WHEN010010=DOUT45M=00100111。DOUT45B=00110010。 WHEN010011=DOUT45M=00100110。DOUT45B=00110001。 WHEN010100=DOUT45M=00100101。DOUT45B=00110000。 WHEN010101=DOUT45M=00100100。DOUT45B=00101001。 WHEN010110=DOUT45M=00100011。DOUT45B=00101000。 WHEN010111=DOUT45M=00100010。DOUT45B=00100111。 WHEN011000=DOUT45M=00100001。DOUT45B=00100110。 WHEN011001=DOUT45M=00100000。DOUT45B=00100101。 WHEN011010=DOUT45M=00011001。DOUT45B=00100100。 WHEN011011=DOUT45M=00011000。DOUT45B=00100011。 WHEN011100=DOUT45M=00010111。DOUT45B=00100010。 WHEN011101=DOUT45M=00010110。DOUT45B=00100001。 WHEN011110=DOUT45M=00010101。DOUT45B=00100000。 WHEN011111=DOUT45M=00010100。DOUT45B=00011001。 WHEN100000=DOUT45M=00010011。DOUT45B=00011000。 WHEN100001=DOUT45M=00010010。DOUT45B=00010111。 WHEN100010=DOUT45M=00010001。DOUT45B=00010110。 WHEN100011=DOUT45M=00010000。DOUT45B=00010101。 WHEN100100=DOUT45M=00001001。DOUT45B=00010100。 WHEN100101=DOUT45M=00001000。DOUT45B=00010011。 WHEN100110=DOUT45M=00000111。DOUT45B=00010010。 WHEN100111=DOUT45M=00000110。DOUT45B=00010001。 WHEN101000=DOUT45M=00000101。DOUT45B=00010000。 WHEN101001=DOUT45M=00000100。DOUT45B=00001001。 WHEN101010=DOUT45M=00000011。DOUT45B=00001000。 WHEN101011=DOUT45M=00000010。DOUT45B=00000111。 WHEN101100=DOUT45M=00000001。DOUT45B=00000110。 WHEN OTHERS=DOUT45M=00000000。DOUT45B=00000000。 END CASE。 END PROCESS。 END。 設計仿真的截圖 ： CNT25S模塊的實現(xiàn) 簡單思路： CLK上升沿到來時，若到計時使能信號、 SM信號和 SB信號有效， CNT25S開始計數(shù)，并將輸入狀態(tài)通過 DOUT25M、 DOUT25B 分別輸出到主、支干道顯示。 設計的原理圖模塊 ： 設計源程序 ： LIBRARY IEEE。 USE 。 USE 。 ENTITY CNT25S IS PORT(SB,SM,CLK,EN25:IN STD_LOGIC。 DOUT25M,DOUT25B:OUT STD_LOGIC_VECTOR(7 DOWNTO 0))。 END ENTITY CNT25S。 ARCHITECTURE ART OF CNT25S IS SIGNAL CNT5B:STD_LOGIC_VECTOR(4 DOWNTO 0)。 BEGIN PROCESS(SB,SM,CLK,EN25)IS BEGIN IF SB=39。039。THEN CNT5B=CNT5BCNT5B1。 ELSIF SM=39。039。THEN CNT5B=CNT5BCNT5B1。 ELSIF(CLK39。EVENT AND CLK=39。139。)THEN IF EN25=39。139。THEN CNT5B=CNT5B+1。 ELSIF EN25=39。039。THEN CNT5B=CNT5BCNT5B1。 END IF。 END IF。 END PROCESS。 PROCESS(CNT5B)IS BEGIN CASE CNT5B IS WHEN00000=DOUNT25B=00100101。DOUT25M=00110000。 WHEN00001=DOUNT25B=00100100。DOUT25M=00101001。 WHEN00010=DOUNT25B=00100011。DOUT25M=00101000。 WHEN00011=DOUNT25B=00100010。DOUT25M=00100111。 WHEN00100=DOUNT25B=00100001。DOUT25M=00100110。 WHEN00101=DOUNT25B=00100000。DOUT25M=00100101。 WHEN00110=DOUNT25B=00011001。DOUT25M=00100100。 WHEN00111=DOUNT25B=00011000。DOUT25M=00100011。 WHEN01000=DOUNT25B=00010111。DOUT25M=00100010。 WHEN01001=DOUNT25B=00010110。DOUT25M=00100001。 WHEN01010=DOUNT25B=00010101。DOUT25M=00100000。 WHEN01011=DOUNT25B=00010100。DOUT25M=00011001。 WHEN01100=DOUNT25