LIBRARY IEEE;

USE IEEE.Std_logic_1164.ALL;

USE IEEE.Std_logic_unsigned.All;

USE IEEE.Std_logic_arith.All;

ENTITY Dccount IS

Port （

Clk ： IN STD_LOGIC;

AI ： IN STD_LOGIC_VECTOR（3 DOWNTO 0）;

CO ： Out STD_LOGIC_VECTOR（3 DOWNTO 0）;

Pulse： IN STD_LOGIC;

DriverA，DriverB： OUT STD_LOGIC;

S ： OUT STD_LOGIC_VECTOR（6 DOWNTO 0）;

P ： OUT STD_LOGIC_VECTOR（5 DOWNTO 0）;

Sp ： Out STD_LOGIC）;

END Dccount;

ARCHITECTURE A OF Dccount IS

SIGNAL F： STD_LOGIC_VECTOR（5 Downto 0）;

SIGNAL F_hz： STD_LOGIC;

SIGNAL OSC： STD_LOGIC;

SIGNAL OSC1： STD_LOGIC;

SIGNAL C： STD_LOGIC_VECTOR（3 DOWNTO 0）;

SIGNAL A： STD_LOGIC_VECTOR（3 DOWNTO 0）;

SIGNAL CODE： STD_LOGIC_VECTOR（2 DOWNTO 0）;

SIGNAL Bcd:STD_LOGIC_VECTOR（23 Downto 0）;

SIGNAL COUNT:STD_LOGIC_VECTOR（23 Downto 0）;

SIGNAL SUM： STD_LOGIC_VECTOR（4 DOWNTO 0）;

SIGNAL D： STD_LOGIC_VECTOR（3 DOWNTO 0）：=“0000”;

SIGNAL Ind_coil： STD_LOGIC_VECTOR（3 Downto 0） ：= “0001”;

SIGNAL Hz:STD_LOGIC;

SIGNAL Spo： STD_LOGIC;

SIGNAL SW:STD_LOGIC;

SIGNAL KEY:STD_LOGIC;

SIGNAL DRA，DRB:STD_LOGIC;

BEGIN

DRIVERA《=DRA;

DRIVERB《=DRB;

P（5 Downto 0） 《= F（5 Downto 0）;

CO（3 DOWNTO 0） 《=C（3 DOWNTO 0）;

A （3 DOWNTO 0）《=AI（3 DOWNTO 0）;

SP《=SPO;

-----------------Div------------------------

PROCESS（OSC）

VARIABLE D_ff： STD_LOGIC_VECTOR（20 Downto 0）;

VARIABLE DELAY： STD_LOGIC_VECTOR（23 DOWNTO 0）;

BEGIN

WAIT UNTIL Clk = ‘’1‘’;

IF D_ff（20 Downto 0） 》= 2E6 THEN

D_ff（20 Downto 0） ：= “000000000000000000000”;

ELSE

D_ff（20 Downto 0） ：= D_ff + 1;

END IF;

F_hz 《= Not D_ff（6）;

OSC 《= Not D_ff（10）;

OSC1 《= Not D_ff（17）;

IF DELAY》=500000 THEN

DELAY：=“000000000000000000000000”;HZ《=NOT Hz;

ELSE DELAY：=DELAY+1;

END IF;

END PROCESS ;

----------------------------------------------

PROCESS （F_HZ，OSC，OSC1，HZ，PULSE）

VARIABLE B： STD_LOGIC;

VARIABLE INT： STD_LOGIC;

VARIABLE Data： STD_LOGIC_VECTOR（3 DOWNTO 0）;

VARIABLE UP： STD_LOGIC_VECTOR（2 DOWNTO 0）;

VARIABLE ST:STD_LOGIC_VECTOR（2 DOWNTO 0）;

VARIABLE Seq： STD_LOGIC_VECTOR（1 DOWNTO 0）;

VARIABLE Sound： STD_LOGIC_VECTOR（1 DOWNTO 0）;

VARIABLE STOP： STD_LOGIC;

VARIABLE Direction： STD_LOGIC;

BEGIN

---------------7seg Scan-------------------------------

IF （F_HZ=‘’1‘’ AND F_HZ‘’EVENT） THEN

IF ST（2 DOWNTO 0）= “101” THEN

ST（2 DOWNTO 0）：=“000” ;

ELSE ST（2 DOWNTO 0）：=ST（2 DOWNTO 0）+1;

END IF;

END IF;

-----------------------------------------------

IF （OSC = ‘’1‘’ And OSC‘’EVENT） THEN

If A=“1111” Then

IF Seq=“11” Then Seq：=“00” ;

Else Seq：=Seq+1;

End If;

Else Seq：=Seq;

End If;

IF Seq=“00” Then C（3 DOWNTO 0）《=“1110” ;

Elsif Seq=“01” Then C（3 DOWNTO 0）《=“1101” ;

Elsif Seq=“10” Then C（3 DOWNTO 0）《=“1011” ;

