lcd_triangle.rar_fpga 三角_triangle

use ieee.std_logic_1164.all; use ieee.std_logic_unsigned.all; use ieee.std_logic_arith.all; entity lcd_triangle is port(clk:in std_logic;--clock busy:in std_logic;--busy signal,high level active req:out std_logic;--request signal,requesting lcd accept the data. data:out std_logic_vector(7 downto 0));--data end entity lcd_triangle; architecture arch of lcd_triangle is signal request,contr:std_logic; signal onebyte,t30:std_logic_vector(2 downto 0);--one byte data signal onedata:std_logic_vector(7 downto 0);--one frame data signal axis_xx,axis_yy,x_axis,y_axis,ascii:std_logic_vector(7 downto 0);--control words signal control:integer range 0 to 1;--control y axis is add or sub. begin --------------------check busy's down edge process(clk,busy) is begin if clk'event and clk='1' then if busy='0' then request<='1'; else request<='0'; end if; end if; end process; --------------- req<=request; ---------------at same times,send data to lcd x1:process(request) is begin if request'event and request='0' then if onebyte="110" then onebyte<="000"; contr<='1'; else onebyte<=onebyte+1; contr<='0'; end if; else null; end if; end process x1; process(contr)is begin if contr'event and contr='1' then if onedata=x"9f" then onedata<=x"20"; else onedata<=onedata+1; end if; end if; end process; ------the data that lcd will display. y1:process(contr)is begin axis_xx<=onedata; if contr'event and contr='1' then if control=0 then if axis_yy=x"1f" then control<=1; else axis_yy<=axis_yy+1; end if; else if axis_yy=x"00" then control<=0; else axis_yy<=axis_yy-1; end if; end if; end if; end process y1; ----keyword->xx->yy->high 8 bit->low 8 bit...for loop process(onebyte) is begin case onebyte is when "000"=>data<=x"f2"; when "001"=>data<=axis_xx; when "010"=>data<=axis_yy; when "011"=>data<=x"f1"; when "100"=>data<=x_axis; when "101"=>data<=y_axis; when "110"=>data<=ascii; when others=>null; end case; end process; ----------------------------T=30ms process(contr) is begin if contr'event and contr='1' then if t30="101" then t30<="000"; else t30<=t30+1; end if; end if; case t30 is when "000"=>x_axis<=x"05";y_axis<=x"18";ascii<=x"54"; when "001"=>x_axis<=x"06";y_axis<=x"18";ascii<=x"3d"; when "010"=>x_axis<=x"07";y_axis<=x"18";ascii<=x"33"; when "011"=>x_axis<=x"08";y_axis<=x"18";ascii<=x"30"; when "100"=>x_axis<=x"09";y_axis<=x"18";ascii<=x"6d"; when "101"=>x_axis<=x"0a";y_axis<=x"18";ascii<=x"73"; when others=>null; end case; end process; end architecture arch;