久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

 找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

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

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

[復制鏈接]
跳轉到指定樓層
樓主
匯編程序編寫，分享給各位
仿真原理圖如下（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)

評分

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

查看全部評分

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

使用道具 舉報

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

本版積分規則

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

Powered by 單片機教程網

快速回復 返回頂部 返回列表
主站蜘蛛池模板： www.精品国产 | 中文字幕视频三区 | 国产成人一区二区三区 | 亚州毛片 | 亚洲一卡二卡 | 日韩一二三区视频 | 中文字幕日韩一区 | av片在线观看 | 午夜电影网站 | 69av在线视频 | www97影院 | 精品三级在线观看 | 殴美成人在线视频 | www.久久影视| 亚洲成av片人久久久 | 中文字幕一区二区三区精彩视频 | 亚洲性视频在线 | 免费高潮视频95在线观看网站 | 国产亚洲一区二区三区在线观看 | 国产精品亚洲片在线播放 | 国产精品国产三级国产aⅴ中文 | 国产精品一区二区三区在线 | 国产乱码精品一品二品 | 看片91 | www成人免费视频 | 日韩成人性视频 | 久久99精品视频 | a视频在线 | 日韩欧美一区二区三区四区 | 婷婷一级片| 欧美伊人| 国产永久免费 | 国产成视频在线观看 | 少妇久久久 | 国产成人综合在线 | 在线观看黄色电影 | 伊人久久精品 | 国产福利91精品一区二区三区 | 亚洲一视频| 精品一二三 | 91国自视频 |