新建 文本文档.txt

温度的BCD码显示 在0809上显视的是电压值

LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
ENTITY ccd IS
PORT( DIN:IN STD_LOGIC_VECTOR(7 DOWNTO 0);
      DOUT:OUT STD_LOGIC_VECTOR(7 DOWNTO 0));
END;
ARCHITECTURE ycf OF ccd IS
SIGNAL REGL:STD_LOGIC_VECTOR(7 DOWNTO 0);
BEGIN
PROCESS(DIN)
BEGIN
CASE DIN IS
     WHEN "00000000" =>REGL<="00000000";
     WHEN "00000010" =>REGL<="00000001";
     WHEN "00000100" =>REGL<="00000010";
     WHEN "00000110" =>REGL<="00000011";
     WHEN "00001000" =>REGL<="00000100";
     WHEN "00001010" =>REGL<="00000101";
     WHEN "00001100" =>REGL<="00000110";
     WHEN "00001110" =>REGL<="00000111";
     WHEN "00010000" =>REGL<="00001000";
     WHEN "00010010" =>REGL<="00001001";
     WHEN "00010100" =>REGL<="00010000";
     WHEN "00010110" =>REGL<="00010001";
     WHEN "00011000" =>REGL<="00010010";
     WHEN "00011010" =>REGL<="00010011";
     WHEN "00011100" =>REGL<="00010100";
     WHEN "00011110" =>REGL<="00010101";
     WHEN "00100000" =>REGL<="00010110";
     WHEN "00100010" =>REGL<="00010111";
     WHEN "00100100" =>REGL<="00011000";
     WHEN "00100110" =>REGL<="00011001";
     WHEN "00101000" =>REGL<="00100000";
     WHEN "00101010" =>REGL<="00100001";
     WHEN "00101100" =>REGL<="00100010";
     WHEN "00101110" =>REGL<="00100011";
     WHEN "00110000" =>REGL<="00100100";
     WHEN "00110010" =>REGL<="00100101";
     WHEN "00110100" =>REGL<="00100110";
     WHEN "00110110" =>REGL<="00100111";
     WHEN "00111000" =>REGL<="00101000";
     WHEN "00111010" =>REGL<="00101001";
     WHEN "00111100" =>REGL<="00110000";
     WHEN "00111110" =>REGL<="00110001";
     WHEN "01000000" =>REGL<="00110010";
     WHEN "01000010" =>REGL<="00110011";
     WHEN "01000100" =>REGL<="00110100";
     WHEN "01000110" =>REGL<="00110101";
     WHEN "01001000" =>REGL<="00110110";
     WHEN "01001010" =>REGL<="00110111";
     WHEN "01001100" =>REGL<="00111000";
     WHEN "01001110" =>REGL<="00111001";
     WHEN "01010000" =>REGL<="01000000";
     WHEN "01010010" =>REGL<="01000001";
     WHEN "01010100" =>REGL<="01000010";
     WHEN "01010110" =>REGL<="01000011";
     WHEN "01011000" =>REGL<="01000100";
     WHEN "01011010" =>REGL<="01000101";
     WHEN "01011100" =>REGL<="01000110";
     WHEN "01011110" =>REGL<="01000111";
     WHEN "01100000" =>REGL<="01001000";
     WHEN "01100010" =>REGL<="01001001";
     WHEN "01100100" =>REGL<="01010000";
     WHEN "01100110" =>REGL<="01010001";
     WHEN "01101000" =>REGL<="01010010";
     WHEN "01101010" =>REGL<="01010011";
     WHEN "01101100" =>REGL<="01010100";
     WHEN "01101110" =>REGL<="01010101";
     WHEN "01110000" =>REGL<="01010110";
     WHEN "01110010" =>REGL<="01010111";
     WHEN "01110100" =>REGL<="01011000";
     WHEN "01110110" =>REGL<="01011001";
     WHEN "01111000" =>REGL<="01100000";
     WHEN "01111010" =>REGL<="01100001";
     WHEN "01111100" =>REGL<="01100010";
     WHEN "01111110" =>REGL<="01100011";
     WHEN "10000000" =>REGL<="01100100";
     WHEN "10000010" =>REGL<="01100101";
     WHEN "10000100" =>REGL<="01100110";
     WHEN "10000110" =>REGL<="01100111";
     WHEN "10001000" =>REGL<="01101000";
     WHEN "10001010" =>REGL<="01101001";
     WHEN "10001100" =>REGL<="01110000";
     WHEN "10001110" =>REGL<="01110001";
     WHEN "10010000" =>REGL<="01110010";
     WHEN "10010010" =>REGL<="01110011";
     WHEN "10010100" =>REGL<="01110100";
     WHEN "10010110" =>REGL<="01110101";
     WHEN "10011000" =>REGL<="01110110";
     WHEN "10011010" =>REGL<="01110111";
     WHEN "10011100" =>REGL<="01111000";
     WHEN "10011110" =>REGL<="01111001";
     WHEN "10100000" =>REGL<="10000000";
     WHEN "10100010" =>REGL<="10000001";
     WHEN "10100100" =>REGL<="10000010";
     WHEN "10100110" =>REGL<="10000011";
     WHEN "10101000" =>REGL<="10000100";
     WHEN "10101010" =>REGL<="10000101";
     WHEN "10101100" =>REGL<="10000110";
     WHEN "10101110" =>REGL<="10000111";
     WHEN "10110000" =>REGL<="10001000";
     WHEN "10110010" =>REGL<="10001001";
     WHEN "10110100" =>REGL<="10010000";
     WHEN "10110110" =>REGL<="10010001";
     WHEN "10111000" =>REGL<="10010010";
     WHEN "10111010" =>REGL<="10010011";
     WHEN "10111100" =>REGL<="10010100";
     WHEN "10111110" =>REGL<="10010101";
     WHEN "11000000" =>REGL<="10010110";
     WHEN "11000010" =>REGL<="10010111";
     WHEN "11000100" =>REGL<="10011000";
     WHEN "11000110" =>REGL<="10011001";
     WHEN OTHERS =>NULL; 
END CASE;
END PROCESS;
DOUT<=REGL;
END;