process(clk10hz)--ce ju livariable cnt:integer range 0 to 4117;beginif clk100k'event and clk100k='1' thenif clk10hz='1' then--chong fa trigcnt:=0;---elsif echo='1' thencnt:=cnt+1;---elsetemp_cnt<=cnt;--ju liend if;