基于FPGA的万年历程序设计.doc

1、 1 library 草鱼 ieee;pork草鱼 use 草鱼 ieee.std_logic_1164.all;por k草鱼 use 草鱼 ieee.std_logic_unsigned.all;por k草鱼 entity 草鱼 clock 草鱼 is 草鱼草鱼 port(rst:in 草鱼 std_logic;pork草鱼 草鱼 clk:in 草鱼 std_logic;pork草鱼 草鱼 clr:in 草鱼 std_logic;pork草鱼 草鱼 display_mode: 草鱼 in 草鱼 std_logic;pork草鱼 草鱼 inc:in 草鱼 std_logic;pork草鱼

2、mode:in 草鱼 std_logic;pork草鱼 seg8:out 草鱼 std_logic_vector(7 草鱼 downto 草鱼 0);pork 草鱼草鱼 scan:out 草鱼 std_logic_vector(7 草鱼 downto 草鱼 0);pork草鱼 led:out 草鱼 std_logic_vector(3 草鱼 downto 草鱼 0) 草鱼 );pork草鱼 end;por k草鱼 architecture 草鱼 one 草鱼 of 草鱼 clock 草鱼 is 草鱼草鱼 -signal 草鱼 state:std_logic_vector(2 草鱼 downto

3、 草鱼 0);pork草鱼 -signal 草鱼 dis_mode:std_logic_vector(1 草鱼 downto 草鱼 0);pork草鱼 signal 草鱼 state:integer 草鱼 range 草鱼 0 草鱼 to 草鱼 7;pork草鱼 signal 草鱼 dis_mode:integer 草鱼 range 草鱼 0 草鱼 to 草鱼 3;pork草鱼 -signal 草鱼 qhh,qhl,qmh,qml,qsh,qsl,qy1,qy2,qy3,qy4,qm1,qm2,qd1,qd2:std_logic_vector(3 草鱼 downto 草鱼 0);pork草鱼

4、signal 草鱼 qhh,qhl,qmh,qml,qsh,qsl,qy1,qy2,qy3,qy4,qmonl,qmonh,qdl,qdh:integer 草鱼 range 草鱼 0 草鱼 to 草鱼 15;pork草鱼 signal 草鱼 data:integer 草鱼 range 草鱼 0 草鱼 to 草鱼 15 草鱼 ;pork草鱼 signal 草鱼 cnt:integer 草鱼 range 草鱼 0 草鱼 to 草鱼 7;pork草鱼 signal 草鱼 clk1khz,clk1hz,clk2hz,clk5ms:std_logic;pork草鱼 -signal 草鱼 blink:st

5、d_logic_vector(2 草鱼 downto 草鱼 0);pork草鱼 -signal 草鱼 inc_reg:std_logic;pork草鱼 signal 草鱼 sec,min:integer 草鱼 range 草鱼 0 草鱼 to 草鱼 59;pork草鱼 signal 草鱼 hour:integer 草鱼 range 草鱼 0 草鱼 to 草鱼 23;pork草鱼 signal 草鱼 year:integer 草鱼 range 草鱼 1 草鱼 to 草鱼 9999;pork草鱼 signal 草鱼 month:integer 草鱼 range 草鱼 1 草鱼 to 草鱼 12;p

6、ork草鱼 signal 草鱼 day,day_limit:integer 草鱼 range 草鱼 1 草鱼 to 草鱼 31;pork草鱼 begin 草鱼 process(clk)草鱼 variable 草鱼 count:integer 草 鱼range 草鱼 0 草鱼 to 草鱼 30000;pork草鱼 begin 草鱼草鱼 if 草鱼 clkevent 草鱼 and 草鱼 clk=1 草鱼 then 草鱼草鱼 if 草鱼 count=25000 草鱼 then 草鱼 clk1khz 草鱼 草鱼 led 草鱼 ledledledled 草鱼 led 草鱼 led 草鱼 null;por

