求助帖求大神幫我看看這個(gè)要怎么仿真？

QQ1641085143 · 發(fā)表于 2022-7-18 15:06:53

library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_unsigned.all;
entity taxi is
port(clk:in std_logic;
   start:in std_logic;
   stop:in std_logic;
   pause:in std_logic;
   speedup:in std_logic_vector(1 downto 0);
   money:out integer range 0 to 8000;
   distance:out integer range 0 to 8000);
end;
architecture one of taxi is
begin
process(clk,start,stop,pause,speedup)
   variable money_reg,distance_reg:integer range 0 to 8000;
   variable num:integer range 0 to 9;
   variable dis:integer range 0 to 100;
   variable d:std_logic;
begin
if stop='1'then
   money_reg:=0;
   distance_reg:=0;
   dis:=0;
   num:=0;
elsif start='1'then
   money_reg:=600;
   distance_reg:=0;
   dis:=0;
   num:=0;
elsif clk'event and clk='1'then
   if start='0'and speedup="00"and pause='0'  and stop='0'then
         if num=9 then
               num:=0;
               distance_reg:=distance_reg+1;
               dis:=dis+1;
            else num:=num+1;
            end if;
elsif start='0'and speedup="01"and pause='0'and stop='0'then
if num=9 then
      num:=0;
      distance_reg:=distance_reg+2;
      dis:=dis+2;
   else num:=num+1;
   end if;
elsif start='0'and speedup="10"and pause='0'and stop='0'then
if num=9 then
      num:=0;
      distance_reg:=distance_reg+5;
      dis:=dis+5;
else num:=num+1;
end if;
elsif start='0'and speedup="11"and pause='0'and stop='0'then
         distance_reg:=distance_reg+1;
      dis:=dis+1;
end if;
if dis>=100then
      d:='1';
      dis:=0;
   else d:='0';
end if;
if distance_reg>=300 then
   if money_reg<2000and d='1'then
            money_reg:=money_reg+120;
   elsif money_reg>=2000 and d='1'then
         money_reg:=money_reg+180;
   end if;
end if;
end if;
money<=money_reg;
distance<=distance_reg;
end process;
end;
程序是這樣的，

你好我是河源人 · 發(fā)表于 2022-7-18 15:07:14

pandaquan0 · 發(fā)表于 2022-7-18 15:07:36

到仿真這里我實(shí)在是不知道要在每個(gè)輸入和輸出端口上面添加什么信號，哪位大神可以幫我看看

朱威斯 · 發(fā)表于 2022-7-18 15:08:19

library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_unsigned.all;
entity decoder is
port(clk20mhz:in std_logic;
   money_in:in integer range 0to 8000;
distance_in:in integer range 0 to 8000;
scan:out std_logic_vector(7 downto 0);
seg7:out std_logic_vector(6 downto 0);
dp:out std_logic);
end;
architecture one of decoder is
signal clk1khz:std_logic;
signal data:std_logic_vector(3 downto 0);
signal m_one,m_ten,m_hun,m_tho:std_logic_vector(3 downto 0 );
signal d_one,d_ten,d_hun,d_tho:std_logic_vector(3 downto 0);
begin
process(clk20mhz)
variable count:integer range 0 to 9999;
begin
if clk20mhz'event and clk20mhz='1'then
if count=9999 then clk1khz<=not clk1khz;count:=0;
else count:=count+1;
end if;
end if;
end process;
process(clk20mhz,money_in)
   variable comb1:integer range 0 to 8000;
variable comb1_a,comb1_b,comb1_c,comb1_d:std_logic_vector(3 downto 0);
begin
if clk20mhz'event and clk20mhz='1'then
   if comb1<money_in then
   if comb1_a=9 and comb1_b=9 and comb1_c=9 then
   comb1_a:="0000";
comb1_b:="0000";
comb1_c:="0000";
comb1_d:=comb1_d+1;
comb1:=comb1+1;
elsif comb1_a=9 and comb1_b=9 then
comb1_a:="0000";
comb1_b:="0000";
comb1_c:=comb1_c+1;
comb1:=comb1+1;
elsif comb1_a=9 then
   comb1_a:="0000";
comb1_b:=comb1_b+1;
comb1:=comb1+1;
else
   comb1_a:=comb1_a+1;
comb1:=comb1+1;
  end if;
  elsif comb1=money_in then
   m_one<=comb1_a;
m_ten<=comb1_b;
m_hun<=comb1_c;
m_tho<=comb1_d;
elsif comb1>money_in then
         comb1_a:="0000";
   comb1_b:="0000";
comb1_c:="0000";
   comb1_d:="0000";
comb1:=0;
end if;
end if;
end process;
process(clk20mhz,distance_in)
   variable comb2:integer range 0 to 8000;
variable comb2_a,comb2_b,comb2_c,comb2_d:std_logic_vector(3 downto 0);
begin
if clk20mhz'event and clk20mhz='1'then
   if comb2<distance_in then
         if comb2_a=9 and comb2_b=9 and comb2_c=9 then
               comb2_a:="0000";
      comb2_b:="0000";
      comb2_c:="0000";
comb2_d:=comb2_d+1;
comb2:=comb2+1;
elsif comb2_a=9 and comb2_b=9 then
         comb2_a:="0000";
   comb2_b:="0000";
comb2_c:=comb2_c+1;
comb2:=comb2+1;
elsif comb2_a=9 then
         comb2_a:="0000";
   comb2_b:=comb2_b+1;
   comb2:=comb2+1;
else
            comb2_a:=comb2_a+1;
   comb2:=comb2+1;
end if;
   elsif comb2=distance_in then
            d_one<=comb2_a;
      d_ten<=comb2_b;
   d_hun<=comb2_c;
   d_tho<=comb2_d;
elsif comb2>distance_in then
            comb2_a:="0000";
      comb2_b:="0000";
      comb2_c:="0000";
      comb2_d:="0000";
      comb2:=0;
end if;
end if;
end process;
process(clk1khz,m_one,m_ten,m_hun,m_tho,d_one,d_ten,d_hun,d_tho)
variable cnt:std_logic_vector(2downto 0);
begin
if clk1khz'event and clk1khz='1'then
   cnt:=cnt+1;
end if;
case cnt is
   when"000"=>data<=m_one;dp<='0';scan<="00000001";
   when"001"=>data<=m_ten;dp<='0';scan<="00000010";
   when"010"=>data<=m_hun;dp<='1';scan<="00000100";
   when"011"=>data<=m_tho;dp<='0';scan<="00001000";
  when"100"=>data<=m_one;dp<='0';scan<="00010000";
   when"101"=>data<=m_ten;dp<='0';scan<="00100000";
   when"110"=>data<=m_hun;dp<='1';scan<="01000000";
   when"111"=>data<=m_tho;dp<='0';scan<="10000000";
end case;
end process;
process(data)
begin
case data is
   when"0000"=>seg7<="1111110";
when"0001"=>seg7<="0110000";
when"0010"=>seg7<="1101101";
when"0011"=>seg7<="1111001";
when"0100"=>seg7<="0110011";
when"0101"=>seg7<="1011011";
when"0110"=>seg7<="1011111";
when"0111"=>seg7<="1110000";
when"1000"=>seg7<="1111111";
when"1001"=>seg7<="1111011";
when others=>seg7<="0000000";
end case;
end process;
end;

第二個(gè)程序是這樣的