找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 5394|回復(fù): 6
收起左側(cè)

基于GP2Y0A+ST32F103RCT6的紅外測距程序分享

[復(fù)制鏈接]
ID:455103 發(fā)表于 2018-12-26 09:35 | 顯示全部樓層 |閱讀模式
因為老師讓做這個課程設(shè)計，所以我把做好的東西發(fā)到這分享給大家。
測距用的是夏普的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. }
復(fù)制代碼

所有資料51hei提供下載:
紅外測距.rar (288.68 KB, 下載次數(shù): 73)


評分

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

查看全部評分

相關(guān)帖子
回復(fù)

使用道具 舉報

ID:357733 發(fā)表于 2019-2-7 22:09 | 顯示全部樓層
感謝樓主的資源
回復(fù)

使用道具 舉報

ID:467500 發(fā)表于 2019-2-25 19:35 | 顯示全部樓層
感謝樓主的分享
回復(fù)

使用道具 舉報

ID:467500 發(fā)表于 2019-2-25 19:39 | 顯示全部樓層
感謝樓主
回復(fù)

使用道具 舉報

ID:430308 發(fā)表于 2019-7-20 15:45 | 顯示全部樓層
多謝樓主
回復(fù)

使用道具 舉報

ID:650030 發(fā)表于 2019-12-5 17:13 | 顯示全部樓層
這個是怎樣實現(xiàn)測距的呢？比如距離到一定值之后單片機會有什么反應(yīng)？
回復(fù)

使用道具 舉報

ID:657963 發(fā)表于 2019-12-8 13:57 來自觸屏版 | 顯示全部樓層
樓主你是用正點原子迷你版做的嗎
回復(fù)

使用道具 舉報

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

本版積分規(guī)則

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

Powered by 單片機教程網(wǎng)

快速回復(fù) 返回頂部 返回列表