【正文】 nd dry_tl = 0000 then n := 5。 else dr_ten = 39。139。 if dr = 39。139。 then n := 5。 7 end if。 end if。 elsif dr = 39。039。 and n = 5 then xl_ten = 39。139。 if xl = 39。139。 then n := 6。 end if。 elsif xl = 39。039。 and n = 6 then pwf = 39。139。 end if。 end if。 end if。 end process。 記時(shí) 進(jìn)水記時(shí) js_jishiqi:process(clk1, js_ten) begin if js_ten = 39。039。 then js_dh = water_inh。 js_dl = water_inl。 js = 39。039。 elsif clk1 = 39。139。 and clk1 39。event then if js_dh = 0000 and js_dl = 0000 then js = 39。039。 else js = 39。139。 if js_dl = 0000 then js_dl = 1001。 js_dh = js_dh 1。 else js_dl = js_dl 1。 end if。 end if。 end if。 end process。 浸泡記時(shí) im_jishiqi:process(clk1, im_ten) begin if im_ten = 39。039。 then im_dh = im_th。 im_dl = im_tl。 im = 39。039。 elsif clk1 = 39。139。 and clk1 39。event then if im_dh = 0000 and im_dl = 0000 then 8 im = 39。039。 else im = 39。139。 if im_dl = 0000 then im_dl = 1001。 im_dh = im_dh 1。 else im_dl = im_dl 1。 end if。 end if。 end if。 end process。 洗滌記時(shí) wa_jishiqi:process(clk1, wa_ten) variable m: integer。 begin if wa_ten = 39。039。 then wa_dh = wash_th。 wa_dl = wash_tl。 wa = 39。039。 wa1 = 39。039。 wa2 = 39。039。 m := 0。 elsif clk1 = 39。139。 and clk1 39。event then if wa_dh = 0000 and wa_dl = 0000 then wa = 39。039。 else wa = 39。139。 if m = 0 then wa1 = 39。139。 wa2 = 39。139。 elsif m = 10 then wa1 = 39。039。 wa2 = 39。139。 elsif m = 13 then wa1 = 39。139。 wa2 = 39。039。 elsif m = 23 then wa1 = 39。039。 wa2 = 39。039。 elsif m = 26 then m := 0。 end if。 m := m + 1。 9 if wa_dl = 0000 then wa_dl = 1001。 wa_dh = wa_dh 1。 else wa_dl = wa_dl 1。 end if。 end if。 end if。 end process。 出水記時(shí) cs_jishiqi:process(clk1, cs_ten) begin if cs_ten = 39。039。 then cs_dh = water_outh。 cs_dl = water_outl。 cs = 39。039。 elsif clk1 = 39。139。 and clk1 39。event then if cs_dh = 0000 and cs_dl = 0000 then cs = 39。039。 else cs = 39。139。 if cs_dl = 0000 then cs_dl = 1001。 cs_dh = cs_dh 1。 else cs_dl = cs_dl 1。 end if。 end if。 end if。 end process。 甩干記時(shí) dr_jishiqi:process(clk1, dr_ten) begin if dr_ten = 39。039。 then dr_dh = dry_th。 dr_dl = dry_tl。 dr = 39。039。 elsif clk1 = 39。139。 and clk1 39。event then if dr_dh = 0000 and dr_dl = 0000 then dr = 39。039。 else dr = 39。139。 if dr_dl = 0000 then dr_dl = 1001。 10 dr_dh = dr_dh 1。 else dr_dl = dr_dl 1。 end if。 end if。 end if。 end process。 響鈴記時(shí) xl_jishiqi:process(clk1, xl_ten) begin if xl_ten = 39。039。 then xl_dh = 0010。 xl_dl = 0000。 xl = 39。039。 elsif clk1 = 39。139。 and clk1 39。event then if xl_dh = 0000 and xl_dl = 0000 then xl = 39。039。 else xl = 39。139。 if xl_dl = 0000 then xl_dl = 1001。 xl_dh = xl_dh 1。 else xl_dl = xl_dl 1。 end if。 end if。 end if。 end process。 顯示時(shí)間 xianshishijian: process(clk1, js_ten, im_ten, wa_ten) begin if js_ten = 39。139。 and im_ten = 39。039。 and wa_ten = 39。039。 and cs_ten = 39。039。 and dr_ten = 39。039。 and xl_ten = 39。039。 then if clk1 = 39。139。 and clk1 39。event then dis_th = js_dh。 dis_tl = js_dl。 end if。 elsif im_ten = 39。139。 and wa_ten = 39。039。 and cs_ten = 39。039。 and dr_ten = 39。039。 and xl_ten = 39。039。 then if clk1 = 39。139。 and clk1 39。event then dis_th = im_dh。 dis_tl = im_dl。 end if。 elsif wa_ten = 39。139。 and cs_ten = 39。039。 and dr_ten = 39。039。 and xl_ten = 39。039。 then 11 if clk1 = 39。139。 and clk1 39。event then dis_th = wa_dh。 dis_tl = wa_dl。 end if。 elsif cs_ten = 39。139。 and dr_ten = 39。039。 and xl_ten = 39。039。 then if clk1 = 39。139。 and clk1 39。event then dis_th = cs_dh。 dis_tl = cs_dl。 end if。 elsif dr_ten = 39。139。 and xl_ten = 39。039。 then if clk1 = 39。139。 and clk1 39。event then dis_th = dr_dh。 dis_tl = dr_dl。 end if。 elsif xl_ten = 39。139。 then if clk1 = 39。139。 and clk1 39。event then dis_th = xl_dh。 dis_tl = xl_dl。 end if。 end if。 end process。 輸出 output:process(dis_th, dis_tl, im, js, cs, dr, wa1, wa2, xl, pwf) begin display_th = dis_th。 display_tl = dis_tl。 immersion = im。 water_in = js。 water_out = cs。 dry = dr。 z1 = wa1。 z2 = wa2。 voice = xl。 poweroff = pwf。 end process。 end behave。