7段顯示器用when else 寫法

gto10620

剛學FPGA/CPLD 現在學VHDL寫出7段顯示器。
entity sedg7 is
4 Q4 E+ x$ m: B    Port ( S : in  STD_LOGIC_VECTOR (3 downto 0);
           Y : out  STD_LOGIC_VECTOR (7 downto 0);
6 U+ T9 `/ L" X6 b- @4 v           a,b,c,d,e,f,g,p : out  STD_LOGIC);
end sedg7;

architecture Behavioral of sedg7 is

( A4 U' P5 @5 ^/ u; sbegin
9 \8 u7 x( e# Z) F7 E/ A        Y<=        "00000011" when S= "0000" else               
                        "10011111" when S= "0001" else       
- a% e& C, ~  x+ X( f8 k* }2 X7 u                        "00100101" when S= "0010" else       
. C$ {0 r6 @- i) v+ i                        "00001101" when S= "0011" else       
1 l/ a5 ]  p' C  D* j                        "10011001" when S= "0100" else       
5 M1 b" h1 W: P                        "01001001" when S= "0101" else       
8 C$ Q2 d) Y5 s                        "01000001" when S= "0110" else       
, B0 O' j+ ~3 s3 u- K                        "00011011" when S= "0111" else       
                        "00000001" when S= "1000" else       
                        "00001001" when S= "1001" else         
                        "00010001" when S= "1010" else       
# V7 N: b! i4 s5 L$ z, {                        "11000001" when S= "1011" else       
                        "01100011" when S= "1100" else       
                        "10000101" when S= "1101" else       
" G, x4 i4 `$ R                        "01100001" when S= "1110" else       
1 u+ T/ E1 _, L$ U* j                        "01110001" when others ;   
                       
                        a:= Y(7);
  f- _' `9 j- @                        b:= Y(6);
                        c:= Y(5);
6 Y2 S$ A: K) F7 z; m8 @& g                        d:= Y(4);
2 O& {; T1 J* }, R8 c) S! f                        e:= Y(3);
) D  r( d0 G8 c6 f* p9 L  y) r6 K                        f:= Y(2);
5 V' m* [3 ~9 n/ ]9 _$ i. b6 H                        g:= Y(1);
                        p:= Y(0);
, v. O3 |& c% J! U                SEL0<= '0';
; ?2 i# w/ g+ D' Oend Behavioral;
  i. [' [- K' u) b, V" W: d( ~
ERROR:HDLParsers:164 - "D:/ypj2008/4e2afpga/sedg7/sedg7.vhd" Line 54. parse error, unexpected OTHERS
ERROR:HDLParsers:3312 - "D:/ypj2008/4e2afpga/sedg7/sedg7.vhd" Line 64. Undefined symbol 'SEL0'.
3 x% B% e+ e" h% s5 f8 B一直錯誤~"~ 實在搞不懂... 誰可以幫幫我呢? 感謝~

addn

您好
& w; W# R# z- @2 S; ~# l; y$ h1.
Y : out  STD_LOGIC_VECTOR (7 downto 0);
9 j. V* Q7 A# E8 V1 l/ L* i Y宣告為out 怎還可以指定給abcdefgp
( c$ _: a5 ?# g0 j# J& ^; P4 X, {5 a
2 o' j4 Q4 w% P( h. ]6 A% ~  E/ H2 U2.
1 ], u; s6 b1 ?+ B  j% S0 za,b,c,d,e,f,g,p不能用":="要改成"<="

3.
SEL0沒宣告,怎會冒出SEL0<= '0';來呢

[ 本帖最後由 addn 於 2008-5-8 09:30 AM 編輯 ]

airtiger

改成這樣就可以了

