找回密码
 注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

巢课
电巢直播8月计划
查看: 718|回复: 1
打印 上一主题 下一主题

程序错误,求救

[复制链接]

2

主题

18

帖子

-8983

积分

未知游客(0)

积分
-8983
跳转到指定楼层
1#
发表于 2011-10-12 15:41 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

EDA365欢迎您!

您需要 登录 才可以下载或查看,没有帐号?注册

x
下面程序中有错误,新手,不知如何解决,求解答# R0 Q" m# ]9 w  F' W
library ieee;
- d3 Y: }; ]; d0 p8 }use ieee.std_logic_1164.all;
$ c! w2 k- o3 b8 L! v0 ^  t, Euse ieee.std_logic_arith.all;
3 Q9 j! {# y. _  _% G3 b$ ruse ieee.std_logic_unsigned.all;
5 l% L; E' A- o  a" m& h6 Q2 y4 W/ k9 r2 m1 K
entity mycounter_60 is9 v8 H/ U% Y: R& s
    port(clk,clr,en,bcd1wr,bcd10wr:in std_logic;" {$ K# U! f. ?8 h+ ?! B) `
         din:in std_logic_vector(3 downto 0);# X, L- R6 }, l: {. V8 [4 m6 [: H
         bcd1: out std_logic_vector(3 downto 0);3 o: B- E- ^6 q! D
         co: out std_logic;- |# Z! X. |5 n! f' Q0 k/ E7 i
         bcd10: out std_logic_vector(2 downto 0));  `6 T+ P4 z  g7 ?
end mycounter_60;
2 f' H/ k# I" D, X
5 g1 X: v0 o# H5 _architecture art2 of mycounter_60 is& L( H- c% s7 J2 Z1 [* n2 I; U
signal bcd1n:std_logic_vector(3 downto 0);* M! i! e* o" ]& ~6 B1 t
signal bcd10n:std_logic_vector(2 downto 0);& K* t  t+ m. F4 B8 I  J
begin
, \7 d+ T) }+ d7 n0 n0 R2 D7 u    PROCESS(clk,clr,en,bcd1wr) is
2 E/ ^/ m- c9 l# B6 p) l* p& F    begin) ^0 M8 `5 X0 B4 U) J# m3 C: j
        if(clr='0') then5 t: D7 l1 f$ U. N) s0 \8 Q5 h' R
            bcd1n<=(others=>'0');. {0 V* r, p4 s9 O% O" g
            bcd10n<=(others=>'0');
" ]! V. M# |% h3 U* c5 m" G        elsif(clk'event and clk='1') then
! v0 E( D8 X1 T5 i3 v/ E            if(bcd1wr='1' and en='1') then( }/ \' `! o# H/ W' J& B4 W
                bcd1n<=din;
! j/ l, y( Q( u& E- o8 ^, s/ p# y( N            elsif(en='1') then
+ ^( W! _9 _4 U                bcd1n<=bcd1n+1;" ]& ^. ]' t) w' N
                if(bcd1n>=9) then9 d+ D8 \) v5 `" d' y/ p
                    bcd1n<="0000";( L( ?6 o* w- {: A/ a
                end if;. A/ z; |' g/ X% l9 v) [
            end if;
1 a$ Q( Q# w3 ~% T        end if;
* @" D  |7 Q: V* o, c+ v! h    end process;
- B1 h: R# `5 |. K   
2 A; X% p; I, L" o7 k+ ?    process(bcd10wr,en,bcd1n) is
- A, E  K5 H% l( V+ H4 x( A    begin
& Q1 b$ a9 G5 g$ O: t* R) ~1 g        if(bcd10wr='1' and en='1') then2 |7 j6 {# z# N
            bcd10n<=din(2 downto 0);
" b" H2 _( R$ K1 F8 Y9 Y& r        elsif(bcd1n=9 and en='1') then. B' S+ A: W' [' @  l
            bcd10n<=bcd10n+1;( _5 _2 _; y9 v; j0 |2 X
            if(bcd10n=5) then2 i0 b7 O! n: ~! k
                bcd10n<="000";& E+ `; L' l! n7 V
                co<='1';: `. }7 u! D* w  T6 E3 x
            else
: b+ @- c5 [$ H                co<='0';
- Z% i, g; Y  @2 ^5 E* G            end if;3 p$ e( p/ O$ t
        end if;4 K. A. A4 M! }8 S$ k( b' W, `" H: U
    end process;( a1 J5 Y: d/ A+ ?' g% U
   6 t3 Y' i( Y& J. M) j9 J9 O
    bcd1<=bcd1n;
8 m: h1 j' J" [2 ^# n2 @  h+ n( q    bcd10<=bcd10n;+ h; s8 e% K! D; P6 W$ ~
end art2;
; ^$ ~5 d, O! X2 C8 Z+ H7 Q1 U% s: F9 L, _! Q% M$ D
非常感谢
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友 微信微信
收藏收藏 支持!支持! 反对!反对!

6

主题

30

帖子

144

积分

二级会员(20)

Rank: 2Rank: 2

积分
144
2#
发表于 2012-2-24 17:09 | 只看该作者
这些都是小错误,希望细心一点
* ]- W  d9 h: |8 Z0 y. T- Clibrary ieee;
: t1 ?  W2 T6 H1 H* V( p4 |, _use ieee.std_logic_1164.all;
1 d" T9 P$ E  B4 uuse ieee.std_logic_arith.all;
, {/ w% z1 Z9 }' Fuse ieee.std_logic_unsigned.all;
+ H2 B# B: W4 n" Q( E% k* ?entity  mycounter_60   is
8 f& S8 B; B% s' I2 ^- ~1 s1 w  qport(  clk,clr,en,bcd1wr,bcd10wr :in std_logic;
' s! o% o7 }* N6 r        din:in std_logic_vector(3 downto 0);
+ V+ i# E% Z3 G6 B        cout std_logic;
: j7 r% R) J, ]$ m- g) }( H       bcd1 ut std_logic_vector(3 downto 0);. _% G+ H( ^, z1 T' T  W* L# g
        bcd10 ut std_logic_vector(2 downto 0)4 ?8 Y1 w- d( C. T; X) F) A
       );5 d, _+ t: k" K8 G7 H& |
end;: p; E$ K$ g1 ?: X2 ?
architecture behav of  mycounter_60   is$ A/ v: v1 h8 D( s+ u
signal bcd1n:std_logic_vector(3 downto 0);+ m4 ?# k! D0 D
signal bcd10n:std_logic_vector(2 downto 0);
; x7 k2 N$ f# m" I# i. ^- M  s# P! l# R  A
begin, Q2 ~& W7 Y" c! {/ W
   process(bcd1wr,clr,en,clk)! h, i3 Q( Q# ?4 T/ c" Z& `# U& u# q
   begin # E1 C2 c: N7 U8 C* f5 K
if(clr='0')then
4 W* a, t* Q$ ~$ _bcd1n<=(others=>'0');( U" j0 t7 e+ m+ h9 x1 v
1 ~. Y- j5 b6 A+ l! [) W
elsif(clk'event and clk='1')then
1 ~5 |- I/ G0 u3 d3 `, Nif (bcd1wr='1' and en='1')then( P) K# n& j+ }) f7 U, q4 |
bcd1n<=din;
" l5 A. X9 o4 N/ R3 Felsif (en='1')then
, E' ?) M3 L/ m7 E8 P/ w* |bcd1n<=bcd1n+1;! i" Z- s) l6 E: I) _: \: k
if (bcd1n>=9)then
& z: q- W; V& n9 D  |" vbcd1n<="0000";# W) J5 U( Q) W8 w( e! Z

2 z% _+ L. L7 i5 s/ {( d8 e% x% Aend if;) q, x" m+ o5 u$ g/ V
end if;' d. h& L. ^4 X- A$ |" R9 i
end if;
4 w) `: e: w$ D( q# v) B! eend process;$ {- i. [6 I: l! v" q) I$ n
- l, N  P( @7 K  o) j# h

$ Y* w- d( p  u5 i, ]process(bcd10wr,en)
, c! W. t& F9 P5 h+ D) V0 mbegin0 `6 m$ e. o- m) ]8 Y7 G: ]6 |: q
if(clr='0')then
$ d  J, `) F; m$ F: j0 _bcd10n<=(others=>'0');
. ]' g5 \8 n3 \0 Hif(bcd10wr='1' and en='1')then
* |. u7 E5 t  ebcd10n<=din(2 downto 0);
7 X! A: ~  @6 v0 }; \- Helsif(bcd1n=9 and en='1') then
* {- b9 O+ U  U3 Z. e# H! Xbcd10n<=bcd10n+1;( {6 z3 y' m% [2 b5 S
if(bcd10n=5) then
4 N4 q9 F& T6 Ubcd10n<="000";2 [0 L% k( k: r! x
co<='1';
2 F! A4 l; ?2 D  z9 _else
) J6 x- u% b8 T4 v$ ?, R  T) Gco<='0';
; ?9 `, [! x9 ?5 B2 \  W. ^end if;) o+ e; \; b" a6 m+ {6 C+ ^2 q" p) G
end if;
4 d9 l! D1 ?+ Q2 ?# @) Q" o* Gend if;
% I; ]) n  s* M& A7 C1 j/ f+ d/ l' lend process;
0 k, c4 ]  I" {2 L& F, V  O5 c3 E# D, A
bcd1<=bcd1n;
1 b) x. v2 c; `5 o0 @7 A& ?+ ebcd10<=bcd10n;# Y% j! Z% P) C5 A$ ^, ?6 L1 Z
end behav;
& d# e! L3 E( O$ U5 O; h9 H0 f       $ W% W+ l5 \2 s( n
     
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

推荐内容上一条 /1 下一条

巢课

技术风云榜

关于我们|手机版|EDA365 ( 粤ICP备18020198号 )

GMT+8, 2025-2-19 06:12 , Processed in 0.052523 second(s), 33 queries , Gzip On.

深圳市墨知创新科技有限公司

地址:深圳市南山区科技生态园2栋A座805 电话:19926409050

快速回复 返回顶部 返回列表