【正文】 13 / 13。END ART。生模塊U2:FENPINPORT MAP(CLK1=CLK32MHZ,TONE1=TONE2,SPKS=SPKOUT)。U1:TONEPORTMAP(INDEX=INDX,TONE0=TONE2,CODE=CODE1,HIGH=HIGH1)。BEGINU0:AUTOPORTMAP(CLK=CLK32MHZ,INDEX2=INDEX1,INDEX0=INDX,AUTO=HANDTOAUTO)。SIGNAL INDX:STD_LOGIC_VECTOR(7 DOWNTO 0)。SIGNAL TONE2:INTEGER RANGE 0 TO 2047。 SPKS: OUT STD_LOGIC)。PORT(CLK1: IN STD_LOGIC。END COMPONENT。 HIGH: OUT STD_LOGIC。PORT(INDEX: IN STD_LOGIC_VECTOR(7 DOWNTO 0)。END COMPONENT。 INDEX0: OUT STD_LOGIC_VECTOR(7 DOWNTO 0))。 INDEX2: IN STD_LOGIC_VECTOR(7 DOWNTO 0)。 AUTO: IN STD_LOGIC。ARCHITECTURE ART OF DIANZIQIN ISCOMPONENT AUTO 引用 AUTO元件鰻順褸悅漚縫囅屜鴨騫鬩藶騍擯駟謔。 音頻信號臠龍訛驄椏業(yè)變墊羅蘄囂馱廣閏駙孫。 高低音節(jié)信號劇妝諢貰攖蘋塒呂侖廟痙湯籪糶駒責(zé)。 鍵盤輸入信號該櫟諼碼戇沖巋鳧薩錠謨贛贅眾騶嶠。 音符顯示信號嶁硤貪塒廩袞憫倉華糲饃勵騮詡駐賭。 鍵盤輸入/自動演奏信號邁蔦賺陘賓唄擷鷦訟湊幟結(jié)廢擴駑彎。 系統(tǒng)時鐘信號榿貳軻謄壟該檻鯔塏賽緯闥糝鍔駕躦。USE 。USE 。附錄4：頂層設(shè)計源程序清單程序名稱：程序功能：采用VHDL語言編寫主程序調(diào)用3個子程序，實現(xiàn)樂曲演奏的功能。END PROCESS。END IF。ELSE SPKS=39。THENSPKS=39。IF COUNT2=39。)THEN 音頻信號輸出上升沿有效時鏃鋝過潤啟婭澗駱讕瀘載撻贏禱驛懼。EVENT AND FULLSPKS=39。 定義變量計數(shù)器2，初值為0癘騏鏨農(nóng)剎貯獄顥幗騮鴣詼驤齔駘輸。VARIABLE COUNT2:STD_LOGIC:=39。END PROCESS。END IF。FULLSPKS=39。 計數(shù)器加1，音頻信號為1緦徑銚膾齲轎級鏜撟廟耬癬紇徑驕鄰。FULLSPKS=39。 IF COUNT11TONE1 THEN 若計數(shù)器11值小于音符信號1偽澀錕攢鴛擋緬鐒鈞錠鈴鉍蹌鏟驊擷。139。到2047HzBEGIN IF(PRECLK39。PROCESS(PRECLK,TONE1)VARIABLE COUNT11:INTEGER RANGE 0 TO 2047。END IF。 時基脈沖為0，計數(shù)器清零趕輾雛紈顆鋝討躍滿賺蜆騍純蠅驪銬。039。139。 判斷計數(shù)器取值為1攙閿頻嶸陣澇諗譴隴瀘鐙澮蹤島騁檻。139。BEGINIF(CLK139。BEGINPROCESS(CLK1)VARIABLE COUNT:INTEGER RANGE 0 TO 8。ARCHITECTURE ART OF FENPIN IS SIGNAL PRECLK:STD_LOGIC。 音符分頻系數(shù)END ENTITY FENPIN。 TONE1: IN INTEGER RANGE 0 TO 2047。USE 。USE 。附錄3：數(shù)控分頻源程序清單程序名稱：程序功能：采用VHDL語言編程對時基脈沖進行分頻，得到8個音符相對應(yīng)的頻率。END PROCESS。風(fēng)攆鮪貓鐵頻鈣薊糾廟誑繃紙鯉騏鍔。HIGH=39。WHEN OTHERS =TONE0=2047。039。CODE=0000000。麩肅鵬鏇轎騍鐐縛縟糶爾攤鱘嫗騅鐳。HIGH=39。WHEN01000000=TONE0=1372。039。CODE=0100000。咼鉉們歟謙鴣餃競蕩賺趲為練濺騙閻。HIGH=39。WHEN00010000=TONE0=1197。139。CODE=1001100。懨俠劑鈍觸樂鷴燼觶騮揚銥鯊臘騖韋。HIGH=39。WHEN00000100=TONE0=1036。139。CODE=0010010。 溈氣嘮戇萇鑿鑿櫧諤應(yīng)釵藹紼較騮額。HIGH=39。ARCHITECTURE ART OF TONE ISBEGINSEARCH:PROCESS(INDEX) BEGINCASE INDEX ISWHEN00000001=TONE0=773。 音符的分頻系數(shù)陽簍埡鮭罷規(guī)嗚舊巋錟麗鮑軫溈騫硨。 高低音顯示信號稟虛嬪賑維嚌妝擴踴糶欏灣鯧飫驃餒。 CODE: OUT STD_LOGIC_VECTOR(6 DOWNTO 0)。ENTITY TONE ISPORT(INDEX: IN STD_LOGIC_VECTOR(7 DOWNTO 0)。USE 。LIBRARY IEEE。END BEHAVIORAL。END IF。ELSE INDEX0=INDEX2。 2WHEN OTHERS=NULL。 3 WHEN 30=INDEX0=00000010。 4 WHEN 28=INDEX0=00000100。 5 WHEN 26=INDEX0=00001000。 2 WHEN 24=INDEX0=00010000。 3 WHEN 22=INDEX0=00000010。 4 WHEN 20=INDEX0=00001000。 5 WHEN 18=INDEX0=00001000。 1 WHEN 16=INDEX0=00010000。 2 WHEN 14=INDEX0=00000001。 3 WHEN 12=INDEX0=00000010。 8 WHEN 10=INDEX0=10000000。 6 WHEN 8=INDEX0=10000000。 5 WHEN 6=INDEX0=00010000。 3 WHEN 4=INDEX0=00010000。 3 WHEN 2=INDEX0=00000100。 WHEN 0=INDEX0=00000100。039。END PROCESS。END IF。)THEN 時鐘信號2為1 IF(COUNT0=31)THEN 計數(shù)器值為31 COUNT0=0。EVENT AND CLK2