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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

搜索
»论坛 › 嵌入式/单片机论坛 › STM32/8 › 基于GP2Y0A+ST32F103RCT6的红外测距程序分享
返回列表 发新帖
查看: 4614|回复: 6
收起左侧

基于GP2Y0A+ST32F103RCT6的红外测距程序分享

[复制链接]
ID:455103 发表于 2018-12-26 09:35 | 显示全部楼层 |阅读模式
因为老师让做这个课程设计，所以我把做好的东西发到这分享给大家。
测距用的是夏普的GP2Y0A。屏幕用的是OLED显示屏。

单片机源程序如下:
  1. #include "sys.h"
  2. #include "delay.h"
  3. #include "usart.h"
  4. #include "oled.h"
  5. #include "adc.h"
  6. #include "led.h"

  8. extern u8 nonside[];

  10. int main(void)
  11. {       
  12.         u16 adcx;u8 display[8];
  13.         delay_init();
  14.   LED_Init();         
  15.         NVIC_PriorityGroupConfig(NVIC_PriorityGroup_2);
  16.         uart_init(115200);       
  17.         OLED_Init();
  18.         Adc_Init();       
  19.   LCD_Print(15, 0, "GYJ16481314",TYPE16X16,TYPE8X16);
  20.         LCD_Print(0, 16, "Infrared距离",TYPE16X16,TYPE8X16);
  21.         Draw_BMP(32,48,nonside);
  22.         Draw_BMP(48,48,nonside);
  23.         Draw_BMP(64,48,nonside);         
  24.         while(1)
  25.         {  
  26.                
  27.                
  28.                 adcx=Get_Adc_Average(ADC_Channel_11,10);
  29.                 if (adcx>472&&adcx<=558)
  30.                 {
  31.                         display[0]='8';
  32.                         display[1]='0';
  33.                         display[3]='c';
  34.                         display[4]='m';
  35.      LCD_Print(40, 32, display,TYPE16X16,TYPE6X8);
  36.                 }
  37.                                 else if (adcx>558&&adcx<=620)
  38.                 {
  39.      LCD_Print(40, 32, "70cm",TYPE16X16,TYPE6X8);
  40.                 }
  41.                                 else if (adcx>620&&adcx<=730)
  42.                 {
  43.      LCD_Print(40, 32, "60cm",TYPE16X16,TYPE6X8);
  44.                 }
  45.                 else if (adcx>730&&adcx<=807)
  46.                 {
  47.      LCD_Print(40, 32, "50cm",TYPE16X16,TYPE6X8);       
  48.                 }
  49.                 else if (adcx>807&&adcx<=992)
  50.                 {
  51.      LCD_Print(40, 32, "40cm",TYPE16X16,TYPE6X8);
  52.                 }
  53.                 else if (adcx>992&&adcx<=1303)
  54.                 {
  55.      LCD_Print(40, 32, "30cm",TYPE16X16,TYPE6X8);
  56.                 }
  57.                 else if (adcx>1303&&adcx<=1551)
  58.                 {
  59.      LCD_Print(40, 32, "25cm",TYPE16X16,TYPE6X8);
  60.                 }
  61.                 else if (adcx>1551&&adcx<=1861)
  62.                 {
  63.      LCD_Print(40, 32, "20cm",TYPE16X16,TYPE6X8);               
  64.                 }
  65.                 else if (adcx>1861&&adcx<=2419)
  66.                 {
  67.     LCD_Print(40, 32, "15cm",TYPE16X16,TYPE6X8);
  68.                 }
  69.                 else if (adcx>2419&&adcx<=3102)
  70.                 {
  71.      LCD_Print(40, 32, "10cm",TYPE16X16,TYPE6X8);
  72.                 }
  73.                 else if (adcx>3102&&adcx<=3660)
  74.                 {
  75.      LCD_Print(40, 32, "8cm",TYPE16X16,TYPE6X8);               
  76.                 }
  77.                 else if (adcx>3660&&adcx<=3784)
  78.                 {
  79.      LCD_Print(40, 32, "7cm",TYPE16X16,TYPE6X8);
  80.                 }
  81.                 else if (adcx>3784&&adcx<=3908)
  82.                 {
  83.      LCD_Print(40, 32, "5cm",TYPE16X16,TYPE6X8);
  84.                 }
  85.                 else if (adcx>3908&&adcx<=4095)
  86.                 {
  87.      LCD_Print(40, 32, "6cm",TYPE16X16,TYPE6X8);
  88.                 }
  89.                 if(adcx>1551)        GPIO_ResetBits(GPIOA,GPIO_Pin_8);
  90.                 else GPIO_SetBits(GPIOA,GPIO_Pin_8);
  91.                 delay_ms(10);
  92.         }
  93. }
复制代码

所有资料51hei提供下载:
红外测距.rar (288.68 KB, 下载次数: 73)
单片机

评分

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

查看全部评分

相关帖子
回复

使用道具 举报

ID:357733 发表于 2019-2-7 22:09 | 显示全部楼层
感谢楼主的资源
回复

使用道具 举报

ID:467500 发表于 2019-2-25 19:35 | 显示全部楼层
感谢楼主的分享
回复

使用道具 举报

ID:467500 发表于 2019-2-25 19:39 | 显示全部楼层
感谢楼主
回复

使用道具 举报

ID:430308 发表于 2019-7-20 15:45 | 显示全部楼层
多谢楼主
回复

使用道具 举报

ID:650030 发表于 2019-12-5 17:13 | 显示全部楼层
这个是怎样实现测距的呢？比如距离到一定值之后单片机会有什么反应？
回复

使用道具 举报

ID:657963 发表于 2019-12-8 13:57 来自手机 | 显示全部楼层
楼主你是用正点原子迷你版做的吗
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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