发一个自动长度控制器源程序.可以作为技术参考,有些方面稍作改动,望谅解.
程序稍加修改即可使用在各种需要长度控制的场合.比如带.管.布类切断,印刷,标记.
自动长度控制切断器方案:测量为红外线输入,经按装在牵引轮上的分度轮(上边按计算好的角度打与直径相吻合的若干个孔)输入红外信号,测量出挤出机挤出的长度,后于设定的值相比较.发出切断信号.每切断一次产量加一.并在液晶屏显示.
单片机控制 中文液晶显示,显示内容在
1:设定值XXXX 实际值XXXX 2设定值XXXX
归零? 3产量XXXX 归零? 4参数选择 XXXX
确定? 这四个显示内容中切换.
GEE EQU 40H
SHI EQU 41H
BEI EQU 42H
QIAN EQU 43H
GDM EQU 44H
SDM EQU 45H
BDM EQU 46H
QDM EQU 47H
SDG EQU 48H
SDS EQU 49H
SDB EQU 4AH
SDQ EQU 4BH
DMG EQU 4CH
DMS EQU 4DH
DMB EQU 4EH
DMQ EQU 4FH
CLG EQU 50H
CLS EQU 51H
CLB EQU 52H
CLQ EQU 53H
CGDM EQU 54H
CSDM EQU 55H
CBDM EQU 56H
CQDM EQU 57H
BZW EQU 58H
BZMC EQU 59H
XZG EQU 5AH
XZS EQU 5BH
XZB EQU 5CH
XZQ EQU 5DH
XDMG EQU 5EH
XDMS EQU 5FH
XDMB EQU 60H
XDMQ EQU 61H
XZBZ EQU 62H
QR BIT P3.7
JAO BIT P3.6
JIE BIT P3.3
GN BIT P3.2
RS BIT P1.7
RW BIT P1.6
E BIT P1.5
SDA BIT P1.3
SCL BIT P1.2
COM EQU 20H
DAT EQU 21H
PSB EQU P0.7
RST EQU P0.6
JSS BIT P0.3
QL BIT P0.5
ORG 0000H
LJMP MAIN
ORG 0030H
MAIN: SETB JAO
SETB JIE
SETB GN
SETB QR
SETB JSS
SETB P3.4
CLR P3.5
CLR P3.1
SETB P3.0
CLR P1.0
LCALL SDG0 ;调用设定归零子程序
LCALL SJG0 ;调用实际归零子程序
LCALL CLG0 ;调用产量归零子程序
MOV A,#01H
LCALL RD24
MOV SDG,A
MOV A,#02H
LCALL RD24
MOV SDS,A
MOV A,#03H
LCALL RD24
MOV SDB,A
MOV A,#04H
LCALL RD24
MOV SDQ,A
LCALL XSCL ;调用显示处理子程序
MOV XZBZ,#00H
LOP: CLR PSB
MOV SP,#70H
LCALL D1
SETB PSB
LCALL D1
MOV COM,#30H ;显示功能设定
LCALL WRI
LCALL D1
MOV COM,#0DH
LCALL WRI
LCALL D1
LCALL CLRYJ
XSA: MOV R1,#0E8H
MOV COM,#80H
LCALL WRI
MOV DAT,#0C9H
LCALL WRD
MOV DAT,R1
LCALL WRD ;She设
MOV R1,#0A8H
MOV COM,#81H
LCALL WRI
MOV DAT,#0B6H
LCALL WRD
MOV DAT,R1
LCALL WRD ;din定
MOV R1,#0B5H
MOV COM,#82H
LCALL WRI
MOV DAT,#0D6H
LCALL WRD
MOV DAT,R1
LCALL WRD ;zhi值
MOV R1,#0B5H
MOV COM,#90H
ACALL WRI
MOV DAT,#0CAH
ACALL WRD
MOV DAT,R1
ACALL WRD ;Shi实
MOV R1,#0CAH
MOV COM,#91H
ACALL WRI
MOV DAT,#0BCH
ACALL WRD
MOV DAT,R1
ACALL WRD ;ji际
MOV R1,#0B5H
MOV COM,#92H
ACALL WRI
MOV DAT,#0D6H
ACALL WRD
MOV DAT,R1
ACALL WRD ;zhi 值
MOV BZW,#01H ;设定标志位#01H
FHA: LCALL SDZXS ;调用设定参数显示子程序
LCALL SJZXS ;调用实际参数显示子程序
FHA1: NOP
XSB: JB GN,MCSRA ;功能键未按下跳转脉冲输入检测
LCALL DD1
JB GN,MCSRA
AJMP XSB1 ;跳转加减确认归零处理程序
MCSRA: LJMP MCSR ;脉冲输入检测
XSB1: MOV BZW,#02H ;设定标志位#02H
LCALL CLRYJ ;调用清除显示子程序 ?
MOV R1,#0E8H ; 加减确认键按下调用
MOV COM,#80H ;显示一次子程序
LCALL WRI ;未按下跳转继续循环
MOV DAT,#0C9H
LCALL WRD
MOV DAT,R1
LCALL WRD ;she设
MOV R1,#0A8H
MOV COM,#81H
LCALL WRI
MOV DAT,#0B6H
LCALL WRD
MOV DAT,R1
LCALL WRD ;Din定
MOV R1,#0B5H
MOV COM,#82H
LCALL WRI
MOV DAT,#0D6H
LCALL WRD
MOV DAT,R1
LCALL WRD ;zhi值
MOV R1,#0CEH
MOV COM,#90H
LCALL WRI
MOV DAT,#0B2H
LCALL WRD
MOV DAT,R1
LCALL WRD ;cai参
MOV R1,#0FDH
MOV COM,#91H
LCALL WRI
MOV DAT,#0CAH
LCALL WRD
MOV DAT,R1
LCALL WRD ;shu数
MOV R1,#0E9H
MOV COM,#92H
LCALL WRI
MOV DAT,#0B9H
LCALL WRD
MOV DAT,R1
LCALL WRD ;gu归
MOV R1,#0E3H
MOV COM,#93H
LCALL WRI
MOV DAT,#0C1H
LCALL WRD
MOV DAT,R1
LCALL WRD ;lin零
MOV R1,#0BFH
MOV COM,#94H
LCALL WRI
MOV DAT,#0A3H
LCALL WRD
MOV DAT,R1
LCALL WRD ; 问号
LCALL SDZXS ;调用设定参数显示子程序
FHB: NOP
JCJA: JB JAO,JCJE ;加键未按下跳转减处理程序
LCALL DD1
JB JAO,JCJE ;检测加显示子程序
MOV A,SDG ;查标志位后显示一次设定子程序
INC A ;后跳转FHB继续循环,设定标志位#02H
CJNE A,#0AH,GJD ;检测个位为十
AJMP SDJ1 ;跳转十位加一
GJD: MOV SDG,A
LCALL XSCL ;跳转显示处理程序
AJMP SDXSA ;跳转设定显示程序
SDJ1: MOV SDG,#00H ;gwg0个位归零
CLR P3.4
LCALL D1
SETB P3.4
MOV A,SDS
INC A
CJNE A,#0AH,SDJ ;十位为十
AJMP BDJ1 ;百位加一
SDJ: MOV SDS,A
LCALL XSCL ;显示处理程序
AJMP SDXSA ;跳转设定显示程序
BDJ1: MOV SDS,#00H ;swg0十位归零
MOV A,SDB
INC A
CJNE A,#0AH,BDJ ; 百位为十
AJMP QDJ1 ; 千位加一
BDJ: MOV SDB,A
LCALL XSCL ;调用显示处理程序
AJMP SDXSA ;跳转设定显示程序
QDJ1: MOV SDB,#00H ;bwg0百位归零
MOV A,SDQ
INC A
CJNE A,#0AH,QDJ ; 千位为十
MOV SDG,#00H ; 个位归零
MOV SDS,#00H ; 十位归零
MOV SDB,#00H ; 百位归零
MOV SDQ,#00H ; 千位归零
AJMP SDXSA
QDJ: MOV SDQ,A
SDXSA: MOV A,#01H
MOV B,SDG
LCALL WT24
MOV A,#02H
MOV B,SDS
LCALL WT24
MOV A,#03H
MOV B,SDB
LCALL WT24
MOV A,#04H
MOV B,SDQ
LCALL WT24
LCALL XSCL ;调用显示处理子程序
LCALL SDZXS ;调用显示设定子程序
JCJE: JB JIE,QRJC1 ;跳转归零键输入检测
LCALL DD1
JB JIE,QRJC1
MOV A,SDG ; 查标志位后显示一次设定子程序
CJNE A,#00H,GWJ1 ;跳转个位减一
AJMP SWJ ;跳转十位减一
GWJ1: DEC SDG
AJMP SDXSB ;跳转设定显示
SWJ: MOV A,SDS
CJNE A,#00H,SWJA ;十位减一
AJMP BWJ ;跳转百位减一
SWJA: DEC SDS
MOV SDG,#09H ;
AJMP SDXSB ;跳转设定显示
BWJ: MOV A,SDB
CJNE A,#00H,BWJ1 ;百位减一
AJMP QWJ ;跳转千位减一
BWJ1: DEC SDB
MOV SDG,#09H ;
MOV SDS,#09H ;
AJMP SDXSB ;跳转设定显示
QWJ: MOV A,SDQ
CJNE A,#00H,QWJ1
MOV A,#09H
MOV SDG,A
MOV SDS,A
MOV SDB,A
MOV SDQ,A
AJMP SDXSB ;跳转设定显示
QWJ1: DEC SDQ
MOV SDG,#09H
MOV SDS,#09H
MOV SDB,#09H
SDXSB: MOV A,#01H
MOV B,SDG
LCALL WT24
MOV A,#02H
MOV B,SDS
LCALL WT24
MOV A,#03H
MOV B,SDB
LCALL WT24
MOV A,#04H
MOV B,SDQ
LCALL WT24
LCALL XSCL ;调用显示处理子程序
LCALL SDZXS ;调用显示设定子程序
QRJC1: JB QR,GNJC1 ; 确认归零键输入检测
LCALL DD1
JB QR,GNJC1 ;跳转功能检测
LCALL SDG0 ;调用设定归零子程序
MOV A,#01H
MOV B,SDG
LCALL WT24
MOV A,#02H
MOV B,SDS
LCALL WT24
MOV A,#03H
MOV B,SDB
LCALL WT24
MOV A,#04H
MOV B,SDQ
LCALL WT24
LCALL XSCL ;调用显示处理子程序
LCALL SDZXS ;调用设定显示子程序
FHC: NOP ;查标志位后显示一次设定子程序
GNJC1: JB GN,JJP ;功能键未按下跳转脉冲输入检测
LCALL DD1
JB GN,JJP
AJMP KKK
JJP: LJMP FHE
KKK: MOV BZW,#03H
LCALL CLRYJ ;调用清除显示子程序
MOV R1,#0FAH ;显示产量归零界面
MOV COM,#80H
LCALL WRI
MOV DAT,#0B2H
LCALL WRD
MOV DAT,R1
LCALL WRD ;cai产
MOV R1,#0BFH
MOV COM,#81H
LCALL WRI
MOV DAT,#0C1H
LCALL WRD
MOV DAT,R1
LCALL WRD ;lian量
MOV R1,#0FAH
MOV COM,#90H
LCALL WRI
MOV DAT,#0B2H
LCALL WRD
MOV DAT,R1
LCALL WRD ;cai 产
MOV R1,#0BFH
MOV COM,#91H
LCALL WRI
MOV DAT,#0C1H
LCALL WRD
MOV DAT,R1
LCALL WRD ;Liang量
MOV R1,#0E9H
MOV COM,#92H
LCALL WRI
MOV DAT,#0B9H
LCALL WRD
MOV DAT,R1
LCALL WRD ;gu归
MOV R1,#0E3H
MOV COM,#93H
LCALL WRI
MOV DAT,#0C1H
LCALL WRD
MOV DAT,R1
LCALL WRD ;lin零
MOV R1,#0BFH
MOV COM,#94H
LCALL WRI
MOV DAT,#0A3H
LCALL WRD
MOV DAT,R1
LCALL WRD ; 问号
LCALL CLXS ;调用产量显示子程序
FHE: JB QR,GNN ;跳转FHC检测确认键
LCALL DD1
JB QR,GNN ;归零键输入检测
QRG0: LCALL CLG0 ;调用产量归零显子程序
LCALL XSCLC ;调用显示代码处理子程序3
LCALL CLXS ;调用产量显示子程序
GNN: JB GN,MCSRI
LCALL DD1
JB GN,MCSRI ;设定参数并检测加减按键
AJMP LOPB ;////////////
MCSRI: LJMP MCSR1
LOPB: MOV BZW,#04H ;
LCALL CLRYJ
MOV R1,#0CEH
MOV COM,#80H
LCALL WRI
MOV DAT,#0B2H
LCALL WRD
MOV DAT,R1
LCALL WRD ;cai参
MOV R1,#0FDH
MOV COM,#81H
LCALL WRI
MOV DAT,#0CAH
LCALL WRD
MOV DAT,R1
LCALL WRD ;shu数
MOV R1,#0A1H
MOV COM,#82H
LCALL WRI
MOV DAT,#0D1H
LCALL WRD
MOV DAT,R1
LCALL WRD ;选
MOV R1,#0F1H
MOV COM,#83H
LCALL WRI
MOV DAT,#0D4H
LCALL WRD
MOV DAT,R1
LCALL WRD ;择
LCALL XZCS
LCALL XX ;调用选择参数显示子程序AA
MOV R1,#0B7H
MOV COM,#90H
LCALL WRI
MOV DAT,#0C8H
LCALL WRD
MOV DAT,R1
LCALL WRD ;确
MOV R1,#0CFH
MOV COM,#91H
LCALL WRI
MOV DAT,#0C8H
LCALL WRD
MOV DAT,R1
LCALL WRD ;认
MOV R1,#0BFH
MOV COM,#92H
LCALL WRI
MOV DAT,#0A3H
LCALL WRD
MOV DAT,R1
LCALL WRD ;?
FHD: NOP ;
JCJAX: JB JAO,JCJEX ;跳转检测选择减
LCALL DD1
JB JAO,JCJEX
MOV A,XZBZ
INC A
CJNE A,#14H,ZXJ ;?<19跳转选择加
MOV XZBZ,#00H ;min
LCALL XZCS ;调用选择参数显示子程序AA
LCALL XX
LJMP JCJEX ;跳转选择减
ZXJ: MOV XZBZ,A
LCALL XZCS ;调用选择参数显示子程序AA
LCALL XX ;调用设定参数显示子程序
JCJEX: JB JIE,QRJCI
LCALL DD1
JB JIE,QRJCI ;跳转选择确认
AJMP LKP
QRJCI: LJMP QJI
LKP: MOV A,XZBZ
DEC A
CJNE A,#00H,XZL
MOV XZBZ,#13H ;max
LCALL XZCS ;调用选择参数显示子程序AA
LCALL XX
AJMP QJI ;?????
XZL: MOV XZBZ,A
LCALL XZCS ;调用选择参数显示子程序AA
LCALL XX ;调用设定参数显示子程序
QJI: JB QR,XGAA ;选择功能
LCALL DD1
JB QR,XGAA ;选择参数确认
AJMP SXA
XGAA: LJMP XZGN ;跳转功能检测
SXA: LCALL XZQR ;选择参数确认;;;;;;
LCALL CLRYJ
MOV R1,#0A1H
MOV COM,#80H
LCALL WRI
MOV DAT,#0D1H
LCALL WRD
MOV DAT,R1
LCALL WRD ;选
MOV R1,#0F1H
MOV COM,#81H
LCALL WRI
MOV DAT,#0D4H
LCALL WRD
MOV DAT,R1
LCALL WRD ;择
MOV R1,#0C9H
MOV COM,#82H
LCALL WRI
MOV DAT,#0B3H
LCALL WRD
MOV DAT,R1
LCALL WRD ;cheng
MOV R1,#0A6H
MOV COM,#83H
LCALL WRI
MOV DAT,#0B9H
LCALL WRD
MOV DAT,R1
LCALL WRD ;gong
MOV R3,#10H
NNN: LCALL DLE
DJNZ R3,NNN
LCALL SDXSC
LCALL CLRYJ
LJMP XSA
XZGN: JB GN,LOPP
LCALL DD1
JB GN,LOPP
LJMP XSA
LOPP: NOP ;跳转检测脉冲
MCSR1: NOP ;
MCSR: MOV A,BZMC
CJNE A,#0FH,HMA ;脉冲标志
AJMP HM
HMA: JNB JSS,CBZWO
LCALL DK
JNB JSS,CBZWO ; 跳查显示标志处理程序
MOV BZMC,#0FH
HM: JB JSS,CBZWO
LCALL DK
JB JSS,CBZWO
MOV BZMC,#0AH
MOV A,GEE ; 脉冲输入检测处理程序
INC A
CJNE A,#0AH,GJ
AJMP SJ1
程序长,有兴趣可联系
czha1@yahoo.com.cn
13775061792
