蜂鸣器发声实验的VHDL程序

--www.21eda.com--深圳市21EDA电子--在开发板上面的J12处的跳冒设置到BELL端口(蜂鸣器)--视频教程适合我们21EDA电子的所有学习板LIBRARYIEEE;USEIEEE.STD_LOGIC_1164.ALL;USEIEEE.STD_LOGIC_UNSIGNED.ALL;ENTITYyinyueISPORT(CLK:INSTD_LOGIC;SPEAKER:OUTSTD_LOGIC);ENDENTITY;ARCHITECTURESONGOFYINYUEISSIGNALDRIVER,ORIGIN:STD_LOGIC_VECTOR(12DOWNTO0);SIGNALCOUNTER:INTEGERRANGE0TO140;SIGNALCOUNTER1:INTEGERRANGE0TO3;SIGNALCOUNTER2:INTEGERRANGE1TO100000000;SIGNALDIGIT:STD_LOGIC_VECTOR(6DOWNTO0);SIGNALCOUNT:STD_LOGIC_VECTOR(1DOWNTO0);SIGNALCARRIER,CLK_4MHZ,CLK_4HZ:STD_LOGIC;BEGINPROCESS(CLK)BEGINIFCLK'EVENTANDCLK='1'THENIFCOUNTER1=1THENCLK_4MHZ<='1';COUNTER1<=2;ELSIFCOUNTER1=3THENCLK_4MHZ<='0';COUNTER1<=0;ELSECOUNTER1<=COUNTER1+1;ENDIF;IFCOUNTER2=5000000THENCLK_4HZ<='1';COUNTER2<=5000001;ELSIFCOUNTER2=10000000THENCLK_4HZ<='0';COUNTER2<=1;ELSECOUNTER2<=COUNTER2+1;ENDIF;ENDIF;ENDPROCESS;PROCESS(CLK_4MHZ)BEGINIFCLK_4MHZ'EVENTANDCLK_4MHZ='1'THENIFDRIVER="11111111111111"THENCARRIER<='1';DRIVER<=ORIGIN;ELSEDRIVER<=DRIVER+1;CARRIER<='0';ENDIF;ENDIF;ENDPROCESS;PROCESS(CARRIER)BEGINIFCARRIER'EVENTANDCARRIER='1'THENCOUNT<=COUNT+1;IFCOUNT="00"THENSPEAKER<='1';ELSESPEAKER<='0';ENDIF;ENDIF;ENDPROCESS;PROCESS(CLK_4HZ)BEGINIFCLK_4HZ'EVENTANDCLK_4HZ='1'THENIFCOUNTER=140THENCOUNTER<=0;ELSECOUNTER<=COUNTER+1;ENDIF;ENDIF;CASECOUNTERISWHEN0=>DIGIT<="0000011";WHEN1=>DIGIT<="0000011";WHEN2=>DIGIT<="0000011";WHEN3=>DIGIT<="0000011";WHEN4=>DIGIT<="0000101";WHEN5=>DIGIT<="0000101";WHEN6=>DIGIT<="0000101";WHEN7=>DIGIT<="0000110";WHEN8=>DIGIT<="0001000";WHEN9=>DIGIT<="0001000";WHEN10=>DIGIT<="0001000";WHEN11=>DIGIT<="0010000";WHEN12=>DIGIT<="0000110";WHEN13=>DIGIT<="0001000";WHEN14=>DIGIT<="0000101";WHEN15=>DIGIT<="0000101";WHEN16=>DIGIT<="0101000";WHEN17=>DIGIT<="0101000";WHEN18=>DIGIT<="0101000";WHEN19=>DIGIT<="1000000";WHEN20=>DIGIT<="0110000";WHEN21=>DIGIT<="0101000";WHEN22=>DIGIT<="0011000";WHEN23=>DIGIT<="0101000";WHEN24=>DIGIT<="0010000";WHEN25=>DIGIT<="0010000";WHEN28=>DIGIT<="0010000";WHEN29=>DIGIT<="0010000";WHEN30=>DIGIT<="0000011";WHEN31=>DIGIT<="0000000";WHEN32=>DIGIT<="0010000";WHEN33=>DIGIT<="0010000";WHEN34=>DIGIT<="0010000";WHEN35=>DIGIT<="0011000";WHEN36=>DIGIT<="0000111";WHEN37=>DIGIT<="0000111";WHEN38=>DIGIT<="0000110";WHEN39=>DIGIT<="0000110";WHEN40=>DIGIT<="0000101";WHEN41=>DIGIT<="0000101";WHEN42=>DIGIT<="0000101";WHEN43=>DIGIT<="0000110";WHEN44=>DIGIT<="0001000";WHEN45=>DIGIT<="0001000";WHEN46=>DIGIT<="0010000";WHEN47=>DIGIT<="0010000";WHEN48=>DIGIT<="0000011";WHEN49=>DIGIT<="0000011";WHEN50=>DIGIT<="0001000";WHEN51=>DIGIT<="0001000";WHEN52=>DIGIT<="0000110";WHEN53=>DIGIT<="0000101";WHEN54=>DIGIT<="0000110";WHEN55=>DIGIT<="0001000";WHEN56=>DIGIT<="0000101";WHEN57=>DIGIT<="0000101";WHEN58=>DIGIT<="0000101";WHEN59=>DIGIT<="0000101";WHEN60=>DIGIT<="0000101";WHEN61=>DIGIT<="0000101";WHEN62=>DIGIT<="0000101";WHEN63=>DIGIT<="0000101";WHEN64=>DIGIT<="0011000";WHEN65=>DIGIT<="0011000";WHEN66=>DIGIT<="0011000";WHEN67=>DIGIT<="0101000";WHEN68=>DIGIT<="0000111";WHEN69=>DIGIT<="0000111";WHEN70=>DIGIT<="0010000";WHEN71=>DIGIT<="0010000";WHEN72=>DIGIT<="0000110";WHEN73=>DIGIT<="0001000";WHEN74=>DIGIT<="0000101";WHEN75=>DIGIT<="0000101";WHEN76=>DIGIT<="0000101";WHEN77=>DIGIT<="0000101";WHEN78=>DIGIT<="0000101";WHEN79=>DIGIT<="0000101";WHEN80=>DIGIT<="0000011";WHEN81=>DIGIT<="0000101";WHEN82=>DIGIT<="0000011";WHEN83=>DIGIT<="0000011";WHEN84=>DIGIT<="0000101";WHEN85=>DIGIT<="0000110";WHEN86=>DIGIT<="0000111";WHEN87=>DIGIT<="0010000";WHEN88=>DIGIT<="0000110";WHEN89=>DIGIT<="0000110";WHEN90=>DIGIT<="0000110";WHEN91=>DIGIT<="0000110";WHEN92=>DIGIT<="0000110";WHEN93=>DIGIT<="0000110";WHEN94=>DIGIT<="0000101";WHEN95=>DIGIT<="0000110";WHEN96=>DIGIT<="0001000";WHEN97=>DIGIT<="0001000";WHEN98=>DIGIT<="0001000";WHEN99=>DIGIT<="0010000";WHEN100=>DIGIT<="0101000";WHEN101=>DIGIT<="0101000";WHEN102=>DIGIT<="0101000";WHEN103=>DIGIT<="0011000";WHEN104=>DIGIT<="0010000";WHEN105=>DIGIT<="0010000";WHEN106=>DIGIT<="0011000";WHEN107=>DIGIT<="0010000";WHEN108=>DIGIT<="0001000";WHEN109=>DIGIT<="0001000";WHEN110=>DIGIT<="0000110";WHEN111=>DIGIT<="0000101";WHEN112=>DIGIT<="0000011";WHEN113=>DIGIT<="0000011";WHEN116=>DIGIT<="0001000";WHEN117=>DIGIT<="0001000";WHEN118=>DIGIT<="0000110";WHEN119=>DIGIT<="0001000";WHEN120=>DIGIT<="0000110";WHEN121=>DIGIT<="0000011";WHEN122=>DIGIT<="0000011";WHEN123=>DIGIT<="0010000";WHEN124=>DIGIT<="0000011";WHEN125=>DIGIT<="0000101";WHEN126=>DIGIT<="0000110";WHEN127=>DIGIT<="0001000";WHEN128=>DIGIT<="0000101";WHEN129=>DIGIT<="0000101";WHEN130=>DIGIT<="0000101";WHEN131=>DIGIT<="0000101";WHEN132=>DIGIT<="0000101";WHEN133=>DIGIT<="0000101";WHEN134=>DIGIT<="0000101";WHEN135=>DIGIT<="0000101";WHEN136=>DIGIT<="0000000";WHEN137=>DIGIT<="0000000";WHEN138=>DIGIT<="0000000";WHEN139=>DIGIT<="0000000";WHENOTHERS=>DIGIT<="0000000";ENDCASE;CASEDIGITISWHEN"0000011"=>ORIGIN<="0100001001100";WHEN"0000101"=>ORIGIN<="0110000010001";WHEN"0000110"=>ORIGIN<="0111000111110";WHEN"0000111"=>ORIGIN<="1000000101101";WHEN"0001000"=>ORIGIN<="1000100010001";WHEN"0010000"=>ORIGIN<="1001010110010";WHEN"0011000"=>ORIGIN<="1010000100101";WHEN"0101000"=>ORIGIN<="1011000001000";WHEN"0110000"=>ORIGIN<="1011100011110";WHEN"1000000"=>ORIGIN<="1100010001000";WHENOTHERS=>ORIGIN<="1111111111111";ENDCASE;ENDPROCESS;ENDSONG;