mbed library sources. Supersedes mbed-src.

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

Committer:
Anna Bridge
Date:
Fri Jun 22 16:45:37 2018 +0100
Revision:
186:707f6e361f3e
Parent:
180:96ed750bd169
mbed-dev library. Release version 162

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 // Configure ADC object structures
Anna Bridge 180:96ed750bd169 69 obj->handle.State = HAL_ADC_STATE_RESET;
Anna Bridge 180:96ed750bd169 70 obj->handle.Init.ClockPrescaler = ADC_CLOCK_SYNC_PCLK_DIV4;
Anna Bridge 180:96ed750bd169 71 obj->handle.Init.Resolution = ADC_RESOLUTION_12B;
Anna Bridge 180:96ed750bd169 72 obj->handle.Init.DataAlign = ADC_DATAALIGN_RIGHT;
Anna Bridge 180:96ed750bd169 73 obj->handle.Init.ScanConvMode = ADC_SCAN_DIRECTION_FORWARD;
Anna Bridge 180:96ed750bd169 74 obj->handle.Init.EOCSelection = ADC_EOC_SINGLE_CONV;
Anna Bridge 180:96ed750bd169 75 obj->handle.Init.LowPowerAutoWait = DISABLE;
Anna Bridge 180:96ed750bd169 76 obj->handle.Init.LowPowerAutoPowerOff = DISABLE;
Anna Bridge 180:96ed750bd169 77 obj->handle.Init.ContinuousConvMode = DISABLE;
Anna Bridge 180:96ed750bd169 78 obj->handle.Init.DiscontinuousConvMode = DISABLE;
Anna Bridge 180:96ed750bd169 79 obj->handle.Init.ExternalTrigConv = ADC_SOFTWARE_START;
Anna Bridge 180:96ed750bd169 80 obj->handle.Init.ExternalTrigConvEdge = ADC_EXTERNALTRIGCONVEDGE_NONE;
Anna Bridge 180:96ed750bd169 81 obj->handle.Init.DMAContinuousRequests = DISABLE;
Anna Bridge 180:96ed750bd169 82 obj->handle.Init.Overrun = ADC_OVR_DATA_OVERWRITTEN;
Anna Bridge 180:96ed750bd169 83
Anna Bridge 180:96ed750bd169 84 __HAL_RCC_ADC1_CLK_ENABLE();
Anna Bridge 180:96ed750bd169 85
Anna Bridge 180:96ed750bd169 86 if (HAL_ADC_Init(&obj->handle) != HAL_OK) {
Anna Bridge 180:96ed750bd169 87 error("Cannot initialize ADC");
Anna Bridge 180:96ed750bd169 88 }
Anna Bridge 180:96ed750bd169 89
Anna Bridge 186:707f6e361f3e 90 if (!LL_ADC_REG_ReadConversionData6(obj->handle.Instance)) {
Anna Bridge 180:96ed750bd169 91 HAL_ADCEx_Calibration_Start(&obj->handle);
Anna Bridge 180:96ed750bd169 92 }
Anna Bridge 180:96ed750bd169 93 }
Anna Bridge 180:96ed750bd169 94
Anna Bridge 180:96ed750bd169 95 uint16_t adc_read(analogin_t *obj)
Anna Bridge 180:96ed750bd169 96 {
Anna Bridge 180:96ed750bd169 97 ADC_ChannelConfTypeDef sConfig = {0};
Anna Bridge 180:96ed750bd169 98
Anna Bridge 180:96ed750bd169 99 // Configure ADC channel
Anna Bridge 180:96ed750bd169 100 sConfig.Rank = ADC_RANK_CHANNEL_NUMBER;
Anna Bridge 186:707f6e361f3e 101 sConfig.SamplingTime = ADC_SAMPLETIME_41CYCLES_5;
Anna Bridge 180:96ed750bd169 102
Anna Bridge 180:96ed750bd169 103 switch (obj->channel) {
Anna Bridge 180:96ed750bd169 104 case 0:
Anna Bridge 180:96ed750bd169 105 sConfig.Channel = ADC_CHANNEL_0;
Anna Bridge 180:96ed750bd169 106 break;
Anna Bridge 180:96ed750bd169 107 case 1:
Anna Bridge 180:96ed750bd169 108 sConfig.Channel = ADC_CHANNEL_1;
Anna Bridge 180:96ed750bd169 109 break;
Anna Bridge 180:96ed750bd169 110 case 2:
Anna Bridge 180:96ed750bd169 111 sConfig.Channel = ADC_CHANNEL_2;
Anna Bridge 180:96ed750bd169 112 break;
Anna Bridge 180:96ed750bd169 113 case 3:
Anna Bridge 180:96ed750bd169 114 sConfig.Channel = ADC_CHANNEL_3;
Anna Bridge 180:96ed750bd169 115 break;
Anna Bridge 180:96ed750bd169 116 case 4:
Anna Bridge 180:96ed750bd169 117 sConfig.Channel = ADC_CHANNEL_4;
Anna Bridge 180:96ed750bd169 118 break;
Anna Bridge 180:96ed750bd169 119 case 5:
Anna Bridge 180:96ed750bd169 120 sConfig.Channel = ADC_CHANNEL_5;
Anna Bridge 180:96ed750bd169 121 break;
Anna Bridge 180:96ed750bd169 122 case 6:
Anna Bridge 180:96ed750bd169 123 sConfig.Channel = ADC_CHANNEL_6;
Anna Bridge 180:96ed750bd169 124 break;
Anna Bridge 180:96ed750bd169 125 case 7:
Anna Bridge 180:96ed750bd169 126 sConfig.Channel = ADC_CHANNEL_7;
Anna Bridge 180:96ed750bd169 127 break;
Anna Bridge 180:96ed750bd169 128 case 8:
Anna Bridge 180:96ed750bd169 129 sConfig.Channel = ADC_CHANNEL_8;
Anna Bridge 180:96ed750bd169 130 break;
Anna Bridge 180:96ed750bd169 131 case 9:
Anna Bridge 180:96ed750bd169 132 sConfig.Channel = ADC_CHANNEL_9;
Anna Bridge 180:96ed750bd169 133 break;
Anna Bridge 180:96ed750bd169 134 case 10:
Anna Bridge 180:96ed750bd169 135 sConfig.Channel = ADC_CHANNEL_10;
Anna Bridge 180:96ed750bd169 136 break;
Anna Bridge 180:96ed750bd169 137 case 11:
Anna Bridge 180:96ed750bd169 138 sConfig.Channel = ADC_CHANNEL_11;
Anna Bridge 180:96ed750bd169 139 break;
Anna Bridge 180:96ed750bd169 140 case 12:
Anna Bridge 180:96ed750bd169 141 sConfig.Channel = ADC_CHANNEL_12;
Anna Bridge 180:96ed750bd169 142 break;
Anna Bridge 180:96ed750bd169 143 case 13:
Anna Bridge 180:96ed750bd169 144 sConfig.Channel = ADC_CHANNEL_13;
Anna Bridge 180:96ed750bd169 145 break;
Anna Bridge 180:96ed750bd169 146 case 14:
Anna Bridge 180:96ed750bd169 147 sConfig.Channel = ADC_CHANNEL_14;
Anna Bridge 180:96ed750bd169 148 break;
Anna Bridge 180:96ed750bd169 149 case 15:
Anna Bridge 180:96ed750bd169 150 sConfig.Channel = ADC_CHANNEL_15;
Anna Bridge 180:96ed750bd169 151 break;
Anna Bridge 180:96ed750bd169 152 case 16:
Anna Bridge 180:96ed750bd169 153 sConfig.Channel = ADC_CHANNEL_TEMPSENSOR;
Anna Bridge 186:707f6e361f3e 154 sConfig.SamplingTime = ADC_SAMPLETIME_239CYCLES_5;
Anna Bridge 180:96ed750bd169 155 break;
Anna Bridge 180:96ed750bd169 156 case 17:
Anna Bridge 180:96ed750bd169 157 sConfig.Channel = ADC_CHANNEL_VREFINT;
Anna Bridge 186:707f6e361f3e 158 sConfig.SamplingTime = ADC_SAMPLETIME_239CYCLES_5;
Anna Bridge 180:96ed750bd169 159 break;
Anna Bridge 180:96ed750bd169 160 #ifdef ADC_CHANNEL_VBAT
Anna Bridge 180:96ed750bd169 161 case 18:
Anna Bridge 180:96ed750bd169 162 sConfig.Channel = ADC_CHANNEL_VBAT;
Anna Bridge 186:707f6e361f3e 163 sConfig.SamplingTime = ADC_SAMPLETIME_239CYCLES_5;
Anna Bridge 180:96ed750bd169 164 break;
Anna Bridge 180:96ed750bd169 165 #endif
Anna Bridge 180:96ed750bd169 166 default:
Anna Bridge 180:96ed750bd169 167 return 0;
Anna Bridge 180:96ed750bd169 168 }
Anna Bridge 180:96ed750bd169 169
Anna Bridge 180:96ed750bd169 170 // Clear all channels as it is not done in HAL_ADC_ConfigChannel()
Anna Bridge 180:96ed750bd169 171 obj->handle.Instance->CHSELR = 0;
Anna Bridge 180:96ed750bd169 172
Anna Bridge 180:96ed750bd169 173 HAL_ADC_ConfigChannel(&obj->handle, &sConfig);
Anna Bridge 180:96ed750bd169 174
Anna Bridge 180:96ed750bd169 175 HAL_ADC_Start(&obj->handle); // Start conversion
Anna Bridge 180:96ed750bd169 176
Anna Bridge 180:96ed750bd169 177 // Wait end of conversion and get value
Anna Bridge 180:96ed750bd169 178 if (HAL_ADC_PollForConversion(&obj->handle, 10) == HAL_OK) {
Anna Bridge 180:96ed750bd169 179 return (uint16_t)HAL_ADC_GetValue(&obj->handle);
Anna Bridge 180:96ed750bd169 180 } else {
Anna Bridge 180:96ed750bd169 181 return 0;
Anna Bridge 180:96ed750bd169 182 }
Anna Bridge 180:96ed750bd169 183 }
Anna Bridge 180:96ed750bd169 184
Anna Bridge 180:96ed750bd169 185 #endif