六十进制计数器错误

淼森

六十进制计数器
library ieee;
5 f6 g7 H$ ^* h9 b! u$ xuse ieee.std_logic_1164.all;
. N% ]. J+ y4 L  u7 Wuse ieee.std_logic_unsigned.all;
  \/ J" j; @' K# R
entity counter_60 is
2 p: Z. l3 R% c        port(clk,bcd1wr,bcd10wr,cin:in std_logic;
% B& C: A6 H" b( i3 C                 co: out std_logic;
2 p2 o" Y2 \" S1 t7 _+ u* z' ?                 datain: in std_logic_vector(3 downto 0);
                 bcd1: out std_logic_vector(3 downto 0);
                 bcd10: out std_logic_vector(2 downto 0));
end counter_60;
8 X8 m" O. h) _& a2 e" X8 k
architecture rtl of counter_60 is
: e/ D6 V% Y5 I$ Asignal bcd1n:std_logic_vector(3 downto 0);
6 m/ r+ Q2 V' k7 q! ?" ^signal bcd10n:std_logic_vector(2 downto 0);
begin
        bcd1<=bcd1n;
        bcd10<=bcd10n;
" E& H: p& q2 W" m$ s' a        process(clk,bcd1wr,datain) is
  U0 Q7 Y) p! ]7 e& B        begin
                if(bcd1wr='1') then
# V1 }2 T; v0 G4 z9 }                        bcd1n<=datain;
                elsif(clk'event and clk='1') then
* H, W$ s, X& S# @                        if(cin='1') then
- R  g+ t" d; M, _7 ^5 u                                if(bcd1n=9) then
9 x7 o1 Z& c. D& q; e                                        bcd1n<="0000";
+ @) |! K! o: K# v6 @. o$ N9 c                                else
+ M) u, M# R* o- @! L                                        bcd1n<=bcd1n+'1';
( F. P; T+ {5 j& |                                end if;
                        end if;
                end if;
        end process;
      
" t* i6 Y% y$ f6 k2 m* t8 V' r        process(clk,bcd10wr,datain) is
        begin
* `" O+ N1 k, ~5 q6 T" {$ s3 W                if(bcd10wr='1') then
                        bcd10n<=datain(2 downto 0);
                elsif(clk'event and clk='1') then
! J, u! _5 w% U* T3 p: h3 W                        if(cin='1' and bcd1n=9) then
! H+ M% R! V; _9 H0 V+ g" w                                if(bcd10n=5) then
                                        bcd10n<="000";
- l) `- R: p) |, @! [) T0 H9 c                                else
8 s" ^# U* Q0 ]                                        bcd10n<=bcd10n+'1';
                                end if;
# A5 H2 U. v2 u: f3 m2 y                        end if;
                end if;
        end process;
      
: q% e! g+ c  n, W        process(bcd10n,bcd1n,cin) is
        begin
                if((cin='1') and (bcd1n=9) and (bcd10n=5)) then
- a8 H$ L$ V$ r$ n$ F# \                        co<='1';
                else
( P% [. I3 x; N6 U$ F0 ~- f                        co<='0';
                end if;
        end process;
$ [# C' p% {) Z8 Aend rtl;
" C- d7 Z3 ]& N: f( N可以编译，但是仿真不合适，仿真不计数，请各位老师同仁指正，万分感谢

alec4050

     把赋值放到前面去，怎么会变， bcd1<=bcd1n;
        bcd10<=bcd10n;放在最后