欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

 找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 1709|回復: 0
打印 上一主題 下一主題
收起左側

51單片機紅外通訊程序（顯示紅外鍵盤鍵值）

[復制鏈接]
跳轉到指定樓層
樓主
ID:704913 發表于 2020-3-23 17:22 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
//利用單片機開發板上的紅外接收器實現紅外鍵值顯示。
  1. #include "reg52.h"    //此文件中定義了單片機的一些特殊功能寄存器

  3. typedef unsigned int u16;   //對數據類型進行聲明定義
  4. typedef unsigned char u8;
  5. sbit LSA=P2^2;
  6. sbit LSB=P2^3;
  7. sbit LSC=P2^4;
  8. sbit realy=P1^0;
  9. sbit IRIN=P3^2;
  10. u8 IrValue[6];
  11. u8 Time;
  12. u8 DisplayData[8];
  13. u8 code smgduan[17]={
  14. 0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,
  15. 0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71,0X76};
  16. //0、1、2、3、4、5、6、7、8、9、A、b、C、d、E、F、H的顯示碼
  17. /*******************************************************************************
  18. * 函 數 名         : delay
  19. * 函數功能     : 延時函數，i=1時，大約延時10us
  20. *******************************************************************************/
  21. void delay(u16 i)
  22. {
  23. while(i--);
  24. }

  26. /*******************************************************************************
  27. * 函數名         :DigDisplay()
  28. * 函數功能   :數碼管顯示函數
  29. * 輸入           : 無
  30. * 輸出           : 無
  31. *******************************************************************************/
  32. void DigDisplay()
  33. {
  34. u8 i;
  35. for(i=0;i<3;i++)
  36. {
  37.   switch(i)  //位選，選擇點亮的數碼管，
  38.   {
  39.    case(0):
  40.     LSA=0;LSB=0;LSC=0; break;//顯示第0位
  41.    case(1):
  42.     LSA=1;LSB=0;LSC=0; break;//顯示第1位
  43.    case(2):
  44.     LSA=0;LSB=1;LSC=0; break;//顯示第2位
  45.   }
  46.   P0=DisplayData[i];//發送數據
  47.   delay(100); //間隔一段時間掃描
  48.   P0=0x00;//消隱
  49. }  
  50. }

  52. /*******************************************************************************
  53. * 函數名         : IrInit()
  54. * 函數功能     : 初始化紅外線接收
  55. * 輸入           : 無
  56. * 輸出           : 無
  57. *******************************************************************************/
  58. void IrInit()
  59. {
  60. IT0=1;//下降沿觸發
  61. EX0=1;//打開中斷0允許
  62. EA=1; //打開總中斷
  63. IRIN=1;//初始化端口
  64. }

  66. /*******************************************************************************
  67. * 函 數 名       : main
  68. * 函數功能   : 主函數
  69. * 輸    入       : 無
  70. * 輸    出      : 無
  71. *******************************************************************************/
  72. void main()
  73. {
  74. IrInit();
  75. while(1)
  76. {
  77.   DisplayData[0] = smgduan[IrValue[2]/16];
  78.   DisplayData[1] = smgduan[IrValue[2]%16];
  79.   DisplayData[2] = smgduan[16];
  80.      DigDisplay();

  82. }  
  83. }
  84. /*******************************************************************************
  85. * 函數名         : ReadIr()
  86. * 函數功能     : 讀取紅外數值的中斷函數
  87. * 輸入           : 無
  88. * 輸出           : 無
  89. *******************************************************************************/
  90. void ReadIr() interrupt 0
  91. {
  92. u8 j,k;
  93. u16 err;
  94. Time=0;      
  95. delay(700); //7ms
  96. if(IRIN==0)  //確認是否真的接收到正確的信號
  97. {  
  98.   
  99.   err=1000;    //1000*10us=10ms,超過說明接收到錯誤的信號
  100.   /*當兩個條件都為真是循環，如果有一個條件為假的時候跳出循環，免得程序出錯的時
  101.   侯，程序死在這里*/
  102.   while((IRIN==0)&&(err>0)) //等待前面9ms的低電平過去   
  103.   {   
  104.    delay(1);
  105.    err--;
  106.   }
  107.   if(IRIN==1)   //如果正確等到9ms低電平
  108.   {
  109.    err=500;
  110.    while((IRIN==1)&&(err>0))   //等待4.5ms的起始高電平過去
  111.    {
  112.     delay(1);
  113.     err--;
  114.    }
  115.    for(k=0;k<4;k++)  //共有4組數據
  116.    {   
  117.     for(j=0;j<8;j++) //接收一組數據
  118.     {
  119.      err=60;  
  120.      while((IRIN==0)&&(err>0))//等待信號前面的560us低電平過去
  121.      {
  122.       delay(1);
  123.       err--;
  124.      }
  125.      err=500;
  126.      while((IRIN==1)&&(err>0))  //計算高電平的時間長度。
  127.      {
  128.       delay(10);  //0.1ms
  129.       Time++;
  130.       err--;
  131.       if(Time>30)
  132.       {
  133.        return;
  134.       }
  135.      }
  136.      IrValue[k]>>=1;  //k表示第幾組數據
  137.      if(Time>=8)   //如果高電平出現大于565us，那么是1
  138.      {
  139.       IrValue[k]|=0x80;
  140.      }
  141.      Time=0;  //用完時間要重新賦值      
  142.     }
  143.    }
  144.   }
  145.   if(IrValue[2]!=~IrValue[3])
  146.   {
  147.    return;
  148.   }
  149. }
  150.    
  151. }
復制代碼


實驗26：紅外通信.zip

636.82 KB, 下載次數: 5, 下載積分: 黑幣 -5

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂頂 踩踩
回復

使用道具 舉報

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

本版積分規則

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

Powered by 單片機教程網

快速回復 返回頂部 返回列表