【導(dǎo)讀】基于FPGA的自動(dòng)打鈴器的設(shè)計(jì)。學(xué)院電子工程學(xué)院。專業(yè)電子信息工程。自動(dòng)打鈴器為學(xué)校上下課時(shí)間的準(zhǔn)確控制提供了很大的便利，并且在工廠、辦公。室等場合也起到了提醒人們時(shí)間的作用，因此打鈴器的設(shè)計(jì)有一定的實(shí)用意義。本設(shè)計(jì)的學(xué)校打鈴器采用基于現(xiàn)場可編程門陣列的方法，底層模塊采用。硬件描述語言設(shè)計(jì)，不僅能對(duì)時(shí)、分、秒正常計(jì)時(shí)和顯示

　　

【正文】 SPEAK=CLK0 AND Y。 Y=39。139。 WHEN (QH_A=HARM_A) AND (QM_A=MARM_A) AND (QH_B=HARM_B) AND (QM_B=MARM_B) ELSE 39。039。 END a。 LIBRARY ieee。 USE 。 ENTITY COMP_TIME IS PORT( K3: IN STD_LOGIC。 Q_HA,Q_MA: IN STD_LOGIC_VECTOR(3 DOWNTO 0)。 Q_HB: IN STD_LOGIC_VECTOR(3 DOWNTO 0)。 Q_MB: IN STD_LOGIC_VECTOR(3 DOWNTO 0)。 Q_Y: OUT STD_LOGIC)。 END COMP_TIME。 ARCHITECTURE a OF COMP_TIME IS SIGNAL QTIME:STD_LOGIC_VECTOR(15 DOWNTO 0)。 BEGIN QTIME=Q_HB amp。 Q_HA amp。 Q_MB amp。 Q_MA。 PROCESS(QTIME) BEGIN IF K3=39。139。 THEN CASE QTIME IS WHEN 0000100000110000 = Q_Y=39。139。WHEN 0001010100100000 = Q_Y=39。139。 WHEN 0000100100010101 = Q_Y=39。139。WHEN 0001011000000101 = Q_Y=39。139。 WHEN 0000100100100101 = Q_Y=39。139。WHEN 0001011000010101 = Q_Y=39。139。 WHEN 0001000000010000 = Q_Y=39。139。WHEN 0001011100000000 = Q_Y=39。139。 WHEN 0001000000100000 = Q_Y=39。139。WHEN 0001100000110000 = Q_Y=39。139。 WHEN 0001000100000101 = Q_Y=39。139。WHEN 0001100100010101 = Q_Y=39。139。 WHEN 0001000100010101 = Q_Y=39。139。WHEN 0001100100100000 = Q_Y=39。139。 WHEN 0001001000000000 = Q_Y=39。139。WHEN 0010000000000101 = Q_Y=39。139。 WHEN 0001001100110000 = Q_Y=39。139。WHEN 0010000000010101 = Q_Y=39。139。 WHEN 0001010000010101 = Q_Y=39。139。WHEN 0010000100000000 = Q_Y=39。139。 WHEN 0001010000100101 = Q_Y=39。139。WHEN 0010001000000000 31 = Q_Y=39。139。 WHEN 0001010100010000 = Q_Y=39。139。 WHEN OTHERS= Q_Y=39。039。 END CASE。 ELSE CASE QTIME IS WHEN 0000100000110000 = Q_Y=39。139。WHEN 0001010101010000 = Q_Y=39。139。 WHEN 0000100100010101 = Q_Y=39。139。WHEN 0001011000110101 = Q_Y=39。139。 WHEN 0000100100100101 = Q_Y=39。139。WHEN 0001011001000101 = Q_Y=39。139。 WHEN 0001000000010000 = Q_Y=39。139。WHEN 0001011100110000 = Q_Y=39。139。 WHEN 0001000000100000 = Q_Y=39。139。WHEN 0001100000110000 = Q_Y=39。139。 WHEN 0001000100000101 = Q_Y=39。139。WHEN 0001100100010101 = Q_Y=39。139。 WHEN 0001000100010101 = Q_Y=39。139。WHEN 0001100100100000 = Q_Y=39。139。 WHEN 0001001000000000 = Q_Y=39。139。WHEN 0010000000000101 = Q_Y=39。139。 WHEN 0001010000000000 = Q_Y=39。139。WHEN 0010000000010101 = Q_Y=39。139。 WHEN 0001010001000101 = Q_Y=39。139。WHEN 0010000100000000 = Q_Y=39。139。 WHEN 0001010001010101 = Q_Y=39。139。WHEN 0010001000000000 = Q_Y=39。139。 WHEN 0001010101000000 = Q_Y=39。139。 WHEN OTHERS= Q_Y=39。039。 END CASE。 END IF。 END PROCESS。 END a。 （ 1）報(bào)警時(shí)長設(shè)定模塊 LIBRARY ieee。 USE 。 ENTITY ctrl_s IS PORT( reset,up_key: IN STD_LOGIC。 k1高電平為調(diào)時(shí)，低電平為調(diào)分 speaktime: out INTEGER RANGE 0 TO 15)。 END ctrl_s。 ARCHITECTURE a OF ctrl_s IS begin PROCESS(reset,up_key) variable Q_tmpma: INTEGER RANGE 0 TO 15。 BEGIN IF reset=39。039。 THEN Q_tmpma:=0。 ELSIF up_key39。event AND up_key=39。139。 THEN IF Q_tmpma15 THEN Q_tmpma:=Q_tmpma+1。 ELSe Q_tmpma:=0。 END IF 。 END IF 。 speaktime=Q_tmpma。 END PROCESS 。 END a。 （ 2）蜂鳴器發(fā)聲模塊 LIBRARY ieee。 USE 。 ENTITY s20 IS PORT( QY,CLK: IN STD_LOGIC。 32 speaktime : in INTEGER RANGE 0 TO 15。 q_20s: out STD_LOGIC)。 END s20。 ARCHITECTURE a OF s20 IS BEGIN PROCESS(CLK) VARIABLE tmp: INTEGER RANGE 0 TO 64。 BEGIN IF CLK39。event AND CLK=39。139。 THEN IF QY=39。139。 THEN IF tmp=speaktime THEN tmp:=tmp+1。Q_20S=39。139。 ELSE tmp:=tmp+1。Q_20S=39。039。 END IF。 ELSE tmp:=0。Q_20S=39。039。 END IF。 END IF 。 END PROCESS 。 END a。 （ 1）時(shí)間切換模塊 LIBRARY ieee。 USE 。 ENTITY NOR_ARM_CTL IS PORT( k2: IN STD_LOGIC。 QSAI,QMAI,QHAI:IN INTEGER RANGE 0 TO 9。 QSBI,QMBI:IN INTEGER RANGE 0 TO 9。 QHBI:IN INTEGER RANGE 0 TO 9。 QH_ARM_A,QM_ARM_A: IN INTEGER RANGE 0 TO 9。 QH_ARM_B: IN INTEGER RANGE 0 TO 9。 QM_ARM_B: IN INTEGER RANGE 0 TO 9。 Q_HAO,Q_MAO,Q_SAO:OUT INTEGER RANGE 0 TO 9。 Q_HBO: OUT INTEGER RANGE 0 TO 9。 Q_MBO,Q_SBO: OUT INTEGER RANGE 0 TO 9)。 END NOR_ARM_CTL。 ARCHITECTURE a OF NOR_ARM_CTL IS BEGIN Q_HAO=QHAI WHEN K2=39。139。 ELSE QH_ARM_A。 Q_HBO=QHBI WHEN K2=39。139。 ELSE QH_ARM_B。 Q_MAO=QMAI WHEN K2=39。139。 ELSE QM_ARM_A。 Q_MBO=QMBI WHEN K2=39。139。 ELSE QM_ARM_B。 Q_SAO=QSAI WHEN K2=39。139。 ELSE 0。 Q_SBO=QSBI WHEN K2=39。139。 ELSE 0。 END a。 （ 2）動(dòng)態(tài)掃描模塊 library ieee。 use 。 use 。 entity dongtaism2 is port(clk:in std_logic。 speaktimeh,speaktimel,sl:in std_logic_vector(3 downto 0)。 sh:in std_logic_vector(3 downto 0)。 fl:in std_logic_vector(3 downto 0)。 fh:in std_logic_vector(3 downto 0)。 ml:in std_logic_vector(3 downto 0)。 mh:in std_logic_vector(3 downto 0)。 selout:out std_logic_vector(7 33 downto 0)。 segout:out std_logic_vector(7 downto 0))。 end dongtaism2。 architecture a of dongtaism2 is signal temp:std_logic_vector(2 downto 0)。 signal seg:std_logic_vector(7 downto 0)。 signal sel:std_logic_vector(7 downto 0)。 begin process(clk) variable num:std_logic_vector(3 downto 0)。 begin if (clk39。event and clk=39。139。 ) then if temp=7 then temp=000。 else temp=temp+1。 end if。 case temp is