标题: Proteus仿真实例8051单片机步进电机控制-汇编语言 [打印本页]
作者: 吃葡萄    时间: 2017-6-28 12:01
标题: Proteus仿真实例8051单片机步进电机控制-汇编语言
Proteus仿真实例（8051）-步进电机控制，带数码管显示

使用说明：按Key1，步进电机顺时针旋转，Key2步进电机逆时针旋转。



单片机汇编语言源程序如下:
  1. K1 EQU P2.0
  2. K2 EQU P2.1        
  3.         ORG 0000H
  4.         AJMP MAIN

  6.         ORG 0030H
  7. MAIN:   MOV A,#33H
  8.         SETB P2.6
  9.         SETB P2.7
  10. KEY1:   SETB    K1                    ;将P2.2置1
  11.         JB      K1,  KEY2             ;有键按下P2.2=0
  12. KEY11:  ACALL   DELAY_A                ;延时，防止抖动
  13.         SETB    K1
  14.         JB      K1,  KEY11            ;确认键按下
  15.         ACALL   CLOCKWISE

  17. KEY2:   SETB    K2                    ;将P2.2置1
  18.         JB      K2,  KEY1             ;有键按下P2.2=0
  19. KEY21:  ACALL   DELAY_A                ;延时，防止抖动
  20.         SETB    K2
  21.         JB      K2,  KEY21            ;确认键按下
  22.         ACALL   ANTI_CLOCKWISE
  23.         AJMP    KEY1   

  25. CLOCKWISE:
  26.         RL A
  27.         MOV P3,A
  28.         MOV P0,#0C6H
  29.         ACALL DELAY
  30.         RET
  31.       
  32. ANTI_CLOCKWISE:
  33.         RR A
  34.         MOV P3,A
  35.         MOV P0,#88H
  36.         ACALL DELAY
  37.         RET
  38.       
  39. DELAY:   MOV R6,#20H
  40. DELAY22: MOV R7,#80H
  41. DELAY11: DJNZ R7,DELAY11
  42.          DJNZ R6,DELAY22         
  43.          RET

  45. DELAY_A:MOV  R7,#88H
  46. DELAY1: DJNZ R7,DELAY1
  47.         RET        
  48.         end   
复制代码

所有资料51hei提供下载:
Proteus仿真实例（8051）-步进电机控制.zip (13.54 KB, 下载次数: 28)


作者: ahshmj    时间: 2017-6-28 16:54
这个可以转动吗？按住不放？
作者: lxa0    时间: 2017-6-28 22:52
看见汇编就格外亲~~~~~~~~~~~~



欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1