7段顯示器用when else 寫法

gto10620

剛學FPGA/CPLD 現在學VHDL寫出7段顯示器。
entity sedg7 is
. P. a( y  q2 y& f8 _5 z/ K" I" d& h2 H    Port ( S : in  STD_LOGIC_VECTOR (3 downto 0);
           Y : out  STD_LOGIC_VECTOR (7 downto 0);
: B9 l) ^! x# a9 y           a,b,c,d,e,f,g,p : out  STD_LOGIC);
end sedg7;
0 V7 @3 o% @) e! F0 t
architecture Behavioral of sedg7 is
, b( x6 C5 A3 x1 l# R
begin
, I3 ~- r9 T3 v6 n% _        Y<=        "00000011" when S= "0000" else               
                        "10011111" when S= "0001" else       
4 @$ N# n+ N+ H# G& E                        "00100101" when S= "0010" else       
  \; p& k0 x9 q/ T/ q# C0 \                        "00001101" when S= "0011" else       
                        "10011001" when S= "0100" else       
                        "01001001" when S= "0101" else       
                        "01000001" when S= "0110" else       
" r; m  Q3 C' _3 J1 s- s# ]* W                        "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       
1 B! t) I/ t, N' ^  j4 S                        "01100011" when S= "1100" else       
& A* y- k$ @8 J* U3 T# f/ z                        "10000101" when S= "1101" else       
' n2 m6 J- @7 k9 q                        "01100001" when S= "1110" else       
                        "01110001" when others ;   
                       
' N- P4 _' \, ^                        a:= Y(7);
: Z9 V" @7 E' W' v8 o                        b:= Y(6);
# a( E  l9 d- L                        c:= Y(5);
                        d:= Y(4);
                        e:= Y(3);
                        f:= Y(2);
                        g:= Y(1);
% W" Z/ N! Z6 V                        p:= Y(0);
                SEL0<= '0';
, e6 F5 s+ M+ J: ~( |6 B* bend Behavioral;
7 t1 X+ j; z* t! L3 R1 M
8 u% |) |+ U" h& e& ~0 y# p- bERROR: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'.
8 ]9 L5 v1 b2 D( w一直錯誤~"~ 實在搞不懂... 誰可以幫幫我呢? 感謝~

addn

您好
1.
Y : out  STD_LOGIC_VECTOR (7 downto 0);
Y宣告為out 怎還可以指定給abcdefgp
- Q- ]. e# e0 e  X/ M/ R; B! z% _
! k. K) s3 \4 f- Y2.
a,b,c,d,e,f,g,p不能用":="要改成"<="
! O9 Y" X" r; I
3.
SEL0沒宣告,怎會冒出SEL0<= '0';來呢

6 c! Z  s, u/ m9 F1 ?. e* @  t[ 本帖最後由 addn 於 2008-5-8 09:30 AM 編輯 ]

airtiger

改成這樣就可以了
6 K4 h8 g  Y- v  P; u
) h0 E, G( w0 G. }) ?7 a; Xentity segment_7 is
; D/ [" [5 ^& V! O  h# R$ P    Port ( S : in  STD_LOGIC_VECTOR (3 downto 0);
; }. h& t% N; S) ^; U           Y : out  STD_LOGIC_VECTOR (7 downto 0));
* B$ d- A: f# I( J. M1 J, c6 M- N" `end segment_7;

; {8 m' I7 `' [$ Darchitecture Behavioral of segment_7 is

begin
        Y<=        "00000011" when S= "0000" else               
                        "10011111" when S= "0001" else        
                        "00100101" when S= "0010" else        
                        "00001101" when S= "0011" else        
                        "10011001" when S= "0100" else        
: w( S8 }6 K* U5 k  a                        "01001001" when S= "0101" else        
                        "01000001" when S= "0110" else        
' z! [9 `5 k2 k0 g                        "00011011" when S= "0111" else        
                        "00000001" when S= "1000" else        
7 t, i, X. c: U0 E. }- ]                        "00001001" when S= "1001" else         
                        "00010001" when S= "1010" else        
                        "11000001" when S= "1011" else        
                        "01100011" when S= "1100" else        
                        "10000101" when S= "1101" else        
+ N. u/ H& j. B3 [" S                        "01100001" when S= "1110" else        
                        "01110001";   
6 y1 m- T9 M1 l% A4 E5 m                        
. B6 p2 z$ |4 Z4 Wend Behavioral;

gto10620

感謝囉!!後來我改成這樣
9 S$ `$ i6 _. q5 rentity sedg7 is
- U& t* [2 v3 S: v( G& e    Port ( Enable : in  STD_LOGIC;
           X : in  STD_LOGIC_VECTOR (3 downto 0);
5 `; ^1 J" n9 K/ V  L9 A+ E) T" e                          a,b,c,d,e,f,g,p : out STD_LOGIC;
                          SEL : OUT   STD_LOGIC_VECTOR (5 DOWNTO 0));
: {9 g" w2 C" B( f                          
                          

1 q- ~1 {' Z# l$ C0 yend sedg7;

" A# W5 p2 L) O- J  qarchitecture Behavioral of sedg7 is
SIGNAL Y :  STD_LOGIC_VECTOR (7 downto 0);
begin
! s$ M3 f7 I- p0 {  `                Y<=                "11111111" WHEN Enable= '1' ELSE
! ~" X( \! E# y' g/ K                                        "00000011" WHEN X="0000" ELSE
                                        "10011111" WHEN X="0001" ELSE
  ^2 w+ g8 ^! f8 m. E                                        "00100101" WHEN X="0010" ELSE
                                        "00001101" WHEN X="0011" ELSE
( l) H% u& Q  P                                        "10011001" WHEN X="0100" ELSE
" ^0 r$ A7 {0 f5 |; u  N                                        "01001001" WHEN X="0101" ELSE
                                        "01000001" WHEN X="0110" ELSE
# l1 R, Z3 m! m( P) W& O                                        "00011011" WHEN X="0111" ELSE
                                        "00000001" WHEN X="1000" ELSE
- ^& a1 T& A: I! f% ~1 i                                        "00001001" WHEN X="1001" ELSE
9 ]9 l& [0 [/ R) A                                        "00010001" WHEN X="1010" ELSE
                                        "11000001" WHEN X="1011" ELSE
' _5 C% G+ b& S                                        "01100011" WHEN X="1100" ELSE
- P/ h% b1 @2 s4 y; o                                        "10000101" WHEN X="1101" ELSE
                                        "01100001" WHEN X="1110" ELSE
* B- |2 B9 e. j1 F$ L$ |! x- \                                        "01110001" ;
        a<= Y(7);
        b<= Y(6);
        c<= Y(5);
% F6 A% t' v  G) z9 R5 U. D3 D! Y        d<= Y(4);
: \% I# g7 e: H4 k( I: _        e<= Y(3);
        f<= Y(2);
        g<= Y(1);
. |: ?3 O4 Z: e! U* J& {) j" x        p<= Y(0);
        SEL<= "111110" ;
* d3 B* }- u0 B, send Behavioral;