7段顯示器用when else 寫法

gto10620

剛學FPGA/CPLD 現在學VHDL寫出7段顯示器。
+ f5 l. I( i/ u: l7 M8 T% mentity sedg7 is
    Port ( S : in  STD_LOGIC_VECTOR (3 downto 0);
0 [! K0 [% V; e3 u' f           Y : out  STD_LOGIC_VECTOR (7 downto 0);
           a,b,c,d,e,f,g,p : out  STD_LOGIC);
end sedg7;

architecture Behavioral of sedg7 is
+ D/ W4 M2 N! j2 I( i& \0 G
' o) l# x& r2 a$ n! o' fbegin
        Y<=        "00000011" when S= "0000" else               
* C* {% ^  t0 Y7 d                        "10011111" when S= "0001" else       
                        "00100101" when S= "0010" else       
1 e- |0 z+ S3 s6 J$ `                        "00001101" when S= "0011" else       
1 M9 Q5 p" H) f& r  g; I4 O0 f0 t                        "10011001" when S= "0100" else       
5 i: f/ {7 r- I' @- q. P                        "01001001" when S= "0101" else       
( a2 l3 N4 n6 s+ F% P                        "01000001" when S= "0110" else       
7 R; {6 B0 i' c" J6 O. a0 l, z                        "00011011" when S= "0111" else       
                        "00000001" when S= "1000" else       
                        "00001001" when S= "1001" else         
' f/ A- S1 |; O4 e# L7 h                        "00010001" when S= "1010" else       
, X) p4 m7 f0 F3 s8 K% R                        "11000001" when S= "1011" else       
                        "01100011" when S= "1100" else       
+ a% L, Q# L/ \8 \- E  u                        "10000101" when S= "1101" else       
                        "01100001" when S= "1110" else       
" k2 @( G- G" z% s: Z7 Y                        "01110001" when others ;   
- Y+ [. H0 L, X# i0 U. E                       
$ D; S7 @' @6 d3 n2 x                        a:= Y(7);
                        b:= Y(6);
                        c:= Y(5);
$ N: |- Y  s5 _0 R/ I: |                        d:= Y(4);
                        e:= Y(3);
; m2 ^0 ~$ z2 u+ g: o3 E* A                        f:= Y(2);
9 ~; }: k& d1 \3 @' O                        g:= Y(1);
                        p:= Y(0);
                SEL0<= '0';
end Behavioral;

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'.
; L1 f( J6 G- F- V一直錯誤~"~ 實在搞不懂... 誰可以幫幫我呢? 感謝~

addn

您好
1.
Y : out  STD_LOGIC_VECTOR (7 downto 0);
Y宣告為out 怎還可以指定給abcdefgp
) m/ b. `' A; I, u
2.
9 H. ?6 w- I6 va,b,c,d,e,f,g,p不能用":="要改成"<="
9 n1 m! N7 C5 r' q4 a3 R
7 i0 W7 G5 {" C$ k# \/ ?3.
SEL0沒宣告,怎會冒出SEL0<= '0';來呢
3 @0 @' V/ ~& U! P4 Q
( ^. W+ @* w0 {1 J- u[ 本帖最後由 addn 於 2008-5-8 09:30 AM 編輯 ]

airtiger

改成這樣就可以了
5 o) C) E' ~+ c* ~6 N' u1 w
entity segment_7 is
+ n9 {/ J* @9 _% }& a$ V! P- u2 x    Port ( S : in  STD_LOGIC_VECTOR (3 downto 0);
2 f1 W$ @9 z2 A% J6 Q; L! A/ W           Y : out  STD_LOGIC_VECTOR (7 downto 0));
9 n( ~; [; H* m3 ~) }* b+ N7 oend segment_7;

+ \! ?& e9 `7 S2 Narchitecture Behavioral of segment_7 is

begin
( y) R: X3 h: ^8 p" [        Y<=        "00000011" when S= "0000" else               
5 S4 F# O, w9 @# r( C  I                        "10011111" when S= "0001" else        
                        "00100101" when S= "0010" else        
                        "00001101" when S= "0011" else        
                        "10011001" when S= "0100" else        
7 k! a. ]$ y% j/ `                        "01001001" when S= "0101" else        
' j& n$ _* k5 j( _8 S& Q                        "01000001" when S= "0110" else        
                        "00011011" when S= "0111" else        
& M" y# S% a1 k3 |* J$ |) H# W) V                        "00000001" when S= "1000" else        
/ H- }# `% R6 R* }                        "00001001" when S= "1001" else         
8 x: S% x2 P# m8 X- Z7 l% o! _2 z                        "00010001" when S= "1010" else        
; O9 [' ]# X" ~8 E; j                        "11000001" when S= "1011" else        
                        "01100011" when S= "1100" else        
                        "10000101" when S= "1101" else        
                        "01100001" when S= "1110" else        
                        "01110001";   
                        
9 p, b) [$ `$ f4 O; ]! Mend Behavioral;

gto10620

感謝囉!!後來我改成這樣
entity sedg7 is
    Port ( Enable : in  STD_LOGIC;
           X : in  STD_LOGIC_VECTOR (3 downto 0);
6 J" A4 b! u" s, q; E' _  ]: i                          a,b,c,d,e,f,g,p : out STD_LOGIC;
, x6 r% D  q. ~( ~0 K; R. z                          SEL : OUT   STD_LOGIC_VECTOR (5 DOWNTO 0));
- g/ q# F7 l. y/ r                          
/ i$ ~' e& W+ }4 |4 {7 l% {                          

; B( o, {( N7 B9 E  [% S3 Wend sedg7;

architecture Behavioral of sedg7 is
SIGNAL Y :  STD_LOGIC_VECTOR (7 downto 0);
begin
                Y<=                "11111111" WHEN Enable= '1' ELSE
+ g1 ~5 C1 P9 U8 f& S                                        "00000011" WHEN X="0000" ELSE
2 z* A! R. u, {4 U/ I3 ~                                        "10011111" WHEN X="0001" ELSE
. ?" q7 F, n3 i  N  e2 G0 _2 x                                        "00100101" WHEN X="0010" ELSE
5 d# ]' C. s  U7 h  p                                        "00001101" WHEN X="0011" ELSE
  g" k2 {) M. f. w# Q% g                                        "10011001" WHEN X="0100" ELSE
                                        "01001001" WHEN X="0101" ELSE
( r4 p* z* J8 ?% [+ G& T. y                                        "01000001" WHEN X="0110" ELSE
3 \5 }5 n+ j4 b7 {                                        "00011011" WHEN X="0111" ELSE
8 }! U5 h* v# ?: D! Z, B/ H                                        "00000001" WHEN X="1000" ELSE
0 X2 E; b9 G) P5 B1 g4 [                                        "00001001" WHEN X="1001" ELSE
                                        "00010001" WHEN X="1010" ELSE
6 ?/ w0 a. `8 O4 b9 q                                        "11000001" WHEN X="1011" ELSE
                                        "01100011" WHEN X="1100" ELSE
& J. s( n( C. X0 f% w7 e                                        "10000101" WHEN X="1101" ELSE
' Y5 \8 u8 v0 c. m8 o3 j                                        "01100001" WHEN X="1110" ELSE
5 B$ t) P- O: `                                        "01110001" ;
        a<= Y(7);
" ^3 ]  _3 b/ C+ O        b<= Y(6);
        c<= Y(5);
5 |0 g7 F. X- B; M  ]6 S        d<= Y(4);
9 k2 }( t6 o; K% c: v; ?$ h. I- O        e<= Y(3);
1 l8 h  \3 f- {2 L4 \1 u        f<= Y(2);
% j' d: P9 O) b9 j. A        g<= Y(1);
8 [& M+ h9 p, {6 X2 Q6 f        p<= Y(0);
" J8 i( U, O  y  a2 y7 h9 M- I        SEL<= "111110" ;
$ ?0 @& r: \' ?; R  Qend Behavioral;