畢業論文基于fpga的學校打鈴器設計(文件)

　

【正文】 to 25000。039。event and clk=39。 end if。（2）library ieee。end entity。 when cqi=5 and clk=39。 process (clk) is beginif clk39。 else cqi=cqi+1。 end architecture art。 co:out std_logic)。139。039。then if cqi=200 then cqi=1。 end process。entity t50e is port( clk :in std_logic。beginco=39。else 39。139。 end if。use 。Architecture art of t250 issignal cqi : integer range 1 to 039。event and clk=39。 end if。library ieee。end entity Dcfq。) thenq=d。（1）秒計數模塊library ieee。 sqmsl,sqmsh:out std_logic_vector(3 downto 0)。beginif clr=39。elsif cp39。139。if t10101 thent1:=t1+1。end if。sqmsl=t0。use 。 min1,min0:out std_logic_vector(3 downto 0) )。event and clk=39。 thenif t1=0101 and t0=1000 thenco=39。elset0:=0000。039。end if。end MIN。entity sh24 isport(clk:in std_logic。end sh24。sl=0000。) thenif(sh=0010and sl=0011)thensh=0000。else sl=0000。end if。end bhv。use 。end mux2to1。 else c=a。（1）定時模塊LIBRARY ieee。“時”高位 Q_houra : OUT INTEGER RANGE 0 TO 9。ARCHITECTURE a OF ctrl_memo IS BEGIN PROCESS(reset,k1,up_key) VARIABLE Q_tmpma: INTEGER RANGE 0 TO 9。BEGIN IF reset=39。Q_tmpha:= 0。139。 Q_tmpha:=0 。 END IF。 Q_tmpmb:=Q_tmpmb+1。 END IF 。 Q_minuea=Q_tmpma。 USE 。QM_B:IN INTEGER RANGE 0 TO 9。SPEAK: OUT STD_LOGIC)。 Y=39。END a。 Q_HA,Q_MA: IN STD_LOGIC_VECTOR(3 DOWNTO 0)。END COMP_TIME。 Q_MB amp。 THEN CASE QTIME IS WHEN 0000100000110000 = Q_Y=39。 WHEN 0000100100010101 = Q_Y=39。 WHEN 0000100100100101 = Q_Y=39。 WHEN 0001000000010000 = Q_Y=39。 WHEN 0001000000100000 = Q_Y=39。 WHEN 0001000100000101 = Q_Y=39。 WHEN 0001000100010101 = Q_Y=39。 WHEN 0001001000000000 = Q_Y=39。 WHEN 0001001100110000 = Q_Y=39。 WHEN 0001010000010101 = Q_Y=39。 WHEN 0001010000100101 = Q_Y=39。 WHEN 0001010100010000 = Q_Y=39。 END CASE。139。139。139。139。139。139。139。139。139。139。139。039。 END a。 k1高電平為調時，低電平為調分 speaktime: out INTEGER RANGE 0 TO 15)。039。139。 END IF 。（2）蜂鳴器發聲模塊LIBRARY ieee。 q_20s: out STD_LOGIC)。event AND CLK=39。 THEN IF tmp=speaktime THEN tmp:=tmp+1。Q_20S=39。Q_20S=39。 END PROCESS 。ENTITY NOR_ARM_CTL ISPORT( k2: IN STD_LOGIC。QH_ARM_A,QM_ARM_A: IN INTEGER RANGE 0 TO 9。Q_HBO: OUT INTEGER RANGE 0 TO 9。139。 ELSE QH_ARM_B。 Q_MBO=QMBI WHEN K2=39。139。 ELSE 0。use 。 fl:in std_logic_vector(3 downto 0)。 selout:out std_logic_vector(7 downto 0)。signal seg:std_logic_vector(7 downto 0)。event and clk=39。 end if。sel=10111111。sel=11101111。sel=11111011。s。sel=11111101。sel=11110111。sel=11011111。sel=01111111。 ) then if temp=7 then temp=000。 begin process(clk) variable num:std_logic_vector(3 downto 0)。end dongtaism2。 ml:in std_logic_vector(3 downto 0)。 speaktimeh,speaktimel,sl:in std_logic_vector(3 downto 0)。（2）動態掃描模塊library ieee。 Q_SBO=QSBI WHEN K2=39。 ELSE QM_ARM_B。139。 Q_HBO=QHBI WHEN K2=39。END NOR_ARM_CTL。QM_ARM_B: IN INTEGER RANGE 0 TO 9。QSBI,QMBI:IN INTEGER RANGE 0 TO 9。（1）時間切換模塊LIBRARY ieee。 END IF。 END IF。139。 THEN IF QY=39。ARCHITECTURE a OF s20 ISBEGIN PROCESS(CLK) VARIABLE tmp: INTEGER RANGE 0 TO 64。ENTITY s20 ISPORT( QY,CLK: IN STD_LOGIC。 END PROCESS 。 ELSe Q_tmpma:=0。 ELSIF up_key39。ARCHITECTURE a OF ctrl_s IS begin PROCESS(reset,up_key) variable Q_tmpma: INTEGER RANGE 0 TO 15。 USE 。 END IF。139。139。139。139。139。139。139。139。139。139。139。139。 WHEN OTHERS= Q_Y=39。WHEN 0010001000000000 = Q_Y=39。WHEN 0010000100000000 = Q_Y=39。WHEN 0010000000010101 = Q_Y=39。WHEN 0010000000000101 = Q_Y=39。WHEN 0001100100100000 = Q_Y=39。WHEN 0001100100010101 = Q_Y=39。WHEN 0001100000110000 = Q_Y=39。WHEN 0001011100000000 = Q_Y=39。WHEN 0001011000010101 = Q_Y=39。WHEN 0001011000000101 = Q_Y=39。WHEN 0001010100100000 = Q_Y=39。PROCESS(QTIME) BEGIN IF K3=39。 BEGIN QTIME=Q_HB amp。 Q_MB: IN STD_LOGIC_VECTOR(3 DOWNTO 0)。 USE 。 WHEN (QH_A=HARM_A) AND (QM_A=MARM_A) AND (QH_B=HARM_B) AND (QM_B=MARM_B) ELSE 39。ARCHITECTURE a OF BIJIAOQI IS SIGNAL Y: STD_LOGIC。HARM_B: IN INTEGER RANGE 0 TO 9。 QH_A,QM_A:IN INTEGER RANGE 0 TO 9。END a。 Q_houra=Q_tmpha。 END IF。 Q_tmpma:=0 。 Q_tmphb:=Q_tmphb+1。139。 ELSIF up_key39。 THEN Q_tmpma:= 0。 VARIABLE Q_tmpha: INTEGER RANGE 0 TO 9。 Q_minuea:OUT INTEGER RANGE 0 TO 9)。ENTITY ctrl_memo ISPORT( reset,k1,up_key: IN STD_LOGIC。 end process。039。 a,b: in std_logic。use 。end if。else sh=0000。else sl=sl+1。event and clk=39。039。sh:buffer std_logic_vector(3 downto 0)。use 。min0=t0。end if。elset1:=0000。t0:=1001。 thenif clr=39。architecture MIN of MINUTE isbeginprocess(clk,clr)variable t1,t0:std_logic_vector(3 downto 0)。entity MINUTE isport(clk,clr:in std_logic。end SEC。end if。co=39。elsif t01001 thent0:=t0+1。139。 thent1:=0000。end SECOND。use 。end process。event and clk=39。entity Dcfq isport(d,clk:in std_logic。 end process。then if cqi=250 then cqi=1。039。139。 co:out std_logic)。 end architecture art。 else cqi=cqi+1。 process (clk) is beginif clk39。 when cqi=50e3 and clk=39。end entity。（4）library ieee。 end if。event and clk=39。039。Architecture art of t200 issignal cqi : integer range 1 to 200。use 。 end if。139。else 39。beginco=39。entity t5 is port( clk :in std_logic。 end process。then if cqi=25000 then cqi=1。039。139。 co:out std_logic)。另外，在本設計的基礎上還可以進行一系列的創新，比如增加音樂報警的功能，取代稍有刺耳的蜂鳴聲，會使用戶在實際應用中多一份樂趣，還可以加入遙控功能、語音識別等等，相信隨著電子技術的發展，打鈴器的功能會更加多