【正文】 ,mr,br,hold,countnum) begin IF hold=39。139。 then R=39。139。 R1=39。139。 G=39。039。 G1=39。039。 Y=39。039。 Y1=39。039。 ELSIF rising_edge(Clock) THEN IF (not br)=39。139。 THEN R=39。039。 R1=39。139。 G=39。139。 G1=39。039。 Y=39。039。 Y1=39。039。 NumA=0。NumB=0。 ELSIF (br and not mr)=39。139。 THEN IF CountNum=38 THEN NumA=39CountNum。 R=39。139。 G=39。039。 Y=39。039。 ELSIF CountNum=73 THEN NumA=74CountNum。 R=39。039。 G=39。139。 Y=39。039。 ELSE NumA=78CountNum。 R=39。039。 G=39。039。 Y=39。139。 END IF。 IF CountNum=34 THEN NumB=35CountNum。 R1=39。039。 G1=39。139。 Y1=39。039。 ELSIF CountNum=38 THEN NumB=39CountNum。 R1=39。039。 G1=39。039。 Y1=39。139。 ELSE NumB=78CountNum。 R1=39。139。 G1=39。039。 Y1=39。039。 END IF。 ELSE IF CountNum=34 THEN NumA=35CountNum。 R=39。039。 G=39。139。 Y=39。039。 ELSIF CountNum=38 THEN NumA=39CountNum。 R=39。039。 G=39。039。 Y=39。139。 ELSE NumA=78CountNum。 R=39。139。 G=39。039。 Y=39。039。 END IF。 IF CountNum=38 THEN NumB=39CountNum。 R1=39。139。 G1=39。039。 Y1=39。039。 ELSIF CountNum=73 THEN NumB=74CountNum。 R1=39。039。 G1=39。139。 Y1=39。039。 ELSE NumB=78CountNum。 R1=39。039。 G1=39。039。 Y1=39。139。 END IF。 END IF。 END IF。END PROCESS p2。：p3:process(NumA) begin if NumA=30 then zhuganH=3。 zhuganL=NumA30。 elsif NumA=20 then zhuganH=2。 zhuganL=NumA20。 elsif NumA=10 then zhuganH=1。 zhuganL=NumA10。 else zhuganH=0。 zhuganL=NumA。 end if。 end process p3。p4:process(NumB) begin if NumB=30 then zhidaoH=3。 zhidaoL=NumB30。 elsif NumB=20 then zhidaoH=2。 zhidaoL=NumB20。 elsif NumB=10 then zhidaoH=1。 zhidaoL=NumB10。 else zhidaoH=0。 zhidaoL=NumB。 end if。 end process p4