hdl综合实验2111201028new

《hdl综合实验2111201028new》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、成绩数字电子技术实验报告实验名称HDL综合实验　第1页共７页系别理学院物理系专业班号光信息21实验日期2014年5月6日姓名曹思敏学号2120905006交报告日期2014年6月10日一、实验要求1、数字钟：设计一个完整的数字钟，小时和分钟用数码管现实，秒用发光二极管闪烁显示，每秒显示一次。如果有可能，请增加校时功能。二、实验内容1、设计思路仿照电子手表的显示及计时、调时方式：用LED闪烁显示秒，四个七段数码管显示分钟和小时；用四个按键开关调时，分别为：小时加、减，分钟加、减。2、实验代码（1）Verilog源代码：clock.vmoduleclock(inputwireclk,inp

2、utwireclr,inputbtn0,inputbtn1,inputbtn2,inputbtn3,outputsled,outputreg[6:0]a_to_g,outputreg[3:0]an);reg[3:0]led0,led1,led2,led3;reg[1:0]s;reg[3:0]digit;reg[16:0]clkdiv;reg[26:0]q1;regsec;reg[3:0]ml;reg[3:0]hl;reg[3:0]mh;reg[3:0]hh;~7~reg[5:0]ss;initialbeginml=5;hl=2;mh=5;hh=1;led0=ml;led1=mh;led

3、2=hl;led3=hh;ss=0;endalways@(*)beginan=4'b1111;s<=clkdiv[16:15];an[s]=0;case(s)0:digit<=led3[3:0];1:digit<=led2[3:0];2:digit<=led1[3:0];3:digit<=led0[3:0];default:digit<=led3[3:0];endcasecase(digit)0:a_to_g=7'b0000001;1:a_to_g=7'b1001111;2:a_to_g=7'b0010010;3:a_to_g=7'b0000110;4:a_to_g=7'b100110

4、0;5:a_to_g=7'b0100100;6:a_to_g=7'b0100000;7:a_to_g=7'b0001111;8:a_to_g=7'b0000000;9:a_to_g=7'b0000100;'hA:a_to_g=7'b0001000;'hB:a_to_g=7'b1100000;~7~'hC:a_to_g=7'b1100001;'hD:a_to_g=7'b1000010;'hE:a_to_g=7'b0110000;'hF:a_to_g=7'b0111000;default:a_to_g=7'b0000001;endcaseendalways@(posedgeclk)begi

5、nclkdiv<=clkdiv+1;endalways@(posedgeclkorposedgeclr)beginif(clr==1)beginq1<=0;led0=0;led1=0;led2=0;led3=0;ml<=0;mh<=0;hl<=0;hh<=0;ss<=0;endelseif(q1==25000000)beginsec=~sec;q1<=q1+1;endelseif(q1==1

6、

7、q1==25000001)beginq1<=q1+1;if(btn0)begin~7~ml<=ml+1;if(ml==9)beginml<=0;mh<=mh+1;endif(mh==5&&ml=

8、=9)beginml<=0;mh<=0;hl<=hl+1;if(hl==9)beginhl<=0;hh<=hh+1;endif(hl==3&&hh==2)beginhh<=0;hl<=0;endendendif(btn1)beginml<=ml-1;if(ml==0)beginml<=9;mh<=mh-1;endif(mh==0&&ml==0)beginml<=9;mh<=5;hl<=hl-1;if(hl==0)begin~7~hl<=9;hh<=hh-1;endif(hl==0&&hh==0)beginhh<=2;hl<=3;endendendif(btn2)beginhl<=hl+

9、1;if(hl==9)beginhl<=0;hh<=hh+1;endif(hh==2&&hl==3)beginhl<=0;hh<=0;endendif(btn3)beginhl<=hl-1;if(hl==0)beginhl<=9;hh<=hh-1;endif(hh==0&&hl==0)beginhl<=3;hh<=2;endend~7~endelseif(q1==50000000)beginq1<=0;sec=~sec;led0[3:0]=ml