vhdl--数码管显示

xcsh12273
0 ℃
2021-04-13

整理文档很辛苦，赏杯茶钱您下走！

还剩 ... 页未读，继续阅读 >>

免费阅读已结束，点击下载阅读编辑剩下 ... 页

阅读已结束，您可以下载文档离线阅读编辑

资源描述

vhdlÊýÂë¹ÜÏÔÊ¾1~8¹Ì¶¨¹ö¶¯libraryieee;useieee.std_logic_1164.all;entitynumberisport(clk:instd_logic;C:instd_logic_vector(1downto0);LCD:outstd_logic_vector(6downto0);num:outstd_logic_vector(5downto0));endnumber;architecturebehaveofnumberistypeall_stateis(s0,s1,s2,s3,s4,s5);signalstate:all_state;signaltemp:integerrange0to100;signalcp:std_logic;signalA:integerrange0to11;SIGNAlflag:INTEGERRANGE0TO12:=0;SIGNALCOUNT:INTEGERRANGE0TO5001:=0;beginP1:process(cp)beginif(clk'eventandclk='1')thenif(temp=100)thentemp=0;cp=notcp;elsetemp=temp+1;cp='0';endif;endif;if(cp'eventandcp='1')thenif(C=00)thencasestateiswhens0=state=s1;num=011111;A=0;whens1=state=s2;num=101111;A=1;whens2=state=s3;num=110111;A=2;whens3=state=s4;num=111011;A=3;whens4=state=s5;num=111101;A=4;whens5=state=s0;num=111110;A=5;whenothers=state=s0;num=011111;endcase;elsif(C=01)thenIF(flag=6)THEN--ÉèÖÃ±êÖ¾flag=0;ENDIF;IFCOUNT=5000THEN--Ïàµ±ÓÚÁíÒ»¸öÊ±ÖÓCOUNT=0;--¼ÆÊýÖÜÆÚÎª5000flag=flag+1;--µ±¼ÇÂú5000Ê±×óÒÆ¶¯Ò»Î»ELSECOUNT=COUNT+1;--²»Âú5000¼ÌÐø¼ÆÊýENDIF;casestateiswhens0=state=s1;num=011111;A=((A+flag)mod6);whens1=state=s2;num=101111;A=((A+flag)mod6);whens2=state=s3;num=110111;A=((A+flag)mod6);whens3=state=s4;num=111011;A=((A+flag)mod6);whens4=state=s5;num=111101;A=((A+flag)mod6);whens5=state=s0;num=111110;A=((A+flag)mod6);whenothers=state=s0;num=011111;endcase;elsif(C=11)thenIF(flag=12)THEN--ÉèÖÃ±êÖ¾flag=0;ENDIF;IFCOUNT=5000THEN--Ïàµ±ÓÚÁíÒ»¸öÊ±ÖÓCOUNT=0;--¼ÆÊýÖÜÆÚÎª5000flag=flag+1;--µ±¼ÇÂú5000Ê±×óÒÆ¶¯Ò»Î»ELSECOUNT=COUNT+1;--²»Âú5000¼ÌÐø¼ÆÊýENDIF;casestateiswhens0=state=s1;num=011111;A=((A+flag)mod12);whens1=state=s2;num=101111;A=((A+flag)mod12);whens2=state=s3;num=110111;A=((A+flag)mod12);whens3=state=s4;num=111011;A=((A+flag)mod12);whens4=state=s5;num=111101;A=((A+flag)mod12);whens5=state=s0;num=111110;A=((A+flag)mod12);whenothers=state=s0;num=011111;endcase;elsenum=111111;endif;endif;endprocessP1;P2:process(A)BEGINCASEAIS--ÊµÏÖÊýÂë¹ÜµÄÏÔÊ¾¹¦ÄÜWHEN0=LCD=1111110;WHEN1=LCD=0110000;WHEN2=LCD=1101101;WHEN3=LCD=1111001;WHEN4=LCD=0110011;WHEN5=LCD=1011011;WHENOTHERS=LCD=0000000;ENDCASE;ENDPROCESSP2;endbehave;