设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 嵌入式/单片机论坛 › 51单片机 › 单片机汇编语言超声波测距报警程序和Proteus仿真
返回列表 发新帖
查看: 130|回复: 0
打印 上一主题 下一主题
收起左侧

单片机汇编语言超声波测距报警程序和Proteus仿真

[复制链接]
跳转到指定楼层
楼主
ID:663806 发表于 2025-6-23 21:32 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
汇编程序编写，分享给各位
仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）


单片机源程序如下:
  1.         RS BIT P1.0  ;LCD1602引脚定义
  2.         RW BIT P1.1
  3.         EN BIT P1.2
  4.                
  5.         ECHO BIT P3.6       ;回波信号端
  6.                
  7.                 NUM        EQU 40H   ;定时器用
  8.         H        EQU 41H    ;距离高8位
  9.         L        EQU 42H    ;距离低8位

  11.                 ORG 0000H
  12.         LJMP MAIN
  13.         ORG 000BH         ;定时器0入口
  14.         LJMP TIME0
  15.         ORG 0030H
  16.         MAIN:
  17.         MOV SP,#60H
  18.         MOV R0,#40H     
  19.         MOV A,#0
  20.         MOV NUM,#0
  21.         MOV H,#0
  22.         MOV L,#0
  23.    
  24.         
  25.         MOV H,#1
  26.         MOV L,#0
  27.         LCALL  LCD1602_INIT  ;1602初始化
  28.         LCALL DELAY2
  29.         
  30.         MOV A,#80H
  31.         LCALL WRITE_1602COM
  32.         MOV DPTR,#CODE_PRINT
  33.         LCALL PRINT
  34.      
  35.         MOV TMOD,#11H               ;初始化定时器
  36.         MOV TH0,#0;
  37.         MOV TL0,#0;
  38.         SETB EA
  39.         SETB ET0
  40.         
  41.         ;主循环
  42. LOOP:  
  43.         SETB TR1
  44. LOOP1:
  45.         JB ECHO,LOOP2
  46.         SJMP LOOP1
  47. LOOP2:
  48.         SETB TR0
  49. LOOP3:
  50.         JNB ECHO,LOOP4
  51.         SJMP LOOP3
  52. LOOP4:
  53.         CLR TR0
  54.         LCALL COUNT
  55.         LCALL DISPLAY     ;显示距离
  56.         SJMP LOOP6
  57. LOOP5:
  58.         CLR TR0
  59.         MOV TH0,#0;   
  60.         MOV TL0,#0;
  61. LOOP6:
  62.         SJMP LOOP        
  63.                
  64. COUNT:  ;计算距离 cm=us/58
  65.         MOV R1,TH0
  66.         MOV R0,TL0
  67.         MOV L,#0
  68.         MOV H,#0
  69.         MOV TH0,#0
  70.         MOV TL0,#0
  71. DIS1:
  72.       CLR  C             ;循环被除数减去除数的次数就是这个商
  73.       MOV  A, R0
  74.       SUBB A, #3AH
  75.       MOV  R0, A
  76.       MOV  A, R1
  77.       SUBB A, #0
  78.       MOV  R1, A
  79.       JC   DIS2
  80.       INC  L
  81.           MOV A,L
  82.       CJNE A,#0,DIS1
  83.           INC H
  84.       SJMP DIS1
  85. DIS2:
  86.       RET

  88.         
  89. DISPLAY:                ;显示距离
  90.         MOV R6,H   
  91.         MOV R7,L
  92.         LCALL HB2           ;2字节16进制数转换为3字节压缩BCD码
  93.         MOV A,#089H
  94.         MOV B,R4
  95.         LCALL DIS_1BIT
  96.         MOV A,R5
  97.         LCALL DIS_2BIT
  98.                 CJNE R4,#3,DIS0
  99.                 CLR P3.7
  100.         RET
  101. DIS0:
  102.                 SETB P3.7
  103.         RET
  104.                
  105.         
  106.         ;LCD1602初始化函数
  107. LCD1602_INIT:
  108.         MOV A,#38H
  109.         LCALL WRITE_1602COM
  110.         MOV A,#0CH
  111.         LCALL WRITE_1602COM
  112.         MOV A,#06H
  113.         LCALL WRITE_1602COM
  114.         MOV A,#01H
  115.         LCALL WRITE_1602COM
  116.         RET
  117.         
  118.         WRITE_1602COM:  ;写命令
  119.         CLR RS
  120.         CLR RW
  121.         MOV P0,A
  122.         LCALL DELAY1
  123.         SETB EN
  124.         LCALL DELAY1
  125.         CLR EN
  126.         RET
  127.         WRITE_1602DAT: ;写数据
  128.         SETB RS
  129.         CLR RW
  130.         MOV P0,A
  131.         LCALL DELAY1
  132.         SETB EN
  133.         LCALL DELAY1
  134.         CLR EN
  135.         RET
  136.         
  137.         
  138.         ;1602显示字符串函数
  139. PRINT:
  140.         MOV R0,#0
  141. PRINT1:
  142.         MOV A,R0
  143.         MOVC A,@A+DPTR
  144.         CJNE A,#0,PRINT0
  145.         RET
  146. PRINT0:
  147.         LCALL WRITE_1602DAT
  148.         INC R0
  149.         SJMP PRINT1
  150.         
  151.         
  152.         ;1602显示2位整数
  153. DIS_2BIT:
  154.         MOV B,#16
  155.         DIV AB
  156.         ADD A,#30H
  157.         LCALL WRITE_1602DAT
  158.         MOV A,B
  159.         ADD A,#30H
  160.         LCALL WRITE_1602DAT
  161.         RET
  162.         
  163.         ;1602显示1位整数
  164. DIS_1BIT:                ;A是地址 B放数据
  165.         LCALL WRITE_1602COM
  166.         MOV A,B
  167.         ADD A,#30H
  168.         LCALL WRITE_1602DAT
  169.         RET
  170.         
  171.         DELAY1:       ;延时1
  172.         MOV 30H,#20
  173.         DJNZ 30H,$
  174.         RET
  175.         
  176.         DELAY2:       ;延时2
  177.         MOV 30H,#50
  178.         DELAY20:
  179.         MOV 31H,#50
  180.         DJNZ 31H,$
  181.         DJNZ 30H,DELAY20
  182.         RET
  183.         
  184.         ;定时器0中断函数
  185. TIME0:
  186.         RETI
  187.            
  188.         
  189. HB2:
  190.         CLR        A        ;ＢＣＤ码初始化
  191.         MOV        R3,A
  192.         MOV        R4,A
  193.         MOV        R5,A
  194.         MOV        R2,#10H        ;转换双字节十六进制整数
  195. HB3:        
  196.         MOV        A,R7        ;从高端移出待转换数的一位到CY中
  197.         RLC        A
  198.         MOV        R7,A
  199.         MOV        A,R6
  200.         RLC        A
  201.         MOV        R6,A
  202.         MOV        A,R5        ;ＢＣＤ码带进位自身相加,相当于乘２
  203.         ADDC        A,R5
  204.         DA        A        ;十进制调整
  205.         MOV        R5,A
  206.         MOV        A,R4
  207.         ADDC        A,R4
  208.         DA        A
  209.         MOV        R4,A
  210.         MOV        A,R3
  211.         ADDC        A,R3
  212.         MOV        R3,A        ;双字节十六进制数的万位数不超过6,不用调整
  213.         DJNZ        R2,HB3        ;处理完16bit
  214.         RET        
  215.         
  216. CODE_PRINT:
  217.         DB "DISTANCE     cm",0

  219.         END
复制代码

仿真程序下载: 01.7z (52.24 KB, 下载次数: 0)
本主题由 admin 执行 审核通过

评分

参与人数 1黑币 +50 收起 理由
admin + 50 共享资料的黑币奖励！

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1 分享淘帖 顶顶 踩踩
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表