单片机论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 760|回复: 4
打印 上一主题 下一主题
收起左侧

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

[复制链接]
跳转到指定楼层
楼主
gyjwoai 发表于 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"

  7. extern u8 nonside[];

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

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


评分

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

查看全部评分

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

使用道具 举报

沙发
number1man 发表于 2019-2-7 22:09 | 只看该作者
感谢楼主的资源
回复

使用道具 举报

板凳
lobsterlobster 发表于 2019-2-25 19:35 | 只看该作者
感谢楼主的分享
回复

使用道具 举报

地板
lobsterlobster 发表于 2019-2-25 19:39 | 只看该作者
感谢楼主
回复

使用道具 举报

5#
wubingbing 发表于 2019-7-20 15:45 | 只看该作者
多谢楼主
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|手机版|小黑屋|单片机论坛 |51黑电子论坛单片机 联系QQ:125739409;技术交流QQ群582644647

Powered by 单片机教程网

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