开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 嵌入式/单片机编程 > VHDL/FPGA/Verilog > 查看源码
直流电机控制器.vhd
资源名称：VHDL 的实例程序，共44个.rar　[点击查看]
上传用户：easylife05
上传日期：2013-03-21
资源大小：42k
文件大小：10k
源码类别：

VHDL/FPGA/Verilog

开发平台：

C/C++

直流电机控制器.vhd：源码内容
  1. -- Download from: www.pld.com.cn & www.fpga.com.cn
  4. LIBRARY IEEE;
  5. USE IEEE.std_logic_1164.ALL;
  6. USE IEEE.std_logic_unsigned.all;
  7. USE IEEE.std_logic_arith.all;
  9. ENTITY dccount IS
  10. port ( 
  11.              clk : IN STD_LOGIC;
  12.               AI : IN STD_LOGIC_VECTOR(3 DOWNTO 0);
  13.               CO : out STD_LOGIC_VECTOR(3 DOWNTO 0);
  14.           pulse: IN STD_LOGIC;
  15.               driverA,driverB: OUT STD_LOGIC;
  16.               S : OUT STD_LOGIC_VECTOR(6 DOWNTO 0);
  17.               P : OUT STD_LOGIC_VECTOR(5 DOWNTO 0);
  18.  sp : out STD_LOGIC);
  20. END dccount;
  21. ARCHITECTURE a OF dccount IS 
  22. SIGNAL f:  STD_LOGIC_VECTOR(5 downto 0);
  23. SIGNAL f_hz: STD_LOGIC;
  24. SIGNAL OSC: STD_LOGIC;
  25. SIGNAL OSC1: STD_LOGIC;
  26. SIGNAL C: STD_LOGIC_VECTOR(3 DOWNTO 0);
  27. SIGNAL A: STD_LOGIC_VECTOR(3 DOWNTO 0);
  28. SIGNAL CODE: STD_LOGIC_VECTOR(2 DOWNTO 0);
  29. SIGNAL bcd:STD_LOGIC_VECTOR(23 downto 0);
  30. SIGNAL COUNT:STD_LOGIC_VECTOR(23 downto 0);
  31. SIGNAL SUM: STD_LOGIC_VECTOR(4 DOWNTO 0);
  32. SIGNAL D: STD_LOGIC_VECTOR(3 DOWNTO 0):="0000";
  33. SIGNAL ind_coil: STD_LOGIC_VECTOR(3 downto 0) := "0001";
  34. SIGNAL Hz:STD_LOGIC;
  35. SIGNAL spo: STD_LOGIC;
  36. SIGNAL SW:STD_LOGIC;
  37. SIGNAL KEY:STD_LOGIC;
  38. SIGNAL DRA,DRB:STD_LOGIC;
  39. BEGIN
  40. DRIVERA<=DRA;
  41. DRIVERB<=DRB;
  42. p(5 downto 0) <= f(5 downto 0);
  43. CO(3 DOWNTO 0) <=C(3 DOWNTO 0);
  44. A (3 DOWNTO 0)<=AI(3 DOWNTO 0);
  46. SP<=SPO;
  47. -----------------div------------------------
  48. PROCESS(OSC)
  49. VARIABLE d_ff: STD_LOGIC_VECTOR(20 downto 0);
  50.     VARIABLE DELAY: STD_LOGIC_VECTOR(23 DOWNTO 0);
  51.   BEGIN
  53.  WAIT UNTIL clk = '1';
  54. IF d_ff(20 downto 0) >= 2E6 THEN
  55.     d_ff(20 downto 0) := "000000000000000000000";
  56. ELSE
  57.     d_ff(20 downto 0) := d_ff + 1;
  58. END IF;
  59. f_hz <= not d_ff(6);
  60.         OSC <= not d_ff(10);
  61.     OSC1 <= not d_ff(17);
  62.         IF DELAY>=500000 THEN
  63.            DELAY:="000000000000000000000000";HZ<=NOT Hz;
  64.         ELSE DELAY:=DELAY+1; 
  65.         END IF;
  68. END PROCESS ;
  69. ----------------------------------------------
  70. PROCESS (F_HZ,OSC,OSC1,HZ,PULSE)
  71.     VARIABLE B: STD_LOGIC;
  72.     VARIABLE INT: STD_LOGIC;
  73. VARIABLE Data: STD_LOGIC_VECTOR(3 DOWNTO 0);
  74.     VARIABLE UP: STD_LOGIC_VECTOR(2 DOWNTO 0);
  75. VARIABLE  ST:STD_LOGIC_VECTOR(2 DOWNTO 0);
  76.     VARIABLE seq: STD_LOGIC_VECTOR(1 DOWNTO 0);
  77.     VARIABLE sound: STD_LOGIC_VECTOR(1 DOWNTO 0);
  78.     VARIABLE STOP: STD_LOGIC; 
  79.     VARIABLE direction: STD_LOGIC;
  80.     BEGIN
  81. ---------------7seg scan-------------------------------
  82. IF (f_HZ='1' AND F_HZ'EVENT) THEN
  83.  IF ST(2 DOWNTO 0)= "101" THEN
  84.    ST(2 DOWNTO 0):="000" ;
  85.  ELSE ST(2 DOWNTO 0):=ST(2 DOWNTO 0)+1;
  86.  END IF;
  87.  END IF;
  88. -----------------------------------------------
  89. IF (OSC = '1' and OSC'EVENT) THEN
  90.     if a="1111" then 
  91. IF seq="11" then seq:="00" ;
  92.     else seq:=seq+1;
  93. end if;
  94.     else seq:=seq;
  95.     end if;
  97. IF seq="00" then C(3 DOWNTO 0)<="1110" ;
  98. elsif seq="01" then C(3 DOWNTO 0)<="1101" ;
  99. elsif seq="10" then C(3 DOWNTO 0)<="1011" ;
  100. elsif seq="11" then C(3 DOWNTO 0)<="0111" ;
  101. end if;
  102. end if;
  104. IF A="1111" THEN INT:='0';
  105. ELSE INT:='1'; 
  106. END IF;
  109. IF (HZ'EVENT AND HZ='1') THEN 
  110. IF STOP='1' THEN UP:=UP+1;
  111. ELSE UP:="000";
  112. END IF;
  113. END IF;
  115. IF KEY='1' AND COUNT/=0 THEN 
  116.   IF DIRECTION='0' THEN DRA<='1';DRB<='0';STOP:='0';
  117.    ELSE DRA<='0';DRB<='1';STOP:='0';
  118.   END IF;
  120.  ELSIF KEY='1' AND COUNT=0 THEN STOP:='1';
  121.  
  122.  ELSIF STOP='1' AND UP<"110"  THEN DRA<=NOT DRA ;DRB<=NOT DRB;
  123.  
  124. ELSE  DRA<='0';DRB<='0';STOP:='0';
  128. END IF;
  131. iF  (OSC1'EVENT AND OSC1='1') THEN B:=(INT and (b and INT) );
  133. ----------------direction choice-----------------------
  134. IF SW='0' AND B='1' AND Data(3 DOWNTO 0)="1010" THEN 
  135. BCD(23 DOWNTO 0)<=BCD(23 DOWNTO 0);B:='0';direction:='1';
  137. ELSIF SW='0' AND  B='1' AND Data(3 DOWNTO 0)="1011" THEN 
  138. BCD(23 DOWNTO 0)<=BCD(23 DOWNTO 0);B:='0';direction:='0';
  139. ------------------KEY LOCK ON/OFF------------------------------------
  140. ELSIF B='1' AND Data(3 DOWNTO 0)="1100" THEN 
  141. BCD<=BCD;B:='0';SW<=NOT SW;
  142. -------------------BACK-------------------------------
  143. ELSIF SW='0' AND B='1' AND Data(3 DOWNTO 0)="1101" THEN 
  144. BCD(23 DOWNTO 0)<=("0000" & bcd(23 downto 4) );B:='0';
  146. -------------------CLEAR---------------------------------
  147. ELSIF B='1' AND Data(3 DOWNTO 0)="1110" THEN 
  148. BCD<="000000000000000000000000" ;B:='0';SW<='0';
  150. ------------------DOWNCOUNT  0 ------------------------------------
  151. ELSIF BCD=0  AND  KEY='1' THEN SW<='0';KEY<='0';BCD<=BCD;
  152. ------------------------------------------------------------------
  154. ELSIF SW='1' AND KEY='1' AND DATA(3 DOWNTO 0)/="1110" THEN BCD<=COUNT;
  155. ELSIF SW='1' AND DATA(3 DOWNTO 0)="1110" THEN SW<='0';
  156. BCD<="000000000000000000000000";KEY<='0';
  157. -------------------ENTER------------------------------
  158. ELSIF SW='0' AND B='1' AND Data(3 DOWNTO 0)="1111" AND BCD/=0 THEN 
  159. B:='0';SW<='1';KEY<='1';
  161. ELSIF SW='0' AND B='1' AND Data(3 DOWNTO 0)="1111" AND BCD=0 THEN 
  162. BCD<=BCD;B:='0';SW<='0';KEY<='0';
  163. ----------------------NUMBER SHIFT---------------------------
  164. ELSIF SW='0' AND B='1' THEN bcd(23 downto 0)<= bcd(19 downto 0) & DATA(3 DOWNTO 0);B:='0';
  165. elsif INT='0' then bcd<=bcd;
  166. b:='1';
  167. END IF;
  168. END IF;
  169. ------------------------------------------------------
  170. SUM(1 DOWNTO 0)<= seq;
  171. sum(4 downto 2)<=code;
  174. ---------------------SOUND-----------------------------
  175. if (osc'event and osc='1') then 
  176. if INT='1' AND SW='0' then sound:=sound+1;spo<=sound(1) ;
  177. else spo<='0';
  178. end if;
  179. end if;
  180. -------------------------------------------------------
  181. ---------------------------DOWNCOUNT--------------------
  182. IF SW='0' THEN COUNT<=BCD;
  183. ELSE
  185. If (PULSE = '1' and PULSE'EVENT) THEN
  186.  
  188. IF KEY='1' AND COUNT/=0 THEN  
  189. ----------------------------1---------------------------------------------------
  190.   IF COUNT(3 DOWNTO 0)= 0 AND COUNT(23 DOWNTO 4)>=1 THEN
  191.       COUNT(3 DOWNTO 0) <="1001" ;
  192.   ELSE COUNT(3 DOWNTO 0) <= COUNT(3 DOWNTO 0)-1;
  193.    
  194.   END IF;
  195. ----------------------------2---------------------------------------------------------    
  196.     IF  COUNT(7 DOWNTO 4)= 0 AND COUNT(23 DOWNTO 8)>=1  AND COUNT(3 DOWNTO 0)=0 THEN
  197. COUNT(7 DOWNTO 4) <= "1001" ;
  198. ELSIF COUNT(3 DOWNTO 0)=0 AND COUNT(23 DOWNTO 4)>=1  THEN
  199.     COUNT(7 DOWNTO 4) <=COUNT(7 DOWNTO 4 )-1;
  200.  END IF;
  201. ----------------------------3-------------------------------------------------------
  202. IF  COUNT(11 DOWNTO 8)= 0 AND COUNT(23 DOWNTO 12)>=1 AND COUNT(7 DOWNTO 0)=0 THEN
  203. COUNT(11 DOWNTO 8) <="1001";
  204. ELSIF COUNT(7 DOWNTO 0)=0 AND COUNT(23 DOWNTO 8)>=1 THEN 
  205.     COUNT(11 DOWNTO 8) <=COUNT(11 DOWNTO 8 )-1;
  206. END IF;
  207. ---------------------------4--------------------------------------------------------------
  208. IF  COUNT(15 DOWNTO 12)= 0 AND COUNT(23 DOWNTO 16)>=1 AND COUNT(11 DOWNTO 0)=0 THEN
  209. COUNT(15 DOWNTO 12) <="1001";
  210. ELSIF COUNT(11 DOWNTO 8)=0 AND COUNT(23 DOWNTO 12)>=1 AND COUNT(7 DOWNTO 0)=0 THEN
  211.     COUNT(15 DOWNTO 12) <=COUNT(15 DOWNTO 12 )-1;
  212. END IF;
  213. -------------------------5------------------------------------------------------------
  214. IF  COUNT(19 DOWNTO 16)= 0 AND COUNT(23 DOWNTO 20)>=1 AND COUNT(15 DOWNTO 0)=0 THEN
  215. COUNT(19 DOWNTO 16) <="1001";
  216. ELSIF COUNT(15 DOWNTO 12)=0 AND COUNT(23 DOWNTO 16)>=1 AND COUNT(11 DOWNTO 0)=0 THEN
  217.     COUNT(19 DOWNTO 16) <=COUNT(19 DOWNTO 16 )-1;
  218.     
  219. END IF;
  220. -------------------------6-------------------------------------------------
  221. IF  COUNT(23 DOWNTO 20)= 0  THEN
  222. COUNT(23 DOWNTO 20) <="0000";
  223. ELSIF COUNT(19 DOWNTO 16)=0 AND COUNT(23 DOWNTO 20 )>=1 AND COUNT(15 DOWNTO 0)=0 THEN
  224.     COUNT(23 DOWNTO 20) <=COUNT(23 DOWNTO 20 )-1;
  225.     END IF;
  226. END IF;
  228. END IF;
  229. END IF;
  234. ------------------7seg scan---------------------------
  235. CASE ST IS  --