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;
|