Problem having with 16x2 LCD, It displays a glitch "||" every time I give input HELP

Problem having with 16x2 LCD, It displays a glitch "||" every time I give input HELP

I am using Vertex 4 board ML403. All I am doing is to test a LCD, that takes input from on-board buttons i.e.

if button_east is pressed, then LCD should display "A" ... and
if button_west is pressed, then LCD should display "R" .

The problem I am facing is, instead of displaying character "A" or "R" ... I am getting a strange character "||", everytime I press any of the button. I have checked the LCD module seperatelly aswell. It works fine, but the problem with that was, as I press (any) of the button, the character displayes all over the screen. To aviod this, I added an input module which triggers a signal "flag" every time a button is pressed.

DOes any one knows why this strange character "||" appears !??
Plx Help !!!

I've also attached sourse files with this.

The Input Module code is:

library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;

---- Uncomment the following library declaration if instantiating
---- any Xilinx primitives in this code.
--library UNISIM;
--use UNISIM.VComponents.all;

entity In_Mod is
Port ( Char_R : in STD_LOGIC;
Char_A : in STD_LOGIC;
clk, rst : in STD_LOGIC;
Char_out : out STD_LOGIC_VECTOR (7 downto 0);
Flag : out STD_LOGIC);
end In_Mod;

architecture Behavioral of In_Mod is

type FSM is (wait1, R, A, Done); --declairing states of FSM
signal current_state:FSM; -- Declaration of signals of this type
begin

process (clk, rst)
begin
if rising_edge (clk) then
if rst='1' then --Asynchronous reset
current_state<= wait1;
else
case current_state is -- Declairing possible transitions for each state
when wait1 => if Char_R='1' then
current_state<=R;
elsif Char_A='1' then
current_state<=A;
else current_state<=wait1; --FSM remains in same state if
end if;
when R =>
current_state<=Done;

when A =>
current_state<=Done;

when Done => if (char_R <= '0' and char_A <= '0') then
current_state<= wait1;
else
current_state <= Done;
end if;

end case;
end if;
end if;
end process;

Outputsrocess (current_state)
begin
case current_state is --Output decleration of each state
when wait1 => char_out<="00000000";
flag <= '0';

when R =>
char_out<="01010001";
flag<='1';

when A =>
char_out<="01000001";
flag<='1';

when done =>
flag<='0';

end case;
end process Outputs;
end Behavioral;


And the LCD code is

----------------------------------------------------------------------------------
library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;
----Uncomment the following library declaration if instantiating
----any Xilinx primitives in this code.
--library UNISIM;
--use UNISIM.VComps1nts.all;

entity lcd is
port(
clk, reset : in std_logic;
SF_D : out std_logic_vector(3 downto 0);
LCD_E, LCD_RS, LCD_RW, SF_CE0 : out std_logic;
KeyIn: in std_logic_vector (7 downto 0);
Key_trig: in std_logic);
end lcd;


architecture behavior of lcd is

type display_state is (init, function_set, s1, entry_set, s2, set_display, s3, clr_display, s4, pause, set_addr, s5, wait1, Disp, s6, done);
signal cur_state : display_state := init;
signal SF_D0, SF_D1 : std_logic_vector(3 downto 0);
signal LCD_E0, LCD_E1 : std_logic;
signal mux : std_logic;
--signal R_flag: std_logic;
--signal A_flag: std_logic;


type tx_sequence is (high_setup, high_hold, oneus, low_setup, low_hold, fortyus, done);
signal tx_state : tx_sequence := done;
signal tx_byte : std_logic_vector(7 downto 0);
signal tx_init : std_logic := '0';
signal tx_rdy : std_logic := '0';

type init_sequence is (idle, fifteenms, s1, s2, s3, s4, s5, s6, s7, s8, done);
signal init_state : init_sequence := idle;
signal init_init, init_done : std_logic := '0';

signal i : integer range 0 to 750000 := 0;
signal i2 : integer range 0 to 2000 := 0;
signal i3 : integer range 0 to 82000 := 0;
signal i4 : integer range 0 to 50000000 := 0;
--signal num : std_logic_vector(3 downto 0);

begin
-- LED <= tx_byte; --for diagnostic purposes
SF_CE0 <= '1'; --disable intel strataflash
LCD_RW <= '0'; --write only

--when to transmit a command/data and when not to
with cur_state select
tx_init <= '1' when function_set | entry_set | set_display | clr_display | set_addr | Disp ,
'0' when others;

--control the bus
with cur_state select
mux <= '1' when init,
'0' when others;

--control the initialization sequence
with cur_state select
init_init <= '1' when init,
'0' when others;

with mux select
SF_D <= SF_D0 when '0', --transmit
SF_D1 when others; --initialize
with mux select
LCD_E <= LCD_E0 when '0', --transmit
LCD_E1 when others; --initialize
with tx_state select
tx_rdy <= '1' when done,
'0' when others;
with tx_state select
LCD_E0 <= '0' when high_setup | oneus | low_setup | fortyus | done,
'1' when high_hold | low_hold;
with tx_state select
SF_D0 <= tx_byte(7 downto 4) when high_setup | high_hold | oneus,
tx_byte(3 downto 0) when low_setup | low_hold | fortyus | done;

--R_flag<= Char_R;
--A_flag<= Char_A;

--register select
with cur_state select
LCD_RS <= '0' when s1|s2|s3|s4|s5,
'1' when others;
with cur_state select
tx_byte <= "00101000" when s1,
"00000110" when s2,
"00001100" when s3,
"00000001" when s4,
"10000000" when s5,
Keyin when s6,
-- "01000001" when s7,
"00000000" when others;

