【文章內容簡介】 時就給co 來個脈沖。 Tem2 清零。 TEM2=0000。 CO=39。139。 ELSE TEM2=TEM2+1。脈沖加一。 CO=39。039。co 清零。 END IF。 ELSE TEM1=TEM1+1。 END IF。 END IF。 END PROCESS。 END ART。 15 24 進制程序 圖 44 24 進制頂層元件圖 library ieee。 use 。 use 。 use 。 entity fen24 is port ( clk:in std_logic。 rst:in std_logic。 qout1: out std_logic_vector(3 downto 0)。 qout2: out std_logic_vector(3 downto 0)。 co:out std_logic )。 end fen24。 architecture behave of fen24 is signal tem1:std_logic_vector(3 downto 0)。 signal tem2:std_logic_vector(3 downto 0)。 begin process(clk,rst) begin if(rst=39。139。)then 當 rst(復位）等于 1， 輸出進位脈沖則執(zhí)行下一條語句 tem1=0000。 tem1 輸出為 0 tem2=0000。 tem2 輸出為 0 elsif clk39。event and clk=39。139。 then 當時鐘信號為上升沿觸發(fā)時 if (tem2=0010and tem1=0011)then如果 tem2 為 2， tem1 為 3，執(zhí)行以下程序 tem1=0000。 那么 tem1 和 tem2 就清零 tem2=0000。 co=39。139。 有輸出進位 Else 否則 co=39。039。 無輸出進位 if tem1=1001then 在不滿足以上情況如果 tem1 加至 9 tem1=0000。 tem1 則清零 if tem2=1001then如果 tem2 為 9 tem2=0000。 tem2 則清零（此段為 100 進制） Else 否則 tem2=tem2+1。 tem2 加 1 end if。 結束 if 語句 Else 否則 tem1=tem1+1。 tem1 加 1 end if。 結束 if 語句 end if。 結束 if 語句 end if。 結束 if 語句 16 qout1=tem1。 qout2=tem2。 end process。 結束進程 end behave。 60 進制程序 45 60 進制頂層元件圖 library ieee。 use 。 use 。 use 。 entity fen60 is port ( clk:in std_logic。 rst:in std_logic。 qout1: out std_logic_vector(3 downto 0)。 qout2: out std_logic_vector(3 downto 0)。 co:out std_logic )。 end fen60。 architecture behave of fen60 is signal tem1:std_logic_vector(3 downto 0)。 signal tem2:std_logic_vector(3 downto 0)。 begin process(clk,rst) begin if(rst=39。139。)then 當 ckr 為上升沿時 tem1=0000。 tem1 清零 tem2=0000。 tem2 清零 elsif clk39。event and clk=39。139。 then 當時鐘信號為上升沿時，執(zhí)行以下句子 if tem1=1001then 如果 tem1 為 9 時 tem1=0000。 則 tem1 清零 if tem2=0101then 如果 tem2 為 5 時 tem2=0000。 則 tem2 清零 co=39。139。 輸出 進位脈沖 Else 17 tem2=tem2+1。 tem2 加 1 co=39。039。 無進位脈沖輸出 end if。 結束 if 語句 else 否則 tem1=tem1+1。 個位加 1 end if。 結束 if 語句 end if。 結束 if 語句 qout1=tem1。 qout2=tem2。 end process。 結束進程 end behave。 24 進制 C LKR STQOU T 1[ 3. . 0]QOU T 2[ 3. . 0]COAA24ins t 38 LIBRARY IEEE。 USE 。 USE 。 USE 。 ENTITY AA24 IS PORT( CLK:IN STD_LOGIC。 RST:IN STD_LOGIC。 QOUT1: OUT STD_LOGIC_VECTOR(3 DOWNTO 0)。 QOUT2: OUT STD_LOGIC_VECTOR(3 DOWNTO 0)。 CO: OUT STD_LOGIC )。 END AA24。 ARCHITECTURE ART OF AA24 IS SIGNAL TEM1: STD_LOGIC_VECTOR(3 DOWNTO 0)。 SIGNAL TEM2: STD_LOGIC_VECTOR(3 DOWNTO 0)。 BEGIN PROCESS (CLK,RST) BEGIN IF(RST=39。139。)THEN TEM1=0000。 TEM2=0000。 ELSIF CLK39。EVENT AND CLK=39。139。 THEN IF (TEM2=0010 AND TEM1=0011) THEN TEM1=0000。 TEM1=0000。 CO=39。139。 18 ELSE CO=39。039。 IF TEM1=1001 THEN TEM1=0000。 IF TEM2=1001 THEN TEM2=0000。 ELSE TEM2=TEM2+1。 END IF。 ELSE TEM1=TEM1+1。 END IF。 END IF。 END IF。 QOUT1=TEM1。 QOUT2=TEM2。 END PROCESS。 END ART。 數碼管顯示 Q I N [ 3 . . 0 ] Q O U T [ 7 . . 0 ]L E D 7in s t 3 6 LIBRARY IEEE。 USE 。 USE 。 USE 。 ENTITY LED7 IS PORT( QIN: IN STD_LOGIC_VECTOR(3 DOWNTO 0)。 QOUT: OUT STD_LOGIC_VECTOR(7 DOWNTO 0) )。 END LED7。 ARCHITECTURE ART OF LED7 IS BEGIN WITH QIN SELECT QOUT=00000011 WHEN 0000,顯示 0 10011111 WHEN 0001,顯示 1 00100101 WHEN 0010,顯示 2 00001101 WHEN 0011,顯示 3 10011001 WHEN 0100,顯示 4 01001001 WHEN 0101,顯示 5 01000001 WHEN 0110,顯示 6 19 00011111 WHEN 0111,顯示 7 00000001 WHEN 1000,顯示 8 00001001 WHEN 1001,顯示 9 00010001 WHEN 1010,顯示 A 11000001 WHEN 1011,顯示 B 01100011 WHEN 1100,顯示 C 10000101 WHEN 1101,顯示 D 01100001 WHEN 1110,顯示 E 11111101 WHEN 1111,顯示 00000011 WHEN OTHERS。 END ART。 數碼管動態(tài)顯示 C LKR STQI N 1[ 3. . 0]QI N 2[ 3. . 0]QI N 3[ 3. . 0]QI N 4[ 3. . 0]QI N 5[ 3. . 0]QI N 6[ 3. . 0]QOU T [ 3. . 0]SEL [ 7. . 0]D T SMin s t 24 LIBRARY IEEE。 USE 。 USE 。 USE 。 ENTITY DTSM IS PORT( CLK : IN STD_LOGIC。 RST : IN STD_LOGIC。 QIN1: IN STD_LOGIC_VECTOR(3 DOWNTO 0)。 QIN2: IN STD_LOGIC_VECTOR(3 DOWNTO 0)。 QIN3: IN STD_LOGIC_VECTOR(3 DOWNTO 0)。 QIN4: IN STD_LOGIC_VECTOR(3 DOWNTO 0)。 QIN5: IN STD_LOGIC_VECTOR(3 DOWNTO 0)。 QIN6: IN STD_LOGIC_VECTOR(3 DOWNTO 0)。 QOUT: OUT STD_LOGIC_VECTOR(3 DOWNTO 0)。 SEL : OUT STD_LOGIC_VECTOR(7 DOWNTO 0) )。 END DTSM。 ARCHITECTURE ART OF DTSM IS BEGIN PROCESS(CLK,RST) VARIABLE CNT:INTEGER RANGE 0 TO 7。 BEGIN 20 IF(RST=39。139。) THEN CNT:=0。 SEL=11111110。 QOUT=0000。 ELSIF CLK39。EVENT AND CLK=39。139。 THEN IF CNT=7 THEN CNT:=0。 ELSE CNT:=CNT+1。 END IF。 CASE CNT IS WHEN 0=QOUT=QIN1。 SEL=11111110。 WHEN 1=QOUT=QIN2。 SEL=11111101。 WHEN 2=QOUT=1111。 SEL=11111011。 WHEN 3=QOUT=QIN3。