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
