ocess;Р6.设置闹钟部分Рprocess(plm,alarmstart)РbeginР if alarmstart='1' thenР if plm'event and plm='1' thenР if alarm1m="1001" thenР alarm1m<="0000";Р if alarm10m="0101" thenР alarm10m<="0000";Р elseР alarm10m<=alarm10m+1;Р end if;Р elseР alarm1m<=alarm1m+1;Р end if;Р end if;Р elseР alarm1m<=alarm1m;alarm10m<=alarm10m;Р end if;Рy<=alarm1m;z<=alarm10m;Рend process;Рprocess(plh,alarmstart)РbeginР if alarmstart='1' thenР if plh'event and plh='1' thenР if alarm1h="1001" thenР alarm1h<="0000";alarm10h<=alarm10h+1;Р elsif alarm1h="0011" and alarm10h="0010" thenР alarm1h<="0000";alarm10h<="0000";Р else Р alarm1h<=alarm1h+1;Р end if;Р end if;Р else Р alarm1h<=alarm1h;alarm10h<=alarm10h;Р end if;Рend process;Р7.时钟与闹钟时间对比产生闹钟信号Рprocess(clk1s)РbeginР if alarmstart='1' thenР if clk1s'event and clk1s='1' then