基于vhdl的出租車計費系統-資料下載頁

　　

【正文】 OF LCJF IS SIGNAL LCFY1: STD_LOGIC_VECTOR(15 DOWNTO 0)。 BEGIN PROCESS(START, LCBZ, SDBZ, JFBZ) BEGIN IF START=39。139。 THENLCFY1=0000000000000000。 ELSIF JFBZ39。EVENT AND JFBZ=39。139。 THEN IF DDBZ=39。039。 THEN 行駛狀態 IF LCBZ=39。039。 THEN 2 km以內 LCFY1=0000000000000000。 ELSIF LCBZ=39。139。 THEN 2 km以上 IF SDBZ=39。039。 THEN LCFY1=LCFY1+SD1。 ELSIF SDBZ=39。139。 THEN LCFY1=LCFY1+SD2。 END IF。END IF。 END IF。 END IF。 END PROCESS。 LCFY=LCFY1。END ARCHITECTURE ART。 里程費用模塊的生成圖形符號5．等待計時模塊DDJS的VHDL源程序LIBRARY IEEE。USE 。USE 。USE 。ENTITY DDJS IS PORT(START, DDBZ: IN STD_LOGIC。 CLK1HZ: IN STD_LOGIC。 DDSJ: OUT STD_LOGIC_VECTOR(15 DOWNTO 0)。XDBZ: OUT STD_LOGIC)。END ENTITY DDJS。ARCHITECTURE ART OF DDJS IS SIGNAL MS,MG,FS, FG: STD_LOGIC_VECTOR(3 DOWNTO 0)。 SIGNAL XIDENG: STD_LOGIC。 BEGIN PROCESS(START, DDBZ, CLK1HZ) IS BEGIN IF START=39。139。 THENMS=0000。MG=0000。 FS=0000。FG=0000。 ELSIF CLK1HZ39。EVENT AND CLK1HZ=39。139。 THEN IF DDBZ=39。139。 THEN IF MG=9 THEN MG=0000。 IF MS=5 THEN MS=0000。 IF FG=9 THEN FG=0000。 IF FS=5 THEN XIDENG=39。139。FS=0000。 ELSEFS=FS+39。139。 分數十位計算 END IF。 ELSE FG=FG+39。139。 分數個位計算 END IF。 ELSE MS=MS+39。139。 秒數十位計算 END IF。 ELSE MG=MG+39。139。 秒數個位計算END IF。 END IF。 END IF。 END PROCESS。 XDBZ=XIDENG。 DDSJ(15 DOWNTO 12)=FS。 DDSJ(11 DOWNTO 8)=FG。 DDSJ(7 DOWNTO 4)=MS。 DDSJ(3 DOWNTO 0)=MG。END ARCHITECTURE ART。里程計算模塊的生成圖形符號6．等待計費模塊DDJF的VHDL源程序LIBRARY IEEE。USE 。USE 。USE 。ENTITY DDJF IS 每分鐘等待費用定義,單位為分 GENERIC(WDJ1: INTEGER:=20。 WDJ2: INTEGER:=33)。PORT(START, XDBZ, DDBZ, CLK1HZ: IN STD_LOGIC。 DDFY:OUT STD_LOGIC_VECTOR(15 DOWNTO 0))。END ENTITY DDJF。ARCHITECTURE ART OF DDJF IS SIGNAL DDFY1: STD_LOGIC_VECTOR(15 DOWNTO 0)。 SIGNAL CNT60: STD_LOGIC_VECTOR(7 DOWNTO 0)。 SIGNAL T60S: STD_LOGIC。 BEGIN 產生60 s周期性跳變信號進程PROCESS(CLK1HZ) IS BEGIN IF CLK1HZ39。EVENT AND CLK1HZ=39。139。 THEN IF CNT60=00111100 THEN CNT60=60 T60S=39。139。CNT60=00000000。 ELSE CNT60=CNT60+39。139。T60S=39。039。 END IF。 END IF。 END PROCESS 。 等待費用計算進程PROCESS(T60S,XDBZ,DDBZ) IS BEGIN IF START=39。139。 THEN DDFY1=0000000000000000。 ELSIF T60S39。EVENT AND T60S=39。139。 THEN IF DDBZ=39。139。 THEN IF XDBZ=39。039。 THEN 等待時間小于1小時 DDFY1=DDFY1+WDJ1。 ELSIF XDBZ=39。139。 THEN 等待時間大于1小時 DDFY1=DDFY1+WDJ2。END IF。 END IF。 END IF。 END PROCESS。 等待費用計算結果輸出 DDFY=DDFY1。END ARCHITECTURE ART。 等待費用模塊的生成圖形符號7．輸出數據選擇模塊SCXZ的VHDL源程序LIBRARY IEEE。USE 。USE 。ENTITY SCXZ IS PORT( SEL: IN STD_LOGIC_VECTOR(2 DOWNTO 0)。 XSLC: IN STD_LOGIC_VECTOR(15 DOWNTO 0)。LCFY: IN STD_LOGIC_VECTOR(15 DOWNTO 0)。 DDSJ: IN STD_LOGIC_VECTOR(15 DOWNTO 0)。 DDFY: IN STD_LOGIC_VECTOR(15 DOWNTO 0)。 DATA: OUT STD_LOGIC_VECTOR(7 DOWNTO 0))。END ENTITY SCXZ。ARCHITECTURE ART OF SCXZ IS BEGINDATA= DDSJ(7 DOWNTO 0) WHEN SEL=000 ELSE DDSJ(15 DOWNTO 8) WHEN SEL=001 ELSE LCFY(7 DOWNTO 0) WHEN SEL=010 ELSE LCFY(15 DOWNTO 8) WHEN SEL=011 ELSE DDFY(7 DOWNTO 0) WHEN SEL=100 ELSE DDFY(15 DOWNTO 8) WHEN SEL=101 ELSE XSLC(7 DOWNTO 0) WHEN SEL=110 ELSE XSLC(15 DOWNTO 8) WHEN SEL=111 ELSE 00000000。END ARCHITECTURE