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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

搜索
»论坛 › 嵌入式/单片机论坛 › STM32/8 › 基于STM32F103RC的MLX90614源代码
返回列表 发新帖
查看: 4701|回复: 5
收起左侧

基于STM32F103RC的MLX90614源代码

  [复制链接]
ID:668705 发表于 2019-12-20 19:57 | 显示全部楼层 |阅读模式
实测可用

单片机源程序如下:
  1. #include "led.h"
  2. #include "delay.h"
  3. #include "key.h"
  4. #include "sys.h"
  5. #include "stdint.h"
  6. #include "usart.h"
  7. #include "mlx90614.h"
  8. #include "GUI.h"
  9. #include "Lcd_Driver.h"
  10. #include "TFT_demo.h"


  13. //STM32F103核心板例程
  14. //库函数版本例程
  15.          
  16. int main(void)
  17. {         
  18.          
  19.         u8 lcd_id[12];                        //存放LCD ID字符串
  20.         delay_init();                     //延时函数初始化         
  21.         NVIC_Configuration();          //设置NVIC中断分组2:2位抢占优先级，2位响应优先级
  22.         uart_init(9600);                 //串口初始化为9600
  23.          LED_Init();                             //LED端口初始化
  24.          BEEP_Init();
  25.         Lcd_Init();         //1.44寸液晶屏--初始化配置
  26.         Lcd_Clear(GRAY0);//清屏
  27.         Gui_DrawFont_GBK16(0,16,RED,GRAY0," STM32 TFT 1.44 ");
  28.   Gui_DrawFont_GBK16(0,48,BLUE,GRAY0,"  嵌入式开发网   ");         
  29.         Gui_DrawFont_GBK16(0,64,BLUE,GRAY0,"mcudevcom ");
  30.          SMBus_Init();
  31.          float temp;
  32.          Lcd_Clear(GRAY0);//清屏
  33.         int a;
  34.          
  35.   while(1)
  36.         {                 
  37.                 temp = SMBus_ReadTemp();
  38.                 printf("温度 = %5.2f℃\r\n",temp);
  39.                 sprintf((char*)lcd_id,"%5.2f",temp);
  40.                 Gui_DrawFont_GBK16(0,10,BLUE,GRAY0,"Temperature:");
  41.                 DisplayButtonUp(30,28,85,52); //x1,y1,x2,y2
  42.                 Gui_DrawFont_GBK16(40,32,RED,GRAY0,lcd_id);//体温显示到TFT
  43.                 delay_ms(1000);        
  44.                 a=(int)temp;
  45.                 if(a<=30|a>=42)//启动蜂鸣器报警
  46.                 {
  47.                 GPIO_SetBits(GPIOC,GPIO_Pin_14);
  48.                
  49.                 }
  50.                 else        GPIO_ResetBits(GPIOC,GPIO_Pin_14);        
  51.                
  52.                 delay_ms(1000);        
  53.         }
  54. }
