【正文】 若有start=‘1’，則 IF temp1=(mode1) then 若temp=（mode1），則 temp1=(OTHERS=39。039。)。 temp1=“000000” ELSE 否則 temp1=temp1+39。139。 加1計數 END IF。 IF temp2=(mode2) then temp2=(OTHERS=39。039。)。 ELSE temp2=temp2+39。139。 END IF。 END IF。 END IF。END PROCESS。oclk1=39。139。 WHEN (temp1=mode1)ELSE39。039。 當temp1=mode1時oclk=’1’,否則=0oclk2=39。139。 WHEN (temp2=mode2)ELSE39。039。END behave。LIBRARY ieee。USE 。USE 。USE 。ENTITY cdu99 ISPORT (clk,reset :IN std_logic。 clk10m輸入脈沖，reset復位 count1:OUT std_logic_vector(3 downto 0)。 里程數值的百分位 count2:OUT std_logic_vector(3 downto 0)。里程數值的十分位 count3:OUT std_logic_vector(3 downto 0)。里程數值的個位 count4:OUT std_logic_vector(3 downto 0))。里程數值的十位END cdu99。ARCHITECTURE aa OF cdu99 ISBEGINPROCESS(clk,reset) VARIABLE mm :std_logic_vector(15 downto 0)。BEGINIF reset=39。139。 THEN 復位時，顯示為0 mm:=0000000000000000。 ELSIF clk39。event and clk=39。139。 THEN IF mm(3 downto 0)=1001 THEN 十六進制轉換成十進制 mm:=mm+7。ELSE mm:=mm+1。END IF。 IF mm(7 downto 4)=1010 THEN mm:=mm+01100000。 END IF。 IF mm(11 downto 8)=1010 THEN mm:=mm+011000000000。 END IF。 END IF。 count1=mm(3 downto 0)。 count2=mm(7 downto 4)。 count3=mm(11 downto 8)。 count4=mm(15 downto 12)。END PROCESS。END aa。LIBRARY ieee。USE 。USE 。USE 。ENTITY count99 ISPORT (clk,reset,night :IN std_logic。 clk 100m輸入脈沖，reset復位，night夜間行駛輸入 judge2 :IN std_logic_vector(3 downto 0)。 里程個位 judge3 :IN std_logic_vector(3 downto 0)。 里程十位 count1 :OUT std_logic_vector(3 downto 0)。計費百分位 count2 :OUT std_logic_vector(3 downto 0)。 計費十分位 count3 :OUT std_logic_vector(3 downto 0)。 計費個位 count4 :OUT std_logic_vector(3 downto 0))。 計費十位END count99。ARCHITECTURE aa OF count99 IS SIGNAL en : std_logic。SIGNAL money : std_logic_vector(7 downto 0)。SIGNAL mcount: std_logic_vector(15 downto 0)。BEGIN money=00111000 WHEN (((mcount(15)=39。139。)or(mcount(14)=39。139。)or (mcount(13)=39。139。))and(night=39。139。)) ELSE 夜間行駛且費用超過20， 00101001 WHEN ((mcount(15)=39。139。)or(mcount(14)=39。139。)or(mcount(13)=39。139。)or(night=39。139。)) ELSE 費用超過20或者夜間行駛， 00011001。 計費20以內，en=39。039。WHEN judge3=0000 and judge2(3 downto 1)=000 ELSE39。139。里程超過2公里，接受100m輸入脈沖驅動PROCESS(clk,reset) VARIABLE mm: std_logic_vector(15 downto 0)。BEGIN IF reset=39。139。THEN mm:=0000011000000000。 復位， ELSIF clk39。event and clk=39。139。 THEN IF en=39。139。 THEN mm:=mm+money。 里程超過2公里 IF (mm(1)=39。139。or(mm(3 downto 1)=000)or(mm(3 downto 2)=11))THEN mm:=mm+6。END IF。 十六進制轉換成十進制 IF mm(7)=39。139。and (not(mm(6 downto 5)=00))THEN mm:=mm+01100000。END IF。 IF mm(11)=39。139。and(not(mm(10 downto 9)=00))THEN mm:=mm+011000000000。END IF。 END IF。END IF。 count1=mm(3 downto 0)。count2=mm(7 downto 4)。count3=mm(11 downto 8)。count4=mm(15 downto 12)。mcount=mm。END PROCESS。END aa。LIBRARY ieee。USE 。USE 。ENTITY scan ISPORT( clk :IN std_logic。 p8 :IN std_logic_vector(3 downto 0)。 p7 :IN std_logic_vector(3 downto 0)。 p6 :IN std_logic_vector(3 downto 0)。 p5 :IN std_logic_vector(3 downto 0)。 p4 :IN std_logic_vector(3 downto 0)。 p3 :IN std_logic_vector(3 downto 0)。 p2 :IN std_logic_vector(3 downto 0)。 p1 :IN std_logic_vector(3 downto 0)。 choice :OUT std_logic_vector(7 downto 0)。 顯示位置選擇 data :OUT std_logic_vector(7 downto 0))。 當前位置數值END scan。ARCHITECTURE a OF scan IS SIGNAL count : std_logic_vector(2 downto 0)。 SIGNAL temp : std_logic_vector(3 downto 0)。 SIGNAL choicein,datain : std_logic_vector(7 downto 0)。BEGIN clk1_label:PROCESS(clk) BEGIN IF clk39。event and clk=39。139。 THEN 計數周期為8，即掃描周期 count=count+1。 END IF。 END PROCESS clk1_label。clk2_label: PROCESS(clk) BEGIN IF clk39。event and clk=39。039。 THEN choice=choicein。 data(7 downto 1)=datain(7 downto 1)。 IF(count=0110 or count=0010)THEN data(0)=39。139。 ELSE data(0)=39。039。 END IF。 END IF。 END PROCESS clk2_label。choicein=00000001 WHEN count=000 ELSE 顯示位置的切換 00000010 WHEN count=001 ELSE 00000100 WHEN count=010 ELSE 00001000 WHEN count=011 ELSE 00010000 WHEN count=100 ELSE 00100000 WHEN count=101 ELSE 01000000 WHEN count=110 ELSE 10000000 。temp=p1 WHEN count=000 ELSE 顯示數值的選擇 p2 WHEN count=001 ELSE p3 WHEN count=010 ELSE p4 WHEN count=011 ELSE p5 WHEN count=100 ELSE p6 WHEN count=101 ELSE p7 WHEN count=110 ELSE p8 。 WITH temp SELECT datain=11111100 WHEN 0000 , 計數轉換成相應的數碼顯示信號 01100000 WHEN 0001 , 11011010 WHEN 0010 , 11110010 WHEN 0011 , 01100110 WHEN 0100 , 10110110 WHEN 0101 , 10111110 WHEN 0110 , 11100000 WHEN 0111 , 11111110 WHEN 1000 , 11110110 WHEN 1001 , 11101110 WHEN 1010 , 00111110 WHEN 1011 , 10011100 WHEN 1100 , 01111010 WHEN 1101 , 10011110 WHEN 1110 , 10001110 WHEN OTHERS。END a。