集成电路技术分享 - Powered by Discuz! Archiver

HDL 发表于 2010-6-26 11:58:20

很标准的

ups 发表于 2010-6-26 13:23:45

好程序  顶

HDL 发表于 2010-6-26 15:19:17

好是好,你们觉得这程序对楼主有帮助吗?

usd 发表于 2010-6-26 15:58:34

-------------------------------------------------------------------------------- 
library ieee; 
use ieee.std_logic_1164.all; 
use ieee.std_logic_unsigned.all; 
use ieee.std_logic_arith.all; 
entity shaomiao is 
   generic(size:integer:=4); 
   port(d0,d1,d2,d3:in std_logic_vector(3 downto 0); 
        clk:in std_logic; 
        dout: out std_logic_vector(6 downto 0); 
        cs:  inout std_logic_vector(size-1 downto 0)); 
end shaomiao; 
architecture behavior of shaomiao is 
type state is (s0,s1,s2,s3); 
signal prestate,nexstate:state; 
signal A:std_logic_vector(3 downto 0); 
begin 
   process(clk) 
     begin 
       if(clk'event and clk='1')then 
         prestate<=nexstate; 
       end if; 
   end process; 
   process(prestate) 
     begin 
         case prestate is 
         when s0=>nexstate<=s1; 
         when s1=>nexstate<=s2; 
         when s2=>nexstate<=s3; 
         when others=>nexstate<=s0; 
         end case; 
   end process; 
   process(prestate) 
     begin 
         case prestate is 
         when s0=>A<=d0;cs<="0111"; 
         when s1=>A<=d1;cs<="1011"; 
         when s2=>A<=d2;cs<="1101"; 
         when others=>A<=d3;cs<="1110"; 
         end case; 
   end process; 
   process(A) 
     begin 
         case A is 
         when"0000"=>dout<="1111110"; 
         when"0001"=>dout<="0110000"; 
         when"0010"=>dout<="1101101"; 
         when"0011"=>dout<="1111001"; 
         when"0100"=>dout<="0110011"; 
         when"0101"=>dout<="1011011"; 
         when"0110"=>dout<="0011111"; 
         when"0111"=>dout<="1110000"; 
         when"1000"=>dout<="1111111"; 
         when"1001"=>dout<="1111011"; 
         when others =>dout<="0000000"; 
         end case; 
   end process; 
end behavior;

usb 发表于 2010-6-26 17:00:39

还不错 
 
我的程序都没人帮我弄

AAT 发表于 2010-6-26 18:36:43

不错 

http://bbs.vibesic.com/images/smilies/default/biggrin.gif

interi 发表于 2010-6-26 19:54:17

你可以看一下标号是SHOW的这个进程,我没空写,这是我以前坐的! 
LIBRARY IEEE; 
USE IEEE.STD_LOGIC_1164.ALL; 
USE IEEE.STD_LOGIC_UNSIGNED.ALL; 
ENTITY JSXS IS 
PORT(CLR,CLK,EN: STD_LOGIC; 
     SEL: OUT STD_LOGIC_VECTOR(3 DOWNTO 0); 
     LED8D: OUT STD_LOGIC_VECTOR(7 DOWNTO 0)); 
END ENTITY JSXS; 
ARCHITECTURE ART OF JSXS IS 
SIGNAL CLK1S: STD_LOGIC; 
SIGNAL D3,D2,D1,D0: STD_LOGIC_VECTOR(3 DOWNTO 0); 
SIGNAL D: STD_LOGIC_VECTOR(3 DOWNTO 0); 
BEGIN 
CLKDIV1S
http://bbs.vibesic.com/images/smilies/default/tongue.gif
ROCESS(CLR,CLK) 
          VARIABLE NCLK: STD_LOGIC; 
          VARIABLE CNT: INTEGER RANGE 0 TO 249999; 
          BEGIN 
           IF CLR='1' THEN 
           CNT:=0; 
           NCLK:='0'; 
           ELSIF CLK'EVENT AND CLK='1' THEN 
            IF CNT=249999 THEN 
            CNT:=0; 
            NCLK:='1'; 
            ELSE 
            CNT:=CNT+1; 
            NCLK:='0'; 
            END IF; 
           END IF; 
          CLK1S<=NCLK; 
          END PROCESS CLKDIV1S; 
CNT3600
http://bbs.vibesic.com/images/smilies/default/tongue.gif
ROCESS(CLR,EN,CLK1S) 
         VARIABLE Q3,Q2,Q1,Q0: STD_LOGIC_VECTOR(3 DOWNTO 0); 
         BEGIN 
          IF CLR='1' THEN 
          Q3:="0000"; 
          Q2:="0000"; 
          Q1:="0000"; 
          Q0:="0000"; 
          ELSIF CLK1S'EVENT AND CLK1S='1' THEN 
           IF EN='1' THEN 
            IF Q0="1001" THEN 
            Q0:="0000"; 
             IF Q1="0101" THEN 
             Q1:="0000"; 
              IF Q2="1001" THEN 
              Q2:="0000"; 
               IF Q3="0101" THEN 
               Q3:="0000"; 
               ELSE 
               Q3:=Q3+1; 
               END IF; 
              ELSE 
              Q2:=Q2+1; 
              END IF; 
             ELSE 
             Q1:=Q1+1; 
             END IF; 
            ELSE 
            Q0:=Q0+1; 
            END IF; 
           END IF; 
          END IF; 
         D3<=Q3; 
         D2<=Q2; 
         D1<=Q1; 
         D0<=Q0; 
         END PROCESS CNT3600; 
SHOW
http://bbs.vibesic.com/images/smilies/default/tongue.gif
ROCESS(CLK,D3,D2,D1,D0) 
      VARIABLE CNT: INTEGER RANGE 0 TO 3; 
      VARIABLE Q: STD_LOGIC_VECTOR(3 DOWNTO 0); 
      VARIABLE WEI: STD_LOGIC_VECTOR(3 DOWNTO 0); 
      BEGIN 
       IF CLK'EVENT AND CLK='1' THEN 
       CNT:=CNT+1; 
        CASE CNT IS 
        WHEN 0=>WEI:="1110";Q:=D0; 
        WHEN 1=>WEI:="1101";Q:=D1; 
        WHEN 2=>WEI:="1011";Q:=D2; 
        WHEN 3=>WEI:="0111";Q:=D3; 
        END CASE; 
       END IF; 
      D<=Q; 
      SEL<=WEI; 
      END PROCESS SHOW; 
YM:PROCESS(D) 
   BEGIN 
    CASE D  IS 
    WHEN "0000"=>LED8D<="11111100"; 
    WHEN "0001"=>LED8D<="01100000"; 
    WHEN "0010"=>LED8D<="11011010"; 
    WHEN "0011"=>LED8D<="11110010"; 
    WHEN "0100"=>LED8D<="01100110"; 
    WHEN "0101"=>LED8D<="10110110"; 
    WHEN "0110"=>LED8D<="10111110"; 
    WHEN "0111"=>LED8D<="11100000"; 
    WHEN "1000"=>LED8D<="11111110"; 
    WHEN "1001"=>LED8D<="11110110"; 
    WHEN OTHERS=>NULL; 
    END CASE; 
   END PROCESS YM; 
END ARCHITECTURE ART

亲你可拉倒吧 发表于 2011-10-26 12:07:11

保留着以后用

页: 1 [2]

fpga论坛|fpga设计论坛's Archiver