【文章內(nèi)容簡介】
9 then m:=0。 a=39。139。 else m:=m+1。 a=39。039。 end if。 end if。end process。process(clk,start,ok,clr,rw,reset) begin if clk39。event and clk=39。139。then if reset=39。039。 then red=39。139。green=39。139。beep1=39。139。open1=39。039。keyin=0000。shuru=39。039。count=000。 end if。 if start=39。039。 then shuru=39。139。 end if。 if rw=39。039。 and open1=39。139。then shuru=39。139。count=000。 end if。 if clr=39。039。 then keyin=0000。count=000。shuru=39。139。 elsif a=39。139。 and shuru=39。139。 then if key1=39。039。 then keyin=keyin(2 downto 0)amp。39。039。 elsif key2=39。039。 then keyin=keyin(2 downto 0)amp。39。139。 end if。 if count=011 then shuru=39。039。 count=count+1。 else count=count+1。 end if。 end if。 if ok=39。039。and open1=39。039。 then if (keyin=password)then red=39。139。green=39。039。open1=39。139。 else red=39。039。green=39。139。beep1=39。039。open1=39。039。 end if。 end if。 if ok=39。039。and open1=39。139。then password=keyin。 end if。 end if。end process。process(clk,start,ok,clr,rw,reset)variable g:integer range 0 to 49999999。 begin if clk39。event and clk=39。139。then if g=49999999 then g:=0。 else g:=g+1。 end if。 if g=24999999 and beep1=39。039。 then beep=39。039。 else be