Code/Resource
Windows Develop
Linux-Unix program
Internet-Socket-Network
Web Server
Browser Client
Ftp Server
Ftp Client
Browser Plugins
Proxy Server
Email Server
Email Client
WEB Mail
Firewall-Security
Telnet Server
Telnet Client
ICQ-IM-Chat
Search Engine
Sniffer Package capture
Remote Control
xml-soap-webservice
P2P
WEB(ASP,PHP,...)
TCP/IP Stack
SNMP
Grid Computing
SilverLight
DNS
Cluster Service
Network Security
Communication-Mobile
Game Program
Editor
Multimedia program
Graph program
Compiler program
Compress-Decompress algrithms
Crypt_Decrypt algrithms
Mathimatics-Numerical algorithms
MultiLanguage
Disk/Storage
Java Develop
assembly language
Applications
Other systems
Database system
Embeded-SCM Develop
FlashMX/Flex
source in ebook
Delphi VCL
OS Develop
MiddleWare
MPI
MacOS develop
LabView
ELanguage
Software/Tools
E-Books
Artical/Document
CLK_GEN.VHD
Package: codeofvhdl2006.rar [view]
Upload User: dgjihui88
Upload Date: 2013-07-23
Package Size: 43k
Code Size: 2k
Category:
VHDL-FPGA-Verilog
Development Platform:
MultiPlatform
- --library declaration
- library IEEE;
- use IEEE.std_logic_1164.all;
- use IEEE.std_logic_arith.all;
- use IEEE.std_logic_unsigned.all;
- --input and output pins declaraction
- entity clk_gen is
- port(reset: in std_logic;
- clk:in std_logic;
- ena_scan:out std_logic;
- ena_1Hz:out std_logic;
- flash_1Hz: out std_logic);
- end;
- architecture BEHAVIOR of clk_gen is
- CONSTANT scan_bit: positive := 2;
- CONSTANT scan_val: positive := 4;
- CONSTANT two_Hz_bit: positive := 7;
- CONSTANT two_Hz_val: positive := 125;
- signal clk_scan_ff:std_logic_vector(scan_bit-1 downto 0);
- signal clk_2Hz_ff:std_logic_vector(two_Hz_bit-1 downto 0);
- signal ena_s,ena_one,ena_two:std_logic;
- begin
- --to generate 250Hz ena_s via dividing 1KHz clock by 4
- scan:process(reset,clk)
- begin
- if reset='1' then
- clk_scan_ff<="00";
- ena_s<='0';
- elsif (clk'event and clk='1') then
- if clk_scan_ff>=scan_val-1 then
- clk_scan_ff<="00";
- ena_s <= '1';
- else
- clk_scan_ff<=clk_scan_ff+1;
- ena_s <= '0';
- end if;
- end if;
- end process;
- ena_scan <= ena_s;
- --to generate 1Hz ena_1Hz and flash_1Hz via dividing 1KHz clock by
- two_Hz:process(reset,clk,ena_s)
- begin
- if reset='1' then
- ena_one<='0';
- ena_two<='0';
- clk_2Hz_ff<="0000000";
- elsif (clk'event and clk='1') then
- if ena_s='1' then
- if clk_2Hz_ff>=two_Hz_val-1 then
- clk_2Hz_ff<="0000000";
- ena_two <= '1';
- ena_one <= not ena_one;
- else
- clk_2Hz_ff<=clk_2Hz_ff+1;
- ena_two <= '0';
- ena_one <= ena_one;
- end if;
- end if;
- end if;
- end process;
- ena_1Hz <= ena_one and ena_two and ena_s;
- flash_1Hz <= ena_one;
- end BEHAVIOR;