全自动洗衣机单片机课程设计概况Word文件下载.docx
- 文档编号:20920301
- 上传时间:2023-01-26
- 格式:DOCX
- 页数:29
- 大小:242.17KB
全自动洗衣机单片机课程设计概况Word文件下载.docx
《全自动洗衣机单片机课程设计概况Word文件下载.docx》由会员分享,可在线阅读,更多相关《全自动洗衣机单片机课程设计概况Word文件下载.docx(29页珍藏版)》请在冰豆网上搜索。
ORG0000H
LJMPMAIN
ORG0030H
;
延迟10ms程序
使用R0,R1
DELAY10MS:
MOVR0,#100D;
DELAY10MS02:
MOVR1,#23D
DELAY10MS01:
DJNZR1,DELAY10MS01
DJNZR0,DELAY10MS02
RET
显示子程序
20H.0闪烁标志位:
=0不闪烁,=1在1s内亮灭一次
20H.1程序开始标志:
=1开始,=0选择
显示缓冲:
50H
经过的时间:
53H,52H,51H=分钟,秒,20ms的次数
总时间:
TOTALTIME=40H
TOTALTIMEEQU40H
DISPLAY:
PUSHACC
PUSHPSW
SETBRS0
JNB20H.1,DISPLAY01
MOVA,50H;
高位是否为零
CJNEA,#0AH,DISPLAY05
DISPLAY05:
JNCDISPLAY06
XRLA,#0F0H;
高位为零不显示
MOV50H,A
DISPLAY06:
JNB20H.0,DISPLAY01;
是否需闪烁
MOVA,51H
CJNEA,#25D,DISPLAY02;
DISPLAY02:
JCDISPLAY01
MOV50H,#0FFH;
暗显示(不亮)
DISPLAY01:
MOVA,50H;
显示低位
ANLA,#0FH;
MOVDPTR,#DISPLAYTAB;
MOVCA,@A+DPTR;
MOVP2,A;
SETBP0.6
CLRP0.7
LCALLDELAY10MS
显示高位
SWAPA
CLRP0.6
SETBP0.7
INC51H;
累计时间
MOVA,#50D;
XRLA,51H;
JNZDISPLAY03;
50次的20ms未到
MOV51H,A;
INC52H;
1s
MOVA,#60D;
XRLA,52H;
JNZDISPLAY03
MOV52H,A;
INC53H;
1min
DISPLAY03:
JNB20H.0,DISPLAY04;
MOVA,TOTALTIME;
计算剩余时间
CLRC
SUBBA,53H;
MOVB,#10D;
16进制转换到10进制
DIVAB
XRLA,B;
MOV50H,A;
DISPLAY04:
POPPSW
POPACC
DISPLAYTAB:
;
共阳数码管反向编码
DB03H,9FH,25H,0DH,99H;
01234
DB49H,41H,1FH,01H,09H;
56789
DB11H,0C1H,63H,85H,61H;
ABCDE
DB0FFH;
暗
重算时间
入口数据:
A=总时间(分)
CALUTIME:
MOVTOTALTIME,A
CLRA
秒
MOV53H,A;
经过的分钟
鸣叫一下,时长120ms
PLAY:
SETBP1.6
MOVR0,#12D;
PLAY1:
LCALLDISPLAY
DJNZR0,PLAY1
CLRP1.6
鸣叫六下,时长240ms*12
ALARM:
MOVR1,#11D;
ALARM2:
ALARM3:
DJNZR0,ALARM3
CPLP1.6
DJNZR1,ALARM2
洗涤用子程序
洗涤时暂停按键
XDPAUSE:
JBP0.0,XDPS01
PUSH52H
PUSH53H
CLR20H.0;
不闪烁
MOVA,P1
MOVP1,#00H
LCALLPLAY
XDPS02:
JNBP0.0,XDPS02;
等待按键释放
XDPS03:
JBP0.0,XDPS03
XDPS04:
JNBP0.0,XDPS04;
MOVP1,ACC
SETB20H.0
POP53H
POP52H
XDPS01:
洗涤时延迟0.32s
DELAY320MS:
MOVR2,#14D;
SJMPXDELAY01
洗涤时延迟0.56s
XDELAY560MS:
MOVR2,#28D
洗涤时延迟1s
XDELAY1S:
MOVR2,#50D
洗涤时延迟1.6s
DELAY1600MS:
MOVR2,#80D
XDELAY01:
LCALLXDPAUSE;
暂停按键
LCALLIFINWATER;
水位开关
DJNZR2,XDELAY01
洗涤前进水子程序
INWATER:
JNBP0.2,PI1;
SETBP1.2
MOVA,53H;
ADDA,#20D;
MOV59H,A;
PI3:
XRLA,59H;
JNZPI2
LCALLERRORE4
SJMPINWATER
PI2:
JNBP0.2,PI4;
LCALLXDPAUSE
SJMPPI3
PI4:
CLRP1.2
PI1:
洗涤时是否再进水
IFINWATER:
JNBP0.2,IF1;
MOVA,P1;
MOVP1,#00H;
LCALLINWATER;
进水
MOVP1,A;
IF1:
不能进水报警
ERRORE4:
CLR20H.0
MOV50H,#0E4H
LCALLALARM
E4PK2:
JNBP0.1,E4PK2;
JNBP0.1,E4PK2
E4PK3:
JBP0.1,E4PK3
MOVP1,ACC;
排水时延迟1s
DELAY1000MS:
MOVR2,#50D;
DLY51:
DJNZR2,DLY51;
排水子程序
OUTWATER:
SETBP1.3
JBP0.2,OUTW1
MOVR7,#60D
OUTW2:
LCALLDELAY1000MS
JBP0.2,OUTW4
DJNZR7,OUTW2
LCALLERRORE1
SJMPOUTWATER
OUTW4:
MOVA,#60D
SUBBA,R7
OUTW1:
ADDA,#60D
MOVR7,A
OUTW3:
DJNZR7,OUTW3
不能排水报警
ERRORE1:
MOV50H,#0E1H
E1PK2:
JNBP0.1,E1PK2;
JNBP0.1,E1PK2
E1PK3:
JBP0.1,E1PK3
脱水时暂停按键
TPKEY:
JBP0.0,TPK1;
JNBACC.0,TPK6
CLRP1.0
MOVR0,#250;
延迟5秒
TPK5:
DJNZR0,TPK5
TPK6:
TPK2:
JNBP0.0,TPK2;
TPK3:
JBP0.0,TPK3
TPK4:
DJNZR0,TPK4
TPK1:
脱水时开盖,脱水时安全报警
IFOPEN:
ERRORE2:
JNBP0.1,TTPK1;
JNBACC.0,TTPK6
TTPK5:
DJNZR0,TTPK5
TTPK6:
MOV50H,#0E2H
TTPK2:
JBP0.1,TTPK2;
TTPK3:
JBP0.1,TTPK2
JBP0.1,TTPK3
TTPK4:
TTPK1:
脱水时延迟4s
DELAY4S:
MOVR2,#200D;
DLY431:
LCALLTPKEY;
LCALLIFOPEN;
安全开关
DJNZR2,DLY431;
脱水时延迟3s
DELAY3S:
MOVR2,#150D;
DLY321:
DJNZR2,DLY321;
主程序开始
选择程序:
30H,程序开始20H.1=1
MAIN:
MOVSP,#60H;
CLR20H.1
MOVA,#00H;
MOV50H,A;
MOV51H,A;
MOV52H,A;
MOV53H,A;
MOV30H,A;
LP1:
有无按键
JBP0.0,LP1;
LCALLDISPLAY;
按键去抖动
LP3:
INC30H
MOVA,#0AH;
共有九种可选择
XRLA,30H;
JNZLP2
MOV30H,#01H;
LP2:
MOV50H,30H;
LP4:
JNBP0.0,LP4;
LP5:
MOVA,52H;
XRLA,#03H;
3秒延迟到否
JZSTART;
开始洗衣
JBP0.0,LP5;
SJMPLP3;
重选洗衣程序
START:
SETB20H.1
MOVA,30H;
DECA
MOVB,#03H;
MULAB
MOVDPTR,#PROCTAB;
JMP@A+DPTR
PROCTAB:
LJMPPROC1;
洗衣程序1
LJMPPROC2;
洗衣程序2
LJMPPROC3;
洗衣程序3
LJMPPROC4;
洗衣程序4
LJMPPROC5;
洗衣程序5
LJMPPROC6;
洗衣程序6
LJMPPROC7;
洗衣程序7
LJMPPROC8;
洗衣程序8
LJMPPROC9;
洗衣程序9
PROC1:
MOVA,#59D
LCALLCALUTIME
MOVA,#57D
洗涤3分钟
MOVR7,#42D;
XIDI0:
SETBP1.0
LCALLDELAY1600MS
LCALLXDELAY560MS
SETBP1.1
CLRP1.1
DJNZR7,XIDI0
MOVR6,#01D;
共4次*3分钟=12分钟
MOVR7,#30D;
停2分钟XIDI01:
LCALLXDELAY1S
DJNZR7,XIDI01
MOVR7,#14D;
洗涤1分钟
XIDI03:
DJNZR7,XIDI03
DJNZR6,XIDI02
停2分钟
XIDI04:
DJNZR7,XIDI04
以下同过程3
PROC2:
;
(待完成)
LJMPover
PROC3:
MOVA,#42D
MOVA,#40D
洗涤15分钟
MOVR7,#8D;
XIDI:
DJNZR7,XIDI
快速洗涤15秒
MOVR7,#11D
QXIDI:
LCALLDELAY320MS
DJNZR7,QXIDI
MOVA,#25D
排水
LCALLOUTWATER
MOVA,#23D
第一次脱水
MOVR7,#04D;
间隙脱水30秒
TS1:
LCALLDELAY4S
LCALLDELAY3S
DJNZR7,TS1
SETBP1.0;
长脱水90秒
MOVR7,#10D;
TS2:
DJNZR7,TS2
MOVR7,#250;
TS25:
DJNZR7,TS25
CLRP1.3
MOVA,#20D
第一次漂洗
LCALLINWATER
MOVA,#18D
洗涤2分钟
MOVR7,#08D;
XIDI1:
DJNZR7,XIDI1
QXIDI1:
DJNZR7,QXIDI1
MOVA,#16D
MOVA,#14D
第二次脱水
MOVR7,#04D
TS21:
DJNZR7,TS21
MOVR7,#10D;
TS22:
DJNZR7,TS22
TS26:
DJNZR7,TS26
MOVA,#12D
第二次漂洗
MOVA,#10D
MOVR7,#08D;
XIDI2:
SETBP1.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 全自动 洗衣机 单片机 课程设计 概况