Vhdl1602可調(diào)數(shù)字鐘內(nèi)容

--LCD1602數(shù)字鐘--Libraryieee;Useieee.std_logic_1164.all;Useieee.std_logic_arith.all;Useieee.std_logic_unsigned.all;EntityclockisPort(rst,clk:instd_logic;rs,en,rst_out,sec_out:outstd_logic;rw:outstd_logic;data_out:outstd_logic_vector(7downto0);RD,WR:INSTD_LOGIC; --讀寫控制 DATA_O,CONT_O:OUTSTD_LOGIC_VECTOR(7DOWNTO0); --數(shù)據(jù)輸出 DATA_I,CONT_I:INSTD_LOGIC_VECTOR(7DOWNTO0); --數(shù)據(jù)和地址輸入 SCLK:OUTSTD_LOGIC; IO:INOUTSTD_LOGIC; IOB:OUTSTD_LOGIC; k1,k2:INSTD_LOGIC);Endclock;ArchitecturefwmofclockisTYPEstatesIS(hold,func_set,dis_on,mode_set,write_char1,write_char2,write_char3,write_char4,write_char5,write_char6,write_char7,write_char8,write_char9,write_char10,return_home,toggle_e,rst1,rst2,rst3,dis_off,dis_clr);SIGNALstate,n_state:states;SIGNALs0,s1,m0,m1,h0,h1,t:std_logic_vector(3downto0);SIGNALclk_400Hz,clk_10Hz,clk_40Hz:std_logic;SIGNALDATA_TEMP:STD_LOGIC_VECTOR(7DOWNTO0);SIGNALCONT_TEMP:STD_LOGIC_VECTOR(7DOWNTO0);SIGNALSECOND:STD_LOGIC_VECTOR(7DOWNTO0);SIGNALMINUTE:STD_LOGIC_VECTOR(7DOWNTO0);SIGNALHOUR:STD_LOGIC_VECTOR(7DOWNTO0);SIGNALDAY:STD_LOGIC_VECTOR(7DOWNTO0);CONSTANTPROCECT:STD_LOGIC_VECTOR:="10001110"; --保護(hù)位CONSTANTSECOND_WRITE:STD_LOGIC_VECTOR:="10000000"; CONSTANTSECOND_READ:STD_LOGIC_VECTOR:="10000001"; CONSTANTMINUTE_WRITE:STD_LOGIC_VECTOR:="10000010"; CONSTANTMINUTE_READ:STD_LOGIC_VECTOR:="10000011"; CONSTANTHOUR_WRITE:STD_LOGIC_VECTOR:="10000100"; CONSTANTHOUR_READ:STD_LOGIC_VECTOR:="10000101"; CONSTANTDAY_WRITE :STD_LOGIC_VECTOR:="10000110"; CONSTANTDAY_READ :STD_LOGIC_VECTOR:="10000111";-- CONSTANTMONTH_WRITE:STD_LOGIC_VECTOR:="10001000";-- CONSTANTMONTH_READ:STD_LOGIC_VECTOR:="10001001";-- CONSTANTYEAR_WRITE:STD_LOGIC_VECTOR:="10001100";-- CONSTANTYEAR_READ:STD_LOGIC_VECTOR:="10001101"; Beginrst_out<=NOTrst;sec_out<=s0(0);Process(clk,rst)--50MHz分頻到400Hzvariablecnt1:integerrange0to62500;beginifrst='0'thencnt1:=0;clk_400Hz<='0';elsifclk'EVENTandclk='1'thenifcnt1<62500thencnt1:=cnt1+1;elsecnt1:=0;clk_400HZ<=notclk_400Hz;endif;endif;endprocess;process(clk_400HZ,rst)variablecnt2:integerrange0to199;beginifrst='0'thenstate<=rst1;data_out<=X"38";n_state<=rst2;en<='1';rs<='0';rw<='0';elsifclk'EVENTandclk='1'thenifcnt2<19thencnt2:=cnt2+1;elsecnt2:=0;clk_400Hz<=notclk_400Hz;endif;CASEstateIS--LCD控制WHENrst1=>en<='1';rs<='0';rw<='0';data_out<=X"38";state<=toggle_e;n_state<=rst2;--設(shè)置功能WHENrst2=>en<='1';rs<='0';rw<='0';data_out<=X"38";state<=toggle_e;n_state<=rst3;WHENrst3=>en<='1';rs<='0';rw<='0';data_out<=X"38";state<=toggle_e;n_state<=func_set;WHENfunc_set=>en<='1';rs<='0';rw<='0';data_out<=X"38";state<=toggle_e;n_state<=dis_off;WHENdis_off=>en<='1';rs<='0';rw<='0';data_out<=X"08";state<=toggle_e;n_state<=dis_clr;--顯示控制，顯示關(guān)，光標(biāo)關(guān)WHENdis_clr=>en<='1';rs<='0';rw<='0';data_out<=X"01";state<=toggle_e;n_state<=dis_on;--清屏WHENdis_on=>en<='1';rs<='0';rw<='0';data_out<=X"0c";state<=toggle_e;n_state<=mode_set;--顯示控制，顯示開，光標(biāo)關(guān)WHEN WHEN"10"=>SCLK<='0';IO<=CONT_TEMP(COUNT1); IFCOUNT1=7THENCOUNT2:="11";ELSECOUNT2:="01";ENDIF; WHEN"11"=>SCLK<='1';COUNT2:="00";COUNT3:="01";COUNT1:=0; ENDCASE; WHEN"01"=> CASECOUNT2IS WHEN"00"=>SCLK<='0';IO<=DATA_TEMP(COUNT1);COUNT2:="01"; --寫數(shù)據(jù) WHEN"01"=>SCLK<='1';COUNT1:=COUNT1+1;COUNT2:="10"; WHEN"10"=>SCLK<='0';IO<=DATA_TEMP(COUNT1); IFCOUNT1=7THENCOUNT2:="11";ELSECOUNT2:="01";ENDIF; WHEN"11"=>SCLK<='1';COUNT2:="00";COUNT3:="10";COUNT1:=0;IOB<='1'; ENDCASE; WHEN"10"=>COUNT1:=0;IOB<='0';--RST<='0'; WHENOTHERS=>NULL; ENDCASE; ENDIF; IFRD='0'ANDWR='0'THENSCLK<='0';COUNT1:=0;COUNT3:="00";COUNT2:="00";DATA_O<="ZZZZZZZZ"; ENDIF; ENDIF; h1<=X"0";h0<=X"0";m1<=X"0";m0<=X"0";s1<=X"0";s0<=X"0"; IFk1='1'THEN IFCOUNT5<"111"THEN CASECOUNT5IS WHEN"000"=>CONT_O<=SECOND_WRITE;DATA_O<="00000000";COUNT5:="001"; --寫秒 WHEN"001"=>COUNT5:="010"; WHEN"010"=>CONT_O<=MINUTE_WRITE;DATA_O<="00110000";COUNT5:="011"; --寫分鐘 WHEN"011"=>COUNT5:="100"; WHEN"100"=>CONT_O<=HOUR_WRITE;DATA_O<="00010010";COUNT5:="101"; --寫小時(shí) WHEN"101"=>COUNT5:="110"; WHEN"110"=>CONT_O<=DAY_WRITE;DATA_O<="00010101";COUNT5:="111"; --寫天 WHENOTHERS=>NULL; ENDCASE; ENDIF; ELSECOUNT5:="000"; ENDIF; IFk2='1'THEN IFCOUNT6<"111"THEN CASECOUNT6IS WHEN"000"=>CONT_O<=SECOND_READ;COUNT6:="001"; WHEN"001"=>s1<=DATA_I(7downto4);s0<=DATA_i(3downto0);COUNT6:="010"; WHEN"010"=>CONT_O<=MINUTE_READ;COUNT6:="011"; WHEN"011"=>m1<=DATA_I(7downto4);m0<=DATA_i(3downto0);COUNT6:="100"; WHEN"100"=>CONT_O<=HOUR_READ;COUNT6:="101"; WHEN"101"=>h1<=DATA_I(7downto4);h0<=DATA_i(3downto0);COUNT6:="1