【正文】 := selticket。end case。 最多購3張票 Tnumber=1111001。 數(shù)碼管顯示2when 100 = 100代表選擇3張車票 totalmoney := totalmoney+ 3*Tm。 num:=2。 Tnumber=0110000。 選票期間取消操作,直接進(jìn)入找零狀態(tài)else caseTnum is when 001 = 001代表選擇1張車票 totalmoney := totalmoney+ 1*Tm。139。 when selticket = 選擇票數(shù)State=00010。 選票種結(jié)束,進(jìn)入選票數(shù)狀態(tài) elsenext_state := selstyle。 end case。 Tstyle=1011111。 Tstyle=0110011。 Tstyle=1101101。Tstyle=1111110。 數(shù)碼管顯示0以上為系統(tǒng)復(fù)位初始化next_state:=selstyle。 數(shù)碼管顯示0Toutnum=00。 數(shù)碼管顯示0Tnumber=1111110。 restmoney:=0。totalmoney:=0。MoneyInputAlarm=39。039。139。) then仿真時(shí)候所用時(shí)鐘頻率 State=00001。event and clk_tmp=39。139。 找零結(jié)束標(biāo)志beginif (clk_tmp 39。 車票總額,投幣總額,找零總額variable num : integer range 0 to 3。 variable Tm: integer range 0 to 6。 end process。00 when others = null 。02 when 01 = Toutnum0 =0110000。 process(Toutnum) 出票數(shù)量數(shù)碼管顯示 begin caseToutnum is when 11 = Toutnum0 =1111001。 end case。01 when 0000 = Changeout0 =1111110。03 when 0010 = Changeout0 =1101101。05 when 0100 = Changeout0 =0110011。07 when 0110 = Changeout0 =1011111。09 when 1000 = Changeout0 =1111111。 end process。00 when others = null 。01when 00000 = Minput1 =1111110。02when 00001 = Minput1 =1111110。03when 00010 = Minput1 =1111110。04when 00011 = Minput1 =1111110。05when 00100 = Minput1 =1111110。06when 00101 = Minput1 =1111110。07when 00110 = Minput1 =1111110。08when 00111 = Minput1 =1111110。09when 01000 = Minput1 =1111110。10when 01001 = Minput1 =1111110。11when 01010 = Minput1 =0110000。12when 01011 = Minput1 =0110000。13when 01100 = Minput1 =1111110。14when 01101 = Minput1 =0110000。15when 01110 = Minput1 =0110000。16when 01111 = Minput1 =0110000。17when 10000 = Minput1 =0110000。18when 10001 = Minput1 =0110000。19when 10010 = Minput1 =0110000。20when 10011 = Minput1 =0110000。21when 10100 = Minput1 =1101101。22when 10101 = Minput1 =1101101。23when 10110 = Minput1 =1101101。24when 10111 = Minput1 =1101101。25when 11000 = Minput1 =1101101。26when 11001 = Minput1 =1101101。27when 11010 = Minput1 =1101101。 process(Minput) 投入金額數(shù)碼管顯示 begin caseMinput iswhen 11011 = Minput1 =1101101。 end case 。 when 5 = SG = Changeout0 。 when 3 = SG = Minput2 。 when 1 = SG = Tnumber 。 end process。 end if。 then 實(shí)現(xiàn)模6計(jì)數(shù)器 if CNT6 = 5 then CNT6 = 0。event and clk_tmp= 39。 end process。when others = NULL 。when 5 = BT = 111110 。when 4 = BT = 111101 。when 3 = BT = 111011 。when 2 = BT = 110111 。 A為位碼when 1 = BT = 101111 。以下為數(shù)碼管顯示程序模塊 process(CNT6)begincase CNT6 is 3線至6線譯碼器 when 0 = BT = 011111 。u5:keyin port map(clk_in1=clk_tmp2,reset=money(1),resetn=moneyn(1))。 各種映射u2:div_500k port map(clk_in2=CLK,clk_out2=clk_tmp2)。 輸出零錢數(shù)量計(jì)數(shù)signal Moneyn:std_logic_vector(2 downto 0)。 出票數(shù)量計(jì)數(shù) signal Changeout0:std_logic_vector(6 downto 0)。 投入金額計(jì)數(shù) signal Toutnum0:std_logic_vector(6 downto 0)。 投入金額十位顯示 signal Minput2:std_logic_vector(6 downto 0)。車票單價(jià)顯示signal Tnumber:std_logic_vector(6 downto 0)。signal A:INTEGER RANGE 0 TO 5。 臨時(shí)時(shí)鐘 signal clk_tmp2:std_logic。type TT is (selstyle,selticket,inputmoney,ticketout,givechange) 。resetn:outstd_logic)。 ponent keyin 引入keyin防抖模塊 port(clk_in1:in std_logic。 clk_out2: out std_logic)。 end ponent。architecture behave of SubwayAutoTicketSellSystem is ponent div_2K 引入div_2k分頻模塊 port(clk_in: in std_logic。 段碼 BT:outstd_logic_vector(5 downto 0) 位碼 )。 系統(tǒng)狀態(tài)指示 beep:outstd_logic。 出票Mout:outstd_logic_vector(1downto 0)。 投幣口MoneyInputAlarm:outstd_logic。 車票種類Tnum:instd_logic_vector(2 downto 0)。 系統(tǒng)時(shí)鐘 Cancelkey: in std_logic。 系統(tǒng)復(fù)位信號(hào)Rebuy:instd_logic。 。四、 源程序File Name : Description : Achieve the function of auto ticket sellingLimition : NoneSystem : Soft : Author : ChenDawenRevisio