⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 gen_tseq.vhd

📁 完整的TPC编译码VHDL程序
💻 VHD
📖 第 1 页 / 共 2 页
字号:
                       s11(1)<=not hardtemp1(1);
                       s12(1)<=not  hardtemp1(1);
                       s13(1)<=not hardtemp1(1);
                       s14(1)<=hardtemp1(1);
                       s15(1)<= hardtemp1(1);

          when "0010"=>s0(1)<=hardtemp1(1);
                       s1(1)<=hardtemp1(1);
                       s2(1)<=hardtemp1(1);
                       s3(1)<=hardtemp1(1);
                       s4(1)<=not hardtemp1(1);
                       s5(1)<=not hardtemp1(1);
                       s6(1)<=not hardtemp1(1);
                       s7(1)<=not hardtemp1(1);
                       s8(1)<=not hardtemp1(1);
                       s9(1)<=not hardtemp1(1);
                       s10(1)<=not hardtemp1(1);
                       s11(1)<=not hardtemp1(1);
                       s12(1)<=hardtemp1(1);
                       s13(1)<=hardtemp1(1);
                       s14(1)<=hardtemp1(1);
                       s15(1)<=hardtemp1(1);
          when "0001"=>s0(1)<=hardtemp1(1);
                       s1(1)<=hardtemp1(1);
                       s2(1)<=hardtemp1(1);
                       s3(1)<=hardtemp1(1);
                       s4(1)<=hardtemp1(1);
                       s5(1)<=hardtemp1(1);
                       s6(1)<=hardtemp1(1);
                       s7(1)<=hardtemp1(1);
                       s8(1)<=not hardtemp1(1);
                       s9(1)<=not hardtemp1(1);
                       s10(1)<=not hardtemp1(1);
                       s11(1)<=not hardtemp1(1);
                       s12(1)<=not hardtemp1(1);
                       s13(1)<=not hardtemp1(1);
                       s14(1)<=not hardtemp1(1);
                       s15(1)<=not hardtemp1(1);
          when others=>s0(1)<=hardtemp1(1);
                       s1(1)<=hardtemp1(1);
                       s2(1)<=hardtemp1(1);
                       s3(1)<=hardtemp1(1);
                       s4(1)<=hardtemp1(1);
                       s5(1)<=hardtemp1(1);
                       s6(1)<=hardtemp1(1);
                       s7(1)<=hardtemp1(1);
                       s8(1)<=hardtemp1(1);
                       s9(1)<=hardtemp1(1);
                       s10(1)<=hardtemp1(1);
                       s11(1)<=hardtemp1(1);
                       s12(1)<=hardtemp1(1);
                       s13(1)<=hardtemp1(1);
                       s14(1)<=hardtemp1(1);
                       s15(1)<=hardtemp1(1);
          end case;
   --end if;
--end process;
---------------------------
--process(clk)
--begin
 --  if clk'event and clk='1' then
       case comresult2 is
          when "1000"=>s0(2)<=hardtemp1(2);
                       s1(2)<=not hardtemp1(2);
                       s2(2)<=not hardtemp1(2);
                       s3(2)<= hardtemp1(2);
                       s4(2)<= hardtemp1(2);
                       s5(2)<=not hardtemp1(2);
                       s6(2)<=not hardtemp1(2);
                       s7(2)<= hardtemp1(2);
                       s8(2)<= hardtemp1(2);
                       s9(2)<=not hardtemp1(2);
                       s10(2)<=not hardtemp1(2);
                       s11(2)<=hardtemp1(2);
                       s12(2)<= hardtemp1(2);
                       s13(2)<=not hardtemp1(2);
                       s14(2)<=not hardtemp1(2);
                       s15(2)<= hardtemp1(2);
          when "0100"=>s0(2)<=hardtemp1(2);
                       s1(2)<=hardtemp1(2);
                       s2(2)<=not hardtemp1(2);
                       s3(2)<=not hardtemp1(2);
                       s4(2)<=not hardtemp1(2);
                       s5(2)<=not hardtemp1(2);
                       s6(2)<=hardtemp1(2);
                       s7(2)<=hardtemp1(2);
                       s8(2)<=hardtemp1(2);
                       s9(2)<=hardtemp1(2);
                       s10(2)<=not hardtemp1(2);
                       s11(2)<=not hardtemp1(2);
                       s12(2)<=not  hardtemp1(2);
                       s13(2)<=not hardtemp1(2);
                       s14(2)<=hardtemp1(2);
                       s15(2)<= hardtemp1(2);

          when "0010"=>s0(2)<=hardtemp1(2);
                       s1(2)<=hardtemp1(2);
                       s2(2)<=hardtemp1(2);
                       s3(2)<=hardtemp1(2);
                       s4(2)<=not hardtemp1(2);
                       s5(2)<=not hardtemp1(2);
                       s6(2)<=not hardtemp1(2);
                       s7(2)<=not hardtemp1(2);
                       s8(2)<=not hardtemp1(2);
                       s9(2)<=not hardtemp1(2);
                       s10(2)<=not hardtemp1(2);
                       s11(2)<=not hardtemp1(2);
                       s12(2)<=hardtemp1(2);
                       s13(2)<=hardtemp1(2);
                       s14(2)<=hardtemp1(2);
                       s15(2)<=hardtemp1(2);
          when "0001"=>s0(2)<=hardtemp1(2);
                       s1(2)<=hardtemp1(2);
                       s2(2)<=hardtemp1(2);
                       s3(2)<=hardtemp1(2);
                       s4(2)<=hardtemp1(2);
                       s5(2)<=hardtemp1(2);
                       s6(2)<=hardtemp1(2);
                       s7(2)<=hardtemp1(2);
                       s8(2)<=not hardtemp1(2);
                       s9(2)<=not hardtemp1(2);
                       s10(2)<=not hardtemp1(2);
                       s11(2)<=not hardtemp1(2);
                       s12(2)<=not hardtemp1(2);
                       s13(2)<=not hardtemp1(2);
                       s14(2)<=not hardtemp1(2);
                       s15(2)<=not hardtemp1(2);
          when others=>s0(2)<=hardtemp1(2);
                       s1(2)<=hardtemp1(2);
                       s2(2)<=hardtemp1(2);
                       s3(2)<=hardtemp1(2);
                       s4(2)<=hardtemp1(2);
                       s5(2)<=hardtemp1(2);
                       s6(2)<=hardtemp1(2);
                       s7(2)<=hardtemp1(2);
                       s8(2)<=hardtemp1(2);
                       s9(2)<=hardtemp1(2);
                       s10(2)<=hardtemp1(2);
                       s11(2)<=hardtemp1(2);
                       s12(2)<=hardtemp1(2);
                       s13(2)<=hardtemp1(2);
                       s14(2)<=hardtemp1(2);
                       s15(2)<=hardtemp1(2);
          end case;
