Honored Contributor
Honored ContributorThis is my code so far:
(coins : 0.10; 0.20; 0.50 ans 1.00) library IEEE; use IEEE.STD_LOGIC_1164.all; use IEEE.NUMERIC_STD.all; entity VendingMachine is port(sel: in std_logic_vector(1 downto 0); reset,clk,u,d,c,t: in std_logic; opn: out std_logic; total: out std_logic); end VendingMachine; architecture Behav of VendingMachine is type estados is(s0, s10,s20,s30,s40,s50,s60,s70,s80,s90,s100,s110,s120,s130,s140,s150,s160,s170,s180,s190,s200,s210,opnd); signal ps, ns : estados; begin sync_proc: process(clk, reset) begin if(reset = '1') then ps <= s0; elsif(rising_edge(clk)) then ps <= ns; end if; end process; comb_proc: process(ps,u,d,c,t,ns) begin ns <= ps; case ps is when s0 => --0.00€ if u = '1' then ns <= s10; elsif d = '1' then ns <= s20; elsif c = '1' then ns <= s50; elsif t = '1' then ns <= s100; end if; when s10 => if u = '1' then ns <= s20; elsif d = '1' then ns <= s30; elsif c = '1' then ns <= s60; elsif t = '1' then ns <= s110; end if; when s20 => if u = '1' then ns <= s30; elsif d = '1' then ns <= s40; elsif c = '1' then ns <= s70; elsif t = '1' then ns <= s120; end if; when s30 => if u = '1' then ns <= s40; elsif d = '1' then ns <= s50; elsif c = '1' then ns <= s80; elsif t = '1' then ns <= s130; end if; when s40 => if u = '1' then ns <= s50; elsif d = '1' then ns <= s60; elsif c = '1' then ns <= s90; elsif t = '1' then ns <= s140; end if; when s50 => if u = '1' then ns <= s60; elsif d = '1' then ns <= s70; elsif c = '1' then ns <= s100; elsif t = '1' then ns <= s150; end if; when s60 => if u = '1' then ns <= s70; elsif d = '1' then ns <= s80; elsif c = '1' then ns <= s110; elsif t = '1' then ns <= s160; end if; when s70 => if u = '1' then ns <= s80; elsif d = '1' then ns <= s90; elsif c = '1' then ns <= s120; elsif t = '1' then ns <= s170; end if; when s80 => if u = '1' then ns <= s90; elsif d = '1' then ns <= s100; elsif c = '1' then ns <= s130; elsif t = '1' then ns <= s180; end if; if(sel = "01") then ns <= opnd; end if; when s90 => if u = '1' then ns <= s100; elsif d = '1' then ns <= s110; elsif c = '1' then ns <= s140; elsif t = '1' then ns <= s190; end if; if(sel = "01") then ns <= opnd; end if; when s100 => if u = '1' then ns <= s110; elsif d = '1' then ns <= s120; elsif c = '1' then ns <= s150; elsif t = '1' then ns <= s200; end if; if( sel = "10") then ns <= opnd; elsif(sel = "01") then ns <= opnd; end if; when s110 => if u = '1' then ns <= s120; elsif d = '1' then ns <= s130; elsif c = '1' then ns <= s160; elsif t = '1' then ns <= s210; end if; if( sel = "10") then ns <= opnd; elsif(sel = "01") then ns <= opnd; end if; when s120 => if u = '1' then ns <= s130; elsif d = '1' then ns <= s150; elsif c = '1' then ns <= s170; end if; if(sel = "01") then ns <= opnd; elsif( sel = "10") then ns <= opnd; elsif(sel <= "11") then ns <= opnd; end if; when s130 => if(sel = "01") then ns <= opnd; elsif( sel = "10") then ns <= opnd; elsif(sel <= "11") then ns <= opnd; end if; when s140 => if(sel = "01") then ns <= opnd; elsif( sel = "10") then ns <= opnd; elsif(sel <= "11") then ns <= opnd; end if; when s150 => if(sel = "01") then ns <= opnd; elsif( sel = "10") then ns <= opnd; elsif(sel <= "11") then ns <= opnd; end if; when s160 => if(sel = "01") then ns <= opnd; elsif( sel = "10") then ns <= opnd; elsif(sel <= "11") then ns <= opnd; end if; when s170 => if(sel = "01") then ns <= opnd; elsif( sel = "10") then ns <= opnd; elsif(sel <= "11") then ns <= opnd; end if; when s180 => if(sel = "01") then ns <= opnd; elsif( sel = "10") then ns <= opnd; elsif(sel <= "11") then ns <= opnd; end if; when s190 => if(sel = "01") then ns <= opnd; elsif( sel = "10") then ns <= opnd; elsif(sel <= "11") then ns <= opnd; end if; when s200 => if(sel = "01") then ns <= opnd; elsif( sel = "10") then ns <= opnd; elsif(sel <= "11") then ns <= opnd; end if; when s210 => if(sel = "01") then ns <= opnd; elsif( sel = "10") then ns <= opnd; elsif(sel <= "11") then ns <= opnd; end if; when opnd => opn <= '1'; when others => ns <= ps; end case; end process; end Behav;