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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

搜索
»论坛 › 嵌入式/单片机论坛 › STM32/8 › 基于stm32的非接触式MLX90614红外测温模块程序
返回列表 发新帖
查看: 5549|回复: 1
打印 上一主题 下一主题
收起左侧

基于stm32的非接触式MLX90614红外测温模块程序

[复制链接]
跳转到指定楼层
楼主
ID:537887 发表于 2019-5-29 09:14 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
附上可用程序，波特率为115200，接口为b7，b8

单片机源程序如下:

  2. /* Includes ------------------------------------------------------------------*/
  3. #include "mlx90614.h"


  6. /* Private typedef -----------------------------------------------------------*/
  7. /* Private define ------------------------------------------------------------*/
  8. #define ACK         0
  9. #define NACK          1
  10. #define SA                          0x00 //Slave address ??MLX90614????0x00,????????0x5a
  11. #define RAM_ACCESS                  0x00 //RAM access command
  12. #define EEPROM_ACCESS            0x20 //EEPROM access command
  13. #define RAM_TOBJ1                0x07 //To1 address in the eeprom

  15. #define SMBUS_PORT            GPIOB
  16. #define SMBUS_SCK                GPIO_Pin_6
  17. #define SMBUS_SDA                GPIO_Pin_7

  19. #define RCC_APB2Periph_SMBUS_PORT                RCC_APB2Periph_GPIOB

  21. #define SMBUS_SCK_H()            SMBUS_PORT->BSRR = SMBUS_SCK
  22. #define SMBUS_SCK_L()            SMBUS_PORT->BRR = SMBUS_SCK
  23. #define SMBUS_SDA_H()            SMBUS_PORT->BSRR = SMBUS_SDA
  24. #define SMBUS_SDA_L()            SMBUS_PORT->BRR = SMBUS_SDA

  26. #define SMBUS_SDA_PIN()            SMBUS_PORT->IDR & SMBUS_SDA //??????

  28. /* Private macro -------------------------------------------------------------*/
  29. /* Private variables ---------------------------------------------------------*/


  32. /*******************************************************************************
  33. * Function Name  : SMBus_Init
  34. * Description    : SMBus???
  35. * Input          : None
  36. * Output         : None
  37. * Return         : None
  38. *******************************************************************************/
  39. void SMBus_Init()
  40. {
  41.     GPIO_InitTypeDef    GPIO_InitStructure;

  43.         /* Enable SMBUS_PORT clocks */
  44.     RCC_APB2PeriphClockCmd(RCC_APB2Periph_SMBUS_PORT, ENABLE);

  46.     /*??SMBUS_SCK?SMBUS_SDA????????*/
  47.     GPIO_InitStructure.GPIO_Pin = SMBUS_SCK | SMBUS_SDA;
  48.     GPIO_InitStructure.GPIO_Mode = GPIO_Mode_Out_OD;
  49.     GPIO_InitStructure.GPIO_Speed = GPIO_Speed_50MHz;
  50.     GPIO_Init(SMBUS_PORT, &GPIO_InitStructure);

  52.     SMBUS_SCK_H();
  53.     SMBUS_SDA_H();
  54. }





  60. /*******************************************************************************
  61. * Function Name  : SMBus_StartBit
  62. * Description    : Generate START condition on SMBus
  63. * Input          : None
  64. * Output         : None
  65. * Return         : None
  66. *******************************************************************************/
  67. void SMBus_StartBit(void)
  68. {
  69.     SMBUS_SDA_H();                // Set SDA line
  70.     SMBus_Delay(1);            // Wait a few microseconds
  71.     SMBUS_SCK_H();                // Set SCL line
  72.     SMBus_Delay(5);            // Generate bus free time between Stop
  73.     SMBUS_SDA_L();                // Clear SDA line
  74.     SMBus_Delay(10);            // Hold time after (Repeated) Start
  75.     // Condition. After this period, the first clock is generated.
  76.     //(Thd:sta=4.0us min)
  77.     SMBUS_SCK_L();            // Clear SCL line
  78.     SMBus_Delay(2);            // Wait a few microseconds
  79. }

  81. /*******************************************************************************
  82. * Function Name  : SMBus_StopBit
  83. * Description    : Generate STOP condition on SMBus
  84. * Input          : None
  85. * Output         : None
  86. * Return         : None
  87. *******************************************************************************/
  88. void SMBus_StopBit(void)
  89. {
  90.     SMBUS_SCK_L();                // Clear SCL line
  91.     SMBus_Delay(5);            // Wait a few microseconds
  92.     SMBUS_SDA_L();                // Clear SDA line
  93.     SMBus_Delay(5);            // Wait a few microseconds
  94.     SMBUS_SCK_H();                // Set SCL line
  95.     SMBus_Delay(10);            // Stop condition setup time(Tsu:sto=4.0us min)
  96.     SMBUS_SDA_H();                // Set SDA line
  97. }

  99. /*******************************************************************************
  100. * Function Name  : SMBus_SendByte
  101. * Description    : Send a byte on SMBus
  102. * Input          : Tx_buffer
  103. * Output         : None
  104. * Return         : None
  105. *******************************************************************************/
  106. u8 SMBus_SendByte(u8 Tx_buffer)
  107. {
  108.     u8        Bit_counter;
  109.     u8        Ack_bit;
  110.     u8        bit_out;

  112.     for(Bit_counter=8; Bit_counter; Bit_counter--)
  113.     {
  114.         if (Tx_buffer&0x80)
  115.         {
  116.             bit_out=1;   // If the current bit of Tx_buffer is 1 set bit_out
  117.         }
  118.         else
  119.         {
  120.             bit_out=0;  // else clear bit_out
  121.         }
  122.         SMBus_SendBit(bit_out);                // Send the current bit on SDA
  123.         Tx_buffer<<=1;                                // Get next bit for checking
  124.     }

  126.     Ack_bit=SMBus_ReceiveBit();                // Get acknowledgment bit
  127.     return        Ack_bit;
  128. }

  130. /*******************************************************************************
  131. * Function Name  : SMBus_SendBit
  132. * Description    : Send a bit on SMBus
  133. * Input          : bit_out
  134. * Output         : None
  135. * Return         : None
  136. *******************************************************************************/
  137. void SMBus_SendBit(u8 bit_out)
  138. {
  139.     if(bit_out==0)
  140.     {
  141.         SMBUS_SDA_L();
  142.     }
  143.     else
  144.     {
  145.         SMBUS_SDA_H();
  146.     }
  147.     SMBus_Delay(2);                                        // Tsu:dat = 250ns minimum
  148.     SMBUS_SCK_H();                                        // Set SCL line
  149.     SMBus_Delay(10);                            // High Level of Clock Pulse
  150.     SMBUS_SCK_L();                                        // Clear SCL line
  151.     SMBus_Delay(10);                            // Low Level of Clock Pulse
  152. //        SMBUS_SDA_H();                                    // Master release SDA line ,
  153.     return;
  154. }

  156. /*******************************************************************************
  157. * Function Name  : SMBus_ReceiveBit
  158. * Description    : Receive a bit on SMBus
  159. * Input          : None
  160. * Output         : None
  161. * Return         : Ack_bit
  162. *******************************************************************************/
  163. u8 SMBus_ReceiveBit(void)
  164. {
  165.     u8 Ack_bit;

  167.     SMBUS_SDA_H();          //?????????,????
  168.     SMBUS_SCK_H();                        // Set SCL line
  169.     SMBus_Delay(2);                        // High Level of Clock Pulse
  170.     if (SMBUS_SDA_PIN())
  171.     {
  172.         Ack_bit=1;
  173.     }
  174.     else
  175.     {
  176.         Ack_bit=0;
  177.     }
  178.     SMBUS_SCK_L();                        // Clear SCL line
  179.     SMBus_Delay(4);                        // Low Level of Clock Pulse

  181.     return        Ack_bit;
  182. }

  184. /*******************************************************************************
  185. * Function Name  : SMBus_ReceiveByte
  186. * Description    : Receive a byte on SMBus
  187. * Input          : ack_nack
  188. * Output         : None
  189. * Return         : RX_buffer
  190. *******************************************************************************/
  191. u8 SMBus_ReceiveByte(u8 ack_nack)
  192. {
  193.     u8         RX_buffer;
  194.     u8        Bit_Counter;

  196.     for(Bit_Counter=8; Bit_Counter; Bit_Counter--)
  197.     {
  198.         if(SMBus_ReceiveBit())                        // Get a bit from the SDA line
  199.         {
  200.             RX_buffer <<= 1;                        // If the bit is HIGH save 1  in RX_buffer
  201.             RX_buffer |=0x01;
  202.         }
  203.         else
  204.         {
  205.             RX_buffer <<= 1;                        // If the bit is LOW save 0 in RX_buffer
  206.             RX_buffer &=0xfe;
  207.         }
  208.     }
  209.     SMBus_SendBit(ack_nack);                        // Sends acknowledgment bit
  210.     return RX_buffer;
  211. }

  213. /*******************************************************************************
  214. * Function Name  : SMBus_Delay
  215. * Description    : ??  ?????1us
  216. * Input          : time
  217. * Output         : None
  218. * Return         : None
  219. *******************************************************************************/
  220. void SMBus_Delay(u16 time)
  221. {
  222.     u16 i, j;
  223.     for (i=0; i<4; i++)
  224.     {
  225.         for (j=0; j<time; j++);
  226.     }
  227. }

  229. /*******************************************************************************
  230. * Function Name  : SMBus_ReadMemory
  231. * Description    : READ DATA FROM RAM/EEPROM
  232. * Input          : slaveAddress, command
  233. * Output         : None
  234. * Return         : Data
  235. *******************************************************************************/
  236. u16 SMBus_ReadMemory(u8 slaveAddress, u8 command)
  237. {
  238.     u16 data;                        // Data storage (DataH:DataL)
  239.     u8 Pec;                                // PEC byte storage
  240.     u8 DataL=0;                        // Low data byte storage
  241.     u8 DataH=0;                        // High data byte storage
  242.     u8 arr[6];                        // Buffer for the sent bytes
  243.     u8 PecReg;                        // Calculated PEC byte storage
  244.     u8 ErrorCounter;        // Defines the number of the attempts for communication with MLX90614

  246.     ErrorCounter=0x00;                                // Initialising of ErrorCounter
  247.         slaveAddress <<= 1;        //2-7???????
  248.         
  249.     do
  250.     {
  251. repeat:
  252.         SMBus_StopBit();                            //If slave send NACK stop comunication
  253.         --ErrorCounter;                                    //Pre-decrement ErrorCounter
  254.         if(!ErrorCounter)                             //ErrorCounter=0?
  255.         {
  256.             break;                                            //Yes,go out from do-while{}
  257.         }

  259.         SMBus_StartBit();                                //Start condition
  260.         if(SMBus_SendByte(slaveAddress))//Send SlaveAddress ???Wr=0????????
  261.         {
  262.             goto        repeat;                            //Repeat comunication again
  263.         }
  264.         if(SMBus_SendByte(command))            //Send command
  265.         {
  266.             goto        repeat;                            //Repeat comunication again
  267.         }

  269.         SMBus_StartBit();                                        //Repeated Start condition
  270.         if(SMBus_SendByte(slaveAddress+1))        //Send SlaveAddress ???Rd=1????????
  271.         {
  272.             goto        repeat;                     //Repeat comunication again
  273.         }

  275.         DataL = SMBus_ReceiveByte(ACK);        //Read low data,master must send ACK
  276.         DataH = SMBus_ReceiveByte(ACK); //Read high data,master must send ACK
  277.         Pec = SMBus_ReceiveByte(NACK);        //Read PEC byte, master must send NACK
  278.         SMBus_StopBit();                                //Stop condition

  280.         arr[5] = slaveAddress;                //
  281.         arr[4] = command;                        //
  282.         arr[3] = slaveAddress+1;        //Load array arr
  283.         arr[2] = DataL;                                //
  284.         arr[1] = DataH;                                //
  285.         arr[0] = 0;                                        //
  286.         PecReg=PEC_Calculation(arr);//Calculate CRC
  287.     }
  288.     while(PecReg != Pec);                //If received and calculated CRC are equal go out from do-while{}

  290.         data = (DataH<<8) | DataL;        //data=DataH:DataL
  291.     return data;
  292. }

  294. /*******************************************************************************
  295. * Function Name  : PEC_calculation
  296. * Description    : Calculates the PEC of received bytes
  297. * Input          : pec[]
  298. * Output         : None
  299. * Return         : pec[0]-this byte contains calculated crc value
  300. *******************************************************************************/
  301. u8 PEC_Calculation(u8 pec[])
  302. {
  303.     u8         crc[6];
  304.     u8        BitPosition=47;
  305.     u8        shift;
  306.     u8        i;
  307.     u8        j;
  308.     u8        temp;

  310.     do
  311.     {
  312.         /*Load pattern value 0x000000000107*/
  313.         crc[5]=0;
  314.         crc[4]=0;
  315.         crc[3]=0;
  316.         crc[2]=0;
  317.         crc[1]=0x01;
  318.         crc[0]=0x07;

  320.         /*Set maximum bit position at 47 ( six bytes byte5...byte0,MSbit=47)*/
  321.         BitPosition=47;

  323.         /*Set shift position at 0*/
  324.         shift=0;

  326.         /*Find first "1" in the transmited message beginning from the MSByte byte5*/
  327.         i=5;
  328.         j=0;
  329.         while((pec[i]&(0x80>>j))==0 && i>0)
  330.         {
  331.             BitPosition--;
  332.             if(j<7)
  333.             {
  334.                 j++;
  335.             }
  336.             else
  337.             {
  338.                 j=0x00;
  339.                 i--;
  340.             }
  341.         }/*End of while */

  343.         /*Get shift value for pattern value*/
  344.         shift=BitPosition-8;

  346.         /*Shift pattern value */
  347.         while(shift)
  348.         {
  349.             for(i=5; i<0xFF; i--)
  350.             {
  351.                 if((crc[i-1]&0x80) && (i>0))
  352.                 {
  353.                     temp=1;
  354.                 }
  355.                 else
  356.                 {
  357.                     temp=0;
  358.                 }
  359.                 crc[i]<<=1;
  360.                 crc[i]+=temp;
  361.             }/*End of for*/
  362.             shift--;
  363.         }/*End of while*/

  365.         /*Exclusive OR between pec and crc*/
  366.         for(i=0; i<=5; i++)
  367.         {
  368.             pec[i] ^=crc[i];
  369.         }/*End of for*/
  370.     }
  371.     while(BitPosition>8); /*End of do-while*/

  373.     return pec[0];
  374. }

  376. /*******************************************************************************
  377. * Function Name  : SMBus_ReadTemp
  378. * Description    : Calculate and return the temperature
  379. * Input          : None
  380. * Output         : None
  381. * Return         : SMBus_ReadMemory(0x00, 0x07)*0.02-273.15
  382. *******************************************************************************/
  383. float SMBus_ReadTemp(void)
  384. {   
  385.     return SMBus_ReadMemory(SA, RAM_ACCESS|RAM_TOBJ1)*0.02-273.15;
  386. }

  388. /*********************************END OF FILE*********************************/
复制代码

所有资料51hei提供下载:
mlx90614.7z (186.68 KB, 下载次数: 213)


评分

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

查看全部评分

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

使用道具 举报

沙发
ID:593810 发表于 2019-11-16 18:34 | 只看该作者
楼主，你这个程序给串口发送什么数据才能在串口上接受显示？
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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