吳超電子密碼鎖改過后-資料下載頁
2025-06-20 04:00本頁面
【正文】 if(set=39。139。) then if(state=39。139。) then if(datain=ram) then unlock=39。139。 else unlock=39。039。 end if。 end if。 end if。end if。end process。end rtl。library ieee。use 。use 。entity unlock_led isport(state,unlock,clk_1k:in std_logic。 led_r_temp2,led_g_temp2:out std_logic)。end。architecture rtl of unlock_led isbeginprocess(clk_1k,state)beginif(clk_1k39。event and clk_1k=39。139。) thenif(state=39。139。) then if(unlock=39。139。) then led_r_temp2=39。039。led_g_temp2=39。139。 else led_r_temp2=39。139。led_g_temp2=39。039。 end if。end if。end if。end process。end。library ieee。use 。use 。entity unlock_sound isport(clk,unlock,clk_1k:in std_logic。 speaker_temp1:out std_logic)。end。architecture rtl of unlock_sound issignal count_2:std_logic_vector(1 downto 0)。signal temp:std_logic。beginprocess(clk)beginif(clk39。event and clk=39。139。) then if(unlock=39。139。) then if(count_2=10) then count_2=10。temp=39。039。 else count_2=count_2+1。temp=39。139。 end if。 end if。end if。end process。speaker_temp1=clk_1k and temp。end。library ieee。use 。use 。entity alert isport(state,clk,clk_1k,set,unlock:in std_logic。 led_r_temp3,speaker_temp2:out std_logic)。end。architecture rtl of alert issignal count_20:std_logic_vector(4 downto 0)。signal temp:std_logic。beginprocess(clk)beginif(clk39。event and clk=39。139。) thenif(set=39。039。)thentemp=39。039。elsif(set=39。139。) then if(state=39。039。) then if(count_20=10100) then count_20=10100。temp=39。039。 else count_20=count_20+1。temp=39。139。 end if。 end if。end if。end if。end process。led_r_temp3=temp and clk and (not unlock)。speaker_temp2=temp and clk_1k and (not unlock)。end。library ieee。use 。entity led isport(led_r_temp1,led_r_temp2,led_g_temp1,led_g_temp2,set:in std_logic。 led_r,led_g:out std_logic)。end。architecture rtl of led is beginprocess(set)beginif(set=39。039。) then led_r=led_r_temp1。 led_g=led_g_temp1。else led_r=led_r_temp2。 led_g=led_g_temp2。end if。end process。end。library ieee。use 。entity speaker isport(unlock,speaker_temp1,speaker_temp2,set:in std_logic。 speaker:out std_logic)。end。architecture rtl of speaker isbeginprocess(unlock)beginif(set=39。039。) thenspeaker=39。039。elsif(unlock=39。139。) thenspeaker=speaker_temp1。elsespeaker=speaker_temp2。end if。end process。end。31 / 32
公司管理相關(guān)推薦
鄂ICP備17016276號-1