密码锁EDA课程设计.doc

《密码锁EDA课程设计.doc》由会员分享，可在线阅读，更多相关《密码锁EDA课程设计.doc（5页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、module/密码锁EDA设计mimasuo_ok(back,cheak,set,close,lock,warn1,warn2,a1,a2,a3,a4,a5,a6,a7,a8, clk,start,col,row,SCAN,SEG7);parameter N=10;input back,cheak,set,close,clk;output lock,warn1,warn2;reg lock,warn1,warn2;output4:0 a1,a2,a3,a4,a5,a6,a7,a8;reg4:0 a1,a2,a3,a4,a5,a6,a7,a8,temp,count;/将6位拓展到了8位密码reg

2、4:0 warn_count=5B00000;reg2:0 flag,cnt;reg39:0 code;input start;input3:0 col;output3:0 row;output7:0 SCAN;output7:1 SEG7;reg3:0 row;reg7:0 SCAN;reg7:1 SEG7;reg2:0 state; reg1:0 opr; reg11:0 opd1; wire clk1,clk2; reg4:0 d0,d1,d2,d3,d_reg,segdat; wire4:0 d; reg9:0 cntt;reg2:0 SCANn;assign clk1=cntt9;/

3、矩阵键盘扫描部分always (posedge clk) begin cntt=cntt+1;end assign clk2=clk;assign d=(d0|d1|d2|d3);always (posedge clk1) begin if(start=0) begin state=0;row=4B1110; a8=5B00000;a7=5B00000;a6=5B00000;a5=5B00000;a4=5B00000;a3=5B00000;a2=5B00000;a1=5B00000; end else case(state) 3B000:begin row=4B0111;state=3B001

4、; case(col) 4B1110: d0=5B11111;/F 4B1101: d0=5B11011;/B 4B1011: d0=5B10111;/7 4B0111: d0=5B10011;/3 default: d0=5B00000;/ endcase end 3B001:begin row=4B1011;state=3B010; case(col) 4B1110: d1=5B11100;/C 4B1101: d1=5B11000;/8 4B1011: d1=5B10100;/4 4B0111: d1=5B10000;/0 default: d1=5B00000;/ endcase en

5、d 3B010:begin row=4B1101;state=3B011; case(col) 4B1110: d2=5B11100;/D 4B1101: d2=5B11001;/9 4B1011: d2=5B10101;/5 4B0111: d2=5B10001;/1 default: d2=5B00000; endcase end 3B011:begin row=4B1110;state=3B100; case(col) 4B1110: d3=5B11111;/E 4B1101: d3=5B11010;/A 4B1011: d3=5B10110;/6. 4B0111: d3=5B10010

6、;/2 default: d3=5B00000; endcase end 3B100: begin row=4B1110; state=3B000; if(d!=d_reg) begin d_reg=5B10000&d=5B11001) begin /输入密码依次左移的代码 a8=a7; a7=a6; a6=a5; a5=a4; a4=a3; a3=a2; a2=a1; a1=d; end else if(d=5B11100) begin/清零陷阱键代码 a8=5B;a7=5B;a6=5B;a5=5B;a4=5B; a3=5B;a2=5B;a1=5B; end endend default:s

7、tate=3B000; endcase endalways (posedge clk)begin if(start=1)begin if(cheak) begin /检验输入密码是否正确 count=count-1; /count为计数定时功能 if(count=1)begin if(code=a8,a7,a6,a5,a4,a3,a2,a1) begin lock=1; warn1=0; warn2=0; warn_count=5B00000; end/万能密码设置处 else if(a8,a7,a6,a5,a4,a3,a2,a1=40b) begin lock=1; warn1=0; war

8、n2=0; warn_count=5B00000; end else beginif(warn_count=5B00011)/连续输错3次密码则报警 begin lock=0; warn1=1; warn2=1; warn_count=5B00000; end else begin lock=0; warn1=1; warn2=0; warn_count=warn_count+1; endend end end else if(close) begin lock=0; warn1=0; warn2=0; count=100; warn_count=5B00000; end else if(ba

9、ck) /逐位删除密码 begin a1=a2; a2=a3; a3=a4; a4=a5; a5=a6; a6=a7; a7=a8; a8=5B0; end endend always (posedge clk) begin if(start=1)begin/初始密码设置部分 if(set) code=a8,a7,a6,a5,a4,a3,a2,a1; endendalways(posedge clk2)begin/数码管显示部分 if(start=0)begin segdat=5B00000;SCAN=8B; end else begin SCANn=SCANn+1; case(SCANn)

10、3B111:begin segdat=a8;SCAN=8B;end 3B110:begin segdat=a7;SCAN=8B;end 3B101:begin segdat=a6;SCAN=8B;end 3B100:begin segdat=a5;SCAN=8B;end 3B011:begin segdat=a4;SCAN=8B;end 3B010:begin segdat=a3;SCAN=8B;end 3B001:begin segdat=a2;SCAN=8B;end 3B000:begin segdat=a1;SCAN=8B;end endcase end endalways(segdat

11、) begincase(segdat)5B00000:SEG7=7B;/5B00010:SEG7=7B;/-5B10000:SEG7=7B;/05B10001:SEG7=7B;/15B10010:SEG7=7B;/25B10011:SEG7=7B;/35B10100:SEG7=7B;/45B10101:SEG7=7B;/55B10110:SEG7=7B;/65B10111:SEG7=7B;/75B11000:SEG7=7B;/85B11001:SEG7=7B;/95B11111:SEG7=7B;/=5B11010:SEG7=7B;/+5B11011:SEG7=7B;/-default:;endcaseendendmodule