直流電機(jī)VHDL源代碼
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
下載文檔
