krtlcd.vhd

12864图形点阵液晶驱动vhdl程序

x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"04",x"06",x"05",x"04",x"04",x"05",x"02",x"01",x"00",x"00",x"00",x"00",x"00",x"00",x"03",x"04",x"04",x"07",x"00",x"00",x"00",x"03",x"04",x"00",x"00",x"00",x"00",x"00",x"01",x"06",x"01",x"00",x"00",x"00",x"03",
x"04",x"04",x"05",x"00",x"01",x"02",x"02",x"02",x"02",x"02",x"06",x"02",x"02",x"02",x"02",x"02",x"03",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00");

constant pic3data:picdatatype:=(
x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"80",x"00",x"80",x"00",x"80",x"00",x"00",x"80",x"80",x"00",x"00",x"00",x"80",x"80",x"80",x"00",x"00",x"00",x"00",x"00",x"00",x"80",x"00",x"00",x"80",x"80",x"80",x"00",x"00",x"00",x"80",x"80",x"00",x"00",x"00",x"80",x"80",x"80",x"80",x"00",x"00",x"00",x"80",x"80",x"80",x"00",x"00",x"00",x"00",x"00",x"80",x"80",x"80",
x"00",x"80",x"80",x"80",x"00",x"00",x"80",x"80",x"00",x"80",x"80",x"80",x"80",x"80",x"00",x"80",x"80",x"80",x"00",x"80",x"80",x"80",x"80",x"00",x"00",x"80",x"80",x"80",x"00",x"00",x"00",x"80",x"80",x"00",x"00",x"00",x"80",x"80",x"80",x"80",x"00",x"00",x"00",x"80",x"80",x"80",x"00",x"00",x"00",x"00",x"00",x"80",x"80",x"80",x"00",x"80",x"80",x"80",x"00",x"00",x"00",x"00",x"00",x"00",
x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"07",x"08",x"0F",x"08",x"0F",x"00",x"07",x"08",x"08",x"07",x"00",x"00",x"0C",x"08",x"08",x"07",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"06",x"0A",x"0A",x"07",x"00",x"00",x"00",x"08",x"3F",x"08",x"00",x"00",x"07",x"0A",x"0A",x"05",x"00",x"00",x"06",x"0A",x"0A",x"07",x"00",x"00",x"08",x"08",x"04",x"0F",x"08",
x"00",x"0C",x"08",x"08",x"07",x"00",x"00",x"07",x"08",x"08",x"0F",x"08",x"00",x"07",x"08",x"08",x"7F",x"40",x"00",x"3E",x"52",x"4E",x"40",x"3F",x"00",x"06",x"0A",x"0A",x"07",x"00",x"00",x"00",x"08",x"3F",x"08",x"00",x"00",x"07",x"0A",x"0A",x"05",x"00",x"00",x"06",x"0A",x"0A",x"07",x"00",x"00",x"08",x"08",x"04",x"0F",x"08",x"00",x"0C",x"08",x"08",x"07",x"00",x"00",x"00",x"00",x"00",
x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"3C",x"40",x"7C",x"40",x"7C",x"00",x"38",x"44",x"44",x"38",x"00",x"00",x"64",x"44",x"44",x"38",x"00",x"00",x"00",x"00",x"00",x"04",x"00",x"00",x"34",x"54",x"54",x"38",x"00",x"00",x"04",x"44",x"F8",x"40",x"00",x"04",x"3C",x"54",
x"54",x"28",x"00",x"00",x"34",x"54",x"54",x"38",x"00",x"00",x"40",x"40",x"24",x"7C",x"44",x"00",x"64",x"44",x"44",x"38",x"00",x"04",x"3C",x"40",x"44",x"7C",x"44",x"04",x"3C",x"40",x"44",x"FC",x"04",x"00",x"00",x"00",x"00",x"04",x"00",x"00",x"60",x"1C",x"70",x"1C",x"60",x"00",x"60",x"1C",x"70",x"1C",x"60",x"00",x"60",x"1C",x"70",x"1C",x"60",x"00",x"00",x"00",x"00",x"00",x"00",x"00",
x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"40",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"01",x"00",x"00",x"00",x"00",x"00",
x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"80",x"00",x"80",x"00",x"80",x"00",x"80",x"40",x"80",x"40",x"80",x"40",x"80",x"40",x"A0",x"40",x"A0",x"40",x"A0",x"40",x"A0",x"40",x"A3",x"42",x"A0",x"40",x"A0",x"40",x"A0",x"40",x"A0",x"40",x"A0",x"40",x"A0",x"40",x"A0",x"40",x"A0",x"40",x"A0",x"40",x"A0",x"40",x"A0",x"40",x"A0",x"40",x"A0",x"40",x"00",x"00",x"00",x"00",x"00",
x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"50",x"00",x"00",x"00",x"00",x"A8",x"04",x"00",x"00",x"00",x"80",x"00",x"00",x"00",x"B5",x"00",x"00",x"00",x"00",x"A0",x"40",x"A0",x"40",x"20",x"00",x"00",x"00",x"20",x"40",x"A0",x"40",x"A0",x"40",x"20",x"50",x"28",
x"90",x"28",x"14",x"28",x"14",x"2A",x"54",x"2A",x"95",x"4A",x"A5",x"52",x"21",x"40",x"01",x"82",x"9D",x"02",x"FD",x"00",x"00",x"00",x"00",x"90",x"48",x"8A",x"09",x"02",x"05",x"42",x"B1",x"48",x"B5",x"8A",x"75",x"0A",x"15",x"2A",x"55",x"AA",x"55",x"AA",x"95",x"6A",x"35",x"2A",x"95",x"AA",x"55",x"0A",x"05",x"0A",x"D5",x"AA",x"55",x"AA",x"55",x"AA",x"D5",x"00",x"00",x"00",x"00",x"00",
x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"80",x"00",x"80",x"55",x"00",x"00",x"00",x"00",x"54",x"AA",x"55",x"AA",x"55",x"2A",x"00",x"00",x"00",x"2D",x"00",x"00",x"00",x"51",x"AA",x"55",x"AA",x"55",x"00",x"C0",x"20",x"10",x"00",x"00",x"00",x"01",x"00",x"28",x"54",x"AA",x"55",
x"AA",x"00",x"00",x"00",x"00",x"14",x"08",x"14",x"0A",x"14",x"22",x"98",x"40",x"B0",x"40",x"22",x"41",x"08",x"19",x"28",x"18",x"08",x"08",x"00",x"08",x"20",x"00",x"00",x"10",x"08",x"5A",x"25",x"92",x"49",x"A6",x"1A",x"24",x"58",x"A8",x"D0",x"05",x"02",x"00",x"00",x"98",x"75",x"8A",x"F7",x"00",x"00",x"00",x"00",x"B8",x"00",x"00",x"00",x"D8",x"A9",x"54",x"00",x"00",x"00",x"00",x"00",
x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"50",x"A8",x"50",x"A8",x"50",x"A8",x"54",x"2A",x"95",x"4A",x"A5",x"4A",x"A5",x"50",x"A0",x"50",x"A8",x"55",x"A8",x"45",x"A0",x"40",x"A0",x"42",x"AD",x"41",x"A0",x"40",x"A0",x"4A",x"A5",x"52",x"A9",x"54",x"AA",x"55",x"88",x"10",x"08",x"90",x"44",x"D0",x"00",x"00",x"00",x"01",x"DA",x"49",
x"D4",x"00",x"00",x"00",x"00",x"CA",x"56",x"8A",x"45",x"92",x"49",x"A6",x"D9",x"A6",x"49",x"86",x"8C",x"08",x"84",x"0A",x"84",x"4A",x"81",x"42",x"A1",x"40",x"A0",x"40",x"24",x"12",x"2A",x"15",x"2A",x"05",x"6A",x"B1",x"02",x"01",x"82",x"03",x"E8",x"B0",x"48",x"80",x"83",x"15",x"4B",x"BF",x"80",x"00",x"80",x"C0",x"BB",x"C0",x"00",x"80",x"DF",x"AA",x"55",x"00",x"00",x"00",x"00",x"00",
x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"00",x"05",x"12",x"09",x"10",x"08",x"14",x"0A",x"15",x"0A",x"15",x"0A",x"15",x"0A",x"15",x"0A",x"15",x"0A",x"15",x"0A",x"15",x"0A",x"15",x"0A",x"15",x"0A",x"15",x"0A",x"15",x"0A",x"15",x"0A",x"15",x"0A",x"11",x"08",x"03",x"08",x"00",x"10",x"00",x"01",x"0F",x"00",x"00",x"00",x"00",x"0A",x"09",
x"12",x"00",x"00",x"00",x"00",x"18",x"08",x"14",x"0A",x"12",x"0A",x"19",x"0E",x"1B",x"04",x"0A",x"16",x"09",x"02",x"03",x"12",x"13",x"12",x"13",x"13",x"13",x"12",x"13",x"13",x"13",x"13",x"12",x"11",x"02",x"10",x"0F",x"00",x"00",x"1F",x"1F",x"1B",x"1B",x"04",x"1F",x"1F",x"1F",x"1F",x"1F",x"1F",x"04",x"1A",x"1F",x"1F",x"1F",x"00",x"15",x"1F",x"0A",x"03",x"00",x"00",x"00",x"00",x"00");


