程序稍加修改即可使用在各种需要长度控制的场合.比如带.管.布类切断,印刷,标记.

自动长度控制切断器方案:测量为红外线输入,经按装在牵引轮上的分度轮(上边按计算好的角度打与直径相吻合的若干个孔)输入红外信号,测量出挤出机挤出的长度,后于设定的值相比较.发出切断信号.每切断一次产量加一.并在液晶屏显示.
单片机控制 中文液晶显示,显示内容在
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
  ......

>>返回讨论的主题