单片机直流电机VHDL源代码-全球贸易网

单片机直流电机VHDL源代码

2025年11月30日 08:49:31 来源：广州顶源电子科技股份有限公司 >> 进入该公司展台阅读量：5

直接粘贴就可以使用！

USE IEEE.Std_logic_1164.[**]LL;
USE IEEE.Std_logic_unsigned.[**]ll;
USE IEEE.Std_logic_arith.[**]ll;
ENTITY Dccount IS
Port (
Clk ： IN STD_LOGIC;
[**]I ： IN STD_LOGIC_VECTOR(3 DOWNTO 0);
CO ： Out STD_LOGIC_VECTOR(3 DOWNTO 0);
Pulse： IN STD_LOGIC;
Driver[**]，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;
[**]RCHITECTURE [**] OF Dccount IS
SIGN[**]L F： STD_LOGIC_VECTOR(5 Downto 0);
SIGN[**]L F_hz： STD_LOGIC;
SIGN[**]L OSC： STD_LOGIC;
SIGN[**]L OSC1： STD_LOGIC;
SIGN[**]L C： STD_LOGIC_VECTOR(3 DOWNTO 0);
SIGN[**]L [**]： STD_LOGIC_VECTOR(3 DOWNTO 0);
SIGN[**]L CODE： STD_LOGIC_VECTOR(2 DOWNTO 0);
SIGN[**]L Bcd:STD_LOGIC_VECTOR(23 Downto 0);
SIGN[**]L COUNT:STD_LOGIC_VECTOR(23 Downto 0);
SIGN[**]L SUM： STD_LOGIC_VECTOR(4 DOWNTO 0);
SIGN[**]L D： STD_LOGIC_VECTOR(3 DOWNTO 0)：=“0000”;
SIGN[**]L Ind_coil： STD_LOGIC_VECTOR(3 Downto 0) ：= “0001”;
SIGN[**]L Hz:STD_LOGIC;
SIGN[**]L Spo： STD_LOGIC;
SIGN[**]L SW:STD_LOGIC;
SIGN[**]L KEY:STD_LOGIC;
SIGN[**]L DR[**]，DRB:STD_LOGIC;
BEGIN
DRIVER[**]《=DR[**];
DRIVERB《=DRB;
P(5 Downto 0) 《= F(5 Downto 0);
CO(3 DOWNTO 0) 《=C(3 DOWNTO 0);
[**] (3 DOWNTO 0)《=[**]I(3 DOWNTO 0);
SP《=SPO;
-----------------Div------------------------
PROCESS(OSC)
V[**]RI[**]BLE D_ff： STD_LOGIC_VECTOR(20 Downto 0);
V[**]RI[**]BLE DEL[**]Y： STD_LOGIC_VECTOR(23 DOWNTO 0);
BEGIN
W[**]IT 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 DEL[**]Y》=500000 THEN
DEL[**]Y：=“000000000000000000000000”;HZ《=NOT Hz;
ELSE DEL[**]Y：=DEL[**]Y+1;
END IF;
END PROCESS ;
----------------------------------------------
PROCESS (F_HZ，OSC，OSC1，HZ，PULSE)
V[**]RI[**]BLE B： STD_LOGIC;
V[**]RI[**]BLE INT： STD_LOGIC;
V[**]RI[**]BLE Data： STD_LOGIC_VECTOR(3 DOWNTO 0);
V[**]RI[**]BLE UP： STD_LOGIC_VECTOR(2 DOWNTO 0);
V[**]RI[**]BLE ST:STD_LOGIC_VECTOR(2 DOWNTO 0);
V[**]RI[**]BLE Seq： STD_LOGIC_VECTOR(1 DOWNTO 0);
V[**]RI[**]BLE Sound： STD_LOGIC_VECTOR(1 DOWNTO 0);
V[**]RI[**]BLE STOP： STD_LOGIC;
V[**]RI[**]BLE DirecTIon： STD_LOGIC;
BEGIN
---------------7seg Scan-------------------------------
IF (F_HZ=‘’1‘’ [**]ND 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‘’ [**]nd OSC‘’EVENT) THEN
If [**]=“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 [**]=“1111” THEN INT：=‘’0‘’;
ELSE INT：=‘’1‘’;
END IF;
IF (HZ‘’EVENT [**]ND HZ=‘’1‘’) THEN
IF STOP=‘’1‘’ THEN UP：=UP+1;
ELSE UP：=“000”;
END IF;
END IF;
IF KEY=‘’1‘’ [**]ND COUNT/=0 THEN
IF DIRECTION=‘’0‘’ THEN DR[**]《=‘’1‘’;DRB《=‘’0‘’;STOP：=‘’0‘’;
ELSE DR[**]《=‘’0‘’;DRB《=‘’1‘’;STOP：=‘’0‘’;
END IF;
ELSIF KEY=‘’1‘’ [**]ND COUNT=0 THEN STOP：=‘’1‘’;
ELSIF STOP=‘’1‘’ [**]ND UP《“110” THEN DR[**]《=NOT DR[**] ;DRB《=NOT DRB;
ELSE DR[**]《=‘’0‘’;DRB《=‘’0‘’;STOP：=‘’0‘’;
END IF;
IF (OSC1‘’EVENT [**]ND OSC1=‘’1‘’) THEN B：=(INT [**]nd (B [**]nd INT) );
----------------Direction Choice-----------------------
IF SW=‘’0‘’ [**]ND B=‘’1‘’ [**]ND Data(3 DOWNTO 0)=“1010” THEN
BCD(23 DOWNTO 0)《=BCD(23 DOWNTO 0);B：=‘’0‘’;Direction：=‘’1‘’;
ELSIF SW=‘’0‘’ [**]ND B=‘’1‘’ [**]ND 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‘’ [**]ND Data(3 DOWNTO 0)=“1100” THEN
BCD《=BCD;B：=‘’0‘’;SW《=NOT SW;
-------------------B[**]CK-------------------------------
ELSIF SW=‘’0‘’ [**]ND B=‘’1‘’ [**]ND Data(3 DOWNTO 0)=“1101” THEN
BCD(23 DOWNTO 0)《=(“0000” & Bcd(23 Downto 4) );B：=‘’0‘’;
-------------------CLE[**]R---------------------------------
ELSIF B=‘’1‘’ [**]ND Data(3 DOWNTO 0)=“1110” THEN
BCD《=“000000000000000000000000” ;B：=‘’0‘’;SW《=‘’0‘’;
------------------DOWNCOUNT 0 ------------------------------------
ELSIF BCD=0 [**]ND KEY=‘’1‘’ THEN SW《=‘’0‘’;KEY《=‘’0‘’;BCD《=BCD;
------------------------------------------------------------------
ELSIF SW=‘’1‘’ [**]ND KEY=‘’1‘’ [**]ND D[**]T[**](3 DOWNTO 0)/=“1110” THEN BCD《=COUNT;
ELSIF SW=‘’1‘’ [**]ND D[**]T[**](3 DOWNTO 0)=“1110” THEN SW《=‘’0‘’;
BCD《=“000000000000000000000000”;KEY《=‘’0‘’;
-------------------ENTER------------------------------
ELSIF SW=‘’0‘’ [**]ND B=‘’1‘’ [**]ND Data(3 DOWNTO 0)=“1111” [**]ND BCD/=0 THEN
B：=‘’0‘’;SW《=‘’1‘’;KEY《=‘’1‘’;
ELSIF SW=‘’0‘’ [**]ND B=‘’1‘’ [**]ND Data(3 DOWNTO 0)=“1111” [**]ND BCD=0 THEN
BCD《=BCD;B：=‘’0‘’;SW《=‘’0‘’;KEY《=‘’0‘’;
----------------------NUMBER SHIFT---------------------------
ELSIF SW=‘’0‘’ [**]ND B=‘’1‘’ THEN Bcd(23 Downto 0)《= Bcd(19 Downto 0) & D[**]T[**](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 [**]nd Osc=‘’1‘’) Then
If INT=‘’1‘’ [**]ND 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‘’ [**]nd PULSE‘’EVENT) THEN
IF KEY=‘’1‘’ [**]ND COUNT/=0 THEN
----------------------------1---------------------------------------------------
IF COUNT(3 DOWNTO 0)= 0 [**]ND 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 [**]ND COUNT(23 DOWNTO 8)》=1 [**]ND COUNT(3 DOWNTO 0)=0 THEN
COUNT(7 DOWNTO 4) 《= “1001” ;
ELSIF COUNT(3 DOWNTO 0)=0 [**]ND COUNT(23 DOWNTO 4)》=1 THEN
COUNT(7 DOWNTO 4) 《=COUNT(7 DOWNTO 4 )-1;
END IF;
----------------------------3-------------------------------------------------------
IF COUNT(11 DOWNTO 8)= 0 [**]ND COUNT(23 DOWNTO 12)》=1 [**]ND COUNT(7 DOWNTO 0)=0 THEN
COUNT(11 DOWNTO 8) 《=“1001”;
ELSIF COUNT(7 DOWNTO 0)=0 [**]ND COUNT(23 DOWNTO 8)》=1 THEN
COUNT(11 DOWNTO 8) 《=COUNT(11 DOWNTO 8 )-1;
END IF;
---------------------------4--------------------------------------------------------------
IF COUNT(15 DOWNTO 12)= 0 [**]ND COUNT(23 DOWNTO 16)》=1 [**]ND COUNT(11 DOWNTO 0)=0 THEN
COUNT(15 DOWNTO 12) 《=“1001”;
ELSIF COUNT(11 DOWNTO 8)=0 [**]ND COUNT(23 DOWNTO 12)》=1 [**]ND COUNT(7 DOWNTO 0)=0 THEN
COUNT(15 DOWNTO 12) 《=COUNT(15 DOWNTO 12 )-1;
END IF;
-------------------------5------------------------------------------------------------
IF COUNT(19 DOWNTO 16)= 0 [**]ND COUNT(23 DOWNTO 20)》=1 [**]ND COUNT(15 DOWNTO 0)=0 THEN
COUNT(19 DOWNTO 16) 《=“1001”;
ELSIF COUNT(15 DOWNTO 12)=0 [**]ND COUNT(23 DOWNTO 16)》=1 [**]ND 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 [**]ND COUNT(23 DOWNTO 20 )》=1 [**]ND 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---------------------------
C[**]SESTIS --?@顶源电子
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 C[**]SE;
------------------Key Scan-------------------------
C[**]SE [**](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------------------------
C[**]SE 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

上一篇：公司的WX4500线缆认证分析仪无法开机故障处理

下一篇：电子吊称死机时应当如何自主检查？

版权与免责声明：
1.凡本网注明"来源：全球贸易网"的所有作品，版权均属于全球贸易网，转载请必须注明全球贸易网。违反者本网将追究相关法律责任。
2.企业发布的公司新闻、技术文章、资料下载等内容，如涉及侵权、违规遭投诉的，一律由发布企业自行承担责任，本网有权删除内容并追溯责任。
3.本网转载并注明自其它来源的作品，目的在于传递更多信息，并不代表本网赞同其观点或证实其内容的真实性，不承担此类作品侵权行为的直接责任及连带责任。其他媒体、网站或个人从本网转载时，必须保留本网注明的作品来源，并自负版权等法律责任。 4.如涉及作品内容、版权等问题，请在作品发表之日起一周内与本网联系。