【正文】
end。end if。end if。end if。end if。end if。end if。end if。end if。if ys1s=50000000 thenys1s=0。139。end process。in7=not in7。count_6=count_6+1。processbeginwait until in50m=39。end if。if count_5=56818 thencount_5=0。139。end process。in5=not in5。count_4=count_4+1。processbeginwait until in50m=39。end if。if count_3=71633 thencount_3=0。139。end process。in3=not in3。count_2=count_2+1。processbeginwait until in50m=39。end if。if count_1=85034 thencount_1=0。139。end process。in1=not in1。count=count+1。beginprocessbeginwait until in50m=39。signal ys1s:integer range 0 to 50000000。signal count_5:integer range 0 to 25000000。signal count_3:integer range 0 to 25000000。signal count_1:integer range 0 to 25000000。signal in7:std_logic。signal in5:std_logic。signal in3:std_logic。architecture gg of ypyy issignal in1:std_logic。 a:out std_logic)。use 。end。end if。if jia1=0 thena=in1。jia1=jia1+1。ys1s=ys1s+1。processbegin wait until in50m=39。end if。if count_1=63775 thencount_1=0。139。end process。in1=not in1。count=count+1。beginprocessbeginwait until in50m=39。signal ys1s:integer range 0 to 50000000。signal count:integer range 0 to 25000000。architecture gg of ypyy issignal in1:std_logic。 a:out std_logic)。use 。END。end process。in1=not in1。count=count+1。beginprocessbeginwait until in50m=39。architecture gg of ypyy issignal in1:std_logic。 a:out std_logic)。use 。end。with bb1 selectb1=1111110 when 0, 0110000 when 1, 1101101 when 2, 1111001 when 3, 0110011 when 4, 1011011 when 5, 1011111 when 6, 1110000 when 7, 1111111 when 8, 1111011 when 9, 0000000 when others。with ss1 selects1=1111110 when 0, 0110000 when 1, 1101101 when 2, 1111001 when 3, 0110011 when 4, 1011011 when 5, 1011111 when 6, 1110000 when 7, 1111111 when 8, 1111011 when 9, 0000000 when others。with gg1 selectg1=1111110 when 0, 0110000 when 1, 1101101 when 2, 1111001 when 3, 0110011 when 4, 1011011 when 5, 1011111 when 6, 1110000 when 7, 1111111 when 8, 1111011 when 9, 0000000 when others。end if。end if。 end if。if bb1=3 and bb2=2 thenbb1=0。 bb2=bb2+1。bb1=bb1+1。ss2=ss2+1。ss1=ss1+1。gg2=gg2+1。gg1=gg1+1。processbeginwait until one_s=39。 end case。 a=b2。