7、k草鱼 草鱼 end 草鱼 case;pork草鱼 end 草鱼 if;pork草鱼 -end 草鱼 if;pork草鱼 end 草鱼 process;pork草鱼 草鱼 -草鱼 process(sec)草鱼 begin 草鱼 case 草鱼 sec 草鱼 is 草鱼 when 草鱼 0|10|20|30|40|50 草鱼 = 草鱼 qsl 草鱼 qsl 草鱼 qsl 草鱼 qsl 草鱼 qsl 草鱼 qsl 草鱼 qsl 草鱼 qsl 草鱼 qsl 草鱼 qslnull;pork草鱼 end 草鱼 case;pork草鱼 case 草鱼 sec 草鱼 is 草鱼 when 草鱼 0|1|2|

8、3|4|5|6|7|8|9 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 = 草鱼 qsh 草鱼 qsh 草鱼 qsh 草鱼 qsh 草鱼 qsh 草鱼 qshnull;pork草鱼 end 草鱼 case;pork草鱼 end 草鱼 process;pork草鱼 -草鱼 process(min)草鱼 begin 草鱼 case 草鱼 min 草鱼 is 草鱼 when 草鱼 0|10|20|30|40|50 草鱼 = 草鱼 qml 草鱼 qml 草鱼 qml 草鱼 qml 草鱼 qml 草鱼 qml 草鱼 qml 草鱼 qml 草鱼 qml 草鱼 qmlnull;pork

9、草鱼 end 草鱼 case;pork草鱼 case 草鱼 min 草鱼 is 草鱼 when 草鱼 0|1|2|3|4|5|6|7|8|9 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 = 草鱼 qmh 草鱼 qmh 草鱼 qmh 草鱼 qmh 草鱼 qmh 草鱼 qmhnull;pork草鱼 end 草鱼 case;pork草鱼 end 草鱼 process;pork草鱼 -草鱼 process(hour)草鱼 begin 草鱼 草鱼 case 草鱼 hour 草鱼 is 草鱼草鱼 when 草鱼 0|10|20 草鱼 = 草鱼 qhl 草鱼 qhl 草鱼 qhl 草鱼

10、 qhl 草鱼 qhl 草鱼 qhl 草鱼 qhl 草鱼 qhl 草鱼 qhl 草鱼 qhlnull;pork草鱼 end 草鱼 case;pork草鱼 草鱼 case 草鱼 hour 草鱼 is 草鱼 when 草鱼 0|1|2|3|4|5|6|7|8|9 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 = 草鱼 qhh 草鱼 qhh 草鱼 qhh 草鱼 null;pork草鱼 end 草鱼 case;pork草鱼 end 草鱼 process;pork草鱼 -草鱼 process(year)草鱼 begin 草鱼 qy1 草鱼 case 草鱼 cnt 草鱼 is 草鱼 草

11、鱼 草鱼 when 草鱼 0 草鱼 = 草鱼 data 草鱼 data 草鱼 data 草鱼 data 草鱼 data 草鱼 data 草鱼 data 草鱼 data 草鱼 null;pork草鱼 草鱼 end 草鱼 case;pork草鱼 when 草鱼 1= 草鱼 case 草鱼 cnt 草鱼 is 草鱼草鱼 when 草鱼 0 草鱼 = 草鱼 data 草鱼 data 草鱼 data 草鱼 data 草鱼 data 草鱼 data 草鱼 data 草鱼 datanull;pork草鱼 end 草鱼 case;pork草鱼 when 草鱼 others 草鱼 = 草鱼 null;pork草鱼 end 草鱼 case;pork草鱼 end 草鱼 process;pork草鱼 草鱼 -草鱼 process(data)草鱼 begin 草鱼 case 草鱼 data 草鱼 is 草鱼 when 草鱼 0 草鱼 =seg8seg8seg8seg8seg8seg8seg8seg8seg8seg8seg8=“11111111“;por k草鱼 end 草鱼 case 草鱼 ;pork草鱼 end 草鱼 process;pork 草鱼草鱼 end;por k草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼 草鱼