【正文】 Money1=0。 Old_Money1=0。 if (Meter1K 2 )then Money1=Meter100。 Old_Money1=Money1。 if(Old_Money1=9 and Money1=0) then if(Money10=9) then Money10=0。 if(Money100=9) then Money100=0。 else Money100=Money100+1。 end if。 else Money10=Money10+1。 end if。 end if。 end if 。 end if。 end if。 else if(Meter1K1) then Money100=0。 Money10=8。 Money1=0。 Old_Money1=0。 else Money1=Meter100。 Old_Money1=Money1。 if(Old_Money1=9 and Money1=0) then if(Money10=8) then Money10=0。 if(Money100=9) then Money100=0。 else Money100=Money100+1。 end if。 else Money10=Money10+2。 end if。 end if。 end if。 if (Meter1K=3) then Money100=2。 Money10=2。 Money1=0。 Old_Money1=0。 if (Meter1K2) then Money1=Meter100。 Old_Money1=Money1。 if(Old_Money1=9 and Money1=0) then if(Money10=8 OR Money10=9) then Money10=0。 if(Money100=9) then Money100=0。 else Money100=Money100+1。 end if。 else Money10=Money10+2。 end if。 end if。 end if。 end if 。 end if 。 end if 。 end process。 process(clk) variable ttemp : INTEGER RANGE 0 TO 999999。 begin IF clk=39。139。 AND clk39。event THEN IF ttemp=999999 THEN ttemp:=0。 ELSE IF ttemp500000 THEN clk1hz=39。139。 ELSE clk1hz=39。039。 END IF。 ttemp:=ttemp+1。 END IF。 end if。 end process。 process(Clk1hz) begin if(Clk1hz39。event and Clk1hz=39。139。) then count=count+1。 if count6 then ena1=39。139。load1=39。039。clr1=39。039。 elsif count=6 then load1=39。139。ena1=39。039。clr1=39。039。 elsif count=7 then ena1=39。039。load1=39。039。clr1=39。139。 end if。 end if。 end process。 PROCESS(CLK,ENA1) ISBEGIN IF CLR1= 39。139。 THEN CQ1= 0000。 CQ2=0000。CQ3=0000。CQ4=0000。 elsif(Motor39。event and Motor=39。139。) then IF ENA1= 39。139。 THEN if(CQ1=1001) then CQ1=0000。 if(CQ2=9) then CQ2=0000。 if(CQ3=1001) then CQ3=0000。 if(CQ4=1001) then CQ4=0000。 else CQ4=CQ4+1。 end if。 else CQ3=CQ3+1。 end if。 else CQ2=CQ2+1。 end if。 else CQ1=CQ1+1。 end if。 end if。 END IF 。 CQA=(CQ4amp。CQ3amp。CQ2amp。CQ1)。 end process。 PROCESS ( LOAD1,CQA) ISBEGIN IF LOAD1=39。139。 THEN DOUT=CQA。 END IF。END PROCESS。process (clk)begin IN3=DOUT(15 DOWNTO 12)。 IN2=DOUT(11 DOWNTO 8)。 IN1=DOUT(7 DOWNTO 4)。 IN0=DOUT(3 DOWNTO 0)。end process。process(Clk) begin if(Clk39。event and Clk=39。139。) then SEG_SEL=SEG_SEL+1。 if (SEG_SEL=9) then SEG_SEL=000。 else Display=Disp_Decode。 end if。 end if。 end process。 process(SEG_SEL) begin if decide=39。139。 then case (SEG_SEL+1) is when 000=Disp_Temp=Meter1K。 when 001=Disp_Temp=Meter100。 when 010=Disp_Temp=Meter10。 when 011=Disp_Temp=Meter1。 when 100=Disp_Temp=10。 when 101=Disp_Temp=Money100。 when 110=Disp_Temp=Money10。 when 111=Disp_Temp=Money1。 end case。 case Disp_Temp is when 0=Disp_Decode=0111111。 when 1=Disp_Decode=0000110。 when 2=Disp_Decode=1011011。 when 3=Disp_Decode=1001111。 when 4=Disp_Decode=1100110。 when 5=Disp_Decode=1101101。 when 6=Disp_Decode=1111101。 when 7=Disp_Decode=0000111。 when 8=Disp_Decode=1111111。 when 9=Disp_Decode=1101111。 when 10=Disp_Decode=1000000。 when others=Disp_Decode=0000000。 end case。 elsif decide=39。039。 then case seg_sel is when 111=lout4=1111。 when 000=lout4=1111。 when 001=lout4=in2。 when 010=lout4=in1。 when 011=lout4=in0。 when 100=lout4=0000。 when 101=lout4=1111。 when 110=lout4=1111。 when others=lout4=XXXX。 end case。 case lout4 is when 0000=Disp_Decode=0111111。 when 0001=Disp_Decode=0000110。 when 0010=Disp_Decode=1011011。 when 0011=Disp_Decode=1001111。 when 0100=Disp_Decode=1100110。 when 0101=Disp_Decode=1101101。 when 0110=Disp_Decode=1111101。 when 0111=Disp_Decode=0000111。 when 1000=Disp_Decode=1111111。 when 1001=Disp_Decode=1101111。 when 1010=Disp_Decode=0111111。 when 1111=Disp_Decode=1000000。 when other