【文章內容簡介】 ，噪聲大經過比較，最終將Rw阻值定在1 KΩ。結論通過對芯片內部的編程設計，加上必要的外圍電路，構成了這個MIDI音樂播放器的系統(tǒng)，整體工作量適中。在前人已有的音樂播放器的基礎上，添加四首歌曲選擇播放，彩燈閃爍，不同音樂的調試，設計更人性化，合理化，同時也多了幾分創(chuàng)新。在此次設計中，所有設計要求全部實現(xiàn)，然而在音樂的播放質量上仍有一些瑕疵，可能是由于揚聲器的質量問題或者芯片內部產生信號不穩(wěn)定等關系，這都有待更多的時間對整個系統(tǒng)進行更多的測試，從而使播放出來的音樂更加悅耳。通過此次設計，對可編程邏輯器件CPLD/FPGA有了更深一步的了解，真正的達到了將課本中學習到的知識應用于實踐，更深化了對這個領域的認知度。在設計的過程中，還掌握了許多有關電子領域必要軟件的使用，對今后的工作都有一定得幫助。參考文獻[1] 袁慧梅，宋宇. 基于CPLD的MIDI音樂播放器的設計[J]. 微計算機信息. .[2] 張麗萍，樓勇，朱堯富．利用VHDL語言設計數(shù)字電路[J]. 機械與電氣. .[3] 李洋. 現(xiàn)代電子設計與創(chuàng)新[M].北京：中國電力出版社. 2007.[4] Zhou Zou, Wang Hongyuan, Yu Guowen. An Improved MUSIC Algorithm Implemented with Highspeed Parallel Optimization for FPGA[J]. Huazhong University of Science and Technology. 2006.[5] Altera公司. 華禹公司選用Altera零功耗CPLD服務2008夏季奧運會[J]. 電子技術應用. .[6] 袁慧梅，宋宇. MIDI音樂發(fā)生器芯片的設計[J]. 東北師大學報（自然科學版）. .[7] 楊雪巖. 應用CPLD開發(fā)的交通信號燈自動控制系統(tǒng)[D]. 山東：山東大學. 2003.[8] 金紅莉，周國娟. EDA技術及其應用[J]. 科學之友. .[9] famousky．EDA技術的概念及范疇[EB/OL]．[10] 吳冰, 李森森. EDA技術的發(fā)展與應用[J]. 今日電子. . [11] stephen Brown, Zvonko of Digital Logic with VHDL Design[M]. Canada:Mc Graw HillHigher education. 2005.[12] 趙紅梅, 王召東. 可編程邏輯器件FPGA與CPLD的發(fā)展與應用一例[J]. 平頂山工學院學報. .[13] 童世華，付蔚. 談ASIC、FPGA/CPLD 的區(qū)別與發(fā)展[J]. 重慶職業(yè)技術學院學報. .[14] 趙鑫，蔣亮，齊兆群，李曉凱．VHDL與數(shù)字電路設計[M]. 北京：機械工業(yè)出版社. .[15] 王曉麗. 可編程邏輯器件CPLD/FPGA的發(fā)展[J]. 科技信息. .[16] 楊寶強，何偉，趙東曄. CPLD仿真存在的問題及解決方法[J]. 空進工程大學學報(自然科學版). .[17] 鄧翔宇. 基于FPGA/CPLD的LED/LCD通用顯示譯碼器設計[J]. 自動化儀表. .[18] 陳華容，姚勝興. 基于CPLD的大型彩燈控制器設計[J]. 微計算機信息. .附錄附錄A 總電路圖附錄B 系統(tǒng)實物圖附錄C VHDL源代碼頂層設計模塊LIBRARY IEEE。USE 。ENTITY Songer ISPORT(CLK4MHZ:IN STD_LOGIC。 CLK4HZ: IN STD_LOGIC。 CLK16HZ: in std_logic。 switch:in std_logic_vector(3 downto 0)。 SPKOUT: OUT STD_LOGIC。 lights:out std_logic_vector(8 downto 0))。END。ARCHITECTURE one OF Songer ISCOMPONENT NoteTabsPORT(clk: IN STD_LOGIC。 dig: in integer range 0 to 4。 ToneIndex: OUT INTEGER RANGE 0 TO 15)。END COMPONENT。COMPONENT ToneTabaPORT(index: IN INTEGER RANGE 0 TO 15。 Tone: OUT INTEGER RANGE 0 TO 161FFF)。END COMPONENT。ponent chooseport(switch:in std_logic_vector(3 downto 0)。 dig:out integer range 0 to 4)。end ponent。COMPONENT SpeakeraPORT(clk: IN STD_LOGIC。 Tone: IN INTEGER RANGE 0 TO 161FFF。 SpkS: OUT STD_LOGIC)。END COMPONENT。 ponent lightport(clk: in std_logic。Tone :in INTEGER RANGE 0 TO 15。lights:out std_logic_vector(8 downto 0))。end ponent。SIGNAL Tone: INTEGER RANGE 0 TO 161FFF。SIGNAL ToneIndex: INTEGER RANGE 0 TO 15。SIGNAL dig1: integer range 0 to 4。BEGINu1: NoteTabs PORT MAP(clk=CLK4HZ,dig=dig1,ToneIndex=ToneIndex)。u2: ToneTaba PORT MAP(Index=ToneIndex, Tone=Tone)。u3: Speakera PORT MAP(clk=CLK4MHZ, Tone=Tone, SpkS=SPKOUT)。u4: light port map(clk=clk16HZ,Tone=ToneIndex, lights=lights)。u5: choose port map(switch=switch,dig=dig1)。END。開關選擇模塊library ieee。use 。entity choose isport(switch:in std_logic_vector(3 downto 0)。 dig:out integer range 0 to 4)。end。architecture one of choose isbeginprocess(switch)begincase switch iswhen 0111=dig=1。when 1011=dig=2。when 1101=dig=3。when 1110=dig=4。when others=dig=0。end case。end process。end。彩燈閃爍控制模塊library ieee。use 。entity light isport(clk: in std_logic。Tone :in INTEGER RANGE 0 TO 15。lights:out std_logic_vector(8 downto 0))。end。architecture one of light isbegin process(clk,Tone)begin if (clk39。event and clk=39。139。) thencase Tone iswhen 0 = lights=111111111。when 1 = lights=000000001。when 2 = lights=000000011。when 3 = lights=000000111。when 4 = lights=000001000。when 5 = lights=000011000。when 6 = lights=000111000。when 7 = lights=001000000。when 8 = lights=011000000。when 9 = lights=111000000。when 10 = lights=000111111。when 11 = lights=111111000。when 12 = lights=111000111。when 13 = lights=100100100。when 14 = lights=010010010。when 15 = lights=001001001。when others=NULL。end case。end if。end process。end。揚聲器發(fā)生及分頻模塊library ieee。use 。entity Speakera isPORT(clk: IN STD_LOGIC。 Tone: IN INTEGER RANGE 0 TO 161FFF。 SpkS: OUT STD_LOGIC)。END 。architecture one of Speakera issignal PreCLK:std_logic。signal FullSpkS:std_logic。beginprocess(clk)variable count4:integer range 0 to 15。beginPreCLK=39。039。if Count413 THEN PreCLK=39。139。 Count4:=0。elsif clk39。EVENT and clk=39。139。 then Count4:=Count4+1。end if。end process。process(PreCLK, Tone)variable Count11: integer range 0 to 161FFF。begin if PreCLK39。event and PreCLK=39。139。 thenif Count11=161FFF thencount11:=Tone。FullSpkS=39。139。else Count11:=Count11+1。FullSpkS=39。039。end if。end if。end process。process(FullSpkS)variable Count2:std_logic。beginif FullSpkS39。EVENT and FullSpkS=39。139。 thenCount2:=NOT Count2。if Count2=39。139。 then SpkS=39。139。else SpkS=39。039。end if。end if。end process。end。音符預置數(shù)模塊library ieee。use 。entity ToneTaba isPORT(index: IN INTEGER RANGE 0 TO 15。 Tone: OUT INTEGER RANGE 0 TO 161FFF)。END。architecture one of ToneTaba isbegin process(index)begin case Index iswhen 0 = Tone=8191。when 1 = Tone=4369。when 2 = Tone=4786。when 3 = Tone=5157。when 4 = Tone=5328。when 5 = Tone=5640。when 6 = Tone=5918。when 7 = Tone=6166。when 8 = Tone=6380。when 9 = Tone=6488。when 10 = Tone=6674。when 11 = Tone=6859。when 12 = Tone=6916。when 13 = Tone=3089。when 14 = Tone=3646。when 15 = Tone=4141。when others=NULL。end case。end process。end。音符儲存模塊library ieee。use 。entity NoteTabs isPORT(clk: IN STD_LOGIC。 dig: in integer range 0 to 4。 ToneIndex: OUT INTEGER RANGE 0 TO 15)。END。architecture one of NoteTabs issignal Counter :integer range 0 to 127。begi