【正文】 9 when others=min10=xff。 7 when 8=min10=x38。 5 when 6=min10=x36。 3 when 4=min10=x34。 1 when 2=min10=x32。 case m10 is when 0=min10=x30。 9 when others=hour1=xff。 7 when 8=hour1=x38。 5 when 6=hour1=x36。 3 when 4=hour1=x34。 1 when 2=hour1=x32。 case h1 is when 0=hour1=x30。 9 when others=hour10=xff。 7 when 8=hour10=x38。 5 when 6=hour10=x36。 3 when 4=hour10=x34。 1 when 2=hour10=x32。process(h1,h10,m1,m10,se1,se10) begin case h10 is when 0=hour10=x30。 end case。 when 9=A= x39 。 when 7=A= x37 。 when 5=A= x35 。 when 3=A= x33。 when 1 =A= x31。 end case。 when 9=b= x39。 when 7=b= x37。 when 5=b= x35。 when 3=b= x33。 when 1=b= x31。 end case。 when 9=c= x39 。 when 7=c= x37 。 when 5=c= x35 。 when 3=c= x33。 when 1=c= x31。 end case。 when 9=d= x39 。 when 7=d= x37 。 when 5=d= x35 。 when 3=d= x33。 when 1=d= x31。 個位 var1=CONV_INTEGER(s1)*10/16 rem 10。 百位 var3=CONV_INTEGER(s1)/160 rem 10。 END PROCESS。 end case。 RS=39。039。 when 68 = Q =x0c。rs=39。139。 when 66 = Q =xdf。 RS=39。139。 when 64 = Q =xA5 。 RS=39。139。 when 62 = Q =C 。 RS=39。139。 when 60 = Q =sec1。 RS=39。139。 when 58 = Q =x00。 rs=39。139。 when 56 = Q =min10 。 RS=39。139。 when 54 = Q =hour1。 RS=39。039。 日 when 52 = Q =x80。 RS=39。139。 1 when 50 = Q =x30。 RS=39。139。 1 when 48 = Q =x02。 RS=39。139。 2 when 46 = Q =x01。 RS=39。139。 0 when 44 = Q =x31。 RS=39。139。 Second Row when 42 = Q =x32。 RS=39。139。 e when 52 = Q =x21。 RS=39。139。 x when 50 = Q =x75。 RS=39。139。 a when 48 = Q =xA0。 RS=39。139。 when 46 = Q =x64。 RS=39。139。 n when 44 = Q =x67。 RS=39。139。 g when 42 = Q =x6F。 RS=39。139。 i when 40 = Q =xA0。 RS=39。139。 SECOND Row li gong da xue ! when 38 = Q =x4c。 RS=39。039。 when 5 = Q =x01。 RS=39。139。 when 38 = Q =x1f。 RS=39。139。 when 36 = Q =x11。 RS=39。139。 when 34 = Q =x11。 RS=39。139。 when 32 = Q =x1f。 RS=39。139。 when 30 = Q =x13。 RS=39。139。 when 28 = Q =x0f。 RS=39。139。 when 26 = Q =x0f。 RS=39。139。 when 24 = Q =x0f。 RS=39。139。 when 22 = Q =x02。 RS=39。139。 when 20 = Q =x0a。 RS=39。139。 when 18 = Q =x12。 RS=39。139。 when 16 = Q =x08。 RS=39。139。 when 14 = Q =x06。 RS=39。139。 when 12 = Q =x00。 RS=39。139。 when 10 = Q =x06。 RS=39。139。 CGRAM when 8 = Q =x00。 RS=39。039。顯示開關(guān)控制（設(shè)置顯示、光標及閃爍開、關(guān)） when 4 = Q =X06。 RS=39。039。 清屏 when 1 = Q =x38。 RS=39。139。 PROCESS (clk1,M) BEGIN if clk139。 SIGNAL F : STD_LOGIC。 signal Disp_temp : integer range 0 to 9。 signal sec1,sec10 : std_logic_vector (7 DOWNTO 0)。STD_LOGIC_VECTOR(7 DOWNTO 0)。 SIGNAL c : STD_LOGIC_VECTOR(7 DOWNTO 0)。分別對應(yīng)將二進制數(shù)據(jù)轉(zhuǎn)化為十進制數(shù)后的十位、個位、小數(shù)點第一位 SIGNAL a : STD_LOGIC_VECTOR(7 DOWNTO 0)。ARCHITECTURE a OF lcdm_data IS SIGNAL Q : STD_LOGIC_VECTOR(7 DOWNTO 0)。 D0, D1, D2, D3, D4, D5, D6, D7, RS : OUT STD_LOGIC )。 s1 : in std_logic_vector(10 downto 0)。ENTITY lcdm_data IS PORT ( M : IN INTEGER RANGE 0 TO 68。use 。 LCD顯示驅(qū)動程序library ieee。 end process。 se1=sec1。 m1=min1。 h1=hour1。 end if。 end if。 end if。 end if。 end if。 HOUR10=0。 HOUR10=HOUR10+1。 if(MIN10=5) then MIN10=0。 if(SEC10=5) then SEC10=0。 end if。 end if。 if(MIN10=5) then MIN10=0。039。 end if。 HOUR10=0。 HOUR10=HOUR10+1。039。139。 elsif(Clk1Hz39。 HOUR1=0。 MIN1=0。) then 系統(tǒng)復位 SEC1=0。 begin if(Rst=39。 END IF。 t:=t+1。039。139。event THEN IF t=49999999 THEN t:=0。139。 beginPROCESS(clk) 產(chǎn)生1hz信號 variable t : INTEGER RANGE 0 TO 49999999。 signal Clk1Hz : std_logic。 signal HOUR1,HOUR10 : integer range 0 to 9。 signal SEC1,SEC10 : integer range 0 to 9。 end shizhong。 復位輸入 k1,k2 : in std_logic。entity shizhong is port( Clk : in std_logic。use 。時鐘控制程序 library ieee。end process。 9 when others = a = 00000000。 7 when 8 = a = 01111111。 5 when 6 = a = 01111101。 3 when 4 = a = 01100110。 when 2 = a = 01011011。case var1 is對小數(shù)點后第一位譯碼 when 0 = a = 00111111。 9 when others = b = 00000000。 7 when 8 = b = 11111111。 5 when 6 = b = 11111101。 3 when 4 = b = 11100110。 when 2 = b = 11011011。case var2 is個位 when 0 = b = 10111111。 9 when others = c = 00000000。 7 when 8 = c = 01111111。 5 when 6 = c = 01111101。 3 when 4 = c = 01100110。 when 2 = c = 01011011。case var3 is十位 when 0 = c = 00111111。900 when others = d = 01000000。700 when 8 = d = 01111111。500 when 6 = d = 01111101。300 when 4 = d = 01100110。100 when 2 = d = 01011011。 case var4 is百位 when 0 = d = 00000