复制代码
  1. #include "mlx90614.h"
  2. #define ACK         0
  3. #define        NACK 1
  4. #define SA                                0x00 //从机地址，单个MLX90614时地址为0x00,多个时地址默认为0x5a
  5. #define RAM_ACCESS                0x00 //RAM access command
  6. #define EEPROM_ACCESS        0x20 //EEPROM access command
  7. #define RAM_TOBJ1                0x07 //To1 address in the eeprom

  9. #define SMBUS_PORT            GPIOB
  10. #define SMBUS_SCK                GPIO_Pin_6
  11. #define SMBUS_SDA                GPIO_Pin_7

  13. #define RCC_APB2Periph_SMBUS_PORT                RCC_APB2Periph_GPIOB

  15. #define SMBUS_SCK_H()            SMBUS_PORT->BSRR = SMBUS_SCK
  16. #define SMBUS_SCK_L()            SMBUS_PORT->BRR = SMBUS_SCK
  17. #define SMBUS_SDA_H()            SMBUS_PORT->BSRR = SMBUS_SDA
  18. #define SMBUS_SDA_L()            SMBUS_PORT->BRR = SMBUS_SDA

  20. #define SMBUS_SDA_PIN()            SMBUS_PORT->IDR & SMBUS_SDA //读取引脚电平


  23. /*******************************************************************************
  24. * 函数名: SMBus_StartBit
  25. * 功能  : 产生起始位
  26. * Input          : None
  27. * Output         : None
  28. * Return         : None
  29. *******************************************************************************/
  30. void SMBus_StartBit(void)
  31. {
  32.     SMBUS_SDA_H();                // Set SDA line
  33.     SMBus_Delay(5);            // Wait a few microseconds
  34.     SMBUS_SCK_H();                // Set SCL line
  35.     SMBus_Delay(5);            // Generate bus free time between Stop
  36.     SMBUS_SDA_L();                // Clear SDA line
  37.     SMBus_Delay(5);            // Hold time after (Repeated) Start
  38.     // Condition. After this period, the first clock is generated.
  39.     //(Thd:sta=4.0us min)
  40.     SMBUS_SCK_L();            // Clear SCL line
  41.     SMBus_Delay(5);            // Wait a few microseconds
  42. }

  44. /*******************************************************************************
  45. * 函数名: SMBus_StopBit
  46. * 功能: Generate STOP condition on SMBus
  47. * Input          : None
  48. * Output         : None
  49. * Return         : None
  50. *******************************************************************************/
  51. void SMBus_StopBit(void)
  52. {
  53.     SMBUS_SCK_L();                // Clear SCL line
  54.     SMBus_Delay(5);            // Wait a few microseconds
  55.     SMBUS_SDA_L();                // Clear SDA line
  56.     SMBus_Delay(5);            // Wait a few microseconds
  57.     SMBUS_SCK_H();                // Set SCL line
  58.     SMBus_Delay(5);            // Stop condition setup time(Tsu:sto=4.0us min)
  59.     SMBUS_SDA_H();                // Set SDA line
  60. }

  62. /*******************************************************************************
  63. * 函数名: SMBus_SendByte
  64. * 功能: Send a byte on SMBus
  65. * Input          : Tx_buffer
  66. * Output         : None
  67. * Return         : None
  68. *******************************************************************************/
  69. u8 SMBus_SendByte(u8 Tx_buffer)
  70. {
  71.     u8        Bit_counter;
  72.     u8        Ack_bit;
  73.     u8        bit_out;

  75.     for(Bit_counter=8; Bit_counter; Bit_counter--)
  76.     {
  77.         if (Tx_buffer&0x80)
  78.         {
  79.             bit_out=1;   // If the current bit of Tx_buffer is 1 set bit_out
  80.         }
  81.         else
  82.         {
  83.             bit_out=0;  // else clear bit_out
  84.         }
  85.         SMBus_SendBit(bit_out);                // Send the current bit on SDA
  86.         Tx_buffer<<=1;                                // Get next bit for checking
  87.     }

  89.     Ack_bit=SMBus_ReceiveBit();                // Get acknowledgment bit
  90.     return        Ack_bit;
  91. }

  93. /*******************************************************************************
  94. * 函数名: SMBus_SendBit
  95. * 功能: Send a bit on SMBus 82.5kHz
  96. * Input          : bit_out
  97. * Output         : None
  98. * Return         : None
  99. *******************************************************************************/
  100. void SMBus_SendBit(u8 bit_out)
  101. {
  102.     if(bit_out==0)
  103.     {
  104.         SMBUS_SDA_L();
  105.     }
  106.     else
  107.     {
  108.         SMBUS_SDA_H();
  109.     }
  110.     SMBus_Delay(2);                                        // Tsu:dat = 250ns minimum
  111.     SMBUS_SCK_H();                                        // Set SCL line
  112.     SMBus_Delay(6);                                        // High Level of Clock Pulse
  113.     SMBUS_SCK_L();                                        // Clear SCL line
  114.     SMBus_Delay(3);                                        // Low Level of Clock Pulse
  115. //        SMBUS_SDA_H();                                    // Master release SDA line ,
  116.     return;
  117. }

  119. /*******************************************************************************
  120. * Function Name  : SMBus_ReceiveBit
  121. * Description    : Receive a bit on SMBus
  122. * Input          : None
  123. * Output         : None
  124. * Return         : Ack_bit
  125. *******************************************************************************/
  126. u8 SMBus_ReceiveBit(void)
  127. {
  128.     u8 Ack_bit;

  130.     SMBUS_SDA_H();          //引脚靠外部电阻上拉，当作输入
  131.         SMBus_Delay(2);                        // High Level of Clock Pulse
  132.     SMBUS_SCK_H();                        // Set SCL line
  133.     SMBus_Delay(5);                        // High Level of Clock Pulse
  134.     if (SMBUS_SDA_PIN())
  135.     {
  136.         Ack_bit=1;
  137.     }
  138.     else
  139.     {
  140.         Ack_bit=0;
  141.     }
  142.     SMBUS_SCK_L();                        // Clear SCL line
  143.     SMBus_Delay(3);                        // Low Level of Clock Pulse

  145.     return        Ack_bit;
  146. }

  148. /*******************************************************************************
  149. * 函数名: SMBus_ReceiveByte
  150. * 功能: Receive a byte on SMBus
  151. * Input          : ack_nack
  152. * Output         : None
  153. * Return         : RX_buffer
  154. *******************************************************************************/
  155. u8 SMBus_ReceiveByte(u8 ack_nack)
  156. {
  157.     u8         RX_buffer;
  158.     u8        Bit_Counter;

  160.     for(Bit_Counter=8; Bit_Counter; Bit_Counter--)
  161.     {
  162.         if(SMBus_ReceiveBit())                        // Get a bit from the SDA line
  163.         {
  164.             RX_buffer <<= 1;                        // If the bit is HIGH save 1  in RX_buffer
  165.             RX_buffer |=0x01;
  166.         }
  167.         else
  168.         {
  169.             RX_buffer <<= 1;                        // If the bit is LOW save 0 in RX_buffer
  170.             RX_buffer &=0xfe;
  171.         }
  172.     }
  173.     SMBus_SendBit(ack_nack);                        // Sends acknowledgment bit
  174.     return RX_buffer;
  175. }

  177. /*******************************************************************************
  178. * 函数名: SMBus_Delay
  179. * 功能: 延时  一次循环约1us
  180. * Input          : time
  181. * Output         : None
  182. * Return         : None
  183. *******************************************************************************/
  184. void SMBus_Delay(u16 time)
  185. {
  186.     u16 i, j;
  187.     for (i=0; i<4; i++)
  188.     {
  189.         for (j=0; j<time; j++);
  190.     }
  191. }

  193. /*******************************************************************************
  194. * 函数名: SMBus_Init
  195. * 功能: SMBus初始化
  196. * Input          : None
  197. * Output         : None
  198. * Return         : None
  199. *******************************************************************************/
  200. void SMBus_Init()
  201. {
  202.     GPIO_InitTypeDef    GPIO_InitStructure;

  204.         /* Enable SMBUS_PORT clocks */
  205.         RCC_APB2PeriphClockCmd(RCC_APB2Periph_SMBUS_PORT, ENABLE);

  207.     /*配置SMBUS_SCK、SMBUS_SDA为集电极开漏输出*/
  208.     GPIO_InitStructure.GPIO_Pin = SMBUS_SCK | SMBUS_SDA;
  209.     GPIO_InitStructure.GPIO_Mode = GPIO_Mode_Out_OD;
  210.     GPIO_InitStructure.GPIO_Speed = GPIO_Speed_50MHz;
  211.     GPIO_Init(SMBUS_PORT, &GPIO_InitStructure);

  213.     SMBUS_SCK_H();
  214.     SMBUS_SDA_H();
  215. }

  217. /*******************************************************************************
  218. * 函数名: SMBus_ReadMemory
  219. * 功能: READ DATA FROM RAM/EEPROM
  220. * Input          : slaveAddress, command
  221. * Return         : Data
  222. *******************************************************************************/
  223. u16 SMBus_ReadMemory(u8 slaveAddress, u8 command)
  224. {
  225.     u16 data;                        // Data storage (DataH:DataL)
  226.     u8 Pec;                                // PEC byte storage
  227.     u8 DataL=0;                        // Low data byte storage
  228.     u8 DataH=0;                        // High data byte storage
  229.     u8 arr[6];                        // Buffer for the sent bytes
  230.     u8 PecReg;                        // Calculated PEC byte storage
  231.     u8 ErrorCounter;        // Defines the number of the attempts for communication with MLX90614

  233.     ErrorCounter=0x00;                                // Initialising of ErrorCounter
  234.         slaveAddress <<= 1;        //2-7位表示从机地址
  235.         
  236.     do
  237.     {
  238. repeat:
  239.         SMBus_StopBit();                            //If slave send NACK stop comunication
  240.         --ErrorCounter;                                    //Pre-decrement ErrorCounter
  241.         if(!ErrorCounter)                             //ErrorCounter=0?
  242.         {
  243.             break;                                            //Yes,go out from do-while{}
  244.         }

  246.         SMBus_StartBit();                                //Start condition
  247.         if(SMBus_SendByte(slaveAddress))//Send SlaveAddress 最低位Wr=0表示接下来写命令
  248.         {
  249.             goto        repeat;                            //Repeat comunication again
  250.         }
  251.         if(SMBus_SendByte(command))            //Send command
  252.         {
  253.             goto        repeat;                            //Repeat comunication again
  254.         }

  256.         SMBus_StartBit();                                        //Repeated Start condition
  257.         if(SMBus_SendByte(slaveAddress+1))        //Send SlaveAddress 最低位Rd=1表示接下来读数据
  258.         {
  259.             goto        repeat;                     //Repeat comunication again
  260.         }

  262.         DataL = SMBus_ReceiveByte(ACK);        //Read low data,master must send ACK
  263.         DataH = SMBus_ReceiveByte(ACK); //Read high data,master must send ACK
  264.         Pec = SMBus_ReceiveByte(NACK);        //Read PEC byte, master must send NACK
  265.         SMBus_StopBit();                                //Stop condition

  267.         arr[5] = slaveAddress;                //
  268.         arr[4] = command;                        //
  269.         arr[3] = slaveAddress+1;        //Load array arr
  270.         arr[2] = DataL;                                //
  271.         arr[1] = DataH;                                //
  272.         arr[0] = 0;                                        //
  273.         PecReg=PEC_Calculation(arr);//Calculate CRC
  274.     }
  275.     while(PecReg != Pec);                //If received and calculated CRC are equal go out from do-while{}

  277.         data = (DataH<<8) | DataL;        //data=DataH:DataL
  278.     return data;
  279. }

  281. /*******************************************************************************
  282. * 函数名: PEC_calculation
  283. * 功能 : 数据校验
  284. * Input          : pec[]
  285. * Output         : None
  286. * Return         : pec[0]-this byte contains calculated crc value
  287. *******************************************************************************/
  288. u8 PEC_Calculation(u8 pec[])
  289. {
  290.     u8         crc[6];
  291.     u8        BitPosition=47;
  292.     u8        shift;
  293.     u8        i;
  294.     u8        j;
  295.     u8        temp;

  297.     do
  298.     {
  299.         /*Load pattern value 0x000000000107*/
  300.         crc[5]=0;
  301.         crc[4]=0;
  302.         crc[3]=0;
  303.         crc[2]=0;
  304.         crc[1]=0x01;
  305.         crc[0]=0x07;

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

  310.         /*Set shift position at 0*/
  311.         shift=0;

  313.         /*Find first "1" in the transmited message beginning from the MSByte byte5*/
  314.         i=5;
  315.         j=0;
  316.         while((pec[i]&(0x80>>j))==0 && i>0)
  317.         {
  318.             BitPosition--;
  319.             if(j<7)
  320.             {
  321.                 j++;
  322.             }
  323.             else
  324.             {
  325.                 j=0x00;
  326.                 i--;
  327.             }
  328.         }/*End of while */

  330.         /*Get shift value for pattern value*/
  331.         shift=BitPosition-8;

  333.         /*Shift pattern value */
  334.         while(shift)
  335.         {
  336.             for(i=5; i<0xFF; i--)
  337.             {
  338.                 if((crc[i-1]&0x80) && (i>0))
  339.                 {
  340.                     temp=1;
  341.                 }
  342.                 else
  343.                 {
  344.                     temp=0;
  345.                 }
  346.                 crc[i]<<=1;
  347.                 crc[i]+=temp;
  348.             }/*End of for*/
  349.             shift--;
  350.         }/*End of while*/

  352.         /*Exclusive OR between pec and crc*/
  353.         for(i=0; i<=5; i++)
  354.         {
  355.             pec[i] ^=crc[i];
  356.         }/*End of for*/
  357.     }
  358.     while(BitPosition>8); /*End of do-while*/

  360.     return pec[0];
  361. }

  363. /*******************************************************************************
  364. * 函数名: SMBus_ReadTemp
  365. * 功能: 计算并返回温度值
  366. * Return         : SMBus_ReadMemory(0x00, 0x07)*0.02-273.15
  367. *******************************************************************************/
  368. float SMBus_ReadTemp(void)
  369. {   
  370.         return SMBus_ReadMemory(SA, RAM_ACCESS|RAM_TOBJ1)*0.02-273.15;
  371. }

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


所有资料51hei提供下载:
MLX90614.7z (258.93 KB, 下载次数: 242)
回复

使用道具 举报

ID:282845 发表于 2020-2-29 11:37 | 显示全部楼层
谢谢分享！！！
回复

使用道具 举报

ID:715946 发表于 2020-4-30 15:54 | 显示全部楼层
这个不外接电阻可以吗
回复

使用道具 举报

ID:715946 发表于 2020-4-30 15:55 | 显示全部楼层
#define SMBUS_SCK_H()            SMBUS_PORT->BSRR = SMBUS_SCK这个是怎么实现的
回复

使用道具 举报

ID:384489 发表于 2020-6-28 14:42 | 显示全部楼层
感谢分享，今天恰好在调试MLX90614。
回复

使用道具 举报

ID:1009310 发表于 2022-3-9 19:58 | 显示全部楼层
你好 为什么我的测出来一直是绝对零度呢
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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