【正文】 serve iswhen (01) = i=1。state=light1on。when (10) = i=8。state=light8on。when others= i=0。end case。when light1on= 進程處于第一盞燈亮狀態(tài)i=2。if (hit2=39。139。) or (hit4=39。139。) theni=0。count1=count1+1。state=waitserve。 elsestate=ballmoveto2。end if。when light8on= 進程處于第八盞燈亮狀態(tài)i=7。if (hit1=39。139。) or (hit3=39。139。) theni=0。count2=count2+1。state=waitserve。elsestate=ballmoveto1。end if。 when ballmoveto1= if (hit1=39。139。) or ( hit3=39。139。) then i=0。count2=count2+1。state=waitserve。elsif i=2 then i=1。state=allow13hit。else i=i1。end if。when ballmoveto2= if (hit2=39。139。) or (hit4=39。139。) theni=0。count1=count1+1。state=waitserve。elsif i=7 then i=8。state=allow24hit。else i=i+1。end if。when allow13hit= if (hit1=39。139。) or (hit3=39。139。) then i=2。state=ballmoveto2。a=1。elsif (hit3=39。139。) and (a=1) then i=2。state=ballmoveto2。a=0。else count2=count2+1。i=0。state=waitserve。end if。when allow24hit= if (hit2 =39。139。) and (b=0) then i=7。state=ballmoveto1。b=1。elsif (hit4=39。139。) and (b=1) then i=2。state=ballmoveto2。b=0。else count1=count1+1。i=0。state=waitserve。end if。end case。end if。end if。end process。light=10000000 when i=1 else 01000000 when i=2 else 00100000 when i=3 else 00010000 when i=4 else 00001000 when i=5 else 00000100 when i=6 else 00000010 when i=7 else 00000001 when i=8 else 00000000。end one。數碼管：library ieee。use 。use 。use 。 entity mydecoder isport(binaryin : in std_logic_vector(1 to 5)。 5位二進制碼的輸入端口 bcdout1 : out std_logic_vector(1 to 7)。 七段譯碼器輸出端口 bcdout2 : out std_logic_vector(1 to 7))。end entity mydecoder。architecture m of mydecoder issignal tembinaryin:std_logic_vector(1 to 5)。beginprocess(binaryin)begintembinaryin=binaryin。case tembinaryin is 把0到9的5位二進制碼轉換成七段譯碼when00000=bcdout1=1111110。bcdout2=1111110。when00001=bcdout1=1111110。bcdout2=0110000。when00010=bcdout1=1111110。bcdout2=1101101。when00011=bcdout1=1111110。bcdout2=1111001。when00100=bcdout1=1111110。bcdout2=0110011。when00101=bcdout1=1111110。bcdout2=1011011。when00110=bcdout1=1111110。bcdout2=1011111。when00111=bcdout1=1111110。bcdout2=1110000。when01000=bcdout1=1111110。bcdout2=1111111。when01001=bcdout1=1111110。bcdout2=1111011。把10到19的5位二進制碼轉換成七段譯碼when01010=bcdout1=0110000。bcdout2=1111110。when01011=bcdout1=0110000。bcdout2=0110000。when01100=bcdout1=0110000。bcdout2=1101101。when01101=bcdout1=0110000。bcdout2=1111001。when01110=bcdout1=0110000。bcdout2=0110011。when01111=bcdout1=0110000。bcdout2=1011011。when10000=bcdout1=0110000。bcdout2=1011111。when10001=bcdout1=0110000。bcdout2=1110000。when10010=bcdout1=0110000。bcdout2=1111111。when10011=bcdout1=0110000。bcdout2=1111011。 把20到21的5位二進制碼轉換成七段譯碼when10100=bcdout1=1101101。bcdout2=1111110。when10101=bcdout1=1101101。bcdout2=0110000。 如果5位二進制碼不在0到21范圍內，那么兩個七段譯碼器都顯示0when others=bcdout1=1101101。bcdout2=1111110。end case。end process。end m。18