mbed official / mbed-dev

mbed library sources. Supersedes mbed-src.

Dependents:   Nucleo_Hello_Encoder BLE_iBeaconScan AM1805_DEMO DISCO-F429ZI_ExportTemplate1 ... more

targets/TARGET_STM/TARGET_STM32F1/analogin_device.c@189:f392fc9709a3, 2019-02-20 (annotated)

Committer:
AnnaBridge
Date:
Wed Feb 20 22:31:08 2019 +0000
Revision:
189:f392fc9709a3
Parent:
186:707f6e361f3e 
mbed library release version 165

Who changed what in which revision?

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