final commit

LAB1/lab1_kit_car/lab1_kit_car.srcs/sources_1/new/KittCar.vhd

@@ -0,0 +1,80 @@
+---------- DEFAULT LIBRARY ---------
+LIBRARY IEEE;
+USE IEEE.STD_LOGIC_1164.ALL;
+USE IEEE.NUMERIC_STD.ALL;
+------------------------------------
+
+ENTITY KittCar IS
+    GENERIC (
+
+        CLK_PERIOD_NS : POSITIVE RANGE 1 TO 100 := 10; -- clk period in nanoseconds
+        MIN_KITT_CAR_STEP_MS : POSITIVE RANGE 1 TO 2000 := 1; -- Minimum step period in milliseconds (i.e., value in milliseconds of Delta_t)
+
+        NUM_OF_SWS : INTEGER RANGE 1 TO 16 := 16; -- Number of input switches
+        NUM_OF_LEDS : INTEGER RANGE 1 TO 16 := 16 -- Number of output LEDs
+
+    );
+    PORT (
+
+        ------- Reset/Clock --------
+        reset : IN STD_LOGIC;
+        clk : IN STD_LOGIC;
+        ----------------------------
+
+        -------- LEDs/SWs ----------
+        sw : IN STD_LOGIC_VECTOR(NUM_OF_SWS - 1 DOWNTO 0); -- Switches avaiable on Basys3
+        led : OUT STD_LOGIC_VECTOR(NUM_OF_LEDS - 1 DOWNTO 0) -- LEDs avaiable on Basys3
+        ----------------------------
+
+    );
+END KittCar;
+
+ARCHITECTURE Behavioral OF KittCar IS
+    SIGNAL leds_sr : STD_LOGIC_VECTOR(led'RANGE) := (OTHERS => '0');
+    SIGNAL counter : UNSIGNED(47 DOWNTO 0) := (OTHERS => '0');
+    SIGNAL n_period : POSITIVE RANGE 1 TO 2 ** NUM_OF_SWS := 1;
+BEGIN
+
+    PROCESS (clk, reset)
+        VARIABLE up : STD_LOGIC := '1';
+    BEGIN
+        -- up/down logic
+        IF leds_sr(NUM_OF_LEDS - 1) = '1' THEN
+            up := '0';
+        ELSIF leds_sr(0) = '1' THEN
+            up := '1';
+        END IF;
+
+        -- Reset the leds
+        IF unsigned(leds_sr) = 0 THEN
+            leds_sr <= (0 => '1', OTHERS => '0');
+        END IF;
+
+        IF reset = '1' THEN
+            leds_sr <= (OTHERS => '0');
+            up := '1';
+            counter <= (OTHERS => '0');
+        ELSIF rising_edge(clk) THEN
+            -- Calculate the number of periods
+            IF counter >= ((MIN_KITT_CAR_STEP_MS * 1000000) * n_period) THEN
+                counter <= (OTHERS => '0');
+                -- Shift the leds
+                IF up = '1' THEN
+                    leds_sr <= leds_sr(NUM_OF_LEDS - 2 DOWNTO 0) & '0';
+                ELSIF up = '0' THEN
+                    leds_sr <= '0' & leds_sr(NUM_OF_LEDS - 1 DOWNTO 1);
+                END IF;
+            ELSE
+                counter <= counter + to_unsigned(CLK_PERIOD_NS, counter'LENGTH);
+            END IF;
+        END IF;
+    END PROCESS;
+
+    PROCESS (sw)
+    BEGIN
+        n_period <= to_integer(unsigned(sw)) + 1;
+    END PROCESS;
+
+    led <= leds_sr;
+
+END Behavioral;