-- Versuchsreihe 2, Versuch 4, Aufgabe 1.
-- Ziel: Elektronischer Würfel
-- Tobias Schubert, März 2003

ENTITY wuerfel IS
	PORT ( Q: OUT INTEGER RANGE 1 TO 6; CLK: IN bit; TASTE: IN bit );
END wuerfel;

ARCHITECTURE verhalten OF wuerfel IS
BEGIN
	
	PROCESS (CLK,TASTE)
		VARIABLE Wert: INTEGER RANGE 1 TO 6 := 1;
		BEGIN
	
		-- Mit jedem Takt erhöhen.
		IF (CLK'EVENT AND CLK = '1') THEN

			-- Nur bei Tastendruck 
			IF TASTE = '1' THEN

				-- Wert ausgeben.
				Q <= Wert;

				-- Inkrementieren.
				IF Wert = 6 THEN Wert := 1; ELSE Wert := Wert + 1; END IF;

			END IF;	
			
		END IF;

	END PROCESS;

END verhalten;