畢業論文基于fpga的學校打鈴器設計-資料下載頁

　　

【正文】 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 ISPORT( 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 = 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）報警時長設定模塊LIBRARY ieee。 USE 。ENTITY ctrl_s ISPORT( reset,up_key: IN STD_LOGIC。 k1高電平為調時，低電平為調分 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）蜂鳴器發聲模塊LIBRARY ieee。 USE 。ENTITY s20 ISPORT( QY,CLK: IN STD_LOGIC。 speaktime : in INTEGER RANGE 0 TO 15。 q_20s: out STD_LOGIC)。END s20。ARCHITECTURE a OF s20 ISBEGIN 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）時間切換模塊LIBRARY ieee。 USE 。ENTITY NOR_ARM_CTL ISPORT( 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）動態掃描模塊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 downto 0)。 segout:out std_logic_vector(7 downto 0))。end dongtaism2。architecture a of dongtaism2 issignal 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 iswhen 111 =num:=speaktimeh(3 downto 0)。sel=01111111。when 110 =num:=speaktimel(3 downto 0)。sel=10111111。when 101 =num:=sh(3 downto 0)。sel=11011111。when 100 =num:=sl(3 downto 0)。sel=11101111。when 011 =num:=fh(3 downto 0)。sel=11110111。when 010 =num:=fl(3 downto 0)。sel=11111011。when 001 =num:=mh(3 downto 0)。sel=11111101。when 000 =num:=ml(3 downto 0)