7段顯示器用when else 寫法

gto10620

剛學FPGA/CPLD 現在學VHDL寫出7段顯示器。
entity sedg7 is
: D" Y6 R" ~/ h* T/ A# q    Port ( S : in  STD_LOGIC_VECTOR (3 downto 0);
           Y : out  STD_LOGIC_VECTOR (7 downto 0);
           a,b,c,d,e,f,g,p : out  STD_LOGIC);
end sedg7;

" ^* H1 @2 `7 f: b* |architecture Behavioral of sedg7 is

: ]2 Q8 e% h& S$ b1 A) a9 @. jbegin
# t' K9 j" u) D" W        Y<=        "00000011" when S= "0000" else               
" P. F' r, g' _3 f                        "10011111" when S= "0001" else       
                        "00100101" when S= "0010" else       
( x3 F( a0 c  u  F8 B/ l9 h                        "00001101" when S= "0011" else       
6 G$ K9 }' I! e) P                        "10011001" when S= "0100" else       
& z& V8 f, z+ C* k4 E7 w                        "01001001" when S= "0101" else       
                        "01000001" when S= "0110" else       
                        "00011011" when S= "0111" else       
                        "00000001" when S= "1000" else       
                        "00001001" when S= "1001" else         
                        "00010001" when S= "1010" else       
                        "11000001" when S= "1011" else       
) F( B9 z- E8 T) `% \0 Z                        "01100011" when S= "1100" else       
5 G! c/ d, O1 q: U, G8 v                        "10000101" when S= "1101" else       
                        "01100001" when S= "1110" else       
                        "01110001" when others ;   
) q) J/ ^% E0 ^2 G* R                       
                        a:= Y(7);
! C4 }; Y' j+ c( H                        b:= Y(6);
5 X6 h  [& U5 X, y                        c:= Y(5);
                        d:= Y(4);
/ A: a7 s4 r8 t( q, _                        e:= Y(3);
; C. f1 K" N. f4 d# G                        f:= Y(2);
  L* q3 e) u& h9 }/ n# @                        g:= Y(1);
                        p:= Y(0);
                SEL0<= '0';
  U7 e1 T) U4 D# Z/ K3 g7 E4 \* b* s8 cend Behavioral;
6 y) R0 y1 [1 ~" i4 ?3 r- p3 ^
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'.
一直錯誤~"~ 實在搞不懂... 誰可以幫幫我呢? 感謝~

gto10620

感謝囉!!後來我改成這樣
) W# ~$ N; v& [1 Jentity sedg7 is
    Port ( Enable : in  STD_LOGIC;
           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));
4 l; p! t6 P; a7 a                          
                          

end sedg7;
- s+ b* d' }, S) v5 y/ O4 K
5 Q8 t( V& l8 darchitecture Behavioral of sedg7 is
SIGNAL Y :  STD_LOGIC_VECTOR (7 downto 0);
begin
                Y<=                "11111111" WHEN Enable= '1' ELSE
                                        "00000011" WHEN X="0000" ELSE
                                        "10011111" WHEN X="0001" ELSE
                                        "00100101" WHEN X="0010" ELSE
( X$ @& f7 w- E: z                                        "00001101" WHEN X="0011" ELSE
                                        "10011001" WHEN X="0100" ELSE
                                        "01001001" WHEN X="0101" ELSE
                                        "01000001" WHEN X="0110" ELSE
                                        "00011011" WHEN X="0111" ELSE
                                        "00000001" WHEN X="1000" ELSE
3 A9 f; \6 Q. {* r; E                                        "00001001" WHEN X="1001" ELSE
                                        "00010001" WHEN X="1010" ELSE
                                        "11000001" WHEN X="1011" ELSE
                                        "01100011" WHEN X="1100" ELSE
                                        "10000101" WHEN X="1101" ELSE
! W  q3 j5 N* j2 B: G1 K- ]  d+ _                                        "01100001" WHEN X="1110" ELSE
                                        "01110001" ;
        a<= Y(7);
& G" x/ y& P' p$ p/ i1 ^        b<= Y(6);
        c<= Y(5);
        d<= Y(4);
* b1 Y7 H" F8 f" e        e<= Y(3);
- A% |1 j4 j" l* e9 D/ R        f<= Y(2);
- K5 ?  t* T8 P- d; ~. t7 I9 @' A        g<= Y(1);
        p<= Y(0);
; @! {8 g! g5 E        SEL<= "111110" ;
end Behavioral;

airtiger

改成這樣就可以了
/ m' k: j$ h0 q7 I( y! v
. i- b7 ~$ N5 B5 c8 C' d& ]1 p% a( Lentity segment_7 is
    Port ( S : in  STD_LOGIC_VECTOR (3 downto 0);
2 d& I( ~% H5 x% N$ U0 I; u( Z           Y : out  STD_LOGIC_VECTOR (7 downto 0));
end segment_7;

- J; D5 z4 u' U) Warchitecture Behavioral of segment_7 is
0 L3 B2 H% ?% ]/ k1 O
5 s3 D- u9 I2 ]begin
; }; z4 f5 _1 ^3 R1 e        Y<=        "00000011" when S= "0000" else               
4 J5 J5 p$ X. t& w7 }9 P                        "10011111" when S= "0001" else        
                        "00100101" when S= "0010" else        
                        "00001101" when S= "0011" else        
& z% _. g' C2 A9 b# Y1 f. E4 K' e6 e                        "10011001" when S= "0100" else        
: ^, F- p" ~  z. ~( F* \2 t                        "01001001" when S= "0101" else        
* ?- W; _! |" h/ @" M4 }; J                        "01000001" when S= "0110" else        
                        "00011011" when S= "0111" else        
/ t$ d- e, W% C6 r; b& t                        "00000001" when S= "1000" else        
                        "00001001" when S= "1001" else         
                        "00010001" when S= "1010" else        
! |) L! P1 D5 {% v  l* ?                        "11000001" when S= "1011" else        
' e! }, `* g+ R                        "01100011" when S= "1100" else        
                        "10000101" when S= "1101" else        
* T$ N, }4 K: M4 W/ S                        "01100001" when S= "1110" else        
                        "01110001";   
5 X0 \% y, r/ r5 a                        
end Behavioral;

addn

您好
1.
Y : out  STD_LOGIC_VECTOR (7 downto 0);
Y宣告為out 怎還可以指定給abcdefgp
5 E1 H/ f7 f& s% b0 u* [+ N
/ j7 H( l4 H) \7 w8 r2.
a,b,c,d,e,f,g,p不能用":="要改成"<="

8 V% ]% V" ^* E8 b2 g( M4 z) p/ \3.
+ p* H+ f. B% v, K- S% J" jSEL0沒宣告,怎會冒出SEL0<= '0';來呢
' a# L& n" d# b' V5 y" K2 V; Z
[ 本帖最後由 addn 於 2008-5-8 09:30 AM 編輯 ]