二进制码转BCD码源程序

二进制码转BCD码源程序：

LIBRARY IEEE;

USE IEEE.STD_LOGIC_1164.ALL; ENTITY F2_BCD IS

PORT( D : IN STD_LOGIC_VECTOR(3 DOWNTO 0);

B : OUT STD_LOGIC_VECTOR(4 DOWNTO

SIGNAL BOUT : STD_LOGIC_VECTOR(4 DOWNTO BEGIN DIN <= D; PROCESS(DIN) BEGIN

CASE DIN IS

WHEN "0000" => BOUT <= "00000"; WHEN "0001" => BOUT <= "00001";

WHEN "0010" => BOUT <= "00010"; WHEN "0011" => BOUT <= "00011"; WHEN "0100" => BOUT <= "00100"; WHEN "0101" => BOUT <= "00101"; WHEN "0110" => BOUT <= "00110"; WHEN "0111" => BOUT <= "00111"; WHEN "1000" => BOUT <= "01000"; WHEN "1001" => BOUT <= "01001"; WHEN "1010" => BOUT <= "10000"; WHEN "1011" => BOUT <= "10001"; WHEN "1100" => BOUT <= "10010"; WHEN "1101" => BOUT <= "10011"; WHEN "1110" => BOUT <= "10100"; WHEN "1111" => BOUT <= "10101"; WHEN OTHERS => NULL; END CASE; END PROCESS; B <= BOUT;

0)); END;

ARCHITECTURE ONE OF F2_BCD IS 0); 0);

SIGNAL DIN : STD_LOGIC_VECTOR(3 DOWNTO

END ONE;

综合电路图：

波形仿真图：