標(biāo)題: GP2D12紅外測(cè)距傳感器 單片機(jī)程序及PROTEUS仿真 實(shí)測(cè)可用 [打印本頁(yè)]
作者: heicad    時(shí)間: 2016-8-15 13:44
標(biāo)題: GP2D12紅外測(cè)距傳感器 單片機(jī)程序及PROTEUS仿真 實(shí)測(cè)可用
GP2D12紅外測(cè)距傳感器的PROTEUS仿真原理圖如下：





GP2D12紅外測(cè)距傳感器的單片機(jī)程序：
  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 個(gè)1us延時(shí)
  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. }
復(fù)制代碼



注意仿真工程只能用Proteus7.5這個(gè)版本,其他版本均無(wú)法仿真,必須要Proteus7.5才能用,如果你沒(méi)有安裝此版本的話就不必下載了
Keil代碼與Proteus7.5仿真下載: GP2D12仿真文件.zip (165.48 KB, 下載次數(shù): 419)
作者: 李12117    時(shí)間: 2017-5-3 23:02
仿真時(shí)說(shuō)沒(méi)找到gp2d12這個(gè)元件怎么辦?
作者: bingo大幅度    時(shí)間: 2017-8-22 10:06
仿真上LCD1602顯示的167是1.67V，GP2D12顯示的54是54cm嗎？
作者: 1229330235    時(shí)間: 2017-10-16 19:40
好資料，51黑有你更精彩!!!
作者: jxdianqi    時(shí)間: 2017-10-19 09:58
下載學(xué)習(xí)，謝謝分享
作者: 風(fēng)流有何罪    時(shí)間: 2018-4-18 11:31
學(xué)習(xí)了，謝謝分享
作者: luo1084036180    時(shí)間: 2018-12-17 19:57
學(xué)習(xí)了，謝謝分享
作者: 畢鈺    時(shí)間: 2019-6-21 22:46
學(xué)習(xí)學(xué)習(xí)
作者: x3050421831    時(shí)間: 2019-10-16 18:32
紅外測(cè)距傳感器與STC89C52怎么鏈接
作者: 小叔叔    時(shí)間: 2019-11-18 09:18
怎么進(jìn)行操作，數(shù)碼管燈不亮
作者: evilshadow    時(shí)間: 2021-12-9 11:19
你好，我下載了你的GP2D12仿真文件，怎么不能仿真啊，是因?yàn)闆](méi)有l(wèi)cd的程序文件嗎？
作者: heicad    時(shí)間: 2021-12-24 04:42
李12117 發(fā)表于 2017-5-3 23:02
仿真時(shí)說(shuō)沒(méi)找到gp2d12這個(gè)元件怎么辦?

樓主說(shuō)了,這個(gè)文件只能用Proteus7.5打開(kāi)才可以,其他版本都仿真,我測(cè)試也是這樣的,其他版本打開(kāi) 1602都是無(wú)顯示,下圖是用Proteus7.5打開(kāi)的效果

51hei.gif (103.18 KB, 下載次數(shù): 41)

51hei.gif
作者: heicad    時(shí)間: 2021-12-24 04:47
小叔叔 發(fā)表于 2019-11-18 09:18
怎么進(jìn)行操作，數(shù)碼管燈不亮

這個(gè)是用LCD1602來(lái)顯示的



歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1