John Karatka / mbed

mbed

Fork of mbed-dev by mbed official

targets/TARGET_STM/TARGET_STM32F4/analogin_device.c@181:96ed750bd169, 2018-01-17 (annotated)

Committer:
Anna Bridge
Date:
Wed Jan 17 15:23:54 2018 +0000
Revision:
181:96ed750bd169
mbed-dev libray. Release version 158

Who changed what in which revision?

UserRevisionLine numberNew contents of line
Anna Bridge 181:96ed750bd169 1 /* mbed Microcontroller Library
Anna Bridge 181:96ed750bd169 2 * Copyright (c) 2016, STMicroelectronics
Anna Bridge 181:96ed750bd169 3 * All rights reserved.
Anna Bridge 181:96ed750bd169 4 *
Anna Bridge 181:96ed750bd169 5 * Redistribution and use in source and binary forms, with or without
Anna Bridge 181:96ed750bd169 6 * modification, are permitted provided that the following conditions are met:
Anna Bridge 181:96ed750bd169 7 *
Anna Bridge 181:96ed750bd169 8 * 1. Redistributions of source code must retain the above copyright notice,
Anna Bridge 181:96ed750bd169 9 * this list of conditions and the following disclaimer.
Anna Bridge 181:96ed750bd169 10 * 2. Redistributions in binary form must reproduce the above copyright notice,
Anna Bridge 181:96ed750bd169 11 * this list of conditions and the following disclaimer in the documentation
Anna Bridge 181:96ed750bd169 12 * and/or other materials provided with the distribution.
Anna Bridge 181:96ed750bd169 13 * 3. Neither the name of STMicroelectronics nor the names of its contributors
Anna Bridge 181:96ed750bd169 14 * may be used to endorse or promote products derived from this software
Anna Bridge 181:96ed750bd169 15 * without specific prior written permission.
Anna Bridge 181:96ed750bd169 16 *
Anna Bridge 181:96ed750bd169 17 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
Anna Bridge 181:96ed750bd169 18 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
Anna Bridge 181:96ed750bd169 19 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
Anna Bridge 181:96ed750bd169 20 * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
Anna Bridge 181:96ed750bd169 21 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
Anna Bridge 181:96ed750bd169 22 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
Anna Bridge 181:96ed750bd169 23 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
Anna Bridge 181:96ed750bd169 24 * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
Anna Bridge 181:96ed750bd169 25 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
Anna Bridge 181:96ed750bd169 26 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
Anna Bridge 181:96ed750bd169 27 */
Anna Bridge 181:96ed750bd169 28 #include "mbed_assert.h"
Anna Bridge 181:96ed750bd169 29 #include "analogin_api.h"
Anna Bridge 181:96ed750bd169 30
Anna Bridge 181:96ed750bd169 31 #if DEVICE_ANALOGIN
Anna Bridge 181:96ed750bd169 32
Anna Bridge 181:96ed750bd169 33 #include "mbed_wait_api.h"
Anna Bridge 181:96ed750bd169 34 #include "cmsis.h"
Anna Bridge 181:96ed750bd169 35 #include "pinmap.h"
Anna Bridge 181:96ed750bd169 36 #include "mbed_error.h"
Anna Bridge 181:96ed750bd169 37 #include "PeripheralPins.h"
Anna Bridge 181:96ed750bd169 38
Anna Bridge 181:96ed750bd169 39 void analogin_init(analogin_t *obj, PinName pin)
Anna Bridge 181:96ed750bd169 40 {
Anna Bridge 181:96ed750bd169 41 uint32_t function = (uint32_t)NC;
Anna Bridge 181:96ed750bd169 42
Anna Bridge 181:96ed750bd169 43 // ADC Internal Channels "pins" (Temperature, Vref, Vbat, ...)
Anna Bridge 181:96ed750bd169 44 // are described in PinNames.h and PeripheralPins.c
Anna Bridge 181:96ed750bd169 45 // Pin value must be between 0xF0 and 0xFF
Anna Bridge 181:96ed750bd169 46 if ((pin < 0xF0) || (pin >= 0x100)) {
Anna Bridge 181:96ed750bd169 47 // Normal channels
Anna Bridge 181:96ed750bd169 48 // Get the peripheral name from the pin and assign it to the object
Anna Bridge 181:96ed750bd169 49 obj->handle.Instance = (ADC_TypeDef *)pinmap_peripheral(pin, PinMap_ADC);
Anna Bridge 181:96ed750bd169 50 // Get the functions (adc channel) from the pin and assign it to the object
Anna Bridge 181:96ed750bd169 51 function = pinmap_function(pin, PinMap_ADC);
Anna Bridge 181:96ed750bd169 52 // Configure GPIO
Anna Bridge 181:96ed750bd169 53 pinmap_pinout(pin, PinMap_ADC);
Anna Bridge 181:96ed750bd169 54 } else {
Anna Bridge 181:96ed750bd169 55 // Internal channels
Anna Bridge 181:96ed750bd169 56 obj->handle.Instance = (ADC_TypeDef *)pinmap_peripheral(pin, PinMap_ADC_Internal);
Anna Bridge 181:96ed750bd169 57 function = pinmap_function(pin, PinMap_ADC_Internal);
Anna Bridge 181:96ed750bd169 58 // No GPIO configuration for internal channels
Anna Bridge 181:96ed750bd169 59 }
Anna Bridge 181:96ed750bd169 60 MBED_ASSERT(obj->handle.Instance != (ADC_TypeDef *)NC);
Anna Bridge 181:96ed750bd169 61 MBED_ASSERT(function != (uint32_t)NC);
Anna Bridge 181:96ed750bd169 62
Anna Bridge 181:96ed750bd169 63 obj->channel = STM_PIN_CHANNEL(function);
Anna Bridge 181:96ed750bd169 64
Anna Bridge 181:96ed750bd169 65 // Save pin number for the read function
Anna Bridge 181:96ed750bd169 66 obj->pin = pin;
Anna Bridge 181:96ed750bd169 67
Anna Bridge 181:96ed750bd169 68 // Configure ADC object structures
Anna Bridge 181:96ed750bd169 69 obj->handle.State = HAL_ADC_STATE_RESET;
Anna Bridge 181:96ed750bd169 70 obj->handle.Init.ClockPrescaler = ADC_CLOCK_SYNC_PCLK_DIV2;
Anna Bridge 181:96ed750bd169 71 obj->handle.Init.Resolution = ADC_RESOLUTION_12B;
Anna Bridge 181:96ed750bd169 72 obj->handle.Init.ScanConvMode = DISABLE;
Anna Bridge 181:96ed750bd169 73 obj->handle.Init.ContinuousConvMode = DISABLE;
Anna Bridge 181:96ed750bd169 74 obj->handle.Init.DiscontinuousConvMode = DISABLE;
Anna Bridge 181:96ed750bd169 75 obj->handle.Init.NbrOfDiscConversion = 0;
Anna Bridge 181:96ed750bd169 76 obj->handle.Init.ExternalTrigConvEdge = ADC_EXTERNALTRIGCONVEDGE_NONE;
Anna Bridge 181:96ed750bd169 77 obj->handle.Init.ExternalTrigConv = ADC_EXTERNALTRIGCONV_T1_CC1;
Anna Bridge 181:96ed750bd169 78 obj->handle.Init.DataAlign = ADC_DATAALIGN_RIGHT;
Anna Bridge 181:96ed750bd169 79 obj->handle.Init.NbrOfConversion = 1;
Anna Bridge 181:96ed750bd169 80 obj->handle.Init.DMAContinuousRequests = DISABLE;
Anna Bridge 181:96ed750bd169 81 obj->handle.Init.EOCSelection = DISABLE;
Anna Bridge 181:96ed750bd169 82
Anna Bridge 181:96ed750bd169 83 #if defined(ADC1)
Anna Bridge 181:96ed750bd169 84 if ((ADCName)obj->handle.Instance == ADC_1) {
Anna Bridge 181:96ed750bd169 85 __HAL_RCC_ADC1_CLK_ENABLE();
Anna Bridge 181:96ed750bd169 86 }
Anna Bridge 181:96ed750bd169 87 #endif
Anna Bridge 181:96ed750bd169 88 #if defined(ADC2)
Anna Bridge 181:96ed750bd169 89 if ((ADCName)obj->handle.Instance == ADC_2) {
Anna Bridge 181:96ed750bd169 90 __HAL_RCC_ADC2_CLK_ENABLE();
Anna Bridge 181:96ed750bd169 91 }
Anna Bridge 181:96ed750bd169 92 #endif
Anna Bridge 181:96ed750bd169 93 #if defined(ADC3)
Anna Bridge 181:96ed750bd169 94 if ((ADCName)obj->handle.Instance == ADC_3) {
Anna Bridge 181:96ed750bd169 95 __HAL_RCC_ADC3_CLK_ENABLE();
Anna Bridge 181:96ed750bd169 96 }
Anna Bridge 181:96ed750bd169 97 #endif
Anna Bridge 181:96ed750bd169 98
Anna Bridge 181:96ed750bd169 99 if (HAL_ADC_Init(&obj->handle) != HAL_OK) {
Anna Bridge 181:96ed750bd169 100 error("Cannot initialize ADC");
Anna Bridge 181:96ed750bd169 101 }
Anna Bridge 181:96ed750bd169 102 }
Anna Bridge 181:96ed750bd169 103
Anna Bridge 181:96ed750bd169 104 uint16_t adc_read(analogin_t *obj)
Anna Bridge 181:96ed750bd169 105 {
Anna Bridge 181:96ed750bd169 106 ADC_ChannelConfTypeDef sConfig = {0};
Anna Bridge 181:96ed750bd169 107
Anna Bridge 181:96ed750bd169 108 // Configure ADC channel
Anna Bridge 181:96ed750bd169 109 sConfig.Rank = 1;
Anna Bridge 181:96ed750bd169 110 sConfig.SamplingTime = ADC_SAMPLETIME_15CYCLES;
Anna Bridge 181:96ed750bd169 111 sConfig.Offset = 0;
Anna Bridge 181:96ed750bd169 112
Anna Bridge 181:96ed750bd169 113 switch (obj->channel) {
Anna Bridge 181:96ed750bd169 114 case 0:
Anna Bridge 181:96ed750bd169 115 sConfig.Channel = ADC_CHANNEL_0;
Anna Bridge 181:96ed750bd169 116 break;
Anna Bridge 181:96ed750bd169 117 case 1:
Anna Bridge 181:96ed750bd169 118 sConfig.Channel = ADC_CHANNEL_1;
Anna Bridge 181:96ed750bd169 119 break;
Anna Bridge 181:96ed750bd169 120 case 2:
Anna Bridge 181:96ed750bd169 121 sConfig.Channel = ADC_CHANNEL_2;
Anna Bridge 181:96ed750bd169 122 break;
Anna Bridge 181:96ed750bd169 123 case 3:
Anna Bridge 181:96ed750bd169 124 sConfig.Channel = ADC_CHANNEL_3;
Anna Bridge 181:96ed750bd169 125 break;
Anna Bridge 181:96ed750bd169 126 case 4:
Anna Bridge 181:96ed750bd169 127 sConfig.Channel = ADC_CHANNEL_4;
Anna Bridge 181:96ed750bd169 128 break;
Anna Bridge 181:96ed750bd169 129 case 5:
Anna Bridge 181:96ed750bd169 130 sConfig.Channel = ADC_CHANNEL_5;
Anna Bridge 181:96ed750bd169 131 break;
Anna Bridge 181:96ed750bd169 132 case 6:
Anna Bridge 181:96ed750bd169 133 sConfig.Channel = ADC_CHANNEL_6;
Anna Bridge 181:96ed750bd169 134 break;
Anna Bridge 181:96ed750bd169 135 case 7:
Anna Bridge 181:96ed750bd169 136 sConfig.Channel = ADC_CHANNEL_7;
Anna Bridge 181:96ed750bd169 137 break;
Anna Bridge 181:96ed750bd169 138 case 8:
Anna Bridge 181:96ed750bd169 139 sConfig.Channel = ADC_CHANNEL_8;
Anna Bridge 181:96ed750bd169 140 break;
Anna Bridge 181:96ed750bd169 141 case 9:
Anna Bridge 181:96ed750bd169 142 sConfig.Channel = ADC_CHANNEL_9;
Anna Bridge 181:96ed750bd169 143 break;
Anna Bridge 181:96ed750bd169 144 case 10:
Anna Bridge 181:96ed750bd169 145 sConfig.Channel = ADC_CHANNEL_10;
Anna Bridge 181:96ed750bd169 146 break;
Anna Bridge 181:96ed750bd169 147 case 11:
Anna Bridge 181:96ed750bd169 148 sConfig.Channel = ADC_CHANNEL_11;
Anna Bridge 181:96ed750bd169 149 break;
Anna Bridge 181:96ed750bd169 150 case 12:
Anna Bridge 181:96ed750bd169 151 sConfig.Channel = ADC_CHANNEL_12;
Anna Bridge 181:96ed750bd169 152 break;
Anna Bridge 181:96ed750bd169 153 case 13:
Anna Bridge 181:96ed750bd169 154 sConfig.Channel = ADC_CHANNEL_13;
Anna Bridge 181:96ed750bd169 155 break;
Anna Bridge 181:96ed750bd169 156 case 14:
Anna Bridge 181:96ed750bd169 157 sConfig.Channel = ADC_CHANNEL_14;
Anna Bridge 181:96ed750bd169 158 break;
Anna Bridge 181:96ed750bd169 159 case 15:
Anna Bridge 181:96ed750bd169 160 sConfig.Channel = ADC_CHANNEL_15;
Anna Bridge 181:96ed750bd169 161 break;
Anna Bridge 181:96ed750bd169 162 case 16:
Anna Bridge 181:96ed750bd169 163 sConfig.Channel = ADC_CHANNEL_TEMPSENSOR;
Anna Bridge 181:96ed750bd169 164 break;
Anna Bridge 181:96ed750bd169 165 case 17:
Anna Bridge 181:96ed750bd169 166 sConfig.Channel = ADC_CHANNEL_VREFINT;
Anna Bridge 181:96ed750bd169 167 /* From experiment, measurement needs max sampling time to be valid */
Anna Bridge 181:96ed750bd169 168 sConfig.SamplingTime = ADC_SAMPLETIME_480CYCLES;
Anna Bridge 181:96ed750bd169 169 break;
Anna Bridge 181:96ed750bd169 170 case 18:
Anna Bridge 181:96ed750bd169 171 sConfig.Channel = ADC_CHANNEL_VBAT;
Anna Bridge 181:96ed750bd169 172 /* From experiment, measurement needs max sampling time to be valid */
Anna Bridge 181:96ed750bd169 173 sConfig.SamplingTime = ADC_SAMPLETIME_480CYCLES;
Anna Bridge 181:96ed750bd169 174 break;
Anna Bridge 181:96ed750bd169 175 default:
Anna Bridge 181:96ed750bd169 176 return 0;
Anna Bridge 181:96ed750bd169 177 }
Anna Bridge 181:96ed750bd169 178
Anna Bridge 181:96ed750bd169 179 // Measuring VBAT sets the ADC_CCR_VBATE bit in ADC->CCR, and there is not
Anna Bridge 181:96ed750bd169 180 // possibility with the ST HAL driver to clear it. If it isn't cleared,
Anna Bridge 181:96ed750bd169 181 // VBAT remains connected to the ADC channel in preference to temperature,
Anna Bridge 181:96ed750bd169 182 // so VBAT readings are returned in place of temperature.
Anna Bridge 181:96ed750bd169 183 ADC->CCR &= ~(ADC_CCR_VBATE | ADC_CCR_TSVREFE);
Anna Bridge 181:96ed750bd169 184
Anna Bridge 181:96ed750bd169 185 HAL_ADC_ConfigChannel(&obj->handle, &sConfig);
Anna Bridge 181:96ed750bd169 186
Anna Bridge 181:96ed750bd169 187 HAL_ADC_Start(&obj->handle); // Start conversion
Anna Bridge 181:96ed750bd169 188
Anna Bridge 181:96ed750bd169 189 // Wait end of conversion and get value
Anna Bridge 181:96ed750bd169 190 if (HAL_ADC_PollForConversion(&obj->handle, 10) == HAL_OK) {
Anna Bridge 181:96ed750bd169 191 return (uint16_t)HAL_ADC_GetValue(&obj->handle);
Anna Bridge 181:96ed750bd169 192 } else {
Anna Bridge 181:96ed750bd169 193 return 0;
Anna Bridge 181:96ed750bd169 194 }
Anna Bridge 181:96ed750bd169 195 }
Anna Bridge 181:96ed750bd169 196
Anna Bridge 181:96ed750bd169 197 #endif