【文章內容簡介】 Minput1 =1111110。Minput2 =1101101。12when 01011 = Minput1 =0110000。Minput2 =0110000。11when 01010 = Minput1 =0110000。Minput2 =1111110。10when 01001 = Minput1 =1111110。Minput2 =1111011。09when 01000 = Minput1 =1111110。Minput2 =1111111。08when 00111 = Minput1 =1111110。Minput2 =1110000。07when 00110 = Minput1 =1111110。Minput2 =1011111。06when 00101 = Minput1 =1111110。Minput2 =1011011。05when 00100 = Minput1 =1111110。Minput2 =0110011。04when 00011 = Minput1 =1111110。Minput2 =1111001。03when 00010 = Minput1 =1111110。Minput2 =1101101。02when 00001 = Minput1 =1111110。Minput2 =0110000。01when 00000 = Minput1 =1111110。Minput2 =1111110。00 when others = null 。 end case。 end process。 process(Changeout) 找零金額數(shù)碼管顯示 begin caseChangeout is when 1001 = Changeout0 =1111011。09 when 1000 = Changeout0 =1111111。08 when 0111 = Changeout0 =1110000。07 when 0110 = Changeout0 =1011111。06 when 0101 = Changeout0 =1011011。05 when 0100 = Changeout0 =0110011。04 when 0011 = Changeout0 =1111001。03 when 0010 = Changeout0 =1101101。02 when 0001 = Changeout0 =0110000。01 when 0000 = Changeout0 =1111110。00 when others = null 。 end case。 end process。 process(Toutnum) 出票數(shù)量數(shù)碼管顯示 begin caseToutnum is when 11 = Toutnum0 =1111001。03 when 10 = Toutnum0 =1101101。02 when 01 = Toutnum0 =0110000。01 when 00 = Toutnum0 =1111110。00 when others = null 。 end case。 end process。 以上為數(shù)碼管顯示程序模塊 process(clk_tmp,restart) 下載時候所用時鐘頻率 process(clk,restart) 仿真時候所用時鐘頻率variablenext_state: TT。 variable Tm: integer range 0 to 6。 車票單價 variable totalmoney,castmoney,restmoney: integer range 0 to 27。 車票總額,投幣總額,找零總額variable num : integer range 0 to 3。 所購票數(shù) variable empty:std_logic。 找零結束標志beginif (clk_tmp 39。event and clk_tmp=39。139。) then 下載時候所用時鐘頻率 if (clk_tmp 39。event and clk_tmp=39。139。) then仿真時候所用時鐘頻率 State=00001。 系統(tǒng)等待狀態(tài)if Restart=39。139。 then以下為系統(tǒng)復位初始化 Tout=39。039。Mout=00。MoneyInputAlarm=39。039。totalmoney:=0。 castmoney:=0。 restmoney:=0。Tstyle=1111110。 數(shù)碼管顯示0Tnumber=1111110。 數(shù)碼管顯示0Minput=00000。 數(shù)碼管顯示0Toutnum=00。 數(shù)碼管顯示0Changeout=0000 。 數(shù)碼管顯示0以上為系統(tǒng)復位初始化next_state:=selstyle。 系統(tǒng)復位,回到初始選站狀態(tài)elsecasenext_state is when selstyle = 選擇出票種 case style is 共3種車票類型when 000 = Tm:=0。Tstyle=1111110。 000代表未選擇 when 001 = Tm:=2。 Tstyle=1101101。 001代表選擇單價2元車票 when 010 = Tm:=4。 Tstyle=0110011。 010代表選擇單價2元車票 when 100 = Tm:=6。 Tstyle=1011111。 100代表選擇單價2元車票 when others =null。 end case。 if Tm/=0 then next_state := selticket。 選票種結束,進入選票數(shù)狀態(tài) elsenext_state := selstyle。 未選票種,停留在選票種狀態(tài) end if 。 when selticket = 選擇票數(shù)State=00010。 等待選擇購票數(shù)量狀態(tài)if (Cancelkey=39。139。) then next_state:=givechange。 選票期間取消操作,直接進入找零狀態(tài)else caseTnum is when 001 = 001代表選擇1張車票 totalmoney := totalmoney+ 1*Tm。 計算票價 num:=1。 Tnumber=0110000。 數(shù)碼管顯示1when 010 = 010代表選擇2張車票 totalmoney := totalmoney+ 2*Tm。 num:=2。 Tnumber=1101101。 數(shù)碼管顯示2when 100 = 100代表選擇3張車票 totalmoney := totalmoney+ 3*Tm。 num:=3。 最多購3張票 Tnumber=1111001。 數(shù)碼管顯示3 when others =null。end case。 iftotalmoney /=0 then next_state := inputmoney。 選票結束,進入投幣狀態(tài) elsenext_state := selticket。 未選票,停留在選票狀態(tài) end if 。end if。 when inputmoney = 進行投幣State=00100。 等待放入錢幣狀態(tài)if Moneyn(0)=39。139。 then 下載時所用投幣按鍵1元 if Money(0)=39。139。 then 仿真時所用投幣按鍵1元castmoney := castmoney+1。 投幣錢數(shù)計數(shù)增加1Minput=minput+00001。 投幣數(shù)碼管顯示增加1elsifMoneyn(1)=39。139。 then 下載時所用投幣按鍵5元 elsif Money(1)=39。139。 then 仿真時所用投幣按鍵5元castmoney := castmoney+5。 投幣錢數(shù)計數(shù)增加5Minput=minput+00101。 投幣數(shù)碼管顯示增加5elsifMoneyn(2)=39。139。 then 下載時所用投幣按鍵10元 elsif Money(2)=39。139。 then 仿真時所用投幣按鍵10元castmoney := castmoney+10。投幣錢數(shù)計數(shù)增加10Minput=minput+01010。 投幣數(shù)碼管顯示增加10