if rising_edge (clk) then
s1:=s1+1; s0:=s0+1;
end if;
sec1<=s1;
sec0<=s0;
--------------------------
when 211 => RS<='1';--指令
when 212 => RW<='0';--写
when 213 => EN<='0';
when 214 =>
case sec1 is
when "0000" => Data<=X"31";
when "0001" => Data<=X"31";
when "0010" => Data<=X"32";
when "0011" => Data<=X"33";--
when "0100" => Data<=X"34";
when "0101" => Data<=X"35";
when "0110" => Data<=X"36";
when "0111" => Data<=X"37";
when "1000" => Data<=X"38";
when "1001" => Data<=X"39";
when others => null;
end case;
when 216 => EN<='1';
when 218 => EN<='0';
when 219 => RW<='1';
when 220 => RS<='0';
when 221 => RS<='1';--指令
when 222 => RW<='0';--写
when 223 => EN<='0';
when 224 =>
case sec0 is
when "0000" => Data<=X"30";
when "0001" => Data<=X"31";
when "0010" => Data<=X"32";
when "0011" => Data<=X"33";--
when "0100" => Data<=X"34";
when "0101" => Data<=X"35";
when "0110" => Data<=X"36";
when "0111" => Data<=X"37";
when "1000" => Data<=X"38";
when "1001" => Data<=X"39";
when others => null;
end case;
when 226 => EN<='1';
when 228 => EN<='0';
when 229 => RW<='1';
when 230 => RS<='0';
------------------------------------------------
---------------------------------------------
when 500 => Cnt:=210;pLED<='1';
应有现象00 01 02 03.。。。。。。。。
可真实现象为00 00 00 00 00
-
友情提示: 此问题已得到解决,问题已经关闭,关闭后问题禁止继续编辑,回答。
一周热门 更多>