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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

搜索
»论坛 › 嵌入式/单片机论坛 › 51单片机 › GP2D12红外测距传感器 单片机程序及PROTEUS仿真 实测可 ...
返回列表 发新帖
查看: 20000|回复: 12
打印 上一主题 下一主题
收起左侧

GP2D12红外测距传感器 单片机程序及PROTEUS仿真 实测可用

  [复制链接]
跳转到指定楼层
楼主
ID:262 发表于 2016-8-15 13:44 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
GP2D12红外测距传感器的PROTEUS仿真原理图如下：





GP2D12红外测距传感器的单片机程序：
  1. #include"reg52.h"
  2. #include<intrins.h>
  3. #define uint unsigned int
  4. #define uchar unsigned char

  6. sbit cs = P3^2;
  7. long int read=0;
  8. sbit wela = P2^7;
  9. sbit dula = P2^6;
  10. sbit lcden=P3^4;
  11. sbit lcdrs=P3^5;

  13. uchar bai,shi,ge,num;

  15. uchar table[] ="123456789";

  17. void delayms(uint z)
  18. {
  19.         uint x,y;
  20.         for(x=z;x>0;x--)
  21.                 for(y=110;y>0;y-- );
  22. }

  24. void write_com(uchar com)
  25. {        
  26.         lcdrs=0;
  27.         P0=com;
  28.         delayms(5);
  29.         lcden=1;
  30.         delayms(5);
  31.         lcden=0;
  32. }

  34. void write_data(uchar date)
  35. {
  36.         lcdrs=1;
  37.         P0=date;
  38.         delayms(5);
  39.         lcden=1;
  40.         delayms(5);
  41.         lcden=0;
  42. }

  44. void init()
  45. {
  46.         dula=0;
  47.         wela=0;
  48.         lcden=0;
  49.         write_com(0x38);
  50.         write_com(0x0c);
  51.         write_com(0x06);
  52.         write_com(0x01);
  53. }
  54. void delay(uint a)           //  a 个1us延时
  55. {
  56.         for(;a > 0;a --)
  57.         _nop_();_nop_();
  58. }

  60. void T0_time() interrupt 1
  61. {
  62.         cs = 0;
  63.         RD = 0;
  64.         read = P1;
  65.         INT0 = 1;
  66. }
  67. uint adc0804()
  68. {
  69. TMOD=0X01;
  70. TH0=(65536-45872)/256;
  71. TL0=(65536-45872)/256;
  72. EA=1;
  73. ET0=1;
  74. TR0=1;

  76.         INT0 = 1;
  77.         cs = 0;
  78.         WR = 0;
  79.         delay(255);
  80.         cs = 1;
  81.         WR = 1;
  82.         delay(200);               
  83.         read = read * 196 /100;
  84.         return read;
  85.         
  86. }

  88. void math(uint x)
  89. {
  90.         bai = x / 100;
  91.         shi = x /10 % 10;
  92.         ge = x % 10;
  93. }/*
  94. void display()
  95. {         
  96.          
  97.         math(adc0804());
  98.         
  99.         dula=1;
  100.         P0 = table[bai+10];
  101.         dula=0;
  102.         P0=0xff;

  104.         wela = 1;
  105.         P0 = 0xfe;
  106.         wela=0;
  107.         delay(7000000);

  109.                
  110.         dula=1;
  111.         P0 = table[shi];
  112.         dula=0;
  113.         P0=0xff;

  115.         wela = 1;
  116.         P0 = 0xfd;
  117.         wela=0;
  118.         delay(7000000);

  120.                
  121.         dula=1;
  122.         P0 = table[ge];
  123.         dula=0;
  124.         P0=0xff;

  126.         wela = 1;
  127.         P0 = 0xfb;
  128.         wela=0;
  129.         delay(7000000);
  130.         
  131. }

  133.    */

  135. void main()
  136. {
  137.     cs=0;
  138.                 init();           


  141.                    while(1)
  142.                 {
  143.                

  145.             math(adc0804());
  146.                

  148.                 write_com(0x80+5);
  149.         
  150.                 write_data(table[bai]);
  151.                 write_data(table[shi]);
  152.                 write_data(table[ge]);
  153.                         delayms(500);
  154.                
  155.                 }
  156.         
  157. }
复制代码



注意仿真工程只能用Proteus7.5这个版本,其他版本均无法仿真,必须要Proteus7.5才能用,如果你没有安装此版本的话就不必下载了
Keil代码与Proteus7.5仿真下载: GP2D12仿真文件.zip (165.48 KB, 下载次数: 419)

评分

参与人数 1黑币 +5 收起 理由
zzwk123456 + 5 很给力！

查看全部评分

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

使用道具 举报

来自 2#
ID:262 发表于 2021-12-24 04:42 | 只看该作者
李12117 发表于 2017-5-3 23:02
仿真时说没找到gp2d12这个元件怎么办?

楼主说了,这个文件只能用Proteus7.5打开才可以,其他版本都仿真,我测试也是这样的,其他版本打开 1602都是无显示,下图是用Proteus7.5打开的效果

51hei.gif (103.18 KB, 下载次数: 41)

51hei.gif
回复

使用道具 举报

板凳
ID:196291 发表于 2017-5-3 23:02 | 只看该作者
仿真时说没找到gp2d12这个元件怎么办?
回复

使用道具 举报

地板
ID:223290 发表于 2017-8-22 10:06 | 只看该作者
仿真上LCD1602显示的167是1.67V，GP2D12显示的54是54cm吗？
回复

使用道具 举报

5#
ID:240017 发表于 2017-10-16 19:40 来自触屏版 | 只看该作者
好资料，51黑有你更精彩!!!
回复

使用道具 举报

6#
ID:196311 发表于 2017-10-19 09:58 | 只看该作者
下载学习，谢谢分享
回复

使用道具 举报

7#
ID:310742 发表于 2018-4-18 11:31 | 只看该作者
学习了，谢谢分享
回复

使用道具 举报

8#
ID:269851 发表于 2018-12-17 19:57 | 只看该作者
学习了，谢谢分享
回复

使用道具 举报

9#
ID:352562 发表于 2019-6-21 22:46 | 只看该作者
学习学习
回复

使用道具 举报

10#
ID:625195 发表于 2019-10-16 18:32 来自触屏版 | 只看该作者
红外测距传感器与STC89C52怎么链接
回复

使用道具 举报

11#
ID:643554 发表于 2019-11-18 09:18 来自触屏版 | 只看该作者
怎么进行操作，数码管灯不亮
回复

使用道具 举报

12#
ID:987987 发表于 2021-12-9 11:19 | 只看该作者
你好，我下载了你的GP2D12仿真文件，怎么不能仿真啊，是因为没有lcd的程序文件吗？
回复

使用道具 举报

13#
ID:262 发表于 2021-12-24 04:47 | 只看该作者
小叔叔 发表于 2019-11-18 09:18
怎么进行操作，数码管灯不亮

这个是用LCD1602来显示的
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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