<![CDATA[*X*(枫)]]> http://381938935.qzone.qq.com Fri, 27 Nov 2009 17:46:45 GMT Qzone zh-cn Copyright (C), 2005-2008, Tencent Tech. Co., Ltd. Wed, 18 Nov 2009 06:07:37 GMT <![CDATA[课程设计电子钟VHDL程序（十）]]> http://381938935.qzone.qq.com/blog/1258524457 星期的asc码转换进程--------------
asc_week:PROCESS(week)
BEGIN
CASE week IS
WHEN "000" =>
asc_week0<="01001101";
asc_week1<="01001111";
asc_week2<="01001110";
WHEN "001" =>
asc_week0<="01010100";
asc_week1<="01010101";
asc_week2<="01000101";
WHEN "010" =>
asc_week0<="01010111";
asc_week1<="01000101";
asc_week2<="01001110";
WHEN "011" =>
asc_week0<="01010100";
asc_week1<="01001000";
asc_week2<="01010101";
WHEN "100" =>
asc_week0<="01000110";
asc_week1<="01010010";
asc_week2<="01001001";
WHEN "101" =>
asc_week0<="01010011";
asc_week1<="01000001";
asc_week2<="01010100";
WHEN "110" =>
asc_week0<="01010011";
asc_week1<="01010101";
asc_week2<="01001110";
WHEN others => NULL;
END CASE;
END PROCESS;
END ARCHITECTURE; ]]> http://381938935.qzone.qq.com/blog/1258524457#comment 134218240 Wed, 18 Nov 2009 06:07:37 GMT http://381938935.qzone.qq.com/blog/1258524457 <![CDATA[课程设计电子钟VHDL程序（九）]]> http://381938935.qzone.qq.com/blog/1258524436 --------------扫描显示年月日---------------------------------------------
WHEN 13 =>
data_out<="0011"&yh;
add_out<="0011";
line_out<='0';
WHEN 14 =>
data_out<="0011"&yl;
add_out<="0100";
line_out<='0';
WHEN 15 =>
data_out<="0011"&moh;
add_out<="0110";
line_out<='0';
WHEN 16 =>
data_out<="0011"&mol;
add_out<="0111";
line_out<='0';
WHEN 17 =>
data_out<="0011"&dh;
add_out<="1001";
line_out<='0';
WHEN 18 =>
data_out<="0011"&dl;
add_out<="1010";
line_out<='0';
-------------扫描显示星期----------------------------------------------------
WHEN 19 =>
data_out<=asc_week0;
add_out<="1100";
line_out<='0';
WHEN 20 =>
data_out<=asc_week1;
add_out<="1101";
line_out<='0';
WHEN 21 =>
data_out<=asc_week2;
add_out<="1110";
line_out<='0';
WHEN 22 =>
IF (flag='1') THEN
data_out<="01010100";
add_out<="0000";
line_out<='1';
ELSE
data_out<="00100000";
add_out<="0000";
line_out<='1';
END IF;
WHEN 23 =>
IF (flag='1') THEN
CASE cnt_key1 IS
WHEN 0 =>
data_out<="00100000";
add_out<="0000";
line_out<='0';
WHEN 1 =>
data_out<="01001101";
add_out<="0001";
line_out<='1';
WHEN 2 =>
data_out<="01001000";
add_out<="0001";
line_out<='1';
WHEN 3 =>
data_out<="01010111";
add_out<="0001";
line_out<='1';
WHEN 4 =>
data_out<="01000100";
add_out<="0001";
line_out<='1';
WHEN 5 =>
data_out<="01001111";
add_out<="0001";
line_out<='1';
WHEN 6 =>
data_out<="01011001";
add_out<="0001";
line_out<='1';
WHEN others =>
data_out<="00100000";
add_out<="0000";
line_out<='0';
END CASE;
ELSE
data_out<="00100000";
add_out<="0001";
line_out<='1';
END IF;
WHEN 24 =>
IF (flag_clock='1') THEN
data_out<="01010010";
add_out<="0010";
line_out<='1';
ELSE
data_out<="00100000";
add_out<="0010";
line_out<='1';
END IF;
WHEN 25 =>
IF (flag_clock='1') THEN
CASE cnt_key2 IS
WHEN 0 =>
data_out<="00100000";
add_out<="0000";
line_out<='0';
WHEN 1 =>
data_out<="01001101";
add_out<="0011";
line_out<='1';
WHEN 2 =>
data_out<="01001000";
add_out<="0011";
line_out<='1';
WHEN others => NULL;
END CASE;
ELSE
data_out<="00100000";
add_out<="0011";
line_out<='1';
END IF;
WHEN 26 =>
IF (ring_buf='1') THEN
data_out<="10110011";
add_out<="1101";
line_out<='1';
ELSE
data_out<="00100000";
add_out<="1101";
line_out<='1';
END IF;
WHEN others =>
END CASE;
END PROCESS;

]]> http://381938935.qzone.qq.com/blog/1258524436#comment 134218240 Wed, 18 Nov 2009 06:07:16 GMT http://381938935.qzone.qq.com/blog/1258524436 <![CDATA[课程设计电子钟VHDL程序（八）]]> http://381938935.qzone.qq.com/blog/1258524390 液晶扫描进程--------------
lcd_scan:PROCESS(res_in,clk_2kh)
BEGIN
IF (res_in='1') THEN
res_out<='1';
lcd_pt<=0;
lcd_state<=0;
ELSIF (clk_2kh 'event AND clk_2kh='1') THEN
CASE lcd_state IS
WHEN 0 =>
res_out<='1';
lcd_pt<=0;
lcd_state<=1;
WHEN 1 =>
res_out<='0';
strobe<='0';
IF (busy='0') THEN
lcd_state<=2;
IF (lcd_pt=7) THEN
lcd_state<=3;
ELSE
lcd_pt<=lcd_pt+1;
END IF;
END IF;
WHEN 2 =>
lcd_state<=1;
strobe<='1';
WHEN 3 =>
strobe<='0';
IF (busy='0') THEN
lcd_state<=4;
IF (lcd_pt=26) THEN
lcd_pt<=7;
ELSE
lcd_pt<=lcd_pt+1;
END IF;
END IF;
WHEN 4 =>
lcd_state<=3;
strobe<='1';
WHEN others => NULL;
END CASE;
END IF;
END PROCESS;
---------------------液晶显示进程-------------
lcd_output:PROCESS(lcd_pt)
BEGIN
CASE lcd_pt IS
WHEN 0 =>
data_out<="00100000";
add_out<="0000";
line_out<='0';
--------------固定显示 20 - - ------------------------------------
-------------------------------: :------------------------------------------
WHEN 1 =>
data_out<="00110010";
add_out<="0001";
line_out<='0';
WHEN 2 =>
data_out<="00110000";
add_out<="0010";
line_out<='0';
WHEN 3 =>
data_out<="00101101";
add_out<="0101";
line_out<='0';
WHEN 4 =>
data_out<="00101101";
add_out<="1000";
line_out<='0';
WHEN 5 =>
data_out<="00111010";
add_out<="0110";
line_out<='1';
WHEN 6 =>
data_out<="00111010";
add_out<="1001";
line_out<='1';
----------------扫描显示第一行，时钟 分钟 秒钟------------------------------
WHEN 7 =>
IF (flag_clock='0') THEN
data_out<="0011"&sl;
add_out<="1011";
line_out<='1';
ELSE
data_out<="0011"&"0000";
add_out<="1011";
line_out<='1';
END IF;
WHEN 8 =>
IF (flag_clock='0') THEN
data_out<="0011"&sh;
add_out<="1010";
line_out<='1';
ELSE
data_out<="0011"&"0000";
add_out<="1010";
line_out<='1';
END IF;
WHEN 9 =>
IF (flag_clock='0') THEN
data_out<="0011"&ml;
add_out<="1000";
line_out<='1';
ELSE
data_out<="0011"&aml;
add_out<="1000";
line_out<='1';
END IF;
WHEN 10 =>
IF (flag_clock='0') THEN
data_out<="0011"&mh;
add_out<="0111";
line_out<='1';
ELSE
data_out<="0011"&amh;
add_out<="0111";
line_out<='1';
END IF;
WHEN 11 =>
IF (flag_clock='0') THEN
data_out<="0011"&hl;
add_out<="0101";
line_out<='1';
ELSE
data_out<="0011"&ahl;
add_out<="0101";
line_out<='1';
END IF;
WHEN 12 =>
IF (flag_clock='0') THEN
data_out<="0011"&hh;
add_out<="0100";
line_out<='1';
ELSE
data_out<="0011"&ahh;
add_out<="0100";
line_out<='1';
END IF;
]]> http://381938935.qzone.qq.com/blog/1258524390#comment 134218240 Wed, 18 Nov 2009 06:06:30 GMT http://381938935.qzone.qq.com/blog/1258524390 <![CDATA[课程设计电子钟VHDL程序（七）]]> http://381938935.qzone.qq.com/blog/1258524350 闹钟设定键盘扫描-----------------
key_scan_clock:PROCESS(clk_1kh,cnt_key2)
VARIABLE cnt_keys3 : INTEGER RANGE 0 TO 127;
BEGIN
IF (clk_1kh 'event AND clk_1kh='1') THEN
CASE cnt_key2 IS
WHEN 0 => NULL;
------------------调整闹钟分钟----------------
WHEN 1 =>
IF (col_in="1101") THEN
IF (cnt_keys3=127) THEN
cnt_keys3:=0;
IF (amh="0101" AND aml="1001") THEN
amh<="0000";
aml<="0000";
ELSIF (aml="1001") THEN
aml<="0000";
amh<=amh+1;
ELSE
aml<=aml+1;
END IF;
ELSE
cnt_keys3:=cnt_keys3+1;
END IF;
END IF;
IF (col_in="1011") THEN
IF (cnt_keys3=127) THEN
cnt_keys3:=0;
IF (aml="0000" AND amh="0000") THEN
aml<="1001";
amh<="0101";
ELSIF (aml="0000") THEN
aml<="1001";
amh<=amh-1;
ELSE
aml<=aml-1;
END IF;
ELSE
cnt_keys3:=cnt_keys3+1;
END IF;
END IF;
----------------------调整闹钟时钟------------------------
WHEN 2 =>
IF (col_in="1101") THEN
IF (cnt_keys3=127) THEN
cnt_keys3:=0;
IF (ahh="0010" AND ahl="0011") THEN
ahh<="0000";
ahl<="0000";
ELSIF (ahl="1001") THEN
ahl<="0000";
ahh<=ahh+1;
ELSE
ahl<=ahl+1;
END IF;
ELSE
cnt_keys3:=cnt_keys3+1;
END IF;
END IF;
IF (col_in="1011") THEN
IF (cnt_keys3=127) THEN
cnt_keys3:=0;
IF (ahl="0000" AND ahh="0000") THEN
ahl<="0011";
ahh<="0010";
ELSIF (ahl="0000") THEN
ahl<="1001";
ahh<=ahh-1;
ELSE
ahl<=ahl-1;
END IF;
ELSE
cnt_keys3:=cnt_keys3+1;
END IF;
END IF;
WHEN others => NULL;
END CASE;
END IF;
END PROCESS;
------------------------闹铃进程----------------
ring_clock:PROCESS(clk_in)
BEGIN
IF (s_ring='1') THEN
IF ((ahh=hh) AND (ahl=hl) AND (amh=mh) AND (aml=ml)) THEN
ring_buf<='1';
END IF;
ELSE
ring_buf<='0';
END IF;
END PROCESS;
]]> http://381938935.qzone.qq.com/blog/1258524350#comment 134218240 Wed, 18 Nov 2009 06:05:50 GMT http://381938935.qzone.qq.com/blog/1258524350 <![CDATA[课程设计电子钟VHDL程序（六）]]> http://381938935.qzone.qq.com/blog/1258524305 ---------------调整月---------------------
WHEN 5 =>
IF (col_in="1101") THEN
IF (cnt_keys2=127) THEN
cnt_keys2:=0;
IF (set_moh="0001" AND set_mol="0010") THEN
set_moh<="0000";
set_mol<="0001";
ELSIF (set_mol="1001") THEN
set_mol<="0000";
set_moh<=set_moh+1;
ELSE
set_mol<=set_mol+1;
END IF;
ELSE
cnt_keys2:=cnt_keys2+1;
END IF;
END IF;
IF (col_in="1011") THEN
IF (cnt_keys2=127) THEN
cnt_keys2:=0;
IF (set_moh="0000" AND set_mol="0001") THEN
set_moh<="0001";
set_mol<="0010";
ELSIF (set_mol="0000") THEN
set_mol<="1001";
set_moh<=set_moh-1;
ELSE
set_mol<=set_mol-1;
END IF;
ELSE
cnt_keys2:=cnt_keys2+1;
END IF;
END IF;
----------------调整年-------------------------
WHEN 6 =>
IF (col_in="1101") THEN
IF (cnt_keys2=127) THEN
cnt_keys2:=0;
IF (set_yh="1001" AND set_yl="1001") THEN
set_yh<="0000";
set_yl<="0000";
ELSIF (set_yl="1001") THEN
set_yl<="0000";
set_yh<=set_yh+1;
ELSE
set_yl<=set_yl+1;
END IF;
ELSE
cnt_keys2:=cnt_keys2+1;
END IF;
END IF;
IF (col_in="1011") THEN
IF (cnt_keys2=127) THEN
cnt_keys2:=0;
IF (set_yh="0000" AND set_yl="0000") THEN
set_yh<="1001";
set_yl<="1001";
ELSIF (set_yl="0000") THEN
set_yl<="1001";
set_yh<=set_yh-1;
ELSE
set_yl<=set_yl-1;
END IF;
ELSE
cnt_keys2:=cnt_keys2+1;
END IF;
END IF;
WHEN others =>NULL;
END CASE;
END IF;
END PROCESS; ]]> http://381938935.qzone.qq.com/blog/1258524305#comment 134218240 Wed, 18 Nov 2009 06:05:05 GMT http://381938935.qzone.qq.com/blog/1258524305 <![CDATA[课程设计电子钟VHDL程序（五）]]> http://381938935.qzone.qq.com/blog/1258524265 ----------------------调整时钟------------------------
WHEN 2 =>
IF (col_in="1101") THEN
IF (cnt_keys2=127) THEN
cnt_keys2:=0;
IF (set_hh="0010" AND set_hl="0011") THEN
set_hh<="0000";
set_hl<="0000";
ELSIF (set_hl="1001") THEN
set_hl<="0000";
set_hh<=set_hh+1;
ELSE
set_hl<=set_hl+1;
END IF;
ELSE
cnt_keys2:=cnt_keys2+1;
END IF;
END IF;
IF (col_in="1011") THEN
IF (cnt_keys2=127) THEN
cnt_keys2:=0;
IF (set_hl="0000" AND set_hh="0000") THEN
set_hl<="0011";
set_hh<="0010";
ELSIF (set_hl="0000") THEN
set_hl<="1001";
set_hh<=set_hh-1;
ELSE
set_hl<=set_hl-1;
END IF;
ELSE
cnt_keys2:=cnt_keys2+1;
END IF;
END IF;
-------------------调整星期---------------------------
WHEN 3 =>
IF (col_in="1101") THEN
IF (cnt_keys2=127) THEN
cnt_keys2:=0;
IF (set_week="110") THEN
set_week<="000";
ELSE
set_week<=set_week+1;
END IF;
ELSE
cnt_keys2:=cnt_keys2+1;
END IF;
END IF;
IF (col_in="1011") THEN
IF (cnt_keys2=127) THEN
cnt_keys2:=0;
IF (set_week="000") THEN
set_week<="110";
ELSE
set_week<=set_week-1;
END IF;
ELSE
cnt_keys2:=cnt_keys2+1;
END IF;
END IF;
--------------------调整日期--------------------------
WHEN 4 =>
IF (col_in="1101") THEN
IF (cnt_keys2=127) THEN
cnt_keys2:=0;
IF (set_dh="0011" AND set_dl="0001") THEN
set_dh<="0000";
set_dl<="0001";
ELSIF (set_dl="1001") THEN
set_dl<="0000";
set_dh<=dh+1;
ELSE
set_dl<=set_dl+1;
END IF;
ELSE
cnt_keys2:=cnt_keys2+1;
END IF;
END IF;
IF (col_in="1011") THEN
IF (cnt_keys2=127) THEN
cnt_keys2:=0;
IF (set_dh="0000" AND set_dl="0001") THEN
set_dh<="0011";
set_dl<="0001";
ELSIF (set_dl="0000") THEN
set_dl<="1001";
set_dh<=set_dh-1;
ELSE
set_dl<=set_dl-1;
END IF;
ELSE
cnt_keys2:=cnt_keys2+1;
END IF;
END IF;
]]> http://381938935.qzone.qq.com/blog/1258524265#comment 134218240 Wed, 18 Nov 2009 06:04:25 GMT http://381938935.qzone.qq.com/blog/1258524265 <![CDATA[课程设计电子钟VHDL程序（四）]]> http://381938935.qzone.qq.com/blog/1258524210 功能键盘扫---------------------
key_scan:PROCESS(clk_1kh)
VARIABLE cnt_keys1 : INTEGER RANGE 0 TO 127;
BEGIN
IF (clk_1kh 'event AND clk_1kh='1') THEN
-------------------调整时钟，第一个键-----------------
IF (flag_key1='0') THEN
IF (col_in="1110") THEN
IF (cnt_keys1=127) THEN
cnt_keys1:=0;
flag<='1';
flag_key2<='1';
IF (cnt_key1=7) THEN
cnt_key1<=0;
flag<='0';
flag_key2<='0';
ELSE
cnt_key1<=cnt_key1+1;
END IF;
ELSE
cnt_keys1:=cnt_keys1+1;
END IF;
END IF;
END IF;
----------------------调整闹钟，第四个键---------------
IF (flag_key2='0') THEN
IF (col_in="0111") THEN
IF (cnt_keys1=127) THEN
cnt_keys1:=0;
flag_clock<='1';
flag_key1<='1';
IF (cnt_key2=2) THEN
cnt_key2<=0;
flag_clock<='0';
flag_key1<='0';
ELSE
cnt_key2<=cnt_key2+1;
END IF;
ELSE
cnt_keys1:=cnt_keys1+1;
END IF;
END IF;
END IF;
END IF;
END PROCESS;
------------------时钟调整键盘扫描-------------------
key_scan2:PROCESS(clk_keyscan,cnt_key1)
VARIABLE cnt_keys2 : INTEGER RANGE 0 TO 300;
BEGIN
IF (clk_keyscan 'event and clk_keyscan='1') THEN
CASE cnt_key1 IS
WHEN 0 => NULL;
------------------调整分钟----------------
WHEN 1 =>
IF (col_in="1101") THEN
IF (cnt_keys2=300) THEN
cnt_keys2:=0;
IF (set_mh="0101" AND set_ml="1001") THEN
set_mh<="0000";
set_ml<="0000";
ELSIF (set_ml="1001") THEN
set_ml<="0000";
set_mh<=set_mh+1;
ELSE
set_ml<=set_ml+1;
END IF;
ELSE
cnt_keys2:=cnt_keys2+1;
END IF;
END IF;
IF (col_in="1011") THEN
IF (cnt_keys2=300) THEN
cnt_keys2:=0;
IF (set_ml="0000" AND set_mh="0000") THEN
set_ml<="1001";
set_mh<="0101";
ELSIF (set_ml="0000") THEN
set_ml<="1001";
set_mh<=set_mh-1;
ELSE
set_ml<=set_ml-1;
END IF;
ELSE
cnt_keys2:=cnt_keys2+1;
END IF;
END IF;
]]> http://381938935.qzone.qq.com/blog/1258524210#comment 134218240 Wed, 18 Nov 2009 06:03:30 GMT http://381938935.qzone.qq.com/blog/1258524210 <![CDATA[课程设计电子钟VHDL程序（三）]]> http://381938935.qzone.qq.com/blog/1258524065 年月日计数器------------------
count_year_month_day:PROCESS(clk_1h,sh,sl,mh,ml,hh,hl,flag)
BEGIN
IF (flag='0') THEN
IF (res_in='1') THEN
dh<="0000";
dl<="0001";
moh<="0000";
mol<="0001";
yh<="0000";
yl<="1001";
ELSIF (clk_1h 'event AND clk_1h='1') THEN
IF (hh="0010" AND hl="0011" AND mh="0101" AND ml="1001"
AND sh="0101" AND sl="1001") THEN
IF ((moh="0000" AND mol="0001") OR (moh="0000" AND mol="0011")
OR (moh="0000" AND mol="0101") OR (moh="0000" AND mol="0111")
OR (moh="0000" AND mol="1000") OR (moh="0001" AND mol="0000")
OR (moh="0001" AND mol="0010")) THEN
IF (dh="0011" AND dl="0001") THEN
dh<="0000";
dl<="0001";
IF (moh="0001" AND mol="0000") THEN
moh<="0001";
mol<="0001";
ELSIF (moh="0001" AND mol="0010") THEN
moh<="0000";
mol<="0001";
IF (yh="1001" AND yl="1001") THEN
yh<="0000";
yl<="0000";
ELSIF (yl="1001") THEN
yl<="0000";
yh<=yh+1;
ELSE
yl<=yl+1;
END IF;
ELSE
mol<=mol+1;
END IF;
ELSIF (dl="1001") THEN
dl<="0000";
dh<=dh+1;
ELSE
dl<=dl+1;
END IF;
ELSIF ((moh="0000" AND mol="0100") OR (moh="0000" AND mol="0110")
OR (moh="0000" AND mol="1001") OR (moh="0001" AND mol="0001")) THEN
IF (dh="0011" AND dl="0000") THEN
dh<="0000";
dl<="0001";
IF (moh="0000" AND mol="1001") THEN
moh<="0001";
mol<="0000";
ELSIF (moh="0001" AND mol="0001") THEN
moh<="0001";
mol<="0010";
ELSE
mol<=mol+1;
END IF;
ELSIF (dl="1001") THEN
dl<="0000";
dh<=dh+1;
ELSE
dl<=dl+1;
END IF;
ELSIF (moh="0000" AND mol="0010") THEN
IF (dh="0010" AND dl="1000") THEN
dh<="0000";
dl<="0001";
mol<=mol+1;
ELSIF (dl="1001") THEN
dl<="0000";
dh<=dh+1;
ELSE
dl<=dl+1;
END IF;
END IF;
END IF;
END IF;
ELSE
dh<=set_dh;
dl<=set_dl;
moh<=set_moh;
mol<=set_mol;
yh<=set_yh;
yl<=set_yl;
END IF;
END PROCESS;
-------------------星期计数器---------------
count_week:PROCESS(clk_1h,sh,sl,mh,ml,hh,hl,flag)
BEGIN
IF (flag='0') THEN
IF (res_in='1') THEN
week<="000";
ELSIF (clk_1h 'event AND clk_1h='1') THEN
IF (hh="0010" AND hl="0011" AND mh="0101" AND ml="1001"
AND sh="0101" AND sl="1001") THEN
IF (week="110") THEN
week<="000";
ELSE
week<=week+1;
END IF;
END IF;
END IF;
ELSE
week<=set_week;
END IF;
END PROCESS;
]]> http://381938935.qzone.qq.com/blog/1258524065#comment 134218240 Wed, 18 Nov 2009 06:01:05 GMT http://381938935.qzone.qq.com/blog/1258524065 <![CDATA[课程设计电子钟VHDL程序（二）]]> http://381938935.qzone.qq.com/blog/1258523970 分计数器-----------------
count60_m:PROCESS(clk_1h,sh,sl,flag)
BEGIN
IF (flag='0') THEN
IF (res_in='1') THEN
mh<="0000";
ml<="0000";
ELSIF (clk_1h 'event AND clk_1h='1') THEN
IF (sh="0101" AND sl="1001") THEN
IF (mh="0101" AND ml="1001") THEN
mh<="0000";
ml<="0000";
ELSIF (ml="1001") THEN
mh<=mh+1;
ml<="0000";
ELSE
ml<=ml+1;
END IF;
END IF;
END IF;
ELSE
mh<=set_mh;
ml<=set_ml;
END IF;
END PROCESS;
---------------------24小时计数器----------------
count24_h:PROCESS(clk_1h,sh,sl,mh,ml,flag)
BEGIN
IF (flag='0') THEN
IF (res_in='1') THEN
hh<="0001";
hl<="0010";
ELSIF (clk_1h 'event AND clk_1h='1') THEN
IF (mh="0101" AND ml="1001" AND sh="0101" AND sl="1001")THEN
IF (hh="0010" AND hl="0011") THEN
hh<="0000";
hl<="0000";
ELSIF (hl="1001") THEN
hh<=hh+1;
hl<="0000";
ELSE
hl<=hl+1;
END IF;
END IF;
END IF;
ELSE
hh<=set_hh;
hl<=set_hl;
END IF;
END PROCESS;
]]> http://381938935.qzone.qq.com/blog/1258523970#comment 134218240 Wed, 18 Nov 2009 05:59:30 GMT http://381938935.qzone.qq.com/blog/1258523970 <![CDATA[课程设计电子钟VHDL程序（一）]]> http://381938935.qzone.qq.com/blog/1258523852 LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_ARITH.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
----实体定义端口--------
ENTITY clock IS
PORT(
clk_in : IN STD_LOGIC;
res_in : IN STD_LOGIC;
led : OUT STD_LOGIC_VECTOR(7 DOWNTO 0);
res_out : OUT STD_LOGIC;
busy : IN STD_LOGIC;
line_out : OUT STD_LOGIC;
clk_out : OUT STD_LOGIC;
strobe : OUT STD_LOGIC;
data_out : OUT STD_LOGIC_VECTOR(7 DOWNTO 0);
add_out : OUT STD_LOGIC_VECTOR(3 DOWNTO 0);
lin_out : OUT STD_LOGIC_VECTOR(3 DOWNTO 0);
col_in : IN STD_LOGIC_VECTOR(3 DOWNTO 0);
ring : OUT STD_LOGIC;
s_ring : IN STD_LOGIC
);
END ENTITY;
----------结构体开始----------------------------------------------
ARCHITECTURE ar_clock OF clock IS
------------------一系列的信号定义--------------
SIGNAL clk_2kh : STD_LOGIC;
SIGNAL clk_1kh : STD_LOGIC;
SIGNAL clk_1h : STD_LOGIC;
SIGNAL clk_keyscan : STD_LOGIC;
SIGNAL led_buf : STD_LOGIC_VECTOR(7 DOWNTO 0);
SIGNAL hh,hl,mh,ml,sh,sl : STD_LOGIC_VECTOR(3 DOWNTO 0);
SIGNAL yh,yl,moh,mol,dh,dl : STD_LOGIC_VECTOR(3 DOWNTO 0);
SIGNAL week : STD_LOGIC_VECTOR(2 DOWNTO 0);
SIGNAL asc_week0,asc_week1,asc_week2: STD_LOGIC_VECTOR(7 DOWNTO 0);
SIGNAL lcd_pt : INTEGER RANGE 0 TO 26;
SIGNAL lcd_state : INTEGER RANGE 0 TO 4;
SIGNAL cnt_key1 : INTEGER RANGE 0 TO 7 :=0;
SIGNAL flag : STD_LOGIC;
SIGNAL set_hh,set_hl,set_mh,set_ml,set_sh,set_sl: STD_LOGIC_VECTOR(3 DOWNTO 0);
SIGNAL set_yh,set_yl,set_moh,set_mol,set_dh,set_dl:STD_LOGIC_VECTOR(3 DOWNTO 0);
SIGNAL set_week : STD_LOGIC_VECTOR(2 DOWNTO 0);
SIGNAL cnt_key2 : INTEGER RANGE 0 TO 2 :=0;
SIGNAL flag_clock : STD_LOGIC;
SIGNAL ahh,ahl,amh,aml : STD_LOGIC_VECTOR(3 DOWNTO 0);
SIGNAL temp : STD_LOGIC;
SIGNAL flag_key1 : STD_LOGIC;
SIGNAL flag_key2 : STD_LOGIC;
SIGNAL ring_buf : STD_LOGIC;
----------------------信号定义借宿 结构体程序开始-------------
BEGIN
led<=led_buf;
clk_out<=clk_in;
lin_out<="1101";
ring<=ring_buf;
-----------分频到2kh----------------------------------
div_clk_2kh:PROCESS(clk_in)
VARIABLE cnt :INTEGER RANGE 0 TO 2500;
BEGIN
IF (clk_in 'event AND clk_in ='1') THEN
IF (cnt>=2500) THEN
cnt:=0;
clk_2kh <= not clk_2kh;
ELSE
cnt:=cnt+1;
END IF;
END IF;
END PROCESS;
-----------------分频到1Kh---------------
div_clk_1kh:PROCESS(clk_2kh)
VARIABLE count0 :INTEGER RANGE 0 TO 1;
BEGIN
IF (clk_2kh 'event AND clk_2kh='1') THEN
IF (count0>=1) THEN
count0:=0;
clk_1kh<= not clk_1kh;
ELSE
count0:=count0+1;
END IF;
END IF;
END PROCESS;
--------------分频得到键盘扫描频率--------------
div_clk_keyscan:PROCESS(clk_in)
VARIABLE count01 :INTEGER RANGE 0 TO 3500;
BEGIN
IF (clk_in 'event AND clk_in='1') THEN
IF (count01>=3500) THEN
count01:=0;
clk_keyscan<= not clk_keyscan;
ELSE
count01:=count01+1;
END IF;
END IF;
END PROCESS;
-------------分频得到1hz作为电子钟的计数器--------------
div_clk_1h:PROCESS(clk_2kh)
VARIABLE count1 :INTEGER RANGE 0 TO 1000;
BEGIN
IF (clk_2kh 'event AND clk_2kh='1') THEN
IF (count1>=1000) THEN
count1:=0;
clk_1h<= not clk_1h;
ELSE
count1:=count1+1;
END IF;
END IF;
END PROCESS;
------------60s计数器-----------------------
count60_s:PROCESS(clk_1h,flag)
BEGIN
IF (flag='0') THEN
IF (res_in='1') THEN
sh<="0000";
sl<="0000";
ELSIF (clk_1h 'event AND clk_1h='1') THEN
IF (sl="1001") THEN
sl<="0000";
IF (sh="0101") THEN
sh<="0000";
ELSE
sh<=sh+1;
END IF;
ELSE
sl<=sl+1;
END IF;
END IF;
led_buf(7 DOWNTO 4)<=sl;
led_buf(3 DOWNTO 0)<=sh;
END IF;
END PROCESS;
]]> http://381938935.qzone.qq.com/blog/1258523852#comment 134218240 Wed, 18 Nov 2009 05:57:32 GMT http://381938935.qzone.qq.com/blog/1258523852