--文件名:con_pcf8563.vhd
--功 能:读出pcf8563中的时钟信号
--说 明:PCF8563芯片是PHILIPS公司推出的一款工业级内含I2C总线接口功能的具有极低功耗的多功能时钟/日历芯片。
--该程序实现的功能是把PCF8563芯片中的时钟读出来显示，而且编写该程序的主要目的是教会大家如何对该时钟芯片进行编程控制，
--因此我们只是把芯片中时钟的秒位、分位读出，并用数码管显示。PCF8563芯片的功能十分的强大，我们可以应用它设计出很多有用的
--产品，目前，我们教会大家应用这种芯片的方法。用户可以根据自身的需要对芯片不同的地址和数据进行操作实现自己功能。
library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL; --调试成功
entity con_pcf8563 is
Port ( sysclk,reset : in std_logic;
sda,scl : inout std_logic;
cs: out std_logic;
shift_led : out std_logic_vector(3 downto 0);
led:out std_logic_vector(8 downto 1));
end con_pcf8563;
architecture Behavioral of con_pcf8563 is
type state is (prepare,start,transmit_slave_address,check_ack1,transmit_sub_address,check_ack2,
transmit_data,check_ack3,transmit_data1,transmit_data2,check_ack4,check_ack44,start1,start2,transmit_slave_address1,
transmit_slave_address2,
transmit_sub_address1,check_ack5,check_ack6,check_ack7,read_data,stop); --定义状态机的各子状态；
signal current_state:state; --定义信号；
signal clock,shift_clk:std_logic;
signal code_led : std_logic_vector(3 downto 0);
signal reg_led : std_logic_vector(8 downto 1);
begin
pulse:process(sysclk,reset) --进程1，分频得到f为400khz的时钟信号
variable count:integer range 0 to 125000;
begin
if reset='0' then count:=0;
elsif rising_edge(sysclk) then
count:=count+1;
if count=65000 then clock<='1';
elsif count=125000 then clock<='0';count:=0; --frequency:400kHz
end if;
end if;
end process pulse;
statemachine:process(clock,reset) --进程2，状态机的转换
variable slave_address1,sub_address1,data1,slave_address2,sub_address2:std_logic_vector(8 downto 1);
variable cnt:std_logic_vector(6 downto 0);
variable cnt1:integer range 0 to 8;
variable count1:integer range 0 to 40;
begin
if reset='0' then count1:=0;cnt:="0000000";cnt1:=8;cs<='1';
sda<='1';scl<='1';slave_address1:="10100010";slave_address2:="10100011";
sub_address1:="00000000"; sub_address2:="00000010";
current_state<=prepare;data1:="00000000";
reg_led<="11111111";
elsif rising_edge(clock) then
case current_state is
when prepare=>cnt:=cnt+1;-- --准备状态，等各个器件复位
if cnt="0000010" then cnt:="0000000";current_state<=start;
else current_state<=prepare;
end if;
when start=>count1:=count1+1; --起始信号产生状态
case count1 is
when 1=>sda<='1';
when 2=>scl<='1';
when 3=>sda<='0';
when 4=>scl<='0';
when 5=>count1:=0;current_state<=transmit_slave_address;
when others=>null;
end case;
when transmit_slave_address=>count1:=count1+1; --发送器件从地址
case count1 is
when 1=>sda<=slave_address1(cnt1);
when 2=>scl<='1';
when 3=>scl<='0';
when 4=>cnt1:=cnt1-1;count1:=0;
if cnt1=0 then cnt1:=8;
current_state<=check_ack1;
else current_state<=transmit_slave_address;
end if;
when others=>null;
end case;
when check_ack1=>count1:=count1+1; --查询应答信号
case count1 is
when 1=>sda<='0';
when 2=>scl<='1';
when 3=>scl<='0';
when 4=>
current_state<=transmit_sub_address;
count1:=0;
when others=>null;
end case;
when transmit_sub_address=>count1:=count1+1; reg_led<="11111110"; --发送器件子地址
case count1 is
when 1=>sda<=sub_address1(cnt1);
when 2=>scl<='1';
when 3=>scl<='0';
when 4=>cnt1:=cnt1-1;count1:=0;
if cnt1=0 then cnt1:=8;
current_state<=check_ack2;
else current_state<=transmit_sub_address;
end if;
when others=>null;
end case;
when check_ack2=>count1:=count1+1; --查询应答信号
case count1 is
when 1=>sda<='0';
when 2=>scl<='1';
when 3=>scl<='0';
when 4=>current_state<=transmit_data;
count1:=0;
when others=>null;
end case;
when transmit_data=>count1:=count1+1; reg_led<="11111101"; --发送数据
case count1 is
when 1=>sda<=data1(cnt1);
when 2=>scl<='1';
when 3=>scl<='0';
when 4=>cnt1:=cnt1-1;count1:=0;
if cnt1=0 then cnt1:=8;
current_state<=check_ack3;
else current_state<=transmit_data;
end if;
when others=>null;
end case;
when check_ack3=>count1:=count1+1; --查询应答信号
case count1 is
when 1=>sda<='0';
when 2=>scl<='1';
when 3=>scl<='0';
when 4=>
current_state<=transmit_data1;
count1:=0;
when others=>null;
end case;
when transmit_data1=>count1:=count1+1; --发送数据
case count1 is
when 1=>sda<=data1(cnt1);
when 2=>scl<='1';
when 3=>scl<='0';
when 4=>cnt1:=cnt1-1;count1:=0;
if cnt1=0 then cnt1:=8;
current_state<=check_ack4;
else current_state<=transmit_data1;
end if;
when others=>null;
end case;
when check_ack4=>count1:=count1+1; --查询应答信号
case count1 is
when 1=>sda<='0';
when 2=>scl<='1';
when 3=>scl<='0';
when 4=>
current_state<=transmit_data2;
count1:=0;
when others=>null;
end case;
when transmit_data2=>count1:=count1+1; reg_led<="11111011"; --发送数据
case count1 is
when 1=>sda<=data1(cnt1);
when 2=>scl<='1';
when 3=>scl<='0';
when 4=>cnt1:=cnt1-1;count1:=0;
if cnt1=0 then cnt1:=8;
current_state<=check_ack44;
else current_state<=transmit_data2;
end if;
when others=>null;
end case;
when check_ack44=>count1:=count1+1; --查询应答信号
case count1 is
when 1=>sda<='0';
when 2=>scl<='1';
when 3=>scl<='0';
when 4=>
current_state<=start1;
count1:=0;
when others=>null;
end case;
when start1=>count1:=count1+1; --起始信号产生状态
case count1 is
when 1=>sda<='1';
when 3=>scl<='1';
when 5=>sda<='0';
when 7=>scl<='0';
when 9=>count1:=0;current_state<=transmit_slave_address1;
when others=>null;
end case;
when transmit_slave_address1=>count1:=count1+1; --发送器件从地址
case count1 is
when 1=>sda<=slave_address1(cnt1);
when 3=>scl<='1';
when 6=>scl<='0';
when 8=>cnt1:=cnt1-1;count1:=0;
if cnt1=0 then cnt1:=8;
current_state<=check_ack5;
else current_state<=transmit_slave_address1;
end if;
when others=>null;
end case;
when check_ack5=>count1:=count1+1; --查询应答信号
case count1 is
when 3=>sda<='0';
when 6=>scl<='1';
when 8=>scl<='0';
when 10=>
current_state<=transmit_sub_address1;
count1:=0;
when others=>null;
end case;
when transmit_sub_address1=>count1:=count1+1; --发送器件子地址
case count1 is
when 1=>sda<=sub_address2(cnt1);
when 3=>scl<='1';
when 6=>scl<='0';
when 9=>cnt1:=cnt1-1;count1:=0;
if cnt1=0 then cnt1:=8;
current_state<=check_ack6;
else current_state<=transmit_sub_address1;
end if;
when others=>null;
end case;
when check_ack6=>count1:=count1+1; --查询应答信号
case count1 is
when 3=>sda<='0';
when 6=>scl<='1';
when 8=>scl<='0';
when 10=>
current_state<=start2;
count1:=0;
when others=>null;
end case;
when start2=>count1:=count1+1; --重新起始信号产生状态
case count1 is
when 1=>sda<='1';
when 3=>scl<='1';
when 6=>sda<='0';
when 8=>scl<='0';
when 10=>count1:=0;current_state<=transmit_slave_address2;
when transmit_slave_address2=>count1:=count1+1; --发送器件从地址
case count1 is
when 1=>sda<=slave_address2(cnt1);
when 3=>scl<='1';
when 6=>scl<='0';
when 8=>cnt1:=cnt1-1;count1:=0;
if cnt1=0 then cnt1:=8;
current_state<=check_ack7;
else current_state<=transmit_slave_address2;
end if;
when others=>null;
end case;
when check_ack7=>count1:=count1+1; --查询应答信号
case count1 is
when 3=>sda<='0';
when 6=>scl<='1';
when 8=>scl<='0';
when 10=>
current_state<=read_data;
count1:=0;
when others=>null;
end case;
when read_data=>count1:=count1+1; --读操作
case count1 is
when 1=>sda<='Z';
when 4=>scl<='1';
when 8=>reg_led(cnt1)<=sda;
when 10=>scl<='0';
when 12=>cnt1:=cnt1-1;count1:=0;
if cnt1=0 then cnt1:=8;
current_state<=stop;
else current_state<=read_data;
end if;
when others=>null;
end case;
when stop=>count1:=count1+1; --产生停止信号
case count1 is
when 1=>sda<='0';
when 3=>scl<='1';
when 10=>sda<='1';
when 15=>count1:=0;current_state<=start1;
when others=>null;
end case;
when others=>null;
end case;
end if;
end process;
process(sysclk) --动态扫描模块
variable cnt : integer range 0 to 50000;
begin
if rising_edge(sysclk) then cnt:=cnt+1;
if cnt<25000 then shift_clk<='1';
elsif cnt<50000 then shift_clk<='0';
else cnt:=0;
end if;
end if;
end process;
process(shift_clk)
variable cnt : integer range 0 to 1;
begin
if rising_edge(shift_clk) then
cnt:=cnt+1;
if cnt=0 then shift_led<="1101";code_led<=reg_led(4 downto 1);
else shift_led<="1011";code_led<='0'®_led(7 downto 5);
end if;
end if;
end process;
with code_led select --数码管译码
led <="10000001" when "0000",
"11001111" when "0001",
"10010010" when "0010",
"10000110" when "0011",
"11001100" when "0100",
"10100100" when "0101",
"10100000" when "0110",
"10001111" when "0111",
"10000000" when "1000",
"10000100" when "1001",
"11111111" when others;
提升卡
变色卡
千斤顶
1/9 
京公网安备 11010802033920号
Copyright © 2005-2025 EEWORLD.com.cn, Inc. All rights reserved
