LCD-driver-4bit.rar_LCD_LCD 4 bit VHDL_LCD-driver-4b_lcd vhdl_lc

library IEEE; use IEEE.STD_LOGIC_1164.ALL; use IEEE.STD_LOGIC_ARITH.ALL; use IEEE.STD_LOGIC_UNSIGNED.ALL; entity LCD is port( LCD_RS:out std_logic; LCD_RW:out std_logic; LCD_E:out std_logic; clk:in std_logic; SF_D:out std_logic_vector(3 downto 0) ); end LCD; architecture Behavioral of LCD is signal substate,clock,clk1: integer:=0; signal state: integer:=0; begin process(clk) begin clk1<=clk1+1; if(clk1=0) then clock<=clock+1; --WAIT FOR 750000 CLOCK if(state=0 and clock=750000) then state<=1; clock<=0; --WRITE SF_D=0X3 FOR INIATION elsif(state=1) then if(substate=0 and clock=0) then LCD_RS<='1'; LCD_RW<='0'; SF_D<="0000"; Clock<=0; substate<=1; elsif(substate=1 and clock=2) then LCD_E<='1'; Clock<=0; substate<=2; elsif(substate=2 and clock=12) then LCD_E<='0'; substate<=3; Clock<=0; elsif(substate=3 and clock=48) then SF_D<="0011"; Clock<=0; substate<=4; elsif(substate=4 and clock=2) then LCD_E<='1'; Clock<=0; substate<=5; elsif(substate=5 and clock=12) then LCD_E<='0'; substate<=0; state<=2; Clock<=0; end if; --WAIT FOR 2050000 CLOCK elsif(state=2 and clock=205000) then state<=3; clock<=0; --WRITE SF_D=0X3 FOR INIATION elsif(state=3) then if(substate=0 and clock=0) then LCD_RS<='1'; LCD_RW<='0'; SF_D<="0000"; Clock<=0; substate<=1; elsif(substate=1 and clock=2) then LCD_E<='1'; Clock<=0; substate<=2; elsif(substate=2 and clock=12) then LCD_E<='0'; substate<=3; Clock<=0; elsif(substate=3 and clock=48) then SF_D<="0011"; Clock<=0; substate<=4; elsif(substate=4 and clock=2) then LCD_E<='1'; Clock<=0; substate<=5; elsif(substate=5 and clock=12) then LCD_E<='0'; substate<=0; state<=4; Clock<=0; end if; --WAIT 5000 CLOCK elsif(state=4 and clock=5000) then state<=5; clock<=0; --WRITE 0X3 FOR INITIATION elsif(state=5) then if(substate=0 and clock=0) then LCD_RS<='1'; LCD_RW<='0'; SF_D<="0000"; Clock<=0; substate<=1; elsif(substate=1 and clock=2) then LCD_E<='1'; Clock<=0; substate<=2; elsif(substate=2 and clock=12) then LCD_E<='0'; substate<=3; Clock<=0; elsif(substate=3 and clock=48) then SF_D<="0011"; Clock<=0; substate<=4; elsif(substate=4 and clock=2) then LCD_E<='1'; Clock<=0; substate<=5; elsif(substate=5 and clock=12) then LCD_E<='0'; substate<=0; state<=6; Clock<=0; end if; --WAIT 2000 CLOCK elsif(state=6 and clock=2000) then state<=7; clock<=0; --WRITE SF_D=0X2 FOR INITIATION elsif(state=7) then if(substate=0 and clock=0) then LCD_RS<='1'; LCD_RW<='0'; SF_D<="0000"; Clock<=0; substate<=1; elsif(substate=1 and clock=2) then LCD_E<='1'; Clock<=0; substate<=2; elsif(substate=2 and clock=12) then LCD_E<='0'; substate<=3; Clock<=0; elsif(substate=3 and clock=48) then SF_D<="0010"; Clock<=0; substate<=4; elsif(substate=4 and clock=2) then LCD_E<='1'; Clock<=0; substate<=5; elsif(substate=5 and clock=12) then LCD_E<='0'; substate<=0; state<=8; Clock<=0; end if; --WAIT 2000 CLOCK elsif(state=8 and clock=2000) then state<=9; clock<=0; --WRITE FUNCTION SET SD_F = 0X28 elsif(state=9) then if(substate=0 and clock=0) then LCD_RS<='1'; LCD_RW<='0'; SF_D<="0010"; Clock<=0; substate<=1; elsif(substate=1 and clock=2) then LCD_E<='1'; Clock<=0; substate<=2; elsif(substate=2 and clock=12) then LCD_E<='0'; substate<=3; Clock<=0; elsif(substate=3 and clock=48) then SF_D<="1000"; Clock<=0; substate<=4; elsif(substate=4 and clock=2) then LCD_E<='1'; Clock<=0; substate<=5; elsif(substate=5 and clock=12) then LCD_E<='0'; substate<=0; state<=10; Clock<=0; end if; --WAIT 2000 CLOCK elsif(state=10 and clock=2000) then state<=11; clock<=0; --WRITE ENTRY SET SF_D = 0X06 elsif(state=11) then if(substate=0 and clock=0) then LCD_RS<='0'; LCD_RW<='0'; SF_D<="0000"; Clock<=0; substate<=1; elsif(substate=1 and clock=2) then LCD_E<='1'; Clock<=0; substate<=2; elsif(substate=2 and clock=12) then LCD_E<='0'; substate<=3; Clock<=0; elsif(substate=3 and clock=48) then SF_D<="0110"; Clock<=0; substate<=4; elsif(substate=4 and clock=2) then LCD_E<='1'; Clock<=0; substate<=5; elsif(substate=5 and clock=12) then LCD_E<='0'; substate<=0; state<=12; Clock<=0; end if; --WAIT 2000 CLOCK elsif(state=12 and clock=2000) then state<=13; clock<=0; --WRITE DISPLAY ON /OFF SD_F=0X0C elsif(state=13) then if(substate=0 and clock=0) then LCD_RS<='0'; LCD_RW<='0'; SF_D<="0000"; Clock<=0; substate<=1; elsif(substate=1 and clock=2) then LCD_E<='1'; Clock<=0; substate<=2; elsif(substate=2 and clock=12) then LCD_E<='0'; substate<=3; Clock<=0; elsif(substate=3 and clock=48) then SF_D<="1011";