Elsif Seq=“11” Then C（3 DOWNTO 0）《=“0111” ;

End If;

End If;

IF A=“1111” THEN INT：=‘’0‘’;

ELSE INT：=‘’1‘’;

END IF;

IF （HZ‘’EVENT AND HZ=‘’1‘’） THEN

IF STOP=‘’1‘’ THEN UP：=UP+1;

ELSE UP：=“000”;

END IF;

END IF;

IF KEY=‘’1‘’ AND COUNT/=0 THEN

IF DIRECTION=‘’0‘’ THEN DRA《=‘’1‘’;DRB《=‘’0‘’;STOP：=‘’0‘’;

ELSE DRA《=‘’0‘’;DRB《=‘’1‘’;STOP：=‘’0‘’;

END IF;

ELSIF KEY=‘’1‘’ AND COUNT=0 THEN STOP：=‘’1‘’;

ELSIF STOP=‘’1‘’ AND UP《“110” THEN DRA《=NOT DRA ;DRB《=NOT DRB;

ELSE DRA《=‘’0‘’;DRB《=‘’0‘’;STOP：=‘’0‘’;

END IF;

IF （OSC1‘’EVENT AND OSC1=‘’1‘’） THEN B：=（INT And （B And INT） ）;

----------------Direction Choice-----------------------

IF SW=‘’0‘’ AND B=‘’1‘’ AND Data（3 DOWNTO 0）=“1010” THEN

BCD（23 DOWNTO 0）《=BCD（23 DOWNTO 0）;B：=‘’0‘’;Direction：=‘’1‘’;

ELSIF SW=‘’0‘’ AND B=‘’1‘’ AND Data（3 DOWNTO 0）=“1011” THEN

BCD（23 DOWNTO 0）《=BCD（23 DOWNTO 0）;B：=‘’0‘’;Direction：=‘’0‘’;

------------------KEY LOCK ON/OFF------------------------------------

ELSIF B=‘’1‘’ AND Data（3 DOWNTO 0）=“1100” THEN

BCD《=BCD;B：=‘’0‘’;SW《=NOT SW;

-------------------BACK-------------------------------

ELSIF SW=‘’0‘’ AND B=‘’1‘’ AND Data（3 DOWNTO 0）=“1101” THEN

BCD（23 DOWNTO 0）《=（“0000” & Bcd（23 Downto 4） ）;B：=‘’0‘’;

-------------------CLEAR---------------------------------

ELSIF B=‘’1‘’ AND Data（3 DOWNTO 0）=“1110” THEN

BCD《=“000000000000000000000000” ;B：=‘’0‘’;SW《=‘’0‘’;

------------------DOWNCOUNT 0 ------------------------------------

ELSIF BCD=0 AND KEY=‘’1‘’ THEN SW《=‘’0‘’;KEY《=‘’0‘’;BCD《=BCD;

------------------------------------------------------------------

ELSIF SW=‘’1‘’ AND KEY=‘’1‘’ AND DATA（3 DOWNTO 0）/=“1110” THEN BCD《=COUNT;

ELSIF SW=‘’1‘’ AND DATA（3 DOWNTO 0）=“1110” THEN SW《=‘’0‘’;

BCD《=“000000000000000000000000”;KEY《=‘’0‘’;

-------------------ENTER------------------------------

ELSIF SW=‘’0‘’ AND B=‘’1‘’ AND Data（3 DOWNTO 0）=“1111” AND BCD/=0 THEN

B：=‘’0‘’;SW《=‘’1‘’;KEY《=‘’1‘’;

ELSIF SW=‘’0‘’ AND B=‘’1‘’ AND Data（3 DOWNTO 0）=“1111” AND BCD=0 THEN

BCD《=BCD;B：=‘’0‘’;SW《=‘’0‘’;KEY《=‘’0‘’;

----------------------NUMBER SHIFT---------------------------

ELSIF SW=‘’0‘’ AND B=‘’1‘’ THEN Bcd（23 Downto 0）《= Bcd（19 Downto 0） & DATA（3 DOWNTO 0）;B：=‘’0‘’;

Elsif INT=‘’0‘’ Then Bcd《=Bcd;

B：=‘’1‘’;

END IF;

END IF;

------------------------------------------------------

SUM（1 DOWNTO 0）《= Seq;

Sum（4 Downto 2）《=Code;

---------------------SOUND-----------------------------

If （Osc‘’Event And Osc=‘’1‘’） Then

If INT=‘’1‘’ AND SW=‘’0‘’ Then Sound：=Sound+1;Spo《=Sound（1） ;

Else Spo《=‘’0‘’;

End If;

End If;

-------------------------------------------------------

---------------------------DOWNCOUNT--------------------

IF SW=‘’0‘’ THEN COUNT《=BCD;

ELSE

If （PULSE = ‘’1‘’ And PULSE‘’EVENT） THEN

