数字电子时钟程序.doc

LIBRARY IEEE;USE IEEE.STD_LOGIC_1164.ALL;USE IEEE.STD_LOGIC_UNSIGNED.ALL;ENTITY syclk IS PORT(clk_1K: IN STD_LOGIC; clk_10H:OUT STD_LOGIC; -10Hz clk_1H:OUT STD_LOGIC; -1Hz clk_500H:OUT STD_LOGIC -500Hz);END ENTITY syclk;ARCHITECTURE struct OF syclk ISSIGNAL clktemp1 : STD_LOGIC_VECTOR( 7 DOWNTO 0 ) ;SIGNAL clktemp2 : STD_LOGIC_VECTOR( 2 DOWNTO 0 ) ;SIGNAL clk_10H_temp: STD_LOGIC;SIGNAL clk_1H_temp: STD_LOGIC;SIGNAL clk_500H_temp: STD_LOGIC;BEGINclk_10H = clk_10H_temp;clk_500H = clk_500H_temp;clk_1H =clk_1H_temp;p1:PROCESS(clk_1K)BEGINIF ( clk_1KEVENT AND clk_1K=1 ) THENIF ( clktemp1 = 00110001 ) THENclktemp1 = 00000000;clk_10H_temp = not clk_10H_temp;ELSEclktemp1 = clktemp1 + 1;END IF ; clk_500H_temp = not clk_500H_temp; END IF ;END PROCESS p1; p2:PROCESS(clk_10H_temp)BEGINIF ( clk_10H_tempEVENT AND clk_10H_temp=1 ) THENIF ( clktemp2 = 100 ) THENclktemp2 = 000;clk_1H_temp = not clk_1H_temp;ELSEclktemp2 =5 THEN CNT6=0; ELSE CNT6 BIT = 000001;A BIT = 000010;A BIT = 000100;A BIT = 001000;A BIT = 010000;A BIT = 100000;A NULL;END CASE;END PROCESS P2; P3:PROCESS(A)BEGINCASE A ISWHEN 0000 = LED LED LED LED LED LED LED LED LED LED NULL ;END CASE ;END PROCESS P3; END ARCHITECTURE struct;整点报时程序代码：LIBRARY IEEE;USE IEEE.STD_LOGIC_1164.ALL;USE IEEE.STD_LOGIC_UNSIGNED.ALL;ENTITY speek ISPORT(clk_500H:IN STD_LOGIC; clk_1K:IN STD_LOGIC; miaoL:IN STD_LOGIC_VECTOR( 3 DOWNTO 0 ); miaoH:IN STD_LOGIC_VECTOR( 3 DOWNTO 0 ); fenL:IN STD_LOGIC_VECTOR( 3 DOWNTO 0 ); fenH:IN STD_LOGIC_VECTOR( 3 DOWNTO 0 );speek_out: OUT STD_LOGIC);END ENTITY speek;ARCHITECTURE struct OF speek ISBEGIN speek_out = clk_500H WHEN (fenH = 0101) AND (fenL = 1001) AND (miaoH = 0101) AND (miaoL(0) = 0) ELSE -59分50秒、秒个位为偶数 clk_1K WHEN (fenH = 0000) AND (fenL = 0000) AND (miaoH = 0000) AND (miaoL = 0000) ELSE 0;END ARCHITECTURE struct;D触发器程序代码：LIBRARY IEEE;USE IEEE.STD_LOGIC_1164.ALL;USE IEEE.STD_LOGIC_UNSIGNED.ALL;ENTITY DCFQ ISPORT(clk:IN STD_LOGIC; QI :IN STD_LOGIC; QO :OUT STD_LOGIC);END ENTITY DCFQ;ARCHITECTURE struct OF DCFQ ISBEGINPROCESS(CLK)BEGINIF (clkEVENT AND clk=1) THEN QO=QI;END IF ;END PROCESS; END ARCHITECTURE struct;十进制计数器程序代码：LIBRARY IEEE;USE IEEE.STD_LOGIC_1164.ALL;USE IEEE.STD_LOGIC_UNSIGNED.ALL;ENTITY cuont10 ISPORT(clk:IN STD_LOGIC; clr:IN STD_LOGIC; cy:OUT STD_LOGIC; data:OUT STD_LOGIC_VECTOR( 3 DOWNTO 0 );END ENTITY cuont10;ARCHITECTURE struct OF cuont10 ISSIGNAL data_temp : STD_LOGIC_VECTOR( 3 DOWNTO 0 );BEGINdata = data_temp;PROCESS(clk)BEGINIF ( clr = 1 ) THENdata_temp = 0000;ELSIF ( clkEVENT AND clk=1 ) THEN IF ( data_temp = 1001 ) THEN - 二选择的IF语句data_temp = 0000;cy = 1;ELSEdata_temp = data_temp + 1;cy = 0;END IF ;END IF ;END PROCESS; END ARCHITECTURE struct;六进制计数器程序代码：LIBRARY IEEE;USE IEEE.STD_LOGIC_1164.ALL;USE IEEE.STD_LOGIC_UNSIGNED.ALL;ENTITY cuont6 ISPORT(clk:IN STD_LOGIC; clr:IN STD_LOGIC; cy:OUT STD_LOGIC; data:OUT STD_LOGIC_VECTOR( 3 DOWNTO 0 );END ENTITY cuont6;ARCHITECTURE struct OF cuont6 ISSIGNAL data_temp : STD_LOGIC_VECTOR( 3 DOWNTO 0 ) ;BEGINdata = data_temp;PROCESS(clk)BEGINIF ( clr = 1 ) THENdata_temp = 0000;ELSIF ( clkEVENT AND clk=1 ) THEN IF ( data_temp = 0101 ) THENdata_temp = 0000;cy = 1;ELSEdata_temp = data_temp + 1;cy = 0;END IF ;END IF ;END PROCESS; END ARCHITECTURE struct;时钟小时计数器：LIBRARY IEEE;USE IEEE.STD_LOGIC_1164.ALL;USE IEEE.STD_LOGIC_UNSIGNED.ALL;ENTITY shi IS-小时PORT(clk:IN STD_LOGIC; shiL:OUT STD_LOGIC_VECTOR( 3 DOWNTO 0 ); shiH:OUT STD_LOGIC_VECTOR( 3 DOWNTO 0 );END ENTITY shi;ARCHITECTURE struct OF shi ISSIGNAL L_temp : STD_LOGIC_VECTOR( 3 DOWNTO 0 );SIGNAL H_temp : STD_LOGIC_VECTOR( 3 DOWNTO 0 );SIGNAL cy: STD_LOGIC;BEGINshiL = L_temp;shiH = H_temp;p1:PROCESS(clk)BEGINIF ( clkEVENT AND clk=1 ) THEN -如果小时数低位显示9或者显示23，则清0IF(L_temp=1001)OR(L_temp=0011)AND( H_temp=0010) THENL_temp = 0000;cy = 1;ELSEL_temp = L_temp + 1;cy = 0;