請高手幫忙看一下

jlhl1170

20位元BIN轉BCD的程式
LIBRARY IEEE;
use IEEE.std_logic_1164.all;
; P1 q' S9 Q( |- J0 b1 L
entity bin2bcd is
0 A5 ?) Z8 S$ L( j( w* Sport(
& U  R) i: X4 @1 z$ L8 ~  data_in : in std_logic_vector(19 downto 0);
  EN : in std_logic;
  data_out : out std_logic_vector(23 downto 0)
) ^! G: O: O# h);
1 T# P. b# N( o9 g3 L- J. Fend entity;

! c* l# {* o4 Q! ~, |
architecture bin2bcd of bin2bcd is
* J2 g# q1 J" r4 wbegin

' r  w2 z. i, m) bprocess(data_in, EN)
variable data_in_TEMP : std_logic_vector(2 downto 0);
5 w; z2 u: w2 P3 x7 S6 B( Ibegin
  data_in_TEMP := data_in(19 downto 1);
# q2 R1 d9 y9 r2 S  data_out  '0');
  if EN='1' then
% A# h6 K& {' v  u+ W! N   case data_in_TEMP is
' l( N% a5 z* ~1 p4 k( K    when "000" => data_out(23 downto 1)  data_out(23 downto 1)  data_out(23 downto 1)  data_out(23 downto 1)  data_out(23 downto 1)  data_out(23 downto 1)  data_out(23 downto 1)  data_out(23 downto 1)  data_out'0');
   end case;

   data_out(0) <= data_in(0);
  end if;
end process;
! g0 ]. K* J) Y% M. ]  I" [$ R
end architecture;
3 G- d, K! M8 N# I/ u, W

% X6 P  P, \. q% jCHECK的時候第一行跟if EN='1' then這行出現錯誤
會是什麼問題??

johson

variable data_in_TEMP : std_logic_vector(2 downto 0); ~~資料寬度 3 bits
% s/ ^& U$ O& c; ~$ F; k' ddata_in_TEMP := data_in(19 downto 1);~~資料寬度 19 bits ??
data_out  '0');~~????????目的為何????