begin	

U0:lcdclk port map(sysclk=>sysclk,clk_250khz=>clk_250khz,clk_50hz=>clk_50hz);
U1:lcdkey port map(sysclk=>sysclk,lcd_modekey=>lcd_modekey,lcd_lightkey=>lcd_lightkey,lcd_lightbuf=>lightbuf,lcd_modebuf=>modebuf);

  process(clk_250khz)
  begin
    if clk_250khz'event and clk_250khz='0' then
         case present_state is
	    when initial =>
		  counter_ini<=counter_ini+1;
		  if counter_ini=5 then
		      lcd_cs1<='1';
			 lcd_cs2<='1';
			 dbbuf<=x"3f";
			 ebuf<='1';
		  elsif counter_ini=6 then
		      ebuf<='0';
		  elsif counter_ini=7 then
		      --ebuf<='1';
		      addrbuf<="0000000000";
			 present_state<=write;
			 counterbuf<="000";
			 counter_ini<=0;
		  end if;
	    when write => -- when the signal of ebuf first enter this state, it is "L" level.
		  lcd_cs1<=not addrbuf(6);
		  lcd_cs2<=addrbuf(6);
		  ebuf<= not ebuf;
		  counterbuf<=counterbuf+1;
		  if counterbuf(2 downto 1)="00" then		--X-Page 
		    dbbuf<="10111"&addrbuf(9 downto 7);
		  elsif counterbuf(2 downto 1)="01" then	--Y-addr
		    dbbuf<="01"&addrbuf(5 downto 0);
		  elsif counterbuf(2 downto 1)="10" then	--write data 
		    case modebuf is
		    when "00" => dbbuf<=pic0data(conv_integer(addrbuf));
		    when "01" => dbbuf<=pic1data(conv_integer(addrbuf));
		    when "10" => dbbuf<=pic2data(conv_integer(addrbuf));
		    when "11" => dbbuf<=pic3data(conv_integer(addrbuf));
		    when others=>null;
		    end case;
		  elsif counterbuf(2 downto 1)="11" then
		    counterbuf<="000";
		    ebuf<='0';
		    addrbuf<=addrbuf+1;
		    if addrbuf="1111111111" then
		      --present_state<=idle;
			 present_state<=initial;
		      counter_ini<=0;
		    end if;
		  end if;
	    when idle =>
		  --present_state<=idle;
            present_state<=initial;
	    when others =>
            present_state<=initial;
	 end case;
    end if;
  end process;

  process(clk_250khz)
  begin
  if clk_250khz'event and clk_250khz='1' then
    case present_state is
      when initial =>
	     lcd_di<='0';
      when write =>
	     lcd_di<=counterbuf(2);
	 when others =>
		lcd_di<='0';
    end case;
  end if;
  end process;			

  lcd_dir<='0';
  lcd_k<=lightbuf;
  lcd_rst<='1';
  lcd_rw<='0';
  lcd_data<=dbbuf;
  lcd_e<=ebuf;

end Behavioral;