8位数码管扫描实验

《8位数码管扫描实验》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、对进入的电压进行分频：LIBRARYIEEE;USEIEEE.STD_LOGIC_1164.ALL;USEIEEE.STD_LOGIC_ARITH.ALL;USEIEEE.STD_LOGIC_UNSIGNED.ALL;ENTITYdiv_frequencyISPORT(CLK_IN:INSTD_LOGIC;CLK_OUT:OUTSTD_LOGIC);ENDdiv_frequency;ARCHITECTUREONEOFdiv_frequencyISSIGNALCLK_OUTQ:STD_LOGIC:='0';--赋初值仅供仿真使用SIGNALCOUNTQ:STD_LOGIC

2、_VECTOR(23DOWNTO0):="000000000000000000000000";BEGINPROCESS(CLK_IN)BEGINIF(CLK_IN'EVENTANDCLK_IN='1')THENIF(COUNTQ/=46000)THENCOUNTQ<=COUNTQ+1;ELSECLK_OUTQ<=NOTCLK_OUTQ;COUNTQ<=(OTHERS=>'0');ENDIF;ENDIF;ENDPROCESS;CLK_OUT<=CLK_OUTQ;ENDARCHITECTURE;--通过改变COUNTQ/=X,分频值为(X+1)*2;数码管显示电路程序：LI

3、BRARYIEEE;USEIEEE.STD_LOGIC_1164.ALL;USEIEEE.STD_LOGIC_UNSIGNED.ALL;ENTITYCounterTubeISPORT(CLK:INSTD_LOGIC;SEG:OUTSTD_LOGIC_VECTOR(7DOWNTO0);BIT:OUTSTD_LOGIC_VECTOR(7DOWNTO0));ENDENTITY;ARCHITECTUREONEOFCounterTubeISSIGNALCNT8:STD_LOGIC_VECTOR(2DOWNTO0);SIGNALI:INTEGERRANGE0TO15;BEGINP1

4、:PROCESS(CLK)--扫描时钟吉珠：陈信材BEGINIFCLK'EVENTANDCLK='1'THENCNT8<=CNT8+1;ENDIF;ENDPROCESS;P2:PROCESS(CNT8)--位码扫描电路BEGINCASECNT8ISWHEN"000"=>BIT<="11111110";I<=0;WHEN"001"=>BIT<="11111101";I<=3;WHEN"010"=>BIT<="11111011";I<=1;WHEN"011"=>BIT<="11110111";I<=0;WHEN"100"=>BIT<="11101111";I<=0;WHEN

5、"101"=>BIT<="11011111";I<=4;WHEN"110"=>BIT<="10111111";I<=1;WHEN"111"=>BIT<="01111111";I<=8;WHENOTHERS=>NULL;ENDCASE;ENDPROCESS;P3:PROCESS(I)--译码电路BEGINCASEIISWHEN0=>SEG<="11000000";WHEN1=>SEG<="11111001";WHEN2=>SEG<="10100100";WHEN3=>SEG<="10110000";WHEN4=>SEG<="10011001";WHEN5=>SEG<="1

6、0010010";WHEN6=>SEG<="10000010";WHEN7=>SEG<="11111000";WHEN8=>SEG<="10000000";WHEN9=>SEG<="10010000";WHEN10=>SEG<="10001000";WHEN11=>SEG<="10000011";WHEN12=>SEG<="11000110";WHEN13=>SEG<="10100001";吉珠：陈信材WHEN14=>SEG<="10000110";WHEN15=>SEG<="10001110";WHENOTHERS=>NULL;ENDCASE;ENDPROCESS;E

7、NDONE;程序框图：仿真波形图：（该仿真图是在较低的分频值下得到的）吉珠：陈信材