Run/BCD_Distance.vhd at main · skwcrd/Run · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
Library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;

Entity BCD_Distance is
Port(
	CLK,Rstb : in std_logic;
	i1s : in std_logic;
	iPush,stop : in std_logic;
	oDigit1,oDigit2,oDigit3,oDigit4 : out std_logic_vector(3 downto 0)
);
End BCD_Distance;

Architecture Behavioral of BCD_Distance is
	constant speed : integer  := 13889;
	signal rCnt : integer := 0;
	signal wDigit1,wDigit2,wDigit3,wDigit4 : std_logic_vector(3 downto 0);
	signal wPush : std_logic := '0';
Begin

	oDigit1 <= wDigit1;
	oDigit2 <= wDigit2;
	oDigit3 <= wDigit3;
	oDigit4 <= wDigit4;

	u_Push : Process(CLK,Rstb)
	Begin
		if(Rstb='0') then
			wPush <= '0';
		elsif(rising_edge(CLK)) then
			if(stop='1') then
				wPush <= '0';
			elsif(iPush='1') then
				wPush <= not wPush;
			elsif(wDigit1=9 and wDigit2=9 and wDigit3=9 and wDigit4=9) then
				wPush <= '0';
			else
				wPush <= wPush;
			end if;
		end if;
	end Process;

	u_Time : Process(CLK,Rstb,wPush)
	Begin
		if(Rstb='0') then
			wDigit1 <= (others => '0');
			wDigit2 <= (others => '0');
			wDigit3 <= (others => '0');
			wDigit4 <= (others => '0');
			rCnt <= 0;
		elsif(rising_edge(CLK) and wPush='1') then

			---------- Digit1 ----------
			if(i1s='1' and wDigit1=9) then
				wDigit1 <= wDigit1;
			elsif(i1s='1' and wDigit2=9 and wDigit3=9 and wDigit4=9 and rCnt>=90000) then
				wDigit1 <= wDigit1 + 1;
			else
				wDigit1 <= wDigit1;
			end if;

			---------- Digit2 ----------
			if(i1s='1' and wDigit1=9 and wDigit2=9) then
				wDigit2 <= wDigit2;
			elsif(i1s='1' and wDigit2=9 and wDigit3=9 and wDigit4=9 and rCnt>=90000) then
				wDigit2 <= (others => '0');
			elsif(i1s='1' and wDigit3=9 and wDigit4=9 and rCnt>=90000) then
				wDigit2 <= wDigit2 + 1;
			else
				wDigit2 <= wDigit2;
			end if;

			---------- Digit3 ----------
			if(i1s='1' and wDigit1=9 and wDigit2=9 and wDigit3=90000) then
				wDigit3 <= wDigit3;
			elsif(i1s='1' and wDigit3=9 and wDigit4=9 and rCnt>=90000) then
				wDigit3 <= (others => '0');
			elsif(i1s='1' and wDigit4=9 and rCnt>=90000) then
				wDigit3 <= wDigit3 + 1;
			else
				wDigit3 <= wDigit3;
			end if;

			---------- Digit4 ----------
			if(i1s='1' and wDigit1=9 and wDigit2=9 and wDigit3=9 and wDigit4=90000) then
				wDigit4 <= wDigit4;
			elsif(i1s='1' and wDigit4=9 and rCnt>=90000) then
				wDigit4 <= (others => '0');
			elsif(i1s='1' and rCnt>=90000) then
				wDigit4 <= wDigit4 + 1;
			else
				wDigit4 <= wDigit4;
			end if;

			---------- Count ----------
			if(i1s='1' and rCnt>=90000) then
				rCnt <= rCnt + speed - 100000;
			elsif(i1s='1') then
				rCnt <= rCnt + speed;
			else
				rCnt <= rCnt;
			end if;
		else
			wDigit1 <= wDigit1;
			wDigit2 <= wDigit2;
			wDigit3 <= wDigit3;
			wDigit4 <= wDigit4;
			rCnt <= rCnt;
		end if;
	end Process;

End Behavioral;