--counter: process(clk, reset)
--begin
-- if(reset = '1') then
-- i4 <= 0;
-- num <= "0000";
-- elsif(clk='1' and clk'event) then
-- if(i4 = 50000000) then
-- i4 <= 0;
-- if(num = "1001") then
-- num <= "0000";
-- else
-- num <= num + '1';
-- end if;
-- else
-- i4 <= i4 + 1;
-- end if;
-- end if;
-- end process counter;

--main state machine
display: process(clk, reset)
begin
if(reset='1') then
cur_state <= init;
elsif(clk='1' and clk'event) then

case cur_state is
when init =>
if(init_done = '1') then
cur_state <= function_set;
else
cur_state <= init;
end if;

when function_set =>
cur_state <= s1;

when s1 =>
if(tx_rdy = '1') then
cur_state <= entry_set;
else
cur_state <= s1;
end if;

when entry_set =>
cur_state <= s2;

when s2 =>
if(tx_rdy = '1') then
cur_state <= set_display;
else
cur_state <= s2;
end if;

when set_display =>
cur_state <= s3;

when s3 =>
if(tx_rdy = '1') then
cur_state <= clr_display;
else
cur_state <= s3;
end if;

when clr_display =>
cur_state <= s4;

when s4 =>
i3 <= 0;
if(tx_rdy = '1') then
cur_state <= pause;
else
cur_state <= s4;
end if;

when pause =>
if(i3 = 82000) then
cur_state <= set_addr;
i3 <= 0;
else
cur_state <= pause;
i3 <= i3 + 1;
end if;

when set_addr =>
cur_state <= s5;

when s5 =>
if(tx_rdy = '1') then
cur_state <= wait1;
else
cur_state <= s5;
end if;

when wait1 =>
if(key_trig ='1') then
cur_state <= disp;
-- LED_W<='1';
else
cur_state <= wait1;
end if;

when Disp=>
cur_state <= s6;
-- LED_W <= '0';

when s6 =>
if(tx_rdy = '1') then
cur_state <= wait1;
-- LED_W <= '0';
else
cur_state <= s6;
-- LED_W<='1';
end if;

when done =>
cur_state <= done;
end case;
end if;
end process display;

--specified by datasheet
transmit : process(clk, reset, tx_init)
begin
if(reset='1') then
tx_state <= done;
elsif(clk='1' and clk'event) then
case tx_state is
when high_setup => --40ns
if(i2 = 2) then
tx_state <= high_hold;
i2 <= 0;
else
tx_state <= high_setup;
i2 <= i2 + 1;
end if;
when high_hold => --230ns
if(i2 = 12) then
tx_state <= oneus;
i2 <= 0;
else
tx_state <= high_hold;
i2 <= i2 + 1;
end if;
when oneus =>
if(i2 = 50) then
tx_state <= low_setup;
i2 <= 0;
else
tx_state <= oneus;
i2 <= i2 + 1;
end if;
when low_setup =>
if(i2 = 2) then
tx_state <= low_hold;
i2 <= 0;
else
tx_state <= low_setup;
i2 <= i2 + 1;
end if;
when low_hold =>
if(i2 = 12) then
tx_state <= fortyus;
i2 <= 0;
else
tx_state <= low_hold;
i2 <= i2 + 1;
end if;
when fortyus =>
if(i2 = 2000) then
tx_state <= done;
i2 <= 0;
else
tx_state <= fortyus;
i2 <= i2 + 1;
end if;
when done =>
if(tx_init = '1') then
tx_state <= high_setup;
i2 <= 0;
else
tx_state <= done;
i2 <= 0;
end if;
end case;
end if;
end process transmit;

with init_state select
init_done <= '1' when done,
'0' when others;
with init_state select
SF_D1 <= "0011" when s1 | s2 | s3 | s4 | s5 | s6,
"0010" when others;
with init_state select
LCD_E1 <= '1' when s1 | s3 | s5 | s7,
'0' when others;

--specified by datasheet
power_on_initialize: process(clk, reset, init_init) --power on initialization sequence
begin
if(reset='1') then
init_state <= idle;
elsif(clk='1' and clk'event) then
case init_state is
when idle =>
if(init_init = '1') then
init_state <= fifteenms;
i <= 0;
else
init_state <= idle;
i <= i + 1;
end if;
when fifteenms =>
if(i = 750000) then
init_state <= s1;
i <= 0;
else
init_state <= fifteenms;
i <= i + 1;
end if;
when s1 =>
if(i = 11) then
init_state<=s2;
i <= 0;
else
init_state<=s1;
i <= i + 1;
end if;
when s2 =>
if(i = 205000) then
init_state<=s3;
i <= 0;
else
init_state<=s2;
i <= i + 1;
end if;
when s3 =>
if(i = 11) then
init_state<=s4;
i <= 0;
else
init_state<=s3;
i <= i + 1;
end if;
when s4 =>
if(i = 5000) then
init_state<=s5;
i <= 0;
else
init_state<=s4;
i <= i + 1;
end if;
when s5 =>
if(i = 11) then
init_state<=s6;
i <= 0;
else
init_state<=s5;
i <= i + 1;
end if;
when s6 =>
if(i = 2000) then
init_state<=s7;
i <= 0;
else
init_state<=s6;
i <= i + 1;
end if;
when s7 =>
if(i = 11) then
init_state<=s8;
i <= 0;
else
init_state<=s7;
i <= i + 1;
end if;
when s8 =>
if(i = 2000) then
init_state<=done;
i <= 0;
else
init_state<=s8;
i <= i + 1;
end if;
when done =>
init_state <= done;
end case;
end if;
end process power_on_initialize;
end behavior;

Re: Problem having with 16x2 LCD, It displays a glitch "||" every time I give input H

Wrap code tags around your code please. Read how to use this forum