9 b/ o8 o, m1 r) qentity segment_7 is
" Y+ f" ^2 `+ i( u4 |$ u( |' r    Port ( S : in  STD_LOGIC_VECTOR (3 downto 0);
           Y : out  STD_LOGIC_VECTOR (7 downto 0));
2 Z' |) |' C; W! j$ A5 ~end segment_7;
5 N, a( ~3 X# X% i$ _
architecture Behavioral of segment_7 is

+ T: q* v. F# ^7 d  cbegin
$ H5 A+ g4 Z4 v- Q$ w% P5 R        Y<=        "00000011" when S= "0000" else               
                        "10011111" when S= "0001" else        
$ m* K; B3 s  G+ S                        "00100101" when S= "0010" else        
) W$ V9 r9 i4 ~- ~                        "00001101" when S= "0011" else        
                        "10011001" when S= "0100" else        
                        "01001001" when S= "0101" else        
/ }3 @! P4 J6 Q& n7 g                        "01000001" when S= "0110" else        
                        "00011011" when S= "0111" else        
                        "00000001" when S= "1000" else        
                        "00001001" when S= "1001" else         
; e+ |% q' O; ~* b( K8 y* W) c' v5 z                        "00010001" when S= "1010" else        
7 s( m( I; G2 j) y5 e/ M# P0 A                        "11000001" when S= "1011" else        
) ]" c' e( {6 `1 S! H( Q+ p                        "01100011" when S= "1100" else        
                        "10000101" when S= "1101" else        
$ b. H  x' K1 y) y2 r' ^                        "01100001" when S= "1110" else        
8 i) W! \$ s, h' S6 k# {                        "01110001";   
2 Y6 C' i3 x6 ~; M/ ]                        
end Behavioral;

gto10620

感謝囉!!後來我改成這樣
entity sedg7 is
* S  b! R+ C( e2 A    Port ( Enable : in  STD_LOGIC;
: j1 I: w, X7 Q8 F/ E) [           X : in  STD_LOGIC_VECTOR (3 downto 0);
                          a,b,c,d,e,f,g,p : out STD_LOGIC;
                          SEL : OUT   STD_LOGIC_VECTOR (5 DOWNTO 0));
+ o9 R4 i8 z0 A; g7 B                          
                          

! h% e% u. d- |end sedg7;

+ e0 x- P- A. barchitecture Behavioral of sedg7 is
' I2 X9 z- C, b, e$ D  rSIGNAL Y :  STD_LOGIC_VECTOR (7 downto 0);
0 w2 @# @- P$ x$ Q5 gbegin
                Y<=                "11111111" WHEN Enable= '1' ELSE
                                        "00000011" WHEN X="0000" ELSE
                                        "10011111" WHEN X="0001" ELSE
& B) ~! u  n3 V" a0 k! H                                        "00100101" WHEN X="0010" ELSE
                                        "00001101" WHEN X="0011" ELSE
6 s, D# T9 ]( r& P$ n                                        "10011001" WHEN X="0100" ELSE
                                        "01001001" WHEN X="0101" ELSE
                                        "01000001" WHEN X="0110" ELSE
                                        "00011011" WHEN X="0111" ELSE
. ?! t, I4 b" ~, B. g. W                                        "00000001" WHEN X="1000" ELSE
                                        "00001001" WHEN X="1001" ELSE
                                        "00010001" WHEN X="1010" ELSE
                                        "11000001" WHEN X="1011" ELSE
1 t, I+ I, P% s; J' b& _: b                                        "01100011" WHEN X="1100" ELSE
. t; B8 b7 e" _5 M                                        "10000101" WHEN X="1101" ELSE
                                        "01100001" WHEN X="1110" ELSE
3 |  ^6 Q' Q) k+ [* K                                        "01110001" ;
        a<= Y(7);
        b<= Y(6);
        c<= Y(5);
7 D' d( ?. [6 F& M0 e5 B5 ~        d<= Y(4);
/ C& t; h' y5 G/ D4 a        e<= Y(3);
9 W! y9 v4 W3 K" ^! ?' e        f<= Y(2);
7 }4 s& l9 X; t2 [& z; x        g<= Y(1);
! V6 P8 f9 I' E8 r1 T        p<= Y(0);
" p! G" p4 q" l/ e! A        SEL<= "111110" ;
end Behavioral;