IF KEY=‘’1‘’ AND COUNT/=0 THEN

----------------------------1---------------------------------------------------

IF COUNT（3 DOWNTO 0）= 0 AND COUNT（23 DOWNTO 4）》=1 THEN

COUNT（3 DOWNTO 0） 《=“1001” ;

ELSE COUNT（3 DOWNTO 0） 《= COUNT（3 DOWNTO 0）-1;

END IF;

----------------------------2---------------------------------------------------------

IF COUNT（7 DOWNTO 4）= 0 AND COUNT（23 DOWNTO 8）》=1 AND COUNT（3 DOWNTO 0）=0 THEN

COUNT（7 DOWNTO 4） 《= “1001” ;

ELSIF COUNT（3 DOWNTO 0）=0 AND COUNT（23 DOWNTO 4）》=1 THEN

COUNT（7 DOWNTO 4） 《=COUNT（7 DOWNTO 4 ）-1;

END IF;

----------------------------3-------------------------------------------------------

IF COUNT（11 DOWNTO 8）= 0 AND COUNT（23 DOWNTO 12）》=1 AND COUNT（7 DOWNTO 0）=0 THEN

COUNT（11 DOWNTO 8） 《=“1001”;

ELSIF COUNT（7 DOWNTO 0）=0 AND COUNT（23 DOWNTO 8）》=1 THEN

COUNT（11 DOWNTO 8） 《=COUNT（11 DOWNTO 8 ）-1;

END IF;

---------------------------4--------------------------------------------------------------

IF COUNT（15 DOWNTO 12）= 0 AND COUNT（23 DOWNTO 16）》=1 AND COUNT（11 DOWNTO 0）=0 THEN

COUNT（15 DOWNTO 12） 《=“1001”;

ELSIF COUNT（11 DOWNTO 8）=0 AND COUNT（23 DOWNTO 12）》=1 AND COUNT（7 DOWNTO 0）=0 THEN

COUNT（15 DOWNTO 12） 《=COUNT（15 DOWNTO 12 ）-1;

END IF;

-------------------------5------------------------------------------------------------

IF COUNT（19 DOWNTO 16）= 0 AND COUNT（23 DOWNTO 20）》=1 AND COUNT（15 DOWNTO 0）=0 THEN

COUNT（19 DOWNTO 16） 《=“1001”;

ELSIF COUNT（15 DOWNTO 12）=0 AND COUNT（23 DOWNTO 16）》=1 AND COUNT（11 DOWNTO 0）=0 THEN

COUNT（19 DOWNTO 16） 《=COUNT（19 DOWNTO 16 ）-1;

END IF;

-------------------------6-------------------------------------------------

IF COUNT（23 DOWNTO 20）= 0 THEN

COUNT（23 DOWNTO 20） 《=“0000”;

ELSIF COUNT（19 DOWNTO 16）=0 AND COUNT（23 DOWNTO 20 ）》=1 AND COUNT（15 DOWNTO 0）=0 THEN

COUNT（23 DOWNTO 20） 《=COUNT（23 DOWNTO 20 ）-1;

END IF;

END IF;

END IF;

END IF;

------------------7seg Scan---------------------------

CASE ST IS --？@潮

WHEN “000”=》 D（3 DOWNTO 0） 《= Bcd（3 DOWNTO 0） ; F（5 Downto 0）《=“111110”;

WHEN “001”=》 D（3 DOWNTO 0） 《= Bcd（7 DOWNTO 4） ; F（5 Downto 0）《=“111101”;

WHEN “010”=》 D（3 DOWNTO 0） 《= Bcd（11 DOWNTO 8） ; F（5 Downto 0）《=“111011”;

WHEN “011”=》 D（3 DOWNTO 0） 《= Bcd（15 DOWNTO 12） ; F（5 Downto 0）《=“110111”;

WHEN “100”=》 D（3 DOWNTO 0） 《= Bcd（19 DOWNTO 16） ; F（5 Downto 0）《=“101111”;

WHEN “101”=》 D（3 DOWNTO 0） 《= Bcd（23 DOWNTO 20） ; F（5 Downto 0）《=“011111”;

WHEN OTHERS =》 D（3 DOWNTO 0） 《= “1100” ; F（5 Downto 0）《=“111111”;

END CASE;

------------------Key Scan-------------------------

CASE A（3 DOWNTO 0） IS

WHEN“1110” =》 CODE《=“100”;

WHEN“1101” =》 CODE《=“101”;

WHEN“1011” =》 CODE《=“110”;

WHEN“0111” =》 CODE《=“111”;

WHEN OTHERS =》 CODE《=“000”;

End Case;

---------------------Key Table------------------------

CASE SUM（4 DOWNTO 0） IS

WHEN“10000”=》 Data：=“0001”;--0

WHEN“10001”=》 Data：=“0101”;--1

WHEN“10010”=》 Data：=“1001”;--2

WHEN“10011”=》 Data：=“1100”;--3