if (cnt = "000000000000000000000") then -- 21.48MHz / 2^21(approx:2M) => 10Hz case seq is when "0010" => pLed <= "00000001"; iDipLed(2) <= not pDip(2); when "0011" => pLed <= "00000011"; iDipLed(1) <= not pDip(1); when "0100" => pLed <= "00000111"; iDipLed(0) <= not pDip(0); when "0101" => pLed <= "00001111"; iDipLed(1) <= not pDip(1); when "0110" => pLed <= "00011111"; iDipLed(2) <= not pDip(2); when "0111" => pLed <= "00111111"; iDipLed(3) <= not pDip(3); when "1000" => pLed <= "01111111"; iDipLed(4) <= not pDip(4); when "1001" => pLed <= "1111111Z"; iDipLed(5) <= not pDip(5); when "1010" => pLed <= "111111Z0"; iDipLed(6) <= not pDip(6); when "1011" => pLed <= "11111Z00"; iDipLed(7) <= not pDip(7); when "1100" => pLed <= "1111Z000"; iDipLed(6) <= not pDip(6); when "1101" => pLed <= "111Z0000"; iDipLed(5) <= not pDip(5); when "1110" => pLed <= "11Z00000"; iDipLed(4) <= not pDip(4); when "1111" => pLed <= "1Z000000"; iDipLed(3) <= not pDip(3); when others => pLed <= "ZZZZZZZZ"; iDipLed <= not pDip ; end case; end if; |