EEPW论坛

上传初始状态的板子与元件。

上传焊接完毕的板子。
板子还有问题，需要修改。其中一个引脚被我扮断了。数码管有两个引脚短接了。
核心芯片下的焊盘掉了几个。有点悲剧啊。

是主芯片哪里有问题。

最近有点忙，可能会隔比较长的时间才上传。
这是今天晚上完成的闪烁灯视频。在此要感谢jobs，由于马虎，在敲代码时，少敲了use ieee.std_logic_unsigned.all;这一句导致编译不通过，检查了一个小时，都没检查出来，后来在群里说了一下，jobs一语中的，我一看还真是调用库那里出错了。下面是视频。

接下来是流水灯的程序
library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_unsigned.all;
entity liushuideng is
 port(
  clk:in std_logic;
  led:out std_logic_vector(10 downto 0)
  );
end liushuideng;

architecture fh1 of liushuideng is
 signal led_r:std_logic_vector(10 downto 0);
 signal count_r:std_logic_vector(3 downto 0);
begin
process(clk)
begin
 if clk'event and clk='1' then
  if count_r="1111" then
   count_r<="0000";
  else
  count_r<=count_r+1;
  case count_r is
   when "0000" => led_r<="11111111111";
   when "0001" => led_r<="11111111110";
   when "0010" => led_r<="11111111101";
         when "0011" => led_r<="11111111011";
         when "0100" => led_r<="11111110111";
         when "0101" => led_r<="11111101111";
         when "0110" => led_r<="11111011111";
         when "0111" => led_r<="11110111111";
         when "1000" => led_r<="11101111111";
         when "1001" => led_r<="11011111111";
         when "1010" => led_r<="10111111111";
         when "1011" => led_r<="01111111111";
         when "1100" => led_r<="11011111111";
         when "1101" => led_r<="11110111111";
         when "1110" => led_r<="11111101111";
         when "1111" => led_r<="11111111011";
   when others => null;
  end case;
  end if;
 end if;
end process;
led<=led_r;
end fh1;

流水灯的效果视频

对于跑马灯，只需要在流水灯的基础上稍作修改就可以了。程序如下：
 count_r<=count_r+1;
  case count_r is
   when "0000" => led_r<="11111111111";
   when "0001" => led_r<="11111111110";
   when "0010" => led_r<="11111111100";
         when "0011" => led_r<="11111111000";
         when "0100" => led_r<="11111110000";
         when "0101" => led_r<="11111100000";
         when "0110" => led_r<="11111000000";
         when "0111" => led_r<="11110000000";
         when "1000" => led_r<="11100000000";
         when "1001" => led_r<="11000000000";
         when "1010" => led_r<="10000000000";
         when "1011" => led_r<="00000000000";
         when "1100" => led_r<="11011111111";
         when "1101" => led_r<="11110111111";
         when "1110" => led_r<="11111101111";
         when "1111" => led_r<="11111111011";
   when others => null;
  end case;

跑马灯的视频

上传FPGA DIY的tcl脚本文件，利用它可以自动分配引脚。
http://share.eepw.com.cn/share/download/id/79306