--   end if;
--end process;
----------------------------
--process(clk)
--begin
--   if clk'event and clk='1' then
       case comresult3 is
          when "1000"=>s0(3)<=hardtemp1(3);
                       s1(3)<=not hardtemp1(3);
                       s2(3)<=not hardtemp1(3);
                       s3(3)<= hardtemp1(3);
                       s4(3)<= hardtemp1(3);
                       s5(3)<=not hardtemp1(3);
                       s6(3)<=not hardtemp1(3);
                       s7(3)<= hardtemp1(3);
                       s8(3)<= hardtemp1(3);
                       s9(3)<=not hardtemp1(3);
                       s10(3)<=not hardtemp1(3);
                       s11(3)<=hardtemp1(3);
                       s12(3)<= hardtemp1(3);
                       s13(3)<=not hardtemp1(3);
                       s14(3)<=not hardtemp1(3);
                       s15(3)<= hardtemp1(3);
          when "0100"=>s0(3)<=hardtemp1(3);
                       s1(3)<=hardtemp1(3);
                       s2(3)<=not hardtemp1(3);
                       s3(3)<=not hardtemp1(3);
                       s4(3)<=not hardtemp1(3);
                       s5(3)<=not hardtemp1(3);
                       s6(3)<=hardtemp1(3);
                       s7(3)<=hardtemp1(3);
                       s8(3)<=hardtemp1(3);
                       s9(3)<=hardtemp1(3);
                       s10(3)<=not hardtemp1(3);
                       s11(3)<=not hardtemp1(3);
                       s12(3)<=not  hardtemp1(3);
                       s13(3)<=not hardtemp1(3);
                       s14(3)<=hardtemp1(3);
                       s15(3)<= hardtemp1(3);

          when "0010"=>s0(3)<=hardtemp1(3);
                       s1(3)<=hardtemp1(3);
                       s2(3)<=hardtemp1(3);
                       s3(3)<=hardtemp1(3);
                       s4(3)<=not hardtemp1(3);
                       s5(3)<=not hardtemp1(3);
                       s6(3)<=not hardtemp1(3);
                       s7(3)<=not hardtemp1(3);
                       s8(3)<=not hardtemp1(3);
                       s9(3)<=not hardtemp1(3);
                       s10(3)<=not hardtemp1(3);
                       s11(3)<=not hardtemp1(3);
                       s12(3)<=hardtemp1(3);
                       s13(3)<=hardtemp1(3);
                       s14(3)<=hardtemp1(3);
                       s15(3)<=hardtemp1(3);
          when "0001"=>s0(3)<=hardtemp1(3);
                       s1(3)<=hardtemp1(3);
                       s2(3)<=hardtemp1(3);
                       s3(3)<=hardtemp1(3);
                       s4(3)<=hardtemp1(3);
                       s5(3)<=hardtemp1(3);
                       s6(3)<=hardtemp1(3);
                       s7(3)<=hardtemp1(3);
                       s8(3)<=not hardtemp1(3);
                       s9(3)<=not hardtemp1(3);
                       s10(3)<=not hardtemp1(3);
                       s11(3)<=not hardtemp1(3);
                       s12(3)<=not hardtemp1(3);
                       s13(3)<=not hardtemp1(3);
                       s14(3)<=not hardtemp1(3);
                       s15(3)<=not hardtemp1(3);
          when others=>s0(3)<=hardtemp1(3);
                       s1(3)<=hardtemp1(3);
                       s2(3)<=hardtemp1(3);
                       s3(3)<=hardtemp1(3);
                       s4(3)<=hardtemp1(3);
                       s5(3)<=hardtemp1(3);
                       s6(3)<=hardtemp1(3);
                       s7(3)<=hardtemp1(3);
                       s8(3)<=hardtemp1(3);
                       s9(3)<=hardtemp1(3);
                       s10(3)<=hardtemp1(3);
                       s11(3)<=hardtemp1(3);
                       s12(3)<=hardtemp1(3);
                       s13(3)<=hardtemp1(3);
                       s14(3)<=hardtemp1(3);
                       s15(3)<=hardtemp1(3);
          end case;
   end if;
end process;

--==============================================
process(clk)
begin
   if clk'event and clk='1' then
      seq0<=s0;
      seq1<=s1;
      seq2<=s2;
      seq3<=s3;
      seq4<=s4;
      seq5<=s5;
      seq6<=s6;
      seq7<=s7;
      seq8<=s8;
      seq9<=s9;
      seq10<=s10;
      seq11<=s11;
      seq12<=s12;
      seq13<=s13;
      seq14<=s14;
      seq15<=s15;

   end if;
end process;

end rtl;

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -