数字时钟c语言代码
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
ENTITY SECOND1 IS
PORT(CLKS,CLR:IN STD_LOGIC;
SECS,SESG:OUT STD_LOGIC_VECTOR(3 DOWNTO 0);
COUT1:OUT STD_LOGIC);
END SECOND1;
ARCHITECTURE S OF SECOND1 IS
BEGIN
PROCESS(CLKS,CLR)
VARIABLE SS,SG:STD_LOGIC_VECTOR(3 DOWNTO 0);
VARIABLE CO:STD_LOGIC;
BEGIN
IF CLR='1' THEN SS:="0000";SG:="0000";
ELSIF CLKS'EVENT AND CLKS='1' THEN
IF (SS="0101") AND (SG="1001") THEN
SS:="0000";SG:="0000";CO:='1';
ELSIF SG
SG:=SG+1;CO:='0';
ELSIF SG="1001" THEN
SG:="0000";SS:=SS+1;CO:='0';
END IF;
END IF;COUT1<=CO;
SECS<=SS;
SESG<=SG;
END PROCESS;
END S;
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
ENTITY MIN1 IS
PORT(CLKM,CLR:IN STD_LOGIC;
MINS,MING:BUFFER STD_LOGIC_VECTOR(3 DOWNTO 0);
ENMIN,ALARM:OUT STD_LOGIC);
END MIN1;
ARCHITECTURE M OF MIN1 IS
BEGIN
PROCESS(CLKM,CLR)
VARIABLE MS,MG:STD_LOGIC_VECTOR(3 DOWNTO 0);
VARIABLE SO,ALM:STD_LOGIC;
BEGIN
IF CLR='1' THEN MS:="0000";MG:="0000";
ELSIF CLKM'EVENT AND CLKM='1' THEN
IF (MS="0101") AND (MG="1001") THEN
MS:="0000";MG:="0000";SO:='1';ALM:='1';
ELSIF MG
MG:=MG+1;SO:='0';ALM:='0';
ELSIF MG="1001" THEN
MG:="0000";MS:=MS+1;SO:='0';ALM:='0';
END IF;
END IF;
ALARM<=ALM;
ENMIN<=SO;
MINS<=MS;
MING<=MG;
END PROCESS;
END M;
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
ENTITY HOUR1 IS
PORT(CLKH,CLR:IN STD_LOGIC;
HOURS,HOURG:OUT STD_LOGIC_VECTOR(3 DOWNTO 0));
END HOUR1;
ARCHITECTURE H OF HOUR1 IS
BEGIN
PROCESS(CLKH,CLR)
VARIABLE HS,HG:STD_LOGIC_VECTOR(3 DOWNTO 0);
BEGIN
IF CLR='1' THEN HS:="0000";HG:="0000";
ELSIF CLKH'EVENT AND CLKH='1' THEN
IF (HS="0010") AND (HG="0011") THEN
HS:="0000";HG:="0000";
ELSIF HG
HG:=HG+1;
ELSIF HG="1001" THEN
HG:="0000";HS:=HS+1;
END IF;
END IF;
HOURS<=HS;
HOURG<=HG;
END PROC
