基于vhdl语言的eda《洗衣机》数电课程设计说明书.doc

湖南大学电气与信息工程学院本科生课程设计课程：数字电路课程设计题目：洗衣机专业：电气工程及其自动化班级：电自12班学号：20090711404姓名：韩航星指导老师：曾文海设计时间：2012年6月22日一、课程设计的目的及要求：1、能够全面巩固和应用“电子技术基础数字部分”课程中所学的基本理论和方法，并初步掌握小型数字系统设计的基本方法。2、掌握VHDL语言编制小型模块的方法，并采用层次化设计。3、培养电路设计能力，懂得理论设计与实物实现的有效结合。4、掌握Altium Designer软件的应用。二基本功能要求:要求设计制作一个普通功能洗衣机控制电路，使之能控制洗衣机的进水阀，排水阀，洗涤程序电机，甩干驱动装置等按预定程序工作。总体过程包括：进水、浸泡、洗涤、排水、甩干五个过程.进水从电路启动开始。其中浸泡可供选择，洗涤时间可以预置，洗涤结束时发出铃声进行提示并自动切断电源。发生故障如:缺水或进水超时、排水超时、甩干碰桶等时也可自动切断电源!三总体方案分析及选择:洗衣机电路包含有总的控制模块，洗涤控制模块，洗涤记时模块，电动机控制模块以及LCD液晶板的动态显示模块。经过分析后，我们把前四个模块进行组合，把他们合成一个模块即：总控制模块。他们之间的逻辑联结关系，是对数电课程的一个很好总结，也是自己对新知识（LCD液晶板的动态显示）学习理解运用能力的一个很好的提升机会。当然也是团队合作，团队锻炼的好机会。四原理图: 五局部功能模块1.总控模块:该模块实现了对洗衣机整个运行过程的控制,打开电源后由模块内部进行控制,按洗涤过程工致洗衣机的运转.同时在输入端还给了报警输入,当发生故障时洗衣机自动短电.复位端可以让洗衣机进入初始状态.在输入端还有10个总线输入可以人为进行置数,从而控制各个过程的时间长短.当给甩干时间一个时间,其他都置为0可以让洗衣机只进行甩干操作.VHDL文件:library ieee;use ieee.std_logic_1164.all;use ieee.std_logic_arith.all;use ieee.std_logic_unsigned.all;entity xiyiji is port( clk0, clk1, rst, alarm: in std_logic;-clk0:控制开关脉冲.clk1:记时开关脉冲.Rst:复位端.arlarm:报警输入端.- water_inh, water_inl, im_th, im_tl, wash_th: in std_logic_vector(3 downto 0); wash_tl, water_outh, water_outl, dry_th, dry_tl: in std_logic_vector(3 downto 0); -进水,浸泡,洗涤,出水,甩干置数端高位和低位输入端- water_in, water_out, immersion, dry, z1, z2, voice, poweroff: out std_logic;-进水,出水,浸泡,甩干,洗涤,响铃,断电输出端- display_th, display_tl: out std_logic_vector(3 downto 0)-输出时间显示高位低位输出端- );end entity xiyiji;architecture behave of xiyiji issignal js, js_ten : std_logic; -进水signal im, im_ten : std_logic;-浸泡signal wa, wa_ten : std_logic;-洗衣signal wa1, wa2, pwf: std_logic;signal cs, cs_ten : std_logic;-出水signal dr, dr_ten : std_logic;-甩干signal xl, xl_ten : std_logic;-响铃signal js_dh, js_dl: std_logic_vector(3 downto 0);signal im_dh, im_dl: std_logic_vector(3 downto 0);signal wa_dh, wa_dl: std_logic_vector(3 downto 0);signal cs_dh, cs_dl: std_logic_vector(3 downto 0);signal dr_dh, dr_dl: std_logic_vector(3 downto 0);signal xl_dh, xl_dl: std_logic_vector(3 downto 0);signal dis_th,dis_tl: std_logic_vector(3 downto 0);begin-控制:控制器件实现洗衣机的功能:进水-浸泡-洗涤-出水-甩干-响铃-断电-control:process(clk0, rst,alarm) variable n: integer; begin if alarm = 1 then pwf = 1; else if rst = 1 then n := 0; im_ten = 0; js_ten = 0; wa_ten = 0; cs_ten = 0; dr_ten = 0; xl_ten = 0; pwf = 0; elsif clk0 = 1 and clk0 event then if n = 0 then if water_inh = 0000 and water_inl = 0000 then n := 1; else js_ten = 1; if js = 1 then n := 1; end if; end if; elsif js = 0 and n = 1 then if im_th = 0000 and im_tl = 0000 then n := 2; else im_ten = 1; if im = 1 then n := 2; end if; end if; elsif im = 0 and n = 2 then if wash_th = 0000 and wash_tl = 0000 then n := 3; else wa_ten = 1; if wa = 1 then n := 3; end if; end if; elsif wa = 0 and n = 3 then if water_outh = 0000 and water_outl = 0000 then n := 4; else cs_ten = 1; if cs = 1 then n := 4; end if; end if; elsif cs = 0 and n = 4 then if dry_th = 0000 and dry_tl = 0000 then n := 5; else dr_ten = 1; if dr = 1 then n := 5; end if; end if; elsif dr = 0 and n = 5 then xl_ten = 1; if xl = 1 then n := 6; end if; elsif xl = 0 and n = 6 then pwf = 1; end if; end if; end if; end process;-记时-进水记时-js_jishiqi:process(clk1, js_ten)beginif js_ten = 0 then js_dh = water_inh; js_dl = water_inl; js = 0;elsif clk1 = 1 and clk1 event then if js_dh = 0000 and js_dl = 0000 then js = 0; else js = 1; if js_dl = 0000 then js_dl = 1001; js_dh = js_dh - 1; else js_dl = js_dl - 1; end if; end if;end if;end process;-浸泡记时-im_jishiqi:process(clk1, im_ten)beginif im_ten = 0 then im_dh = im_th; im_dl = im_tl; im = 0;elsif clk1 = 1 and clk1 event then if im_dh = 0000 and im_dl = 0000 then im = 0; else im = 1; if im_dl = 0000 then im_dl = 1001; im_dh = im_dh - 1; else im_dl = im_dl - 1; end if; end if;end if;end process;-洗涤记时-wa_jishiqi:process(clk1, wa_ten)variable m: integer;beginif wa_ten = 0 then wa_dh = wash_th; wa_dl = wash_tl; wa = 0; wa1 = 0; wa2 = 0; m := 0;elsif clk1 = 1 and clk1 event then if wa_dh = 0000 and wa_dl = 0000 then wa = 0; else wa = 1; if m = 0 then wa1 = 1; wa2 = 1; elsif m = 10 then wa1 = 0; wa2 = 1; elsif m = 13 then wa1 = 1; wa2 = 0; elsif m = 23 then wa1 = 0; wa2 = 0; elsif m = 26 then m := 0; end if; m := m + 1; if wa_dl = 0000 then wa_dl = 1001; wa_dh = wa_dh - 1; else wa_dl = wa_dl - 1; end if; end if;end if;end process;-出水记时-cs_jishiqi:process(clk1, cs_ten)beginif cs_ten = 0 then cs_dh = water_outh; cs_dl = water_outl; cs = 0;elsif clk1 = 1 and clk1 event then if cs_dh = 0000 and cs_dl = 0000 then cs = 0; else cs = 1; if cs_dl = 0000 then cs_dl = 1001; cs_dh = cs_dh - 1; else cs_dl = cs_dl - 1; end if; end if;end if;end process;-甩干记时-dr_jishiqi:process(clk1, dr_ten)beginif dr_ten = 0 then dr_dh = dry_th; dr_dl = dry_tl; dr = 0;elsif clk1 = 1 and clk1 event then if dr_dh = 0000 and dr_dl = 0000 then dr = 0; else dr = 1; if dr_dl = 0000 then dr_dl = 1001; dr_dh = dr_dh - 1; else dr_dl = dr_dl - 1; end if; end if;end if;end process;-响铃记时-xl_jishiqi:process(clk1, xl_ten)beginif xl_ten = 0 then xl_dh = 0010; xl_dl = 0000; xl = 0;elsif clk1 = 1 and clk1 event then if xl_dh = 0000 and xl_dl = 0000 then xl = 0; else xl = 1; if xl_dl = 0000 then xl_dl = 1001; xl_dh = xl_dh - 1; else xl_dl = xl_dl - 1; end if; end if;end if;end process;-显示时间-xianshishijian: process(clk1, js_ten, im_ten, wa_ten)begin if js_ten = 1 and im_ten = 0 and wa_ten = 0 and cs_ten = 0 and dr_ten = 0 and xl_ten = 0 then if clk1 = 1 and clk1 event then dis_th = js_dh; dis_tl = js_dl; end if; elsif im_ten = 1 and wa_ten = 0 and cs_ten = 0 and dr_ten = 0 and xl_ten = 0 then if clk1 = 1 and clk1 event then dis_th = im_dh; dis_tl = im_dl; end if; elsif wa_ten = 1 and cs_ten = 0 and dr_ten = 0 and xl_ten = 0 then if clk1 = 1 and clk1 event then dis_th = wa_dh; dis_tl = wa_dl; end if; elsif cs_ten = 1 and dr_ten = 0 and xl_ten = 0 then if clk1 = 1 and clk1 event then dis_th = cs_dh; dis_tl = cs_dl; end if; elsif dr_ten = 1 and xl_ten = 0 then if clk1 = 1 and clk1 event then dis_th = dr_dh; dis_tl = dr_dl; end if; elsif xl_ten = 1 then if clk1 = 1 and clk1 event then dis_th = xl_dh; dis_tl = xl_dl; end if; end if;end process;-输出- output:process(dis_th, dis_tl, im, js, cs, dr, wa1, wa2, xl, pwf) begin display_th = dis_th; display_tl = dis_tl; immersion = im; water_in = js; water_out = cs; dry = dr; z1 = wa1; z2 = wa2; voice = xl; poweroff alarm, clk0 = clk0, clk1 = clk1, display_th = display_th, display_tl = display_tl, dry = dry, dry_th = dry_th, dry_tl = dry_tl, im_th = im_th, im_tl = im_tl, immersion = immersion, poweroff = poweroff, rst = rst, voice = voice, wash_th = wash_th, wash_tl = wash_tl, water_in = water_in, water_inh = water_inh, water_inl = water_inl, water_out = water_out, water_outh = water_outh, water_outl = water_outl, z1 = z1, z2 = z2 ); STIMULUS0:process begin alarm = 0; dry_th = 1000; dry_tl= 0000; im_th = 0000; im_tl = 0000; wash_th = 0000; wash_tl = 0000; water_inh = 0000; water_inl = 0000; water_outh = 0000; water_outl = 0000; rst = 1; wait for 10ns; rst = 0; wait for 1000ns; alarm = 1; wait; end process; process begin clk0 = 1; clk1 = 1; wait for 1ns; clk0 = 0; clk1 = 0; wait for 1ns; end process; WRITE_RESULTS( alarm, clk0, clk1, display_th, display_tl, dry, dry_th, dry_tl, im_th, im_tl, immersion, poweroff, rst, voice, wash_th, wash_tl, water_in, water_inh, water_inl, water_out, water_outh, water_outl, z1, z2 );end architecture;波形图:2显示模块:此模块实现将由控制器件产生的时间显示的BCD码与地址选择信号同步的转化成可供LCD显示的ASCII码并同时显示字母WELCOME的功能!VHDL文件:LIBRARY IEEE;USE IEEE.std_Logic_1164.ALL;ENTITY OUTPUT ISPORT(R, CP, BUSY :IN Std_Logic; -复位，时钟，输入信号忙输入端 LINE_OUT,STROBE,RST:OUT STD_LOGIC;-行，输入数据，复位 TIME_IN :IN STD_LOGIC_VECTOR(7 DOWNTO 0);-时间输入 ADDR_OUT :OUT Std_Logic_Vector( 3DOWNTO 0);-地址输入 DATA_OUT : OUT Std_Logic_Vector(7 DOWNTO 0);-数据输出END OUTPUT;ARCHITECTURE XS OF OUTPUT ISTYPE State_type IS(S0,S1,S2,S3,S4);SIGNAL S :State_Type;SIGNAL LCDPT:INTEGER RANGE 0 TO 13;BEGINPROCESS(CP,R)BEGINIF R=1 THEN S=S0;LCDPT=0;RST S=S1;LCDPT=0;RST RST=0;STROBE=0; IF BUSY=0 THEN LCDPT=LCDPT+1; IF LCDPT=12 THEN S=S3; ELSE S S=S1;STROBE STROBE=0; IF BUSY=0 THEN IF LCDPT=13 THEN LCDPT=12; ELSE LCDPT=LCDPT+1; END IF; S STROBE=1;S NULL; END CASE;END IF; END PROCESS;PROCESS (LCDPT)BE