找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 2|回復: 0
打印 上一主題 下一主題
收起左側

單片機匯編語言超聲波測距報警程序和Proteus仿真

[復制鏈接]
跳轉到指定樓層
樓主
ID:663806 發(fā)表于 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.         ;主循環(huán)
  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             ;循環(huán)被除數(shù)減去除數(shù)的次數(shù)就是這個商
  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字節(jié)16進制數(shù)轉換為3字節(jié)壓縮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初始化函數(shù)
  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: ;寫數(shù)據(jù)
  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顯示字符串函數(shù)
  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位整數(shù)
  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位整數(shù)
  164. DIS_1BIT:                ;A是地址 B放數(shù)據(jù)
  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中斷函數(shù)
  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        ;轉換雙字節(jié)十六進制整數(shù)
  195. HB3:        
  196.         MOV        A,R7        ;從高端移出待轉換數(shù)的一位到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        ;雙字節(jié)十六進制數(shù)的萬位數(shù)不超過6,不用調整
  213.         DJNZ        R2,HB3        ;處理完16bit
  214.         RET        
  215.         
  216. CODE_PRINT:
  217.         DB "DISTANCE     cm",0

  219.         END
復制代碼

仿真程序下載: 01.7z (52.24 KB, 下載次數(shù): 0)

評分

參與人數(shù) 1黑幣 +50 收起 理由
admin + 50 共享資料的黑幣獎勵！

查看全部評分

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂頂 踩踩
回復

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術交流QQ群281945664

Powered by 單片機教程網(wǎng)

快速回復 返回頂部 返回列表