[用户帮助] VHDL语言简单的LCD动态数字显示竟然错误!!!求助!!!

[复制链接]

技术员

发表于 2018-1-29 17:28:42   770 查看 1 回复 显示全部楼层 倒序浏览
分享
----------------------------------------
library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_unsigned.all;


entity Second is
    port (clk,en,res,add,sub:in std_logic;----en使能,res清零,add加,sub减,co进位
          sec0,sec1:out std_logic_vector(3 downto 0);
          co :out std_logic);
end Second;


architecture sec of Second is
   begin
    process(clk,en,res,add,sub)
    variable s0,s1:std_logic_vector(3 downto 0):="0000";
     begin
            if rising_edge (clk) then
                 s1:=s1+1; s0:=s0+1;
           end if;     
         sec1<=s1;
         sec0<=s0;
       end process;
end sec;
----------------------------------------
library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_arith.all;
use ieee.std_logic_unsigned.all;


entity  l222 is
        port
        (
                Clk:in STD_LOGIC;--输入1khz时钟
                Rst:in STD_LOGIC;--复位信号
                Data:inout STD_LOGIC_VECTOR(7 downto 0);--LCD数据总线
                LCDRst,EN,RW,RS:out STD_LOGIC;--LCD控制信号
                LED:out STD_LOGIC;
                sec0,sec1,min0,min1,hour0,hour1,day0,day1,mon0,mon1,year0,year1,year2,year3,week:in STD_LOGIC_VECTOR(3 downto 0)       
                );
end l222;


architecture behave of l222 is
signal DClk:STD_LOGIC;
signal pLED:STD_LOGIC;
-
------
begin
------------------------------


LCDRst<='1';
LED<=pLED;
------------------------------
        process(Clk,Rst)
        variable Cnt:INTEGER range 0 to 500;
        variable a: integer range 0 to 4:=0;
   variable q: integer range 0 to 20:=1;
   variable p: integer range 0 to 31:=0;
        variable c: integer range 1 to 16:=1;
        variable b: integer range 1 to 16:=1;
        variable d: integer range 1 to 16:=1;
        begin
                if (Rst='0') then
                        EN<='0';
                        RW<='1';
                        RS<='0';
                        Cnt:=0;
                        pLED<='0';
                elsif rising_edge (Clk) then
                        Cnt:=Cnt+1;
                       
                       
                          if Cnt=41 then
                             p:=1;
                         elsif Cnt>41  then
                            p:=p+1;
                             if  p=11 then  p:=1;
                                  end if;
                          end if;
                        case Cnt is
                                when 1 => RS<='0';--指令
                                when 2 => RW<='0';--写
                                when 3 => EN<='0';
                                when 4 => Data<=X"30";--基本指令集
                                when 6 => EN<='1';
                                when 8 => EN<='0';
                                when 9 => RW<='1';
                                when 10 => RS<='0';
                               
                                when 11 => RS<='0';--指令
                                when 12 => RW<='0';--写
                                when 13 => EN<='0';
                                when 14 => Data<=X"01";--清屏
                                when 16 => EN<='1';
                                when 18 => EN<='0';
                                when 19 => RW<='1';
                                when 20 => RS<='0';
                               
                               
                               


                                when 31 => RS<='0';--指令
                                when 32 => RW<='0';--写
                                when 33 => EN<='0';
                                when 34 => Data<=X"0C";--开显示
                                when 36 => EN<='1';
                                when 38 => EN<='0';
                                when 39 => RW<='1';
                                when 40 => RS<='0';
                       
                               
                                --when 41 to 190 =>----
                                 --  if p=1 then  
                                --             if a=0 then RS<='0';
                                --                   elsif a=1 or a=2 then RS<='1';
                                --                        end  if;
                                --elsif p=2 then  RW<='0';  
                                --elsif p=3 then  EN<='0';  
                        --        elsif p=4 then  Data<=aaa(c); c:=c+1;            
                        --        elsif p=6 then  EN<='1';  
                        --        elsif p=7 then  EN<='0';
                        --        elsif p=8 then  RW<='1';   
                        --        elsif p=9 then  RS<='0'; a:=a+1;
                                --            if a=3 then a:=0;
                                --                                end if;
                         
                                --end if;
                      ----------------------------------------------------------------------------------年------------------
                                when 201 => RS<='0';--指令
                                when 202 => RW<='0';--写
                                when 203 => EN<='0';
                                when 204 => Data<=X"80";-
                                when 206 => EN<='1';
                                when 208 => EN<='0';
                                when 209 => RW<='1';
                                when 210 => RS<='0';
                               
                                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';
                                when others => null;                                       
                        end case;
                end if;
        end process;
--------------------------------
end behave;

--------------------------------
应有现象00 01 02 03.。。。。。。。。
可真实现象为00 00 00 00 00

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
标签:VHDL 语言 简单 LCD 动态

技术员

发表于 2018-2-2 08:13:33  

回帖奖励 +1 分积分

C语言设计没怎么用所以忘了
回复

点赞 举报

高级模式
您需要登录后才可以回帖 登录 | 注册

关闭

站长推荐 上一条 /9 下一条

快速回复 返回顶部 返回列表
-

推荐专区

技术干货集中营

专家问答

方案交易

用户帮助┃咨询与建议┃版主议事

工程师杂谈

项目|工程师创意

招聘|求职}工程师职场

论坛电子赛事

社区活动专版

发烧友活动

-

嵌入式论坛

ARM技术论坛

Android论坛

Linux论坛

单片机/MCU论坛

MSP430技术论坛

FPGA|CPLD|ASIC论坛

STM32/STM8技术论坛

NXP MCU 技术论坛

PIC单片机论坛

DSP论坛

瑞萨单片机论坛

嵌入式系统论坛

-

电源技术论坛

电源技术论坛

无线充电技术

-

硬件设计论坛

PCB设计论坛

电路设计论坛

电子元器件论坛

控制|传感

总线技术|接口技术

-

测试测量论坛

LabVIEW论坛

Matlab论坛

测试测量技术专区

仪器仪表技术专区

-

EDA设计论坛

multisim论坛

PADS技术论坛

Protel|AD|DXP论坛

Allegro论坛

proteus论坛|仿真论坛

EasyEDA-中国人自已的EDA工具

Orcad论坛

-

综合技术与应用

电机控制

智能电网

光电及显示

工程资源中心

汽车电子技术论坛

医疗电子论坛

-

开源硬件

-

无线通信论坛

无线通信技术专区

天线|RF射频|微波|雷达技术

-

IC设计论坛

芯片测试与失效分析

Mixed Signal/SOC[数模混合芯片设计]

Analog/RF IC设计

设计与制造封装测试

-

厂商专区

TI论坛

TI Deyisupport社区

-

检测技术与质量

电磁兼容(EMC)设计与整改

安规知识论坛

检测与认证

-

消费电子论坛

手机技术论坛

平板电脑/mid论坛

音视/视频/机顶盒论坛

-

电子论坛综合区

聚丰众筹官方社区

新人报道区

聚丰供应链

-

论坛服务区

-

供求信息发布

供需广告

电子展览展会专区

芯片